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

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

Delphi-Quellcode:

_PNGImage.LoadFromStream(TheStream);

;
lesen möchte geht das nicht.

Macht für mich keinen Sinn

[Die Muhkuh]

Delphi-Quellcode:

function SetPngPic(Image : TImage; const TheStream : TMemoryStream) : boolean;

müsste reichen

[DeddyH]

Geht es, wenn Du vor dem LoadFromStream dessen Position zunächst auf 0 setzt? Übrigens würde ich zunächst prüfen, ob die übergebenen Objekte auch wirklich vorhanden (Assigned) sind.

[Bummi]

Geht beides, der Fehler muß außerhalb liegen.
Ich würde die Basisklasse TStream übergeben....

Delphi-Quellcode:

function SetPngPic(Image : TImage; TheStream : TStream) : 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;

function SetPngPic2(Image : TImage; TheStream : TStream) : 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;


procedure TForm1.Button1Click(Sender: TObject);
var
  s:TFileStream;
begin
  s :=TFileStream.Create('C:\Bilder\h2o1.png',fmOpenRead );
  try
  //SetPngPic(Image1,s);
  SetPngPic2(Image1,s);
  finally
  s.Free;
  end;
end;

[ATS3788]

Danke
Denke ich mir,
ich lasse das erst mal, funktioniert so.:thumb: