tblobstream сохранить в фйле
От: sowell  
Дата: 14.10.03 07:41
Оценка:
Уважаемые разработчики!
Вопрос про сохранение файла из blob поля,
бьюсь уже не мало времени
для сохранения взял примерчик и написал —
procedure TForm1.Button2Click(Sender: TObject);
var
blb, f: TStream;
begin
  if not IBTable1.FieldByName('DATA').isNull then
    begin
      SaveDialog1.Execute;
      blb:=IBTable1.CreateBlobStream(IBTable1.FieldByName('DATA'),bmRead);
      f := TFileStream.Create(SaveDialog1.FileName, fmCreate);
      f.CopyFrom(blb, blb.Size);
      f.Free;
      blb.Free;
    end
  else
    ShowMessage('Blob is empty');
end;

так вот сохраняет он вордовский файл, но при его открытии ворд никак не может определить кодировку, квадратики там заместо буковок. В базе данные корректные, так как в olecontainer документики открываются. Пробовал и через filestream и blobstream, тоже самое происходит.
Заранее благодарю.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.