Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.11.15;
Скачать: CL | DM;

Вниз

FIB, TMemoryStream, TRichEdit   Найти похожие ветки 

 
faiwer ©   (2009-09-28 17:53) [0]

FIB, D09. Почему следующий код не работает?

var
mem: TMemoryStream;
begin
...
mem:=TMemoryStream.Create;
TBlobField(DM.RecipesDS.FieldByName("TEXT")).SaveToStream(mem);
ТекТекст.Lines.LoadFromStream(mem);
mem.Free;
...
end;


При этом аналогичный ему:

TBlobField(DM.RecipesDS.FieldByName("TEXT")).SaveToFile("temp\text.rtf");
ТекТекст.Lines.LoadFromFile("temp\text.rtf");

работает...

так же работает следующий код:
mem:=TMemoryStream.Create;
try
 ТекТекст.Lines.SaveToStream(mem);
 TBlobField(DM.RecipesDS.FieldByName("TEXT")).LoadFromStream(mem);
finally
 mem.Free;
end;


Меня в принципе и через файл устроит, но хотелось бы сделать по уму...


 
Игорь Шевченко ©   (2009-09-28 18:02) [1]

RTFM: TStream.Seek


 
faiwer ©   (2009-09-28 18:25) [2]

заработало, ty



Страницы: 1 вся ветка

Текущий архив: 2009.11.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
2-1254202686
Анна
2009-09-29 09:38
2009.11.15
импорт данных в MSSQL2000 из БД Access


15-1253478606
Юрий
2009-09-21 00:30
2009.11.15
С днем рождения ! 21 сентября 2009 понедельник


1-1224572864
Gurd
2008-10-21 11:07
2009.11.15
TXMLDocument


2-1254472113
Nutz
2009-10-02 12:28
2009.11.15
DesignIntf, DesignEditors


1-1224835215
@!!ex
2008-10-24 12:00
2009.11.15
BMP выравнивание относительно чего?