Große Texte mit Sonderzeichen in Datenbank speichern

[emsländer]

Moin,

acuh parametrisiert klappt es nicht:

Delphi-Quellcode:

function insert_antrag(code, user_code, nachricht, dossier, f_xml,timestamp, zuAkte, kunden_ip, fdd_ip, progversion : string) : string;

var stmp : string;
_query : TSQLQuery;


begin
  try
    _query := TSQLquery.Create(nil);
    _query.SQLConnection := fddservice.SQLConnFDD;
    with _query do begin
      insert;
      sql.text := 'insert into antraege(code,user_code,nachricht,dossier,xml,timestamp,zu_Akte,kundenip,fddip,progversion)  values'+ '(:_code,:_usercode,:_nachricht,:_dossier,:_xml,:_timestamp,:_zuAkte,:_kundenip,:_fddip,:_progversion)';

 

      ParamByName('_code').AsString := code;
      ParamByName('_usercode').AsString := code;
      ParamByName('_nachricht').AsString := nachricht;
      ParamByName('_dossier').AsString := dossier;
      ParamByName('_xml').AsWideString := f_xml;
      ParamByName('_timestamp').AsString := timestamp;
      ParamByName('_zuAkte').Asinteger := strtoint(zuAkte);
      ParamByName('_kundenip').AsString := kunden_ip;
      ParamByName('_fddip').AsString := fdd_ip;
      ParamByName('_progversion').AsString := progversion;
      ExecSQL;
      sleep(100);
      result:='';
    end;
  except
    result('Nix da - klappt nicht');
  end;
  freeandnil(_query);
end;

Es hakt wie es aussieht an "_nachricht" (dort sind z.B. %20,0D0A etc. drin) und an _xml .. (dort sind massig Sonderzeichen)
Die Table nachricht ist Typ ntext, xml ist Typ xml.

Des Weiteren: Wie kann ich da eine Fehlerabfrage realisieren?

Gruss

EL