1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Ребята знатоки, помогите с Delphi - IdHTTP1

Тема в разделе "Помощь по программированию", создана пользователем zikzak, 8 дек 2013.

  1. TopicStarter Overlay
    zikzak

    zikzak

    Регистрация:
    14 май 2012
    Сообщения:
    38
    Симпатии:
    36
    Ребята уже не могу второй день сижу над idHTTP1 не как не могу сообразить что к чему из-за незнания Delphi тольком! google не может помочь ну если только изучить Delphi времени нет совсем
    что нужно в итоге нужно что бы при включенном интернете idHTTP1 начинал парсить и только тогда а когда его нет то переставало парсить ,
    а если нет соединения с интернетом то выдавало "Нет соединения с интернетом!" если включить программку при включенном интернете всё норм вроде работает но стоит выключить инет и вовремя парсинга прога тут же вылетает ! С вот такой ошибкой "socket error 10054 connection reset by peer"
    запуск при выключенном инет тоже вроде ном и если его включить то парсинг начинает работать норм но стоит инет отключить и опять "socket error 10054 connection reset by peer" место отключения парсинга помогите кто может а то уже не могу в голове бардак уже от этого !
    программа не для проверки инета а для парсинга при наличии интернета

    задача вкратце есть инет парсет нет инета не парсит а выдаёт сообщения нет соединения с интернетом как только он появляется начинает парсить заново

    вот в общем что я накалякал за эти два дня
    Please login or register to view links
    Помогите кто чем может !
    заранее спасибо

    Код:
    type
      TForm2 = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        Timer1: TTimer;
        IdHTTP1: TIdHTTP;
    procedure Timer1Timer(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;
    var
      Form2: TForm2;
      dwConnectionTypes : DWORD;
    implementation
    {$R *.dfm}
    function ConnectedToInet: Boolean;
    begin
      dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
      Result := InternetGetConnectedState (@dwConnectionTypes, 0);
    end;
    procedure TForm2.Timer1Timer(Sender: TObject);
    begin
    timer1.Enabled:=true;
    if ConnectedToInet
    then
    label2.Caption:=idHTTP1.Get('http://starts-life.com/test/')
    else
    label2.Caption:='Нет соединения с интернетом!';
    end;
    end.
     
    Метки:
  2. djniktih

    djniktih

    Регистрация:
    21 июн 2013
    Сообщения:
    415
    Симпатии:
    241
    Прости конечно я не проф, но я могу предпологать что
    ошибка тут: INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY
    или же тут: label2.Caption:=idHTTP1.Get('Please login or register to view links') (Не указан data)
    Но я только предпологаю)))
    --- добавлено: 8 дек 2013 в 10:23 ---
    zik xD Please login or register to view links
     
    • Like Like x 1
  3. EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    Держи. Калякал с планшета так что может быть проблемы с синтаксисом.
    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    idhttp1:=tidhttp.Create(nil);
    IdHttp1.HandleRedirects:=true;
    Try
    IdHTTP1.get('http://yandexqwqwqw.ru');
    MessageDlg('22222',mtInformation,[mbOk],0);
    Except
    ShowMessage('55555');
    End;
    end;
    
    
    Код:
    
    
    --- добавлено: 8 дек 2013 в 14:25 --- у и в var пропиши idhttp1: idhttp --- добавлено: 8 дек 2013 в 14:27 --- А ну ещё неьзабудь в uses подцепить этот компонент.
     

Поделиться этой страницей

Загрузка...