Einzelnen Beitrag anzeigen

lordcroc

Registriert seit: 13. Aug 2002
Ort: Braunschweig
137 Beiträge
 
Delphi 7 Professional
 
#1

Blob felder per SQL größer 4k

  Alt 14. Jun 2005, 16:31
Datenbank: Oracle • Version: 9 • Zugriff über: ODAC
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;
  Mit Zitat antworten Zitat