下載url文件的2種方法(摘于網上)

function GetInetFile (const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin result := false; sAppName := ExtractFileName(Application.ExeName) ; hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ; try hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0) ; try AssignFile(f, FileName) ; Rewrite(f,1) ; repeat InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen) ; BlockWrite(f, Buffer, BufferLen) until BufferLen = 0; CloseFile(f) ; result := True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end end

2:

uses UrlMon procedure GetInetFile(const fileURL, FileName: String); var sURL:string; begin sURL := fileURL; if left(FileURL, 7) <> 'http://' then sURL := 'http://' + sURL; if right(FileURL, 1) <> '/' then sURL := sURL + '/'; URLDownloadToFile(nil, PChar(sURL), PChar(FileName), 0, nil); end;

你可能感兴趣的:(下載url文件的2種方法(摘于網上))