Bild in MySQL (Blob) mit mysql.pas speichern

[Mannoman]

Ich habe mal Bilder in einer Datenbank gespeichert. Statt OpenPictureDialog kann man natürlich auch einen Pfad und den Namen des Bildes angeben. Folgende Prozedur:

Delphi-Quellcode:

procedure TF_Formblaetter.FileOpenItemClick(Sender: TObject);
var   FS: TFileStream;
begin
if OpenPictureDialog1.Execute then begin
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      DataModul.Presentation.Edit;
      FS := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
      try
         DataModul.PresentationLogo.LoadFromStream(FS);
      finally
         FS.Free;
      end;
      DataModul.PresentationLogoname.AsString := OpenPictureDialog1.FileName;
      DataModul.Presentation.Post;
   end else
Image1.Picture:= nil;
end;

[edit=Sharky]Dephi-Tags gesetzt. Mfg, Sharky[/edit]