Blobs speichern

[Sharky]

Hai DJ-SPM,

ich selber arbeite (fast)nur mit INSERT, UPDATE Befehlen. In diesem Fall würde ich das also so lösen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TMemoryStream;
  anlagefile : string;
begin
  if (OpenDialog1.Execute) then
  begin
    anlagefile :=OpenDialog1.FileName;
    try
     FileStream:=TMemoryStream.Create; // Stream erzeugen
     FileStream.LoadFromFile(anlagefile); // Anhang laden
     FileStream.Position := 0;
     ZQuery1.Close;
     ZQuery1.SQL.Text := 'INSERT INTO anlagen (anlage) VALUES (:panlage)';
     ZQuery1.ParamByName('panlage').LoadFromStream(FileStream,ftBlob); // ab damit
     ZQuery1.ExecSQL;
    finally
      FileStream.Free;
    end;
  end;
end;