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.