Çë´ó¼Ò°ïæѡÁ½±¾delphiÈëÃÅÊé
¿ªÊ¼Ñ§delphiÁË£¬µ«ÊÇÂòÁ˱¾delphi³ÌÐòÉè¼ÆµÚ¶þ°æ£¬·¢ÏÖ¸Õ¿ªÊ¼£¬Á¬µãÓï·¨¶¼Ã»½Ì£¬¾ÍÈÃËãÌ⣬¸Ð¾õÓеãÄÑÈëÃÅ£¬Ñ°Ë¼»»±¾ÊµÌåÊéÀ´¿´,delphi5¿ª·¢ÈËÔ±Ö¸ÄϺÍdelphi7´ÓÈëÃŵ½¾«Í¨ ÕâÁ½±¾Äı¾ÊʺÏÎÞdelphi»ù´¡µÄÈËÀ´Ñ§£¬ ÕâÁ½±¾ÊµÌåÊ飬¶¼ÊǸ´Ó¡°æ£¬ÎÒÓеç×ÓÊ飬¸Ð¾õ×ܲ»ÊǺܷ½±ã
ÏÂÔØdelphi7ÊÓÆµ½Ì²Ä
ÂòD7ÄDZ¾°É,ÂýÂýÀ´,ÏÈÊìϤÓï·¨ºÍ¿Ø¼þ
¶¼É¶Ê±ºòÁË£¬»¹Ñ§Ï°DELPHI£¿£¿£¿
Ïà¹ØÎÊ´ð£º
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
·Ö²»¹»ÔÙ¼Ó£¬¼±Çó
http://topic.csdn.net/u/20091214/22/37554f7c-831f-486b-ab58-6b50532c47ab.html
ÔÌûÔÚÕ⣬¶¼ËµÒ»Â¥µÄ·½·¨ÊÇÕýÈ·µÄ£¬µ«ÊÇÎÒÕâ°´Â¥Ö÷·½·¨³ö´í
DELPHIµÄ´úÂëÈçÏÂ
Delphi(Pascal) code:
li ......