Bitmap aus Stream lesen

[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?

[himitsu]

Wie fast alle Anderen auch ... über die Magic-Number.
Also anhand der ersten paar Byte, den Dateityp erkennen.

Bisher wurde zu jedem TGraphic nur die Dateiendung hinterlegt und jetzt eben auch die Magic-Number.
So kann nun auch in Datenbank-Blobs das Bild in verschiedenen Formaten gespeichert und automatisch geladen/angezeigt werden.

[Redeemer]

Wie genau wird die magische Zahl gesetzt? Ist ja wahrscheinlich irgendwo in der initialization . Wie ist das mit Formaten, die theoretisch mehrere magische Zahlen haben? SVG wäre so ein Fall, durch BOM, teilweise alte Header usw.

[Dennis07]

Zitat von Redeemer:

Wie genau wird die magische Zahl gesetzt? Ist ja wahrscheinlich irgendwo in der initialization . Wie ist das mit Formaten, die theoretisch mehrere magische Zahlen haben? SVG wäre so ein Fall, durch BOM, teilweise alte Header usw.

Nein, dort werden nur Sachen zur Registrierung von Dateitypen gesetzt (Dateierweiterung im speziellen). Die "Magic Numbers" findest du in den jeweiligen Klassen wieder, so ist es dann auch möglich, mehrere oder keine zu implementieren, und Code bleibt zu 100% kompatibel. Die überprüfung der der Zahl(en) wird idR in der Klassenfunktion TGraphic.CanLoadFromStream vorgenommen.