Image from Stream laden?

[OrNEC]

Hi,

ich muss ein Bild von nem Stream laden, aber wie es scheint kann das die TImage Komponente nicht. Wie kann ich dann verschiedene Bildformate in eine Bild-Komponente laden?

Hier mein Code:

Delphi-Quellcode:

var ms: TMemoryStream;
    pic: TImage;
begin
        // Picturs laden
        ms := TMemoryStream.Create;
        ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
        ms.Position := 0;

        pic := TImage.Create(Self);
        pic.LoadFromStream(ms); // <--- hier schlägt es zu....
        Self.DetailsMediaImage.Picture.Graphic := pic; // <--- hier eventuell auch

Danke für eure Hilfe!

[Sir Rufo]

Ein Stream ist einfach nur ein Haufen von Bytes. Es gibt dort keine Information, wie diese zu interpretieren sind. Du musst dir also irgendwie noch merken, was dieser Stream darstellen soll.

Ja ein Bild, aber was für eins. JPEG, GIF, Bitmap ...

Dann erzeuge dir das passende Objekt (TJpegImage, ...) dazu und lade den Stream in dieses Objekt.
Dieses Objekt kannst du dann per Assign an das Image übergeben und das Bild wird angezeigt.

TImage ist nur ein Container und zeigt das an, was du reinsteckst.

[Bummi]

Ich hatte für diesen Zweck einmal eine Unit hier hochgeladen: http://www.delphipraxis.net/169843-a...schreiben.html. #9

[Namenloser]

Wobei viele Dateitypen einen Dateiheader haben. Gif-Dateien, als einfaches Beispiel, fangen z.B. als Text dargestellt immer mit „GIF89a“ an. Es gibt im Internet auch Datenbanken dazu...

Oder man versucht einfach in einer Schleife alle möglichen Formate per brute-force durch, bis eins passt. Ist vielleicht ein kleinwenig unsauber, aber das einfachste.

Beispiel:

Delphi-Quellcode:

const
  FORMATS: array [0..3] of TGraphicClass = (TBitmap, TJpegImage, TGifImage, TPngObject); // z.B.
var
  Stream: TMemoryStream;
  i: integer;
  Graphic: TGraphic;
begin
  Stream := tb.FieldAsBlob(tb.FieldIndex['picture']);
  try
    Graphic := nil;

    // Alle Formate durchprobieren
    for i := low(FORMATS) to high(FORMATS) do
    begin
      Stream.Position := 0;
      Graphic := FORMATS[i].Create;
      try
        Graphic.LoadFromStream(Stream);
        // Laden hat geklappt -> raus aus der schleife
        break;
      finally
        FreeAndNil(Graphic)
      end;
    end;

    if not Assigned(Graphic) then
      raise EInvalidGraphic.Create('Nicht unterstütztes Format');

    DetailsMediaImage.Picture.Graphic.Assign(Graphic);
    Graphic.Free;
  finally
    Stream.Free;
  end;
end;

Wobei ich gerade noch mal nachgeschaut habe, und laut Online-Hilfe kapselt TPicture das bereits.

Also reicht:

Delphi-Quellcode:

var ms: TMemoryStream;
begin
  ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
  ms.Position := 0;

  DetailsMediaImage.Picture.LoadFromStream(ms);

EDIT: Das ist übrigens Blödsinn mit

Delphi-Quellcode:

ms := TMemoryStream.Create;
ms := tb.FieldAsBlob(tb.FieldIndex['picture']);

Da wird zwei mal ein Stream erzeugt, aber nur einmal freigegeben! (Ich hoffe zumindest, du gibst ihn frei...)

[OrNEC]

Zitat von NamenLozer:

EDIT: Das ist übrigens Blödsinn mit

Delphi-Quellcode:

ms := TMemoryStream.Create;
ms := tb.FieldAsBlob(tb.FieldIndex['picture']);

Da wird zwei mal ein Stream erzeugt, aber nur einmal freigegeben! (Ich hoffe zumindest, du gibst ihn frei...)

Danke dir! Aber sag mal welche uses brauche ich für die TGrafic-Komponente? Irgendwie kann ich das nirgends finden. Und wieso wird der Stream zwei mal erzeugt? .Create wird doch nur ein mal erzeugt.

[Namenloser]

Create rufst du zwar nur einmal explizit auf, aber anschließend überschreibst du ja die Variable mit einer Referenz auf eine neue Instanz (die von FieldAsBlob zurückgegeben wird). Folglich wird beim Aufruf von Free am Ende nur eine von zwei Instanzen freigegeben.

TGraphic (wie auch TPicture) ist in der Unit Graphics deklariert, die eigentlich standardmäßig eingebunden ist, wenn man ein neues Formular anlegt.

[Perlsau]

Zitat von OrNEC:

Hi, ich muss ein Bild von nem Stream laden, aber wie es scheint kann das die TImage Komponente nicht. Wie kann ich dann verschiedene Bildformate in eine Bild-Komponente laden?

Wieso nimmst du nicht einfach eine TDBImage-Komponente, um ein Bild aus einer Datenbank anzuzeigen?

[OrNEC]

Zitat von Perlsau:

Zitat von OrNEC:

Hi, ich muss ein Bild von nem Stream laden, aber wie es scheint kann das die TImage Komponente nicht. Wie kann ich dann verschiedene Bildformate in eine Bild-Komponente laden?

Wieso nimmst du nicht einfach eine TDBImage-Komponente, um ein Bild aus einer Datenbank anzuzeigen?

Gibt's so was? Wow.... muss mir das mal anschauen. Danke!

[Perlsau]

Zitat von OrNEC:

Gibt's so was?

Ne, hab ich eben erst frei erfunden ...

Schau mal unter Datensteuerung deiner Komponenten-Palette ...

Zitat von OrNEC:

Wow.... muss mir das mal anschauen. Danke!

Damit sparst du dir das ganze andere Gefrickel. Für die Anzeige von Jpeg-Dateien mußt du natürlich die Unit JPeg einbinden, für die Anzeige anderer Bild-Formate entsprechend weitere Units.

[OrNEC]

Zitat von Perlsau:

Zitat von OrNEC:

Gibt's so was?

Ne, hab ich eben erst frei erfunden ...

Schau mal unter Datensteuerung deiner Komponenten-Palette ...

Zitat von OrNEC:

Wow.... muss mir das mal anschauen. Danke!

Damit sparst du dir das ganze andere Gefrickel. Für die Anzeige von Jpeg-Dateien mußt du natürlich die Unit JPeg einbinden, für die Anzeige anderer Bild-Formate entsprechend weitere Units.

Sag ma und wie verbinde ich mich mit dieser Komponente mit der SQLite DB? Können die Datensteuerung Komponenten überhaupt die SQLite ansteuern?