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

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ÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

delphiµ÷ÓÃͼÐÎʶ±ðdll³ö´í!!!!!!!

delphi µ÷ÓÃͼÐÎʶ±ðdll×ÜÊDZ¨µØÖ·Ö®ÀàµÄ´íÎó£¬Çë´ó¼Ò°ïæ¿´¿´ÊÇʲôÎÊÌâ,´úÂëÈçÏÂ:
implementation
function OCR(imgname:string;i:integer):PChar;stdcall;external 'AspriseOCR.dll';
{$R *.dfm ......

ÓжàÉÙÈË×ÔѧDelphi£¿

Ò»¸öÈË¿´ÊéʵÔÚÊÇÄÑ£¬ÄÜ¿´¶®Ò²¾Í°ÕÁË

µ«ÊÇÈç¹û¿´²»¶®²¢ÇÒÊéÉÏûÓн²£¬¶øÇÒÓÃÁËÕâ¸ö¶«Î÷ÁË£¬ÎÒ¾ÍÓôÃÆÁË

µ±Ê±ÎÒ»áºÜÄÑÊÜ ¶øÇÒÏÂÃæµÄ¶«Î÷Ò²²»Ïë¿´ Á¬Õâ¸ö¶«Î÷¶¼²»ÏëÅö

µ«ÊÇÈç¹ûÒ»Ö±ÄÜ¿´ÏÂÈ¥µÄ»° ......

Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿

Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿


¾ÍÊÇֻдһ¸ö·½·¨

È»ºóȥʵÏÖÕâ¸ö·½·¨£¿

ÈçºÎ¿ÉÒԵϰ¸ÃÈçºÎд£¿
ÓÖÊÇÄãѽ£¬¿ÉÒԵģ¬È磺
unit Base64;

interface

uses SysUtils, Classe ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