xmlDoc := TXMLDocument.Create(AWone);
XmlDoc.DOMVendor := GetDOMVendor('Open XML');
xmlDoc.Active := True;
xmlDoc.Version := '1.0';
xmlDoc.Encoding :='UTF-8';//该为GB2312也不行
XmlDoc.XML.Clear;
XmlDoc.Active:=false;

XmlDoc.LoadFromFile('c:\1234.xml');//出错了,就是载不进去
Fmain.Memo1.Clear;
Fmain.Memo1.Lines.Add(SP.XmlDoc.XML.Text);
RecvXMLPacket;
Fmain.Memo2.Clear;
Fmain.Memo2.Lines.Add(SP.FClientDataSet.XMLData);
FidsUdpSender.Send(FIDSServerAddress.Text,StrtoInt(FIDSPort.Text),'208/'+sp.FTargetTableName +'/'+ sP.FClientDataSet.XMLData);
except
sP.ForSender := False;
sP.Free;
Exit;
end;
sP.Free;
end;