Код:
unit inntUtils;
interface
uses Wininet,Windows,sysutils,defineewa;
var
WININETHANDLE : Pointer=nil;
type
TInetLoadingCallback = function(progress : INT64):BOOL; stdcall;
function GetInetFile(const fileURL, FileName: string; ldc : TInetLoadingCallback): boolean;
implementation
function GetInetFile(const fileURL, FileName: string; ldc : TInetLoadingCallback): boolean;
const
BufferSize = 1024;
var
hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: file;
sAppName: string;
cmdl : array[0..511]of ansichar;
posit : INT64;
sz : INT64;
dwsz,dwreserved,ecode : DWORD;
begin
Result := False;
GetModuleFileName(0,@cmdl,sizeof(cmdl));
sAppName:=PAnsiChar(@cmdl);
sAppName := ExtractFileName(sAppName);
if WININETHANDLE=nil then WININETHANDLE:= InternetOpen(PChar(sAppName),
INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if WININETHANDLE=nil then exit;
hURL := InternetOpenURL(WININETHANDLE, PChar(fileURL), nil, 0, 0, 0);
if hURL=nil then exit;
posit:=0;
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
inc(posit,BufferLen);
if assigned(ldc)then if not ldc(posit)then begin
CloseFile(f);
exit;
end;
until
BufferLen = 0;
CloseFile(f);
Result := True;
finally
InternetCloseHandle(hURL);
end;
end;
initialization
finalization
InternetCloseHandle(WININETHANDLE);
end.
чуток подправил, впринципе нормально