Как правильно передать массив URL в Функцию (WinInet) [D7, XP]
Андрей Смирнов © (2009-11-09 06:59:00)
Привет Мастерам,
Что нужно?
Нужно загрузить из текстового файла список 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:00) [1]
TStringList.LoadFromFile
Наверх 
ЧАТ |
Орешник |
|
