Форум: "Начинающим";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];

Вниз

Как правильно передать массив 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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c