Einzelnen Beitrag anzeigen

hirsch

Registriert seit: 29. Jan 2008
Ort: Tuttlingen
88 Beiträge
 
Delphi 2007 Professional
 
#1

MySQL Blob als longblob Bild speichern und auslesen

  Alt 12. Apr 2010, 10:33
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.
Wolfgang Hirsch
  Mit Zitat antworten Zitat