MySQL Blob als longblob Bild speichern und auslesen

[hirsch]

In einer Bilderdatenbank sollen Bilder als jpg gepeichert werden und wieder ausgelesen werden. Irgendwie habe ich das Gefühl, dass in der Datenbankspalte 'BlobBild' irgendetwas steht nur nicht das Bild.
[code=delphi]

Code:

procedure TAnzeige.FileListBox1Click(Sender: TObject);
begin
  Datei:=FileListBox1.FileName;
  Image1.Picture.LoadFromFile(FileListBox1.FileName); //<-das soll, wenn ich weiss wie es geht auf die Zelle der DB zeigen
  LblAnz.Caption:='Bild: ';
end;

gespeichert soll werden:
[code=delphi]

Code:

procedure TAnzeige.BuHinzuClick(Sender: TObject);
var Bild : TGraphic;
begin
  IDBild:=0;
  //HoleDatei;
  with Datamodule1.cds1 do begin
    last;
    IDBild:=FieldByname('ID').AsInteger;
    edit;
    append;
    FieldByName('ID').AsInteger:=IDBild+1;
    fieldbyName('Datei').AsString:=Datei;
    fieldbyname('BlobBild').AsVariant:=Bild; //<-das will er so nicht, asPicture oder so gibts nicht.
    Applyupdates(-1);
    Image1.Picture.LoadFromFile(Datamodule1.cds1.FieldByName('BlobBild').Value);
    LblAnz.Caption:='Bild: '+Datamodule1.cds1.FieldByName('Datei').AsString;
  end;
end;

Bis her war ich der Meinung dass man in Blob-Felder binäre Daten schreiben und lesen kann, oder irre ich mich da?
Danke für Antworten.

[DeddyH]

Du wirst einen kleinen Umweg über Streams gehen müssen. In den meisten Zugriffsbibliotheken gibt es einen TBLOBStream, schau doch mal, ob das bei Dir auch so ist.

[hirsch]

Aha, über Stream?
Wie geht das?
Also nur nochmal zur Erklärung:
Ich will den Inhalt eines Blobfeldes in 'Bild' speichern.
Später möchte ich 'Bild' wieder in das Blobfeld speichern.

Hab noch nie was mit Stream gemacht.
Ich suche mal in den Tutos, vielleicht finde ich ja was..... :wiejetzt:
Danke erstmal.

[Bernhard Geyer]

Das Stichwort wurde schon genannt: TBLOBStream

Dort gibt es für jeden Zugriffsweg (BDE/ADO/native/dbExpress) Beispielcode der Verwendung.

[hirsch]

Vielen Dank
Welches USES fehlt mir noch?

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, StdCtrls, ExtCtrls, DBCtrls, DB, Grids, DBGrids, ToolWin, ComCtrls,
  ExtDlgs, FileCtrl, Menus, Mask;

weil bei

Delphi-Quellcode:

procedure TAnzeige.BuHinzuClick(Sender: TObject);
var Bild : TGraphic;
    BS: TBlobStream; //<--Ärger

begin

will er TBlobstream nicht wissen. Ich arbeite mit den dbExpress-Geschichten...

[DeddyH]

Versuch es mit DBTables.

[hirsch]

Danke DeddyH. das klappt soweit.
Nun bekomme ich immer, nachdem ich gesucht habe, immer den Fehler"Ungültige Typenumwandlung".
Der Code sieht so aus:

Delphi-Quellcode:

procedure TAnzeige.BuHinzuClick(Sender: TObject);
var Bild : TPicture;
    BS: TBlobStream;
    jpg: TJPEGImage;
begin
  IDBild:=0;
  //HoleDatei;
  try
  BS := TBlobstream.create(Datamodule1.cds1.FieldByName( 'BlobBild' )AS TBlobField, bmWrite ); //<-Genau immer Hier
    with Datamodule1.cds1 do begin
      last;
      IDBild:=FieldByname('ID').AsInteger;
      edit;
      append;
      FieldByName('ID').AsInteger:=IDBild+1;
      fieldbyName('Datei').AsString:=Datei;
      Applyupdates(-1);
    end;
    jpg := TJPEGImage.Create;
    jpg.LoadFromStream(bs);
    Image1.Picture.Assign(jpg);
    LblAnz.Caption:='Bild: '+Datamodule1.cds1.FieldByName('Datei').AsString;
  finally
    BS.free;
  end;
end;

[DeddyH]

Ich würde es mit der CreateBlobStream-Methode von TDataset versuchen.

[Bebe]

Hallo,

Bild in DB speichern geht so.

Delphi-Quellcode:

procedure TfrmAddImages.btnSaveImagesToDBClick(Sender: TObject);
var
  fstream: TMemoryStream;
