bilder als blob in abs db speichern

[dataspider]

Hi,

bei mir funktioniert es so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  InStream: TMemoryStream;
  BlobStream: TStream;
begin
  InStream := TMemoryStream.Create;
  InStream.LoadFromFile('d:\test.jpg');
  try
    dm.qryBild.Edit;
    BlobStream := dm.qryBild.CreateBlobStream(dm.qryBild.FieldByName('bild'),bmwrite);
    try
      BlobStream.CopyFrom(InStream, 0);
      dm.qryBild.Post;
    finally
      BlobStream.Free;
    end;
  finally
    InStream.Free;
  end;

end;

Cu, Frank