下載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) endend

2:

uses UrlMonprocedure GetInetFile(const fileURL, FileName: String);varsURL:string;beginsURL := 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;