F
fishding
Unregistered / Unconfirmed
GUEST, unregistred user!
我原来采用的是同步方式,代码如下。现在要改成异步方式下载,需要修改哪些参数,或者修改哪些函数?
如果能提供相关编程资料也行。请大家帮忙了!
//打开Internet句柄,初始化下载环境
...
try
DoOnStatusText('正在连接网络...');
//1.建立会话
FhSession:= InternetOpen('http-get-demo', INTERNET_OPEN_TYPE_PROXY,
PChar(PROXY), nil, 0); //同步方式
if FhSession = nil then
DoOnStatusText('建立会话失败!');
//2.建立连接
FhConnect:= InternetConnect(FhSession, PChar(FHostName), INTERNET_DEFAULT_HTTP_PORT,
nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
if FhConnect = nil then
DoOnStatusText('建立连接失败!');
//3.初始化下载请求
FhRequest:= HttpOpenRequest(FhConnect, 'GET', PChar(FDownPath), 'HTTP/1.1',
nil, @FAcceptTypes, INTERNET_FLAG_RELOAD, 0);
if FhRequest = nil then
DoOnStatusText('初始化下载请求失败!');
//4.发送下载请求
if HttpSendRequest(FhRequest, nil, 0, nil, 0) then
DoOnStatusText('网络连接成功!');
FConnected:=true;
except
DoOnStatusText('网络连接失败!');
end;
...
如果能提供相关编程资料也行。请大家帮忙了!
//打开Internet句柄,初始化下载环境
...
try
DoOnStatusText('正在连接网络...');
//1.建立会话
FhSession:= InternetOpen('http-get-demo', INTERNET_OPEN_TYPE_PROXY,
PChar(PROXY), nil, 0); //同步方式
if FhSession = nil then
DoOnStatusText('建立会话失败!');
//2.建立连接
FhConnect:= InternetConnect(FhSession, PChar(FHostName), INTERNET_DEFAULT_HTTP_PORT,
nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
if FhConnect = nil then
DoOnStatusText('建立连接失败!');
//3.初始化下载请求
FhRequest:= HttpOpenRequest(FhConnect, 'GET', PChar(FDownPath), 'HTTP/1.1',
nil, @FAcceptTypes, INTERNET_FLAG_RELOAD, 0);
if FhRequest = nil then
DoOnStatusText('初始化下载请求失败!');
//4.发送下载请求
if HttpSendRequest(FhRequest, nil, 0, nil, 0) then
DoOnStatusText('网络连接成功!');
FConnected:=true;
except
DoOnStatusText('网络连接失败!');
end;
...