Verständnisproblem mit streams

**ATS3788**

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

zusammenfalten · markieren

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

Verständnisproblem mit streams

Verständnisproblem mit streams

Forumregeln