Eine beliebige Datei in einem IB/FB-Blobfeld speichern

Viele haben sich das schon gefragt, ich habe aber selten eine befriedigende Antwort gefunden. Der folgenden Code basiert auf dem vom Swissdelphicenter, aber dieser enthält eine Ungereimtheit: Ich habe bei Interbase immer den Fehler bekommen: "Nicht im Bearbeitungsmodus". Und außerdem wurde blob als TBlobStream deklariert nie angenommen.

Ich verwende eine Beispieltabelle testtabelle mit dem BLOB-Feld blobdata. Einen neuen Datensatz erstelle ich mit einer SQL-Anweisung, alternativ kann man auch mit Append einen erzeugen, er muss eben der aktive Datensatz sein.

Hier ist der Code um eine Datei in einen neuen Datensatz einzufügen:

var datei,blob:TStream;
begin
//Neuen Datensatz in Tabelle erstellen
IBSQL.SQL.Text:='INSERT INTO testtabelle(id) VALUES('+inttostr(id)+')';
IBtesttabelle.SelectSQL.Text:='SELECT * FROM rechnungen WHERE id='+inttostr(id)+';';
IBtesttabelle.Open;
IBtesttabelle.Edit;
//Datei einlesen
blob:=mainform.IBtesttabelle.CreateBlobStream(IBtesttabelle.FieldByName('blobdata'),bmWrite);
try
   blob.Seek(0,soFromBeginning);
   datei:=TFileStream.Create('C:\testdatei.jpg',fmOpenRead or fmShareDenyWrite);
   try
      blob.CopyFrom(datei,datei.Size);
      IBtesttabelle.Post;
      finally
             datei.Free;
             end;
   finally
      blob.Free;
      end;
end;

Um diese Datei zu lesen, verwendet ihr einfach folgenden Code, wieder wird der Datensatz erst selektiert und dann das BLOB-Field gelesen. Es empfiehlt sich hier natürlich mit einer Eingrenzung der zu übertragenden Datensätzen mit WHERE zu arbeiten, um die Menge der zu übertragenden Daten ein bisschen einzugrenzen.

var blob:TStream;
begin
//Datei auslesen
blob:=mainform.IBtesttabelle.CreateBlobStream(IBtesttabelle.FieldByName('blobdata'),bmRead);
try
   blob.Seek(0,soFromBeginning);
   with TFileStream.Create('C:\testdatei.jpg',fmCreate) do
     try
      CopyFrom(blob,blob.Size);
      finally
             Free;
             end;
   finally
      blob.Free;
      end;
end;