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×ÔÉíµÄTEdit±à¼¿ò¿Ø¼þµÄÒ»¸öÀ©³ä£¡µ«ÊÇÎÒÃDz¢²»ÄÜÏñDelphi×Ô¼ºµÄTEditÒ»Ñù£¬Äܹ»
ÔÚÉè¼Æ״̬ϽøÐÐÉè¼Æ£¬¶øÊǷǵÃÒª×Ô¼ºÊÖ¶¯´´½¨¿Ø¼þ£¬È»ºó²ÅÄÜʹÓá£Õâ¸öËäȻ˵ҲÊÇ×é¼þ£¬µ«ÊÇȴʧȥÁË×é¼þµÄ¿ÉÉè¼ÆµÄ·½±ãÐÔ£¬½ö½ö¿É×÷Ϊһ¸öÀà¿âÀ´Ê¹Óá£
ÏÖÔÚÎÒ¾ÍÀ´½éÉÜһϣ¬ÈçºÎÈÃÕâ¸ö×é¼þ×¢ ......
ÏÂÃæÊÇдcookie
1 HttpCookie cookie = new HttpCookie("Info");//¶¨Òåcookie¶ÔÏóÒÔ¼°ÃûΪInfoµÄÏî
2 DateTime dt = DateTime.Now;//¶¨Òåʱ¼ä¶ÔÏó
3 TimeSpan ts=new TimeSpan(1,0,0,0);//cookieÓÐЧ×÷ÓÃʱ¼ä£¬¾ßÌå²émsdn
4 cookie.Expires = dt.Add(ts);//Ìí¼Ó×÷ÓÃʱ¼ä
5 cookie.Values.Add("user","cxbkkk");//Ôö¼ ......
ÔÎÄ£ºhttp://csharpindepth.com/Articles/Chapter5/Closures.aspx
µÚÒ»¶ÎÂÔ¡£¡£¡£
´ó¶àÊý½²±Õ°üµÄÎÄÕ¶¼ÊÇ˵º¯ÊýʽÓïÑÔ£¬ÒòΪËüÃÇÍùÍù¶Ô±Õ°üµÄÖ§³Ö×îÍêÉÆ¡£µ±ÄãÔÚʹÓú¯ÊýʽÓïÑÔʱ£¬ºÜ¿ÉÄÜÒѾÇå³þÁ˽âÁËʲôÊDZհü£¬ËùÒÔÎÒÏëдһƪÔÚ¾µäOOÓïÑÔ³öÏֵıհüÓÐʲôÓô¦Ó¦¸ÃÒ²ÊǺܺÏÊʵÄÊÂÇé¡£ÕâƪÎÄÕÂÎÒ×¼±¸½²Ò»ÏÂC#£¨1¡ ......
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈ˶¼ÔÚΪDelphiÊÇ·ñÖ§³ÖC++/JavaÖеľ²Ì¬±äÁ¿¼°¾²Ì¬·½·¨µÄ¹¦ÄܶøÀ§ÈÅ,ÆäʵÕâÔÚDelphiÖÐÊǺܼòµ¥µÄ.
¾²Ì¬·½·¨¾ÍÊÇʹÓÃClass Function. ¾²Ì¬±äÁ¿ÔòʹÓõ¥Ôª¾Ö²¿±äÁ¿À´ÊµÏÖ. ´úÂëÈçÏÂ:
//=========================================
// StaticVarTestU - ¶¨ÒåÁË¿ÉÒÔ¼ÆÊýµÄÀ࣬ͨ¹ýÀà·½·¨¼´¿É·ÃÎÊ´ËÀàµÄ¶ÔÏóÊý ......
Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......