Datei in blob feld geht nur einmal

[Fridolin]

Hallo zusammen,

ich versuche mich grade am Umgang mit Blob-streams.

Mit folgendem Code kann ich per Button-Click über eine Opendialog eine Datei auswählen und diese
hochladen. Beim ersten mal gehts und beim zweiten mal kommt eine Fehlermeldung(In Projekt1.exe ist eine Exception der Klasse EAccesViolation mit der Meldung 'Zugriffsverletzung bei Adresse 00404B28 in Modul 'Projekt1.exe.Lesen von Adresse 00000080' aufgetreten.).

Kann mir vielleicht jemand sagen, was ich falsch mache?

Delphi-Quellcode:

procedure TForm9.Button2Click(Sender: TObject);
var actualfile: string;
    fstream: TMemoryStream;


begin
    opendialog1.FileName:='';
      if opendialog1.Execute then
        begin
          actualfile:=opendialog1.FileName;
        end;

    fstream := tmemorystream.Create;


    try
      fstream.LoadFromFile(actualfile);
      fstream.Position := 0;
    myquery1.SQL.Text:=('insert into blob1 (b_id, bloby) '+ #10 +'values (null, :bloby)');
    myquery1.parambyname('bloby').loadfromstream(fstream, ftBlob);
    myquery1.Execute;

    finally
      myquery1.Free;
      fstream.free;
      opendialog1.Free;
    end;

MfG

Fridolin

[mkinzler]

Laß mal das ID beim Einfügen weg.

[Fridolin]

ich hab jetzt erstmal das myquery1.free; weg gelassen und jetzt gehts...

Aber trotzdem danke