Сборник лабораторных работ по дисциплине "Прикладное программное обеспечение". Самохвалов К.М. - 47 стр.

UptoLike

Составители:

Рубрика:

47

Загрузка файлов из интернет в Turbo Explorer. Пример функции,

реализующей скачивание файла.

Turbo Explorer предоставляет полный доступ к WinInet API

(wininet.pas), который можно использовать для соединения и получения фай-

лов с web-сайта, который использует либо Hypertext Transfer Protocol (HTTP),

либо File Transfer Protocol (FTP) [7].

uses Wininet;

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);