Idhtpp \ 200 ok - проверить в цикле на доступность список сайтов

[brownb]

Пытаюсь сделать проверку сайта на доступность,вроде разобрался как быть с ошибками(и кидать юрл в бад)

var i: Integer;
url, siteName: String;
begin
try
for i:=0 to Memo1.Lines.Count-1 do
 url := IdHTTP1.Get(Memo1.Lines[i]);
except on e : EIDHttpProtocolException do
   Begin
     if e.ErrorCode = 302 then
       begin
         try
           // получаем новый адрес - адрес перенаправления
           Memo3.lines.add(idhttp1.Get(IdHTTP1.Response.Location));
         except on e:Exception do
    // предусматриваем, что исключение может возникнуть и тут
           memo3.Lines.Add(memo1.Lines[i]);
         end;
       end
     else
       //http 404, 501 и так далее
       memo3.Lines.Add(memo1.Lines[i]);
   end;
 on e:Exception do
   memo3.Lines.Add(memo1.Lines[i]);
 end;

А вот как быть теперь если ответ от сервера 200(то есть сайт доступен)
memo2.Lines.Add(idHTTP1.Response.Re sponseText+url[i]); не пашет(

[brownb]

function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array [1..20] of char;
  res: pchar;
begin
  if pos('http://', lowercase(url)) = 0 then
    url := 'http://'+url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    result := (res = '200') or (res = '302');
    if assigned(hfile) then
      InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;
  end;
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to Memo1.Lines.Count-1 do begin
if CheckUrl(memo1.Lines[i]) then memo2.Lines.Add(memo1.Lines[i])
else memo3.Lines.Add(memo1.Lines[i])
end;

Нашел функцию работает все отлично,только вот если закидываешь сайтов 10-20 то сразу зависает(Кидал антифриз и тд не помогает(Подскажите как можно выйти с этой ситуации

[brownb]

Так и не нашел решения(Помогите плз

[Alar]

как цикл делал? делай итерации только после того как получил ответ

for тут не подойдет, получишь в Get только последний сайт

Хотя можешь попробовать и с For, тогда придётся задержку делать.

если сайтов не много, то делай массив ответов и грузи в цикле ответы в массив, а потом анализируй, хотя и тут могут быть проблемы.

Как проверять сайт на доступность IDHTTP.GET - если что-то пришло, значит доступно, если ничего не пришло, не доступен. и не усложняй ))
Установи в компоненте время ожидания ответа и от этого работай.

Зачем вообще знать какая ошибка и прочее, если твоя задача получить что-то или узнать что ничего не отвечает )

[brownb]

for i:=0 to Memo1.Lines.Count-1 do begin
if CheckUrl(memo1.Lines[i]) then memo2.Lines.Add(memo1.Lines[i])
else memo3.Lines.Add(memo1.Lines[i])

так вот он цикл) пока до конца списка не дойдет.Суть такова есть список сайтов типо sdfasdgsdfg.com 1000 шт.Так вот мне нужно проверить их на доступность т.е там процентов 80 не валидны.
Да вы правельно сказали,нужно отправить гет получить ответ потом только отправлять на второй адрес гет.

function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array [1..20] of char;
  res: pchar;
begin
  if pos('http://', lowercase(url)) = 0 then
    url := 'http://'+url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    result := (res = '200') or (res = '302');
    if assigned(hfile) then
      InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;
  end;

Разве эта функция не так работает?

[Alar]

разбирайся, гугление готовых функций, ничего полезного с сетями тебе не поможет сделать, нужно понимать как ждать ответа.

все что тебе надо idhttp1.Get и memo1.text

Еще как вариант, при небольшом количестве запросов, пустить их все в разных потоках, тогда и цикл не нужен )