Huhu.

Mit folgendem Code versuche ich ein Stream aus einem TImage in ein Graphic - Feld einer Datenbank zu schreiben. Es scjeint, als wäre der Stream leer, da beim Lesen des Feldes immer eine Fehlermeldung erzeugt wird.

Code für das Schreiben:

zusammenfalten · markieren

Delphi-Quellcode:

var
  BlobStream: TStream;
  PictureStream: TStream;
begin
    PictureStream := TMemoryStream.Create;
    Image1.Picture.SaveToStream(PictureStream);
    BlobStream :Table1.CreateBlobStream(Table1.FieldByName('Thumbnail'), bmWrite);
    BlobStream.Write(PictureStream, PictureStream.SIZE);
    BlobStream.Free;
    PictureStream.Free;
end;

Code für das Auslesen:

zusammenfalten · markieren

Delphi-Quellcode:

var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
  BlobStream := Table1.CreateBlobStream(Table1.FieldByName('Thumbnail'), bmRead);
  JpegImage := TJPEGImage.Create;
  JpegImage.LoadFromStream(BlobStream); // <--- Hier wird eine Exception ausgelöst, BlobStrem ist () (leer?)
  Image1.Picture.Assign(JpegImage);
  Image1.Visible := True;
  JpegImage.Free;
  BlobStream.Free;
end;

Ist der Fehler beim Schreiben oder beim Lesen zu suchen?

LG Mathias

Was passiert, wenn Du beim Schreiben statt

markieren

Delphi-Quellcode:

// Alt
BlobStream.Write(PictureStream, PictureStream.SIZE);

das hier verwendest?

markieren

Delphi-Quellcode:

// Neu
BlobStream.CopyFrom(PictureStream, 0);

Du musst nach dem SaveToStream den PictureStream wieder auf den Anfang setzen. Außerdem ist Write nicht der richtige Weg, sondern CopyFrom (wie Detlef schon bemerkt hat).

Außerdem kannst du dir den Umweg über PictureStream ganz sparen:

markieren

Delphi-Quellcode:

  BlobStream := Table1.CreateBlobStream(Table1.FieldByName('Thumbnail'), bmWrite);
  try
    Image1.Picture.SaveToStream(BlobStream);
  finally
    BlobStream.Free;
  end;

Oder direkt ein TDBImage?

Früher konnte das nur TBitmap, aber da Picture.LoadFromStream inzwischen die MagicBytes erkennt und danach entscheiden kann, kann TImage/TDBImage auch alle anderen bekannten TGraphic-Ableger aus Stream laden/anzeigen. (ohne dass man manuell den passenden GraphicTypen erstellt)

Zitat von Uwe Raabe:

Außerdem kannst du dir den Umweg über PictureStream ganz sparen:

markieren

Delphi-Quellcode:

  BlobStream := Table1.CreateBlobStream(Table1.FieldByName('Thumbnail'), bmWrite);
  try
    Image1.Picture.SaveToStream(BlobStream);
  finally
    BlobStream.Free;
  end;

Das klappt perfekt. Vielen 1000 Dank!

Zitat von himitsu:

Oder direkt ein TDBImage?

Früher konnte das nur TBitmap, aber da Picture.LoadFromStream inzwischen die MagicBytes erkennt und danach entscheiden kann, kann TImage/TDBImage auch alle anderen bekannten TGraphic-Ableger laden/anzeigen.

Und auf so einfache Dinge komme ich immer nicht. Dir auch ganz vielen Dank!

Ihr seid toll!

LG Mathias