Hallo Toxic,
hier ein Code-Auszug aus einem meiner Programme, wo ich ein ähnliches Problem hatte, zum experimentieren.
Delphi-Quellcode:
procedure ...
var TmpJpg : TJPEGImage;
MS : TMemoryStream;
begin
....
TmpJpg := TJPEGImage.Create;
try
....
MS := TMemoryStream.Create;
try
TmpJpg.SaveToStream(MS);
.....
TmpJpg.LoadFromStream(MS);
ImageNach.Picture.Assign(TmpJpg);
finally
MS.Free;
end;
finally
TmpJpg.Free;
end;
end;
Viele Grüße Klaus