Delphi-Quellcode:
function SetPngPic(Image : TImage; TheStream : TMemoryStream) : boolean;
var
_PNGImage : TPNGImage;
Stream : TMemoryStream;
begin
try
Result := true;
Stream := TMemoryStream.Create;
_PNGImage := TPNGImage.Create;
try
Stream.LoadFromStream(TheStream);
_PNGImage.LoadFromStream(Stream);
Image.Picture.Assign(_PNGImage);
except
Result := false;
end;
finally
_PNGImage.Free;
Stream.Free;
end; end;
Das funktioniert
Delphi-Quellcode:
function SetPngPic(Image : TImage; TheStream : TMemoryStream) : boolean;
var
_PNGImage : TPNGImage;
begin
try
Result := true;
_PNGImage := TPNGImage.Create;
try
_PNGImage.LoadFromStream(TheStream);
Image.Picture.Assign(_PNGImage);
except
Result := false;
end;
finally
_PNGImage.Free;
end; end;
das nicht.
In TheStream übergebe ich den Stream
wenn ich den dann direkt über
_PNGImage.LoadFromStream(TheStream);
;
lesen möchte geht das nicht.
Macht für mich keinen Sinn