Çë´ó¼Ò°ïæѡÁ½±¾delphiÈëÃÅÊé
¿ªÊ¼Ñ§delphiÁË£¬µ«ÊÇÂòÁ˱¾delphi³ÌÐòÉè¼ÆµÚ¶þ°æ£¬·¢ÏÖ¸Õ¿ªÊ¼£¬Á¬µãÓï·¨¶¼Ã»½Ì£¬¾ÍÈÃËãÌ⣬¸Ð¾õÓеãÄÑÈëÃÅ£¬Ñ°Ë¼»»±¾ÊµÌåÊéÀ´¿´,delphi5¿ª·¢ÈËÔ±Ö¸ÄϺÍdelphi7´ÓÈëÃŵ½¾«Í¨ ÕâÁ½±¾Äı¾ÊʺÏÎÞdelphi»ù´¡µÄÈËÀ´Ñ§£¬ ÕâÁ½±¾ÊµÌåÊ飬¶¼ÊǸ´Ó¡°æ£¬ÎÒÓеç×ÓÊ飬¸Ð¾õ×ܲ»ÊǺܷ½±ã
ÏÂÔØdelphi7ÊÓÆµ½Ì²Ä
ÂòD7ÄDZ¾°É,ÂýÂýÀ´,ÏÈÊìϤÓï·¨ºÍ¿Ø¼þ
¶¼É¶Ê±ºòÁË£¬»¹Ñ§Ï°DELPHI£¿£¿£¿
Ïà¹ØÎÊ´ð£º
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
1¡¢ÎÒÄÜ·ñÔÚdelphiÀïµ÷ÓÃÁíÍâÒ»¸öºǫ́³ÌÐò£¬µ«ÊÇÎÒ²»ÐèÒªµÈ´ýÕâ¸öºǫ́³ÌÐòÖ´ÐÐÍê³É£¬»¹¿ÉÒÔ¼ÌÐøÖ´ÐбðµÄ³ÌÐò¡£ÇëÎʾßÌåÔõôÑù²ÅÄÜʵÏÖ¡£
2¡¢ÎÒÄÜ·ñÔÚdelphiÉÏÖ´ÐÐÒ»¸ö¿ì½Ý¼ü£¬Ê¹delphi´°¿Ú³ÌÐòÄܹ»Ë¢ÐÂһϡ£[/size ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......