delphi idhttp1 ÊÇ·ñ¿ÉÒÔÄ£ÄâÊó±êµã»÷ij¸öÇøÓò
delphi7 idhttp1 ÊÇ·ñ¿ÉÒÔÄ£ÄâÊó±êµã»÷ij¸öÇøÓò
ÎÒ²»´òËãÓà webbrowser1 ´òËãÓÃidhttp1 À´ÊµÏÖ Ð¡µÜÇóÖú
¿´²»¶®£¬ÄÄÖÖÄ£ÄâÊó±êµã»÷£¿
1£¬Ê¹Óà »ðºüä¯ÀÀÆ÷2.0ÔÚ¹¤¾ß-Ò³ÃæÐÅÏ¢-±íµ¥- »ñµÃËùÓÐ±íµ¥ÐÅÏ¢
2£¬°Ñ±íµ¥ ×Ö¶ÎÃû³ÆºÍµ±Ç°Öµ ¶¼Ð´½øÈ¥
procedure TForm1.Button1Click(Sender: TObject);
var
postList: TStrings;
Response: TStringStream;
begin;
Response := TStringStream.Create('');
postList := TStringList.Create;
try
IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon)';
postList.Add('__EVENTTARGET=');
postList.Add('__VIEWSTATE=/wEPDwUJLTI5NjAzODk2ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQULY2hrUmVtZW1iZXKHW0DW4nQrSrBHBomKrt3/MjtBLA==');
postList.Add('__EVENTVALIDATION=/wEWBQKE2u7lCQLyj/OQAgK3jsrkBALR55GJDgKC3IeGDO8x1Jd0k/hBY1a/6Yl9fTpP16ti');
postList.Add('tbUserName=Óû§Ãû³Æ');
postList.Add('tbPassword=Óû§ÃÜÂë');
postList.Add('chkRemember=');
postList.Add(
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÈçºÎÈÃDELPHIÊý¾Ý¿â³ÌÐòÖ§³Ö°¢À²®ÓÔÀ´¾É°æ±¾Èí¼þ³ÌÐòÒѾ֧³Ö¶à¹úÓïÑÔ£¬µ«ÊÇûÓа¢À²®ÓÏÖÔÚÏë¼Ó°¢À²®Óï½øÈ¥£¬Ã»ÓÐÔ³ÌÐò£¬Ö»ÓÐEXEÎļþºÍһЩÊý¾Ý¿âLanguage.DBÎļþºÍϵͳÔËÐÐʱ֧³ÖµÄÎļþ£¬ÆäÖÐÓиöLangua ......
ÎÊÌâ1¡£delphiÖÐÎÒÉèÖÃÁ˶à¸öcheckbox(checkbox1,checkbox2,checkbox3)£¬ÔõôÉèÖÃÖ»ÄÜÑ¡checkbox2¡£
ÎÊÌâ2¡£ÎÒ¸ù¾ÝÑ¡ÔñÔËÐÐÍêºó£¬ÔÙÏëÑ¡Ôñ±ðµÄcheckbox3ʱÔõôȡÏûÔÀ´µÄÑ¡Ôñcheckbox2.
1¡¢µ¥Ñ¡½¨Òé¸ÄÓà ......