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