Blobs speichern

[marabu]

Hi Sharky,

muss der Umweg über einen Parameter wirklich sein?

Delphi-Quellcode:

procedure TForm6.LbSpeedButton1Click(Sender: TObject);
var
  fs: TFileStream;
  bf: TBlobField;
begin
  with OpenDialog do
  if Execute then begin
    fs := TFileStream.Create(FileName, fmOpenRead);
    bf := Form1.ZQuery1.FieldByName('anlage') as TBlobField;
    // ZQuery1.RequestLive ist TRUE und
    // die Query befindet sich hoffentlich im Edit-Modus
    bf.LoadFromStream(fs);
    fs.Free;
  end;
end;

Grüße vom marabu