bilder als blob in abs db speichern

[agm65]

Delphi-Quellcode:

var
stream1: TMemoryStream;
stream:tstream;
begin

Stream1:=TMemoryStream.Create;
  Stream1.LoadFromFile('h:\test.jpg');
  try
    Stream:=queryloaddata.CreateBlobStream(queryloaddata.FieldByName('show_image'),bmwrite);
    try
      Stream1.seek(0,0);
      Stream.CopyFrom(Stream1,Stream1.Size);
    finally
      Stream.Free;
    End;
  finally
   Stream1.Free;
  End;

ich dachte man könnte das so speichern aber ich bekomme nur fehler ...hat jemand eine idee ? auch versucht habe ich:

Delphi-Quellcode:

image:Timage;
begin

 image.Picture.LoadFromFile('h:\test.jpg');

  with Tabel do
  begin
    Edit;
    FieldByName('show_image').Assign(Image.Picture );
    Post;
  end;

zugriffsverletzung ?