idHTTP Free или Disconnect?

[bilibian]

Привет!

Пишу так:

form1.idHTTP1.Create();
form1.idHTTP1.HandleRedirects:=true;
form1.idHTTP1.Request.UserAgent:='Mozilla/5.0 bla bla bla';
form1.idHTTP1.ReadTimeout:=10000;

// здесь код

form1.IdHTTP1.Free;

получаю ошибку: Access violation ad addres 004C4B4C in module 'название проги.exe'. Write of address 00000030.

Сам код выполняется в цикле и ошибка происходит тогда когда код начинает выполняться повторно.

А так прога робит без проблем:

form1.idHTTP1.Create();
form1.idHTTP1.HandleRedirects:=true;
form1.idHTTP1.Request.UserAgent:='Mozilla/5.0 bla bla bla';
form1.idHTTP1.ReadTimeout:=10000;

// здесь код

form1.IdHTTP1.Disconnect;

Но не могу выяснить, один момент, прога робит, робит, а потом сама по себе останавливается не доделав задание. Причем объем обрабатываемой инфы достаточно велик. Вот думаю из-за того, что я использую Disconnect а не Free.

Как быть?

[Stilet]

form1.idHTTP1.Create();

Что за бред?

form1.idHTTP1:=TIdHTTP.Create(nil);

[bilibian]

Сообщение от Stilet

form1.idHTTP1:=TIdHTTP.Create(nil);

form1.idHTTP1:=TIdHTTP.Create(nil);
form1.idHTTP1.HandleRedirects:=true;
form1.idHTTP1.Request.UserAgent:='Mozilla/5.0';
form1.idHTTP1.ReadTimeout:=10000;

// code
    
form1.IdHTTP1.Free;

Ошибки нет, но и код не выполняется.

Выкладываю более подробный код.

procedure Thread.Execute;
  var
    html:string;
begin
  while L.Terminated=false do
  begin
    form1.idHTTP1:=TIdHTTP.Create(nil);
    form1.idHTTP1.HandleRedirects:=true;
    form1.idHTTP1.Request.UserAgent:='Mozilla/5.0';
    form1.idHTTP1.ReadTimeout:=10000;

    html:=form1.IdHTTP1.Get('https://site.ru/');
    form1.Memo1.Text:=html;

    form1.IdHTTP1.Free;
    sleep(5000);
  end;
end;

В итоге мемо пустой!

[Аватар]

Зачем вообще в потоке упоминание Form1? Объявите idHTTP1 в Execute. Form1. вообще удалите из кода. Free нужен без вариантов. Перед ним Disconnect, в этом не уверен, нужен ди обязательно, мало практики. К Memo из потока нельзя так просто, используйте синхронизацию

[bilibian]

Сообщение от Аватар

используйте синхронизацию

А как мне передать в процедуру синхронизации переменную html?

Например вот так не получится:

Synchronize(Update(html));

Даже если передавать в глобальную переменную, а потом ее в Update отлавливать, то тут другой нюанс. Что если потоков, скажем, 20. Эту переменную будут дергать туда сюда и ситуация может быть непредсказуемая.

[Аватар]

А как мне передать в процедуру синхронизации переменную html?

Вынесите её объявление в private потока

[Stilet]

  tt=class(TThread)
    public
    html:string; idHTTP1:TIdHTTP;
    procedure Execute; override;
    procedure Update;

  end;

  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ tt }

procedure tt.Execute;
begin
        idHTTP1:=TIdHTTP.Create(nil);
        idHTTP1.HandleRedirects:=true;
        idHTTP1.Request.UserAgent:='Mozilla/5.0';
        idHTTP1.ReadTimeout:=10000;
     while Terminated=false do
      begin

        html:=IdHTTP1.Get('https://site.ru/');
        Synchronize(Update)


        sleep(5000);
      end;
     IdHTTP1.Free;
end;

procedure tt.Update;
begin
        form1.Memo1.Text:=html;

end;

[bilibian]

type
  TT = class(TThread)
    html:string;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure Update;
  end;

procedure TT.Update;
begin
  form1.Memo1.Lines.Add(html);
end;

procedure TT.Execute;
begin

    idHTTP1:=TIdHTTP.Create(nil);
    idHTTP1.HandleRedirects:=true;
    idHTTP1.Request.UserAgent:='Mozilla/5.0';
    idHTTP1.ReadTimeout:=10000;

    while Terminated=false do
    begin
      html:=IdHTTP1.Get('https://google.com/');
      Synchronize(Update);
    end;

    IdHTTP1.Free;
    sleep(5000);
end;

Если получать данные с сайта через HTTPS то в мемо пустота, а если через HTTP то данные успешно появляется в мемо.

Как получить данные с сайта через HTTPS?

PS. До этого, своим "кривым" способом, который написан в первом посте, я получал данные через HTTPS.

[Stilet]

Как получить данные с сайта через HTTPS?

у-у-у. SSL подключать. Библиотеки OpenSSL ставить. Эм... тут уже обсуждалось, и в теории давалось:
http://www.programmersforum.ru/showthread.php?t=195828
http://www.programmersforum.ru/showt...=209520&page=2

который написан в первом посте, я получал данные через HTTPS.

Чет не вериццо. Разве что редирект на незащищенный канал спасал, а ты думал что это HTTPS подлинный.

[bilibian]

Сообщение от Stilet

у-у-у. SSL подключать. Библиотеки OpenSSL ставить. Эм... тут уже обсуждалось, и в теории давалось:
http://www.programmersforum.ru/showthread.php?t=195828
http://www.programmersforum.ru/showt...=209520&page=2

Чет не вериццо. Разве что редирект на незащищенный канал спасал, а ты думал что это HTTPS подлинный.

Все это уже сделано!! библиотеки подключил. Прежде чем сюда писать я гугл раскурил. В том то и дело, что на сайт который я соединяюсь стоит редирект с http на https.

Я выяснил, что если писать не idHTTP1:=TIdHTTP.Create(nil);, а form1.idHTTP1.Create(); и idHTTP1 с IdSSLIOHandlerSocketOpenSSL1 подключать в основном потоке, то все работает. Вообще понять не могу, что за загадка. В принципе от чего ушел к тому и пришел, только ко всему этому Synchronize прикрутил, а так ничего не изменилось.