Bitmap aus Stream lesen

[Zodi]

Hi Delphianer

Ich versende über die sockets ein bmp Bild.

Wenn ich die Daten empfange und in eine Datei schreibe und als .bmp abspeichere kann ich die Bilddatei anschauen.
Aber sobals ich den Stream in eine Timage lade wird nichts angezeigt.

Delphi-Quellcode:

    stream := tmemorystream.Create;
    stream.WriteBuffer(pointer(data)^,length(data));
    stream.Position := 0;

    assignfile(f, 'C:\00\testbild.bmp');
    rewrite(f);
    writeln(f, data);
    closefile(f);


 //   Image1.Picture.LoadFromFile('c:\00\testbild.bmp');

      Image1.Picture.Bitmap.LoadFromStream(Stream);

  end;

Was mach ich da falsch das ich mit Image1.Picture.Bitmap.LoadFromStream(Stream); nichts angezeigt bekomme?

Grüsse Zodi

[KodeZwerg]

Vielleicht fehlt noch ein Image1.Repaint?

edit
also nach dieser Zeile

Zitat von Zodi:

Image1.Picture.Bitmap.LoadFromStream(Stream);

Falls das unkklar sein sollte.

[Zacherl]

Du musst Position vor dem LoadFromStream erst wieder auf 0 setzen.

[KodeZwerg]

Zitat von Zodi:

stream.Position := 0;

Macht er doch?

[Zacherl]

Zitat von KodeZwerg:

Zitat von Zodi:

stream.Position := 0;

Macht er doch?

Ich bin blind scheinbar

Probier mal Image.Picture.LoadFromStream statt Image.Picture.Bitmap.LoadFromStream .

[KodeZwerg]

Ich bin der Meinung mal gelesen zu haben das LoadFromFile ein Repaint/Refresh/Update/Redraw/o.ä. automatisch ausführt und ein LoadFromStream nicht, warten wir mal ab was hilft

[Redeemer]

TImage.Picture.Bitmap dürfte zu dem Zeitpunkt gar nicht initialisiert sein (vorher irgendwas mit TImage.Canvas machen wäre auch möglich). Da Delphi den Dateityp einer Bilddatei (für die Auswahl von TGraphicClass) ausschließlich über die Erweiterung bestimmt (die ein Stream nicht hat), musst du die Graphics.TBitmap selbst erstellen. Graphics.TBitmap (es gibt mehrere Klassen in Delphi, die TBitmap heißen) weist man einem Bild zu, indem man TPicture.Assign aufruft (nicht TGraphics.Assign ).

Delphi-Quellcode:

var
  BMP: Graphics.TBitmap;
begin
  TuEtwasMitDem(Stream);

  BMP := Graphics.TBitmap.Create;
  BMP.LoadFromStream(Stream);
  Image1.Picture.Assign(BMP);
  BMP.Free;
end;

[himitsu]

Zitat:

TImage.Picture.Bitmap dürfte zu dem Zeitpunkt gar nicht initialisiert sein

Sobald man auf .Bitmap oder .Icon zugreift, wird es automatisch erstellt, wenn .Graphic nicht diesem Typen entspricht. (leider wird es auch komplett neu erstellt und das ohne Übernahme des alten Bildinhaltes, aber das ist hier ja egal)

Zitat:

Da Delphi den Dateityp einer Bilddatei ausschließlich über die Erweiterung bestimmt

Jupp, darum funktionierte "damals" auch nur Picture.LoadFromFile und nicht LoadFormStream,
außer bei Picture.Graphic.LoadFromStream, wenn man vorher selber für den passenden TGraphic-Typen gesorgt hatte.

Das wurde inzwischen aber behoben (Delphi 10.x) ... allerdings weiß ich grade nicht, ob das nur für FMX gilt, oder ob es auch bei der VCL so ist, aber ich glaub das ist nun bei Beiden so.

[KodeZwerg]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 MS: TMemoryStream;
begin
  MS := TMemoryStream.Create();
  try
    Image2.Picture.Bitmap.FreeImage; // hab Versucht ein blinken hervorzurufen, klappt nicht, Code zu schnell.
    Image2.Repaint; // hab Versucht ein blinken hervorzurufen, klappt nicht, Code zu schnell.
    Image1.Picture.Bitmap.SaveToStream(MS);
    MS.Position := 0;
    Image2.Picture.Bitmap.LoadFromStream(MS);
    if CheckBox1.Checked then Image2.Repaint;
  finally
    MS.Free;
  end;
end;

Ich habe es einfach mal selbst nach gebaut, vielleicht mache ich ja auch etwas anders als wie Du, auf jeden fall klappt es so ohne Fehler, egal ob Repaint oder nicht. Nun frage ich mich, was ist Deine Quelle?
In meinem Beispiel kopiere ich Imaga1 in Stream und lade den in Image2.

[Redeemer]

Zitat von himitsu:

Das wurde inzwischen aber behoben (Delphi 10.x) ... allerdings weiß ich grade nicht, ob das nur für FMX gilt, oder ob es auch bei der VCL so ist, aber ich glaub das ist nun bei Beiden so.

Wie macht er das jetzt?