begin
  fstream := TMemoryStream.Create;
  tblImage.Append;
  fstream.LoadFromFile('C:\Test.png'); 
  fstream.Position := 0;
  tblImagepng32.LoadFromStream(fstream);
  tblImage.Post;
  fstream.Free;
end;
// (Inhalte gekürzt, ich hoffe ich habe nicht zuviel gelöscht.)

Das Feld tblImagepng32 ist vom Typ TBlobField

Der Ladevorgang ist ebenso einfach, du mußt es nur umstellen. Nie das fstream.Position := 0 vergessen, eine häufige Fehlerquelle. Damit wird nur die Position innerhalb des Stream zurückgesetzt, die nach dem Befehl fstream.LoadFromFile('C:\Test.png') auf der letzten steht. Denn bei tblImagepng32.LoadFromStream(fstream); willst du ja den gesamten Stream lesen.

Ich hoffe ich konnte dir helfen.

Gruß
Matze

[hirsch]

Ok, Danke Bebe,
das funktioniert. Hab dann eine SQL-Datensicherung gemacht und mir angeguckt, was in dem BLOB steht, und es ist wirklich das Bild.

Ach ja ich sollte noch erwähnen, dass in der Tabelle nur jpg vorkommen können.
Nun habe ich angefangen das BlobFeld auszulesen und in ein TImage anzuzeigen. und da bekomme ich immer den Fehler JPEG #41. Dann habe ich hier gesucht und nix gefunden, nur das habe ich gefunden, was ich eh schon gemacht habe.

Delphi-Quellcode:

var sql   : String;
    BS    : TClientBlobStream;
    blobF : TBlobField;
    MS    : TMemorystream;
    jpg   : TJPEGImage;
...//.. Schnipp
      //Bild anzeigen
      bS.Position:=(JpegStartsInBlob(Datamodule1.cds1.FieldByName('Blobbild') as TBlobField));
      Try
        bS.Seek(JpegStartsInBlob(Datamodule1.cds1.FieldByName('Blobbild') as TBlobField), soFromBeginning);
        MS := TMemoryStream.Create;
        MS.CopyFrom(BS, BS.Size);
        MS.Position := BS.Position;
        jpg:=TJPEGImage.Create;
        //JPEGtoBMP(bs);
        jpg.LoadFromStream(bs);
        Image1.Picture.Graphic:=jpg;                  //habe das probiert
        Image1.Picture.Graphic.LoadFromStream(ms);    //und das auch, und habe beides probiert.
      Finally
         ms.Free;
      End;

Das sind so die Ergebnisse die ich bei der Suche gefunden habe.
Was mache ich hier falsch?

[DeddyH]

Setz mal vor dem LoadFromStream dessen Position auf 0.

[Bebe]

Was hältst du davon?

Delphi-Quellcode:

procedure TfrmAddImages.btnLoadImagesFromDBClick(Sender: TObject);
var
  fstream: TMemoryStream;
begin
  fstream := TMemoryStream.Create;
  tblImagepng32.SaveToStream(fstream);
  fstream.Position := 0;                          // Nicht vergessen  ;-)
  Image1.Picture.Graphic.LoadFromStream(fstream);    // das müsste reichen ...
  fstream.Free;
end;

Zum anzeigen eines Bildes von einer Tabelle, verwende ich meistens einfach eine dbImage Komponente. Dort entfällt dann die Laderoutine, das macht dann die Komponente selbst. Versuche es mal damit.

Der Fehler JPEG#41 bedeutet nichts anderes, als das der stream leer ist. (Position auf 0 stellen vergessen, deswegen leer)

Ausschnitt aus der jerror.h Datei aus der Source von der JPEG Komponente.
Der 41. ENUM Wert.
JMESSAGE(JERR_INPUT_EMPTY, "Empty input file")

JPEG-Fehler: #41

Gruß
Matze

[EDIT: Link hinzugefügt]

[hirsch]

Endlich, super nun funktioniert es..

Zitat:

fstream.Position := 0;

^^ Das wars.
Vielen Dank an alle...

Nachdem ich gesehen habe, dass mit 75 Bildern die Dantenbank 150MB gross wirt, und das Öffnen meines Programmes ca 2 Minuten dauert, habe ich mich dazu entschlossen, nur die Verweise auf die Bilder in die Datenbank zu schreiben. Wenn die Bilder drin sind, dauert alles viel zu lange.

Nochmals vielen Dank an alle, die mir geholfen haben. :bounce1: :bounce1: :bounce1:

[DeddyH]

Das kommt aber auch auf die Struktur der DB und die Statements an. Wenn BLOBS enthalten sind, ist ein

SQL-Code:

SELECT * FROM Tabelle

natürlich tödlich.