Blob felder per SQL größer 4k

[lordcroc]

Hallo,

hab folgendes kleines Problem: Ich versuche über eine TOraQuery1 eine Datei Binär in ein Blobfeld einzufügen. Solange diese Datei nicht größer als 4k sind funktioniert es, es müssen aber auch Dateien rein die größer sind. Bei dem Versuch den Befehl per OraQuery1.ExecSQL auszuführen bekomme ich folgende Fehlermeldung:


Im Projekt UpdateInstaller.exe ist eine Exception der Klasse N_17 aufgetreten. Meldung: 'Net error 0'.
Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.


Hier mal der Quelltext wie ich das versuche:

Delphi-Quellcode:

try
  Data.SQL.Clear;
  Data.SQL.Add ('select max(LFDNR) maxID from '+ TableSpace +'.T_Patch');
  Data.Open;
  MaxID:= Data.FieldByName ('maxID').AsInteger + 1;
  Data.Close;
  Data.SQL.Clear;
  Data.SQL.Add ('insert into ' + TableSpace + '.T_Patch');
  Data.SQL.Add ('(LFDNR, CMD, PARAM1, FDATA) values (:LFDNR, :CMD, :PARAM1, :FDATA)');
  Data.ParamByName('LFDNR').AsInteger:= MaxID;
  Data.ParamByName('CMD').AsString   := '[02]';
  Data.ParamByName('PARAM1').AsString:= Param1;
  Target:= TFileStream.Create(File1, fmOpenRead);
  Data.ParamByName('FDATA').DataType:= ftBlob;
  Data.ParamByName('FDATA').LoadFromStream (Target, ftBlob);
  Target.Free;
  Data.ExecSQL;
  Result:= True;
except
  Result:= False
  end;