MySQL Blob als longblob Bild speichern und auslesen

[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