ÔÚDELPHIÖвÙ×÷XMLµÄÎÊÌâ..
´úÂëÈçÏÂ:
procedure TForm3.FormCreate(Sender: TObject);
var
path,name:string;
i:integer;
list:IXMLNodeList;
node:IXMLNode;
begin
path:=ExtractFilePath(Application.ExeName)+'conf4.xml';
FXMLDoc:=TXMLDocument.Create(nil);
FXMLDoc.LoadfromFile(path);
FXMLDoc.Active:=true;
node:=FXMLDoc.DocumentElement;
list:=node.ChildNodes;
for i:=0 to list.Count-1 do
begin
if node.ChildNodes[i].Attributes['name']='lj' then
begin
name:=node.ChildNodes[i].ChildNodes['server'].Text;
end;
end;
end;
Õâ¶Î´úÂëÔÚFormCreateÖÐÔËÐлᱨÒÔÏ´íÎó[The system cannot locate the object specified]
Èç¹û·ÅÔÚº¯ÊýÖÐÔËÐоÍûÎÊÌâ.. ÐÂÊÖ..ÆÚ´ý½â¾ö..
¿´¿´ÊÇÄǾ䱨´í
´úÂë¿´ÆðÀ´Ã»ÓÐʲôÎÊÌ⣬Äã·ÅÔÚFormshowʼþ¿´¿´
FXMLDoc.LoadfromFile(path);//´íµÄÊÇÕâ¾ä..
jf
jf
FXMLDoc:=TXMLDocument.Create(nil);
¸ÄΪ
FXMLDoc:=TXMLDocument.Create(Self);
ÊÔÒ»ÏÂ
ÄãÊÔ×ÅÖØÆôһϼÆËã»ú
Delphi(Pascal) code:
function SaveToNewXMLDocument: IXMLDocument;
var
xml:
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
DataSetµ¼³öxml Åú´¦Àí(Ñ»·)µÃÔõô´¦Àí
XMLÎļþ
<A>
<B>
<C>
</C>
&nb ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......