Форум: "Начинающим";
Текущий архив: 2009.11.15;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c