1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
|
const
FILE_SIGNATURE = 'BitmapsEnSérie';
procedure SaveBitmaps(filename: string; Bitmaps: TBitmapArray);
var
fileStream: TFileStream;
memoryStream :TMemoryStream;
i, streamLength: Integer;
signature: string;
begin
if Length(Bitmaps) <> 0 then
begin
fileStream:= TFileStream.Create(filename, fmCreate);
try
// Je conseille vivement d'ajouter un marqueur pour identifier le fichier
signature:= FILE_SIGNATURE;
fileStream.Write(signature[1], Length(signature));
memoryStream:= TMemoryStream.Create;
try
for i:= Low(Bitmaps) to High(Bitmaps) do
begin
memoryStream.Clear;
Bitmaps[i].SaveToStream(memoryStream);
memoryStream.Seek(0, soFromBeginning);
streamLength:= memoryStream.Size;
fileStream.Write(streamLength, SizeOf(streamLength));
memoryStream.SaveToStream(fileStream);
end;
finally
memoryStream.Free;
end;
finally
fileStream.Free;
end;
end;
end;
procedure LoadBitmaps(Filename: string; Bitmaps: TBitmapArray);
var
fileStream: TFileStream;
memoryStream :TMemoryStream;
streamLength: Integer;
signature: string;
bmp: TBitmap;
begin
Setlength(Bitmaps, 0);
fileStream:= TFileStream.Create(Filename, fmOpenRead);
try
SetLength(signature, Length(FILE_SIGNATURE));
fileStream.Read(signature[1], Length(FILE_SIGNATURE));
if signature <> FILE_SIGNATURE then
raise Exception.Create('Type de fichier incorrect.');
memoryStream:= TMemoryStream.Create;
while fileStream.Position < fileStream.Size do
try
fileStream.Read(streamLength, SizeOf(streamLength));
memoryStream.Clear;
memoryStream.CopyFrom(fileStream, streamLength);
bmp:= TBitmap.Create;
try
memoryStream.Seek(0, soFromBeginning);
bmp.LoadFromStream(memoryStream);
SetLength(Bitmaps, Length(Bitmaps) + 1);
Bitmaps[High(Bitmaps)]:= bmp;
except
bmp.Free;
end;
finally
memoryStream.Free;
end;
finally
fileStream.Free;
end;
end; |
Partager