Delphi 使用WinInet 进行下载

最新推荐文章于 2020-06-30 16:19:48 发布

爱蹄子的羊头

最新推荐文章于 2020-06-30 16:19:48 发布

阅读量5.3k

点赞数

文章标签： delphi internet redirect http服务器服务器 hyperlink

本文链接：https://blog.csdn.net/warrially/article/details/8003124

版权

本文详细介绍了如何在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