idhttp - get запрос

[seoanalyzer]

Добрый день! Столкнулся с такой проблемой:

Делаю регистратор на сайтах, список сайтов загружаю из текстового файла, считываю построчно - делаю цикл while not (Eof) ...., делаю запрос на сайт, как сделать так чтобы при запросе

memo1.Lines.Add(idhttp1.Get('http://xxxxxx.ru'));

не выскакивала ошибка сокет еррор 10110, или переформулирую свой вопрос, как узнать существует ли такой сайт?

[QunneD]

В uses допиши WinInet
После implementation добавь функцию

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;

А потом где тебе надо делай так

begin
  if not (CheckUrl('http://xxxxxx.ru')) then
  begin
    MessageBox(0, 'Произошла ошибка!', 'Ошибка', MB_ICONERROR);
  end
  else
  begin
      Memo1.Lines.Add(idHTTP1.Get('http://xxxxxx.ru'));
  end;
end;

[seoanalyzer]

Спасибо огромное, QunneD! То что нада, даже больше чем я ожидал

[dimianstudio]

ага и от меня спасибо оргромное, только с помощью этой функции выкрутился

[Rolls]

QunneD
и от меня огромное спасибо!

[Ruslasy]

на что вам try except ? Пользуйтесь.