在Delphi中调用Wininet API的问题?希望高手指点迷津。
关于InternetOpen
InternetConnect
HttpOpenRequest
HttpSendRequest
HttpQueryInfo
InternetSetFilePointer
InternetReadFile 函数的调用实现下载文件。
在审明函数的时候,提示HINTERNET 未说明。
========================CODE:========================================
var
Form1: TForm1;
implementation
{$R *.dfm}
function InternetOpen(lpszCallerName: PChar; dwAccessType: DWORD;
lpszServerName: PChar; nServerPort: PChar;
dwFlags: DWORD): HINTERNET; stdcall;external 'wininet.dll ' name 'InternetOpen '; {那几个函数还未来审明。}
end.
//----------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage( '不懂~~~~~~~~ ');
end;
========================================================================
错误信息:
[Error] Unit1.pas(27): Undeclared identifier: 'HINTERNET '
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas '
未了些资料,要么是海量代码,要么就是轻轻一点。
希望大伙能讲一下。
[解决办法]
换成dword试一下!
[解决办法]
句柄不就是一个DWORD嘛,一样的~