Hier werden die Bilder in den Filestream (jStream) gespeichert.
iStream ist ein TMemoryStrem, in dem bmp-Bilder stecken. Counter beinhaltet die anzahl der Bilder.
Delphi-Quellcode:
jStream := TFileStream.Create('E:\AC.acl',fmCreate);
iStream.Seek(0,soFromBeginning);
for I := 0 to counter - 1 do
begin
tbmp := TBitmap.Create;
tjpg := TJPEGImage.Create;
tbmp.LoadFromStream(iStream);
tjpg.CompressionQuality := 10;
tjpg.Assign(tbmp);
tjpg.SaveToStream(jStream);
//tjpg.SaveToFile('E:\test\'+inttostr(i)+'.jpg');
tbmp.Free;
tjpg.Free;
end;
iStream.Free;
jStream.Free;
und hier wieder ausgelesen... "Image" ist ein TImage
das jeweils darauffolgende Bild sollen durch erneutes aussführen der letzen 4 codezeilen angezeigt werden...
Delphi-Quellcode:
jStream := TFileStream.Create('E:\AC.acl', fmOpenRead);
tjpg := TJPEGImage.Create;
tjpg.LoadFromStream(jStream);
Image.Picture.Assign(tjpg);
tjpg.Free;
Gruß Maxi