VPF::много-много jpg сохранить в файл, как правильно?

Bog d`An

Дата 27.5.2007, 16:11 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.3.2005
Где: Украина:Днепропет ровск

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

Идея: Ф-и передается смещение, читается кусок файла(большого файла. И одного), отображается жпг картинкой.

вопрос: как это правильно сделать?
зы. С потоками только начал разбираться, почему не пишет ms в fs? И правильная ли идея?

Код


Function SetImageToFile(FileName:String;Var fSeek:Integer):boolean;
var
  ms : TMemoryStream;
  fs : TFileStream;
  d : Integer;
begin
  ms := TMemoryStream.create;
  MainForm.Image1.Picture.Graphic.SaveToStream(ms);
  fs := TFileStream.Create(FileName, fmCreate);
  fs.Seek(fSeek, soFromBeginning);
  d := ms.Size;
  fs.WriteBuffer(d, 4);
  fs.CopyFrom(ms, ms.Size);
  fs.Free;
  ms.Free;
End;

Function GetImageFromFile(FileName:String;Var fSeek:Integer):boolean;
var
  fs : TFileStream;
  ms : TMemoryStream;
  d  : Integer;
begin
  ms := TMemoryStream.create;
  fs := TFileStream.Create(FileName, fmOpenRead);
  fs.Seek(fSeek, soFromBeginning);
  fs.ReadBuffer(d, 4);
  ms.CopyFrom(fs,d);
  mainform.image1.Picture.Graphic.LoadFromStream(ms);
  ms.free;
  fs.free;
End;

--------------------

Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]

aktuba

Дата 27.5.2007, 17:36 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Указатель на начало потока ms кто будет выставлять?

--------------------

Bog d`An

Дата 27.5.2007, 21:16 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.3.2005
Где: Украина:Днепропет ровск

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

понял уже) Спасибо.

--------------------

Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]

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