Fang XML Exception
Hej,På min form bruger jeg Delphi's XMLDocument (XMLDoc).
Jeg ønsker at checke om de XML-filer jeg skal bruge har korrekt syntaks OG ikke indeholder "forbudte" tegn;
Har følgende kode (noget af den);
(* OpenDialog1 nedenfor masker selvfølgelig XML-filer *)
...
XMLDoc.Active := False;
XMLDoc.FileName := '';
IF OPenDialog1.Execute then
BEGIN
XMLDoc.FileName :=
OPenDialog1.FileName;
XMLDoc.Active := True;
.....
OSV...
Det fungerer på korrekt formatterede XML-filer (syntaks OK og ingen forbudte tegn ('<', '>', '&', ... osv ).
MEN :
Jeg får imidlertid også externt genererede filer med XML-forbudte tegn, hvor jeg ønsker at disse filer skal isoleres (til senere behandling):
Min ide var at lade XMLDoc foretag dette check:
XMLDoc.FileName := '';
IF OPenDialog1.Execute then
BEGIN
XMLDoc.FileName :=
OPenDialog1.FileName;
TRY
XMLDoc.Active := True;
EXCEPT
ON """XML-whatever-ERROR""" DO
XMLFEJLHÅNDTERING;
END;
.....
//
// Kommer vi her er det gået godt --> fortsæt
//
.....
XML-teksten fra file-n (-rne) lægges ind i en LISTBOKS, så jeg kunne lave en scanning for de forbudte XML-tegn, men det må kunne laves "the delphi way".
Det jeg mangler er den præcise syntaks for den EXCEPTION , som trigger når XML-parseren/fortolkeren møder disse fejl i teksten.
Har forgæves søgt i Delphi-hjælp, men har ikke fundet beskrivelsen for den Exception.
HJÆLP.
KRISTIAN