Как правильно передать массив URL в Функцию (WinInet)

← →
Андрей Смирнов (2009-11-09 06:59) [0]

Привет Мастерам,
Что нужно?
Нужно загрузить из текстового файла список URL
и передать его в массив, ну а далее обработать в цикле в данной функции!

Как сие Организовать правильно?

function GetUrl(const Url: string): string; var NetHandle: HINTERNET; UrlHandle: HINTERNET; Buffer: array[0..1024] of char; BytesRead: cardinal; begin Result := ""; NetHandle := InternetOpen(sfk_n, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if Assigned(NetHandle) then begin UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0); if Assigned(UrlHandle) then { UrlHandle правильный? Начинаем загрузку } begin FillChar(Buffer, SizeOf(Buffer), 0); repeat Result := Result + Buffer; FillChar(Buffer, SizeOf(Buffer), 0); InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead); until BytesRead = 0; InternetCloseHandle(UrlHandle); end else begin { UrlHandle неправильный. Генерируем исключительную ситуацию. } raise Exception.CreateFmt("Cannot open URL %s", [Url]); end; InternetCloseHandle(NetHandle); end else { NetHandle недопустимый. Генерируем исключительную ситуацию } raise Exception.Create("Unable to initialize Wininet"); end;

← →
MBo © (2009-11-09 07:50) [1]

TStringList.LoadFromFile

Как правильно передать массив URL в Функцию (WinInet) Найти похожие ветки