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 µ÷ÓÃͼÐÎʶ±ðdll×ÜÊDZ¨µØÖ·Ö®ÀàµÄ´íÎó£¬Çë´ó¼Ò°ïæ¿´¿´ÊÇʲôÎÊÌâ,´úÂëÈçÏÂ:
implementation
function OCR(imgname:string;i:integer):PChar;stdcall;external 'AspriseOCR.dll';
{$R *.dfm ......
Ò»¸öÈË¿´ÊéʵÔÚÊÇÄÑ£¬ÄÜ¿´¶®Ò²¾Í°ÕÁË
µ«ÊÇÈç¹û¿´²»¶®²¢ÇÒÊéÉÏûÓн²£¬¶øÇÒÓÃÁËÕâ¸ö¶«Î÷ÁË£¬ÎÒ¾ÍÓôÃÆÁË
µ±Ê±ÎÒ»áºÜÄÑÊÜ ¶øÇÒÏÂÃæµÄ¶«Î÷Ò²²»Ïë¿´ Á¬Õâ¸ö¶«Î÷¶¼²»ÏëÅö
µ«ÊÇÈç¹ûÒ»Ö±ÄÜ¿´ÏÂÈ¥µÄ»° ......
Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿
¾ÍÊÇֻдһ¸ö·½·¨
È»ºóȥʵÏÖÕâ¸ö·½·¨£¿
ÈçºÎ¿ÉÒԵϰ¸ÃÈçºÎд£¿
ÓÖÊÇÄãѽ£¬¿ÉÒԵģ¬È磺
unit Base64;
interface
uses SysUtils, Classe ......