Мне нужно из таблицы, в которой есть BLOB поле, в котором записан RTF текст, положить данные в файл (*.doc, *.rtf). После долгих попыток что ли бо такое сделать, получилось следующее:
Код:
var FS: TFileStream;
BlobStream: TADOBlobStream;
i:Integer;
begin
dm.ADOTable.First;
i:=0;
while not dm.ADOTable.Eof do
begin
FS:=TFileStream.Create( 'File'+ IntToStr(i) + '.doc', fmCreate);
BlobStream := TADOBlobStream.Create(TBlobField(dm.ADOTable.FieldByName('RTFText')), bmRead);
BlobStream.Seek(0, soFromBeginning);
FS.CopyFrom(BlobStream, BlobStream.Size);
inc(i);
dm.ADOTable.Next;
end;
Данный кусок кода выгружает каждую запись таблицы в отдельно созданный файл, а мне нужно что бы все строки таблицы записались в один файл. Как это можно реализовать?
