[Merch7]

Фрагмент из моей проги

Код:

uses WinInet, ...

    var fileURL: string; FileName: String;
    const BufferSize = 1024;
    var
      hSession, hURL,db: HInternet;
      Buffer: array[1..BufferSize] of Byte;
      BufferLen: Cardinal;
      fs: FileStream;
      sAppName: String;


function DownLoad.DownloadNow (const fileURL, FileName: String): boolean;
var l: int64;
    head:String;
    FileSize: string;
    dwBufferLen, dwIndex: Cardinal;
    i: integer;
begin
  Result:=False;
  hSession:=InternetOpen(sAppName, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, fileURL, nil, 0, 0, 0);
    try
      fs:=FileStream.Create(FileName,FileMode.CreateNew,FileAccess.Write);
      repeat
        InternetReadFile(hURL, Buffer, SizeOf(Buffer), BufferLen);
          end;  
        fs.Write(Buffer,0,BufferLen);
      until BufferLen = 0;
      fs.Close;
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end
  finally
    InternetCloseHandle(hSession)
  end;
end;