Конференция "Начинающим" » Как загрузить файл в виде IStream, с верным содержимым TStatStg?
 
  • Прохосый (09.06.18 22:25) [0]
    Добрый вечер!
    Такая проблема нарисовалась... Есть сторонняя DLL. Ей надо передавать файл в виде IStream.
    А я со всякими "I" прежде не работал. Нашёл вот такой код:

    var StreamM: TMemoryStream; StreamI: IStream; NewPos: Int64;
    begin
    StreamM.LoadFromFile('...');
    StreamI:=TStreamAdapter.Create(StreamM, soReference) as IStream;
    StreamI.Seek(0, 0, NewPos);
    // Ура! Теперь у нас есть IStream! Передаём куда нужно!


    Но не работает - пишет мол нет информации об имени файла. Поддержка ответила что библиотека делает IStream.Stat() и ожидает имя файла в поле TStatStg.pwcsName, обязательно.
    Может можно как-то проще загрузить файл с диска сразу в IStream, и без конвертаций и чтоб в TStatStg тоже было всё нормально? Подскажите, пожалуйста.
  • Плохиш © (10.06.18 15:58) [1]
    Надо пригласить А.С.Пушкина и он с удовольствием заполнит свойство TStreamAdapter.Stat
  • Прохосый (10.06.18 16:57) [2]
    эм... TStreamAdapter.Stat() - это не свойство, а функция, возвращающая (вернее заполняющая структуру) информацию, а не устанавливающая её...
  • Прохосый (10.06.18 18:18) [3]
    Видимо либо придётся делать наследника TStreamAdapter с перекрытым Stat (что как-то не хочется возиться), либо искать принципиально другой способ...

    Цель: загрузить файл с диска в виде IStream и обязательно с актуальным tagSTATSTG.
    Может кто подскажет? Подозреваю должен быть системный ComObject, который подойдёт... Название его бы мне... %)
  • Плохиш © (14.06.18 13:24) [4]
    А.С.Пушкин вообще сильно удивлён, что вы изволите требовать от TMemoryStream имя какого-то файла.
  • Прохосый (14.06.18 18:07) [5]
    Да хоть TMemoryStream, хоть TFileStream, хоть TBufferedFileStream - без разницы.
    Нигде не запоминается TStatStg и не предусмотрено возможности заполнить вручную.
    TStreamAdapter также сего не реализует вообще никак.

    Если не знаете ответа - зачем вообще что-либо писать? =/
  • Rouse_ © (14.06.18 21:15) [6]
    Как это не предусмотрено? Перекрываешь метод IStream.Stat и возвращаешь на вызове этого метода заполненную структру.
  • Прохосый (15.06.18 11:00) [7]
    Необходимость чего-то там перекрывать и фактически реализовывать вручную - как раз и есть "не предусмотрено". :)
    Мне бы как раз не хотелось "наследовать и допиливать". Есть ли подходящий ComObject? Всё равно в данном подпроекте их использую пачками...
  • Плохиш © (15.06.18 12:05) [8]

    > Прохосый   (15.06.18 11:00) [7]

    Ты бы хоть, перед плачем, прочитал что-такое интерфейсы и для чего они созданы.

    PS. В описании конкретно описано кто что должен реализовывать.
  • Плохиш © (15.06.18 12:06) [9]

    > Прохосый   (14.06.18 18:07) [5]
    >
    > Если не знаете ответа - зачем вообще что-либо писать? =/

    Как можно ответить тому, кто ответа всё-равно не понимает?
  • anonims (15.06.18 14:28) [10]
    1.Не загружать файл в НЕсуществующий объект streamM.LoadFromFile(имя файла)
    а СОЗДАВАТЬ файловый поток streamM:=TFileStream.Create(имя файла);
    2. и уже его(stremM), существующий и знающий про имя файла, отдавать TStreamAdapter.Create(streamM);
  • Прохосый (15.06.18 19:01) [11]
    > В описании конкретно описано кто что должен реализовывать.

    TStreamAdapter должен был реализовать. А реализовал частично. Я не собираюсь его допиливать:
    Чтоб мне потом полгода отчёты писать, почему вместо TStreamAdapter был использован TStreamAdapterEx, которого стандартная Делфи знать не знает?

    > в НЕсуществующий объект

    Это просто кусок примера. Ну забыл многоточие.. Если бы не был создан объект, было бы AV, а не "отсутствие информации".
    TFileStream как раз НЕ знает про имя файла (и никакой потомок TStream не знает имя файла). А этот TStreamAdapter тоже не поддерживает указание такой информации вручную...


    Ещё раз - надо загрузить файл с диска в виде IStream, обязательно с актуальным tagSTATSTG, что-либо наследовать от TStreamAdapter нельзя.
  • Плохиш © (16.06.18 22:28) [12]

    > Прохосый   (15.06.18 19:01) [11]
    >
    > > В описании конкретно описано кто что должен реализовывать.
    >
    >
    > TStreamAdapter должен был реализовать. А реализовал частично.
    >  Я не собираюсь его допиливать:

    Вам бы программиста нанять.

    > что-либо наследовать от TStreamAdapter нельзя.

    Я ешё больше скажу, для решения и TStreamAdapter не нужен.
  • Плохиш © (16.06.18 22:28) [12]

    > Прохосый   (15.06.18 19:01) [11]
    >
    > > В описании конкретно описано кто что должен реализовывать.
    >
    >
    > TStreamAdapter должен был реализовать. А реализовал частично.
    >  Я не собираюсь его допиливать:

    Вам бы программиста нанять.

    > что-либо наследовать от TStreamAdapter нельзя.

    Я ешё больше скажу, для решения и TStreamAdapter не нужен.
  • Плохиш © (16.06.18 22:28) [12]

    > Прохосый   (15.06.18 19:01) [11]
    >
    > > В описании конкретно описано кто что должен реализовывать.
    >
    >
    > TStreamAdapter должен был реализовать. А реализовал частично.
    >  Я не собираюсь его допиливать:

    Вам бы программиста нанять.

    > что-либо наследовать от TStreamAdapter нельзя.

    Я ешё больше скажу, для решения и TStreamAdapter не нужен.
  • Прохосый (17.06.18 16:55) [13]
    А вам бы в отпуск съездить, кислый вы человек.

    Прямо передо мною исходный код библиотек Делфи. А также исходный код библиотек Лазаруса.
    Я глазами вижу что TStreamAdapter без доработок вручную никак не позволяет сделать то что мне нужно.

    > для решения и TStreamAdapter не нужен

    Ну так скажите как, а то только ехидничаете, а по делу-то ни слова.

    Я предполагаю что есть подходящий ComObject. Но мне неизвестно какой. Прошу же уже скока название подсказать! =/
  • Прохосый (17.06.18 16:55) [13]
    А вам бы в отпуск съездить, кислый вы человек.

    Прямо передо мною исходный код библиотек Делфи. А также исходный код библиотек Лазаруса.
    Я глазами вижу что TStreamAdapter без доработок вручную никак не позволяет сделать то что мне нужно.

    > для решения и TStreamAdapter не нужен

    Ну так скажите как, а то только ехидничаете, а по делу-то ни слова.

    Я предполагаю что есть подходящий ComObject. Но мне неизвестно какой. Прошу же уже скока название подсказать! =/
  • Прохосый (17.06.18 16:55) [13]
    А вам бы в отпуск съездить, кислый вы человек.

    Прямо передо мною исходный код библиотек Делфи. А также исходный код библиотек Лазаруса.
    Я глазами вижу что TStreamAdapter без доработок вручную никак не позволяет сделать то что мне нужно.

    > для решения и TStreamAdapter не нужен

    Ну так скажите как, а то только ехидничаете, а по делу-то ни слова.

    Я предполагаю что есть подходящий ComObject. Но мне неизвестно какой. Прошу же уже скока название подсказать! =/
  • Плохиш © (17.06.18 17:05) [14]

    > Я предполагаю что есть подходящий ComObject.

    И этого не нужно.

    Нужно просто запрограммировать класс, реализуюший интерфейс IStream. Но для этого требуется программист.
  • Плохиш © (17.06.18 17:05) [14]

    > Я предполагаю что есть подходящий ComObject.

    И этого не нужно.

    Нужно просто запрограммировать класс, реализуюший интерфейс IStream. Но для этого требуется программист.
  • Плохиш © (17.06.18 17:05) [14]

    > Я предполагаю что есть подходящий ComObject.

    И этого не нужно.

    Нужно просто запрограммировать класс, реализуюший интерфейс IStream. Но для этого требуется программист.
  • Прохосый (17.06.18 17:56) [15]
    Вам точно надо в отпуск. Читаете предложение через три. Нельзя этого делать. По заданным ограничениям. Запретили.
    А даже если бы можно бы было - нафига почти идентично повторять реализацию TFileStream/TMemoryStream и TStreamAdapter..?
    Я бы уже давным-давно просто подправил TStreamAdapter. Как сам же написал ещё в [3]. Но запрещено.
  • Прохосый (17.06.18 17:56) [15]
    Вам точно надо в отпуск. Читаете предложение через три. Нельзя этого делать. По заданным ограничениям. Запретили.
    А даже если бы можно бы было - нафига почти идентично повторять реализацию TFileStream/TMemoryStream и TStreamAdapter..?
    Я бы уже давным-давно просто подправил TStreamAdapter. Как сам же написал ещё в [3]. Но запрещено.
  • Прохосый (17.06.18 17:56) [15]
    Вам точно надо в отпуск. Читаете предложение через три. Нельзя этого делать. По заданным ограничениям. Запретили.
    А даже если бы можно бы было - нафига почти идентично повторять реализацию TFileStream/TMemoryStream и TStreamAdapter..?
    Я бы уже давным-давно просто подправил TStreamAdapter. Как сам же написал ещё в [3]. Но запрещено.
  • Прохосый (17.06.18 18:05) [16]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [16]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [16]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [17]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [17]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [17]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [18]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [18]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:05) [18]
    TStreamAdapter - это уже "класс, реализующий интерфейс IStream". Только совершенно не продумали необходимость работать с TStatStg...
    А наследовать и перекрывать - нельзя. Запрещено. Как говорится "по условиям задачи".

    Зато разрешены CreateComObject() с Supports(). Бывает подходящий ComObject или нет?
  • Прохосый (17.06.18 18:06) [19]
    Упс, глюк какой-то... Сотрите пожалуйста [17], [18], [19]...
  • Прохосый (17.06.18 18:06) [19]
    Упс, глюк какой-то... Сотрите пожалуйста [17], [18], [19]...
  • Прохосый (17.06.18 18:06) [19]
    Упс, глюк какой-то... Сотрите пожалуйста [17], [18], [19]...
 
Конференция "Начинающим" » Как загрузить файл в виде IStream, с верным содержимым TStatStg?
Есть новые Нет новых   [93443   +22][b:0.002][p:0.004]