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;