Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

C# Delphi´¦Àí·ÖÎöQQЭÒé


C# Delphi´¦Àí·ÖÎöQQЭÒé
 
 
¡¡´ó¼Ò˵µ½QQЭÒ鶼¾õµÃºÜÉñÃØ£¬ÊÇÒòΪQQ²»ÏñMSN»òÕßICQЭÒ鶼ÒѾ­¹Ù·½¹«²¼ÁË£¬¶øQQµÄûÓй«²¼¡£Ñо¿ËüµÄÈËÒ²²»ÊÇÌرðµÄ¶à£¬ËäÈ»ÒѾ­ÓÐÁË»ùÓÚ QQЭÒéËùд³ÉµÄµÚÈý·½Èí¼þ foicq, qq plugins for gaim, LumaQQ£¬µ«ÊÇÓÉÓÚËûÃÇÊÇ»ùÓÚ¶þ½øÖÆStreamµÄЭÒé¹ýÓÚ¸´ÔÓ£¬´ó¼ÒÔĶÁ´úÂëÒ²ÓÐÒ»¶¨µÄÄѶȣ¬ÔÙ¼ÓÉÏÍøÂçÉϽâÎöQQЭÒéµÄÎÄÕÂÒ²²»ÊÇÊ®·Ö¶à£¬ËùÒÔ»ùÓÚQQÍøÂçЭÒéµÄÓ¦ÓóÌÐòÒ²ÊÇÁÈÁÈÎÞ¼¸µÄ¡£ÏÖÔÚÎҾͰѻùÓÚHTTPµÄQQЭÒé½øÐÐÒ»¸ö´ÖdzµÄÆÊÎö£¬Ï£Íû¶Ô´ó¼ÒÓÐËù°ïÖú¡£Ô´Â벿·Ö¾ÍÓÃÎÒϲ»¶µÄDELPHI ºÍÏÖÔڱȽÏÁ÷ÐеÄC#ÓïÑÔ¶ÔQQЭÒéµÄʵÏÖ½øÐоßÌå·ÖÎö¡£
¡¡¡¡1¡¢ÕÒÑ°Ö§³ÖQQ HTTPЭÒéµÄ·þÎñÆ÷¡£
¡¡¡¡´ó¼ÒÒ²Ðí»á±»Ò»Ð©¼ÙÏñËùÃÔ»ó£¬Ò²Ðí»áÈÏΪQQµÄHTTP·þÎñÆ÷ÊÇ»ùÓÚ80¿Ú½øÐÐͨÐŵÄ(È磺218.17.209.23:80)£¬Æäʵ²»È»£¬ÕýÕæ»ùÓÚHTTPµÄ·þÎñÆ÷Ó¦¸ÃÊÇ£ºhttp://tqq.tencent.com:8000£¬ËüÊÇÒ»¸öͨ¹ý8000¿Ú½øÐÐͨѶµÄ·þÎñÆ÷¡£
¡¡¡¡ÓÉÓÚQQµÄHTTP·þÎñÆ÷²¢²»Ö§³ÖHTTPЭÒéÖÐGET·½·¨£¬ËüÖ§³ÖPOST·½·¨¡£ËùÒÔÎÒÃÇÒª¸øQQµÄHTTPЭÒé´«²ÎÊý£¬ÄÇô¾Í±ØÐèÒªÓÃPOST·½Ê½²ÅÐС£
¡¡¡¡2¡¢C#ºÍDELPHIÊÇʵÏÖHTTPµÄPOST·½·¨µÄͨÐÅ¡£
¡¡¡¡C#£º
¡¡¡¡C#ÀïSystem.Web¿Õ¼äÏÂÌṩÁËÒ»¸ö½Ð×öWebClientµÄ¶ÔÏó£¬Ê¹Óô˶ÔÏó¾Í¿ÉÒÔʹC#Ö±½Ó¶Ô·þÎñÆ÷·¢ËÍWEB¿Í»§¶ËµÄÇëÇó¡£ÄÇôÎÒÃÇÒª¶Ô·þÎñÆ÷Ìá½»POST·½·¨ÄÇô¾Í±ØÐëʹÓÃÆäUploadData()·½·¨²ÅÐС£Ê×ÏÈ°ÑÒªÇëÇóµÄÐÅÏ¢ÏÈת»»Îª×Ö½Ú(ÒòΪPOSTÌá½»µÄÊÇ×Ö·ûµÄÁ÷Êý¾Ý)£¬È»ºóÔÙ×öΪUploadData()µÄ²ÎÊý¡£Ê¹ÓÃUploadData()½øÐÐÊý¾ÝÌá½»£¬×îºó·µ»Ø£¬POSTµÄ»ØÀ¡ÐÅÏ¢¡£ÈçÏ£º
¡¡WebClient _client = new WebClient();
¡¡¡¡string postValues = "VER=1.0&CMD=Query_Stat&SEQ=12321&UIN=29501213&TN=50&UN=0";
¡¡¡¡Byte[] byteArray = System.Text.Encoding.ASCII.GetBytes(postValues);
¡¡¡¡Byte[] pageData = _client.UploadData(Host,"POST",byteArray);
¡¡¡¡ÕâÑù£¬ÎÒÃǾÍÀûÓÃC#½øÐÐÁËÒ»´ÎHTTPµÄPOST·½·¨Ìá½»ÁË¡£
¡¡¡¡DELPHI£º
¡¡¡¡DelphiÀïÎÒÃÇÀûÓÃÒ»¸ö±È½ÏÁ÷ÐеĵÚÈý·½VCL£¬INDY HTTP(Õâ¸ö×é¼þD6£¬D7ÀïÃæ×Ô´ø)½øÐÐHTTPͨÐÅ¡£Ê¹ÓÃÆäµÄPOST·½·¨±ã¿ÉÒÔ½øÐÐHTTPµÄPOSTͨÐÅ£¬ÒòΪ×é¼þ±È½ÏºÃÓã¬ÎҾͲ»ÔÚÆäÃèÊö¾ßÌåµÄ¹ý³ÌÁË¡£´ó¼Ò¿ÉÒԲο¼ÒÔÏ´úÂ룺
¡¡
¡¡function PostWebPage(url,para:String;TimeOut:Integer):String;


