sjz_no1的专栏

<br />http://www.99inf.net/SoftwareDev/Delphi/36492.htm

<br />http://hi.baidu.com/ttbbull/blog/item/45b5e82321e69b409822ed51.html<br />http://www.xuedelphi.cn/wenzhang/yytg/2008/10/200810212579.htm<br />http://hi.baidu.com/%CE%A2%CB%BC%B4%B4%CF%EB/blog/item/90039c66460143cae6113a76.html

<br />http://jblzzthl.blog.163.com/blog/static/17480672008010534579/

http://hi.baidu.com/luckyjoe/blog/item/95fe2a079933837c030881c2.html

procedure TprojectCForm.RequestAdwordsDone(Sender: TObject; RqType:THttpRequest; ErrCode: Word);varData: TStringStream;HTML: String;begin Data := TStringStream.Create; TSSLHTTPCli(Sender).RcvdStream.P

uses WinInet;function GetLocalFileNameFromIECache(url:string;var LocalFileName:string):DWORD;varD: Cardinal;T: PInternetCacheEntryInfo;beginresult := S_OK;D := 0;T:=nil; GetUrlCacheEntryInfo(PChar

function GetFileMD5(var path:string):string; //获取文件的MD5值varfilemd5:TIdHashMessageDigest5;fs: TFileStream;begin  Try    filemd5:=TIdHashMessageDigest5.Create;    //必须先初始化    fs := TFileSt

Delphi的函数如下：function DelphiStr(  S : string):string;stdcall;begin  Result := uppercase(s);end;VC++里面的实现代码：#include #include typedef char*(CA