Главная страница
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.012 c
2-1254568749
faiwer
2009-10-03 15:19
2009.11.15
Как реализовать?


15-1252644331
MBo
2009-09-11 08:45
2009.11.15
Пятничная задачка


15-1253028542
TUser
2009-09-15 19:29
2009.11.15
Нет ли у кого-нибудь совсем старого железа?


2-1254313228
yantux
2009-09-30 16:20
2009.11.15
Подскажите свободные библиотеки для OpenGL


15-1253046603
Юрий
2009-09-16 00:30
2009.11.15
С днем рождения ! 16 сентября 2009 среда