Ïà¹ØÎĵµ£º

Delphi ×é¼þ¿ª·¢½Ì³ÌÖ¸ÄÏ£¨5£©ÊµÏÖÀàQQµÄ±à¼­¿ò

¾àÀëÉÏһƪϵÁеÄÎÄÕÂÓÐÒ»¶Îʱ¼äÁË£¬¼ÙÖÕÓÚÊÇ·ÅÍêÁË£¡ÏÖÔÚÔÛ¼ÌÐøÔÚTEditÉÏ×öÎÄÕ£¬Í¬Ê±À´ÊìϤijЩWindowsµÄϵͳÏûÏ¢¡£ÏÖÔÚÎÒ½²µÄÊÇÈçºÎʵÏÖÒ»¸öÀàËÆQQ±à¼­¿òµÄÑùʽ¡£
  
ÔÙ½²½â֮ǰ£¬ÏÈ»ØÀ¡Ç°¼¸ÆªÎÄÕÂÓÐЩÈËÌá³öµÄÎÊÌ⡣ͨ¹ýÇ°¼¸ÆªÎÄÕ£¬ÓкܶàÈ˹Ø×¢£¬Í¬Ê±Ò²ÓÐÈ˸øÁËһЩ½¨Òé¡£ËùÒÔÎÒÕâÀï˵Ã÷һϣ¬ÎÒÕâ¸ö×é¼ ......

delphi TWebBrowser×é¼þʹÓÃÏê½â

delphi TWebBrowser×é¼þʹÓÃÏê½â
      ¸Ã×é¼þÊÇÒ»¸öä¯ÀÀÆ÷×é¼þ£¬¿ÉÒÔÏÔʾһ¸öÖ¸¶¨µØÖ·µÄÍøÒ³¡¢ÉèÖÃÍøÒ³´ò¿ªÊ±µÄÖ÷Ò³ÒÔ¼°¶ÔÍøÒ³½øÐÐÏà¹ØµÄ²Ù×÷£¬Í¬Ê±Ò²¿ÉÒÔ¶ÔHTMLÎļþ½øÐмôÇС¢¸´ÖÆ¡¢Õ³Ìù¡¢É¾³ýµÈ²Ù×÷¡£¸Ã
      ×é¼þÔÚInternet×é¼þÒ³ÖС£
     ......

Delphi ÖÐMd5»ñÈ¡£¨Indy 9£©







ÔÚDelphi×Ô´øµÄIndy¿Ø¼þÖÐÆäʵÊÇÌṩÁËMD2,MD4,MD5¶ÔÏóµÄ£¬ÎÒÃÇ¿ÉÒÔÖ±½ÓʹÓÃËüÃÇÀ´Íê³ÉMD5µÄÇ©ÃûËã·¨¡£¶ø²»ÐèÒªÔÙÈ¥ÕÒÆäËüµÄ
DLL»òÊÇPasÁË¡£
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë
procedure TForm1.Button1Click(Sen ......

Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨

 Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName,        {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND;              {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