Datei in Mysql Datenbank speichern

[Perlsau]

1. Hast du ein Blobfeld erstellt?
2. Wenn ja, hast du ein Query, das mit der Tabelle verbunden ist, in der sich das Blobfeld befindet?
3. Befindet sich das Query im Edit-Modus?
4. Wenn ja, kannst du mit folgender Function arbeiten:

Delphi-Quellcode:

Function TDatMod.FileToBlob(Feld: TField; Datei: String): Boolean;
Var
   S     : TStream;
   FileS : TFileStream;

begin
   Result := False;
   If Not FileExists(Datei) Then Exit;

   S := Feld.DataSet.CreateBlobStream(Feld, bmReadWrite);

   Try
     FileS  := TFileStream.Create(Datei, fmOpenRead);
     S.CopyFrom(FileS, FileS.Size);
     Result := True;

   Finally
     FileS.Free;
     S.Free;
   End;
end;

Nicht vergessen, danach Query.Post anzugeben, sonst wird die Datei zwar in das Blobfeld hineingeschrieben, aber nicht gespeichert