Zitat von
marabu:
Moin,
kennst du keine Möglichkeiten einen Fehler einzugrenzen?
Versuche es mal so:
Delphi-Quellcode:
function CreateDocument(
var doc: IXMLDOMDocument2;
const markup:
string): Boolean;
begin
doc := ComsDOMDocument.Create;
doc.async := False;
Result := doc.loadXML(markup);
end;
procedure ShowParseError(
pe: IXMLDOMParseError);
const
FMT = '
line %d, linepos %d'#13'
%s'#13#13'
%s';
begin
with pe do
ShowMessage(Format(FMT, [line, linepos, reason, Copy(srctext, 1, linepos)]));
end;
procedure Tfrmxml.Button1Click(Sender: TObject);
const
XPATH = '
//Basket[%d]/@path';
var
doc: IXMLDOMDocument2;
n: IXMLDOMNode;
begin
if CreateDocument(doc, Memo1.Text)
then
begin
n := doc.selectSingleNode(Format(XPATH, [1]));
ShowMessage(VarToStr(n.nodeValue));
end else ShowParseError(doc.parseError);
end;
Freundliche Grüße
In diesem Fall nicht, da ich mich damit nicht auskenne. Keine Ahnung wo ich da suchen soll.
Sonst wär ich wohl nicht hier im Forum drin...