Delphi 使用WinInet 进行下载

本文详细介绍了如何在Delphi应用程序中利用WinInet组件进行HTTP下载操作,包括处理重定向和服务器响应,适用于需要进行HTTP请求和文件下载的场景。
摘要由CSDN通过智能技术生成
WinInetDownLoad('http://下载地名','c:\本地文件名')


引用 

unit xHttpGetThread;

interface


const MAXBLOCKSIZE = 1024;
function WinInetDownLoad(Url:PChar; FileName:string):Boolean;
implementation
uses
  Windows, Classes, WinInet, SysUtils ;
function WinInetDownload(Url:PChar; FileName:string):Boolean;
var
  hSession : HINTERNET;
  hOpenUrl : HINTERNET;
  Temp     : array [0..MAXBLOCKSIZE-1] of Byte;
  dwRead   : DWORD;
  fs       : TFileStream;

  dwResult : DWORD;
begin
  Result := False;
  hSession := InternetOpen('RookIE/1.0', //指定调用 WinINet 函数的应用程序或入口。该入口用作HTTP协议中用户代理项。
                           INTERNET_OPEN_TYPE_PRECONFIG,//访问要求类型,该参数可为下列值之一:
                           {  INTERNET_OPEN_TYPE_DIRECT 解析所有本地主机;
                              INTERNET_OPEN_TYPE_PRECONFIG 返回注册表中代理或直接的配置;
                              INTERNET_OP
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值