Идея: Ф-и передается смещение, читается кусок файла(большого файла. И одного), отображается жпг картинкой.
вопрос: как это правильно сделать?
зы. С потоками только начал разбираться, почему не пишет 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;
|
|
понял уже) Спасибо.