Wie kann ich über den Quellcode ein Bild (Bitmap oder JPEG) in ein Datenbankfeld einfügen?
Eigentlich dachte ich, daß es so geht:
Delphi-Quellcode:
OpenPictureDlg.InitialDir := ExtractFilePath(Application.ExeName) + '\Pictures';
If OpenPictureDlg.Execute then
Begin
With EinbautenTbl do
Begin
If not (State in ([dsInsert, dsEdit])) then
Begin
Edit;
FieldByName('Bildname').Value := OpenPictureDlg.FileName;
EBImage.Picture.LoadFromFile(FieldByName('Bildname').AsString);
FieldByName('Bild').LoadFromFile(OpenPictureDlg.FileName);
Post;
end;
end;
end;
Das Datenbankfeld 'Bild' ist ein TGraphic-Feld.
Vielleicht hat jemand einen Tip.
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]