VPF::Сохранение файла из базы с помощью stream

Ammen

Дата 31.10.2012, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 2.9.2009

Репутация: нет
Всего: нет

Здравствуйте!
Подскажите как сохранить файл из DBase, на примере демонстрационной базы DBDEMOS. Используя Stream или ещё как. (вообще работа будет проводиться с др файлами не bmp, какой-то векторный файл, но не WMF).
Подключаюсь к базе, получаю данные, отображаю картинки через TImage и DBImage, через них же могу сохранить изображение на диск. Но как минуя эти компоненты сохранить файлы на диск. Сохраняю файл в поток Stream, из него в TMemoryStream и сохраняю на диск. Но конечный файл не отображается и он больше исходника на 8 байт. Спасибо ответившим =)

Код


var
  stream1: TStream;
  Memorystr: TMemoryStream;
begin
  Stream1 :=  Table1.CreateBlobStream(Table1.FieldByName('BMP'), bmRead);
  Stream1.Position:=0;  //пробовал переводить позицию :=8
  Memorystr:= TMemoryStream.Create;
  Memorystr.LoadFromStream(Stream1);
  Memorystr.SaveToFile('c:\BMP2.bmp'); 
  Memorystr.free;
  stream1.free;
end;

Ammen

Дата 2.11.2012, 07:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 2.9.2009

Репутация: нет
Всего: нет

тянется заголовок, проблема решена

Код


var
  StrmSrc: TStream;
  StrmDst: TStream;
begin
  StrmSrc :=  Table1.CreateBlobStream(Table1.FieldByName('BMP'), bmRead);
  try
    StrmSrc.Position := 8;
    StrmDst:= TFileStream.Create;('c:\BMP2.bmp', fmCreate); 
    try
      StrmDst.CopyFrom(StrmSrc, StrmSrc.Size - StrmSrc.Position);
    finally
      StrmDst.Free;
    end;
  finally
    StrmSrc.Free;
  end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »