download при помощи delphi

← →
TONG © (2004-08-11 14:09) [0]

Нужно закачать из интернет файл и сохранить на ж.диске!
Помогите!

← →
KSergey © (2004-08-11 14:15) [1]

Вкладка FastNet
Или TNMFtp и F1 к методу Download подробный пример.

← →
ssk © (2004-08-11 14:19) [2]

http://www.swissdelphicenter.ch/torry/showcode.php?id=412

← →
Alaman (2004-08-23 23:26) [3]

Вот два способа:

Первый способ:
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;

Второй способ:

uses
...URLMon;

...
if UrlDownloadToFile(nil, PChar(DTfileURL), PChar(DTFileName), 0, nil)= 0
then
Memo1.lines.append("загрузка завершилась успешно")
else
Memo1.lines.append("Ошибка загрузки");

download при помощи delphi Найти похожие ветки