Добрый день. Есть код:

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListBox1: TListBox;
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses uThreadLoader;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var ThreadLdr: TLoader; HtmlCode:string;
  begin
    ThreadLdr:=Tloader.Create(True); (*создаем поток*)
    ThreadLdr.Priority:=tpNormal;        (*задать приортет нормальный*)
    ThreadLdr.FreeOnTerminate:=True;  (*самовыгрузка в конце потока*)
    ThreadLdr.Resume;  (*запускаю поток - что то устаревшее заменить?*)
    ThreadLdr.Url:=ListBox1.Items[ListBox1.ItemIndex]; (*передаем УРЛ из ЛБ в Поток, все работает*)
    HtmlCode:=ThreadLdr.Html;  (*получаем результат ТУТ ПУСТО!!!*)
    Memo1.Lines.Add(HtmlCode); (*выводим результат в МЕМО*)
  end;
end.

и дополнительный модуль

Код:

unit uThreadLoader;

interface

uses
  System.Classes, idHTTP, SysUtils, Dialogs;

type

  TLoader = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure LoadPage;
  public
    Url, Html:string;
  end;

implementation

procedure Tloader.LoadPage;
var
Ldr:TidHTTP;
begin
   Ldr:=TidHTTP.Create(nil);
      Html:=Ldr.Get(Url);
      ShowMessage(Html); (*тут страница есть*)
   FreeAndNil(Ldr);
end;

procedure TLoader.Execute;
begin
   Synchronize(LoadPage);
end;

end.

Задача была такая: загрузить страницу посредством idHTTP но с использованием класса TThread. Вроде все по теории?
Вопросы:
- почему не передается код страницы в HtmlCode:=ThreadLdr.Html;???? УРЛ через переменную доходит до idHTTP, а обратно нет
- РАД говорит что [dcc32 Warning] Unit1.pas(44): W1000 Symbol 'Resume' is deprecated или устарело. а чем заменить?

[poli-smen]

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

Есть код:

Код:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var ThreadLdr: TLoader; HtmlCode:string;
  begin
    ThreadLdr:=Tloader.Create(True); (*создаем поток*)
    ThreadLdr.Priority:=tpNormal;        (*задать приортет нормальный*)
    ThreadLdr.FreeOnTerminate:=True;  (*самовыгрузка в конце потока*)
    ThreadLdr.Resume;  (*запускаю поток - что то устаревшее заменить?*)
    ThreadLdr.Url:=ListBox1.Items[ListBox1.ItemIndex]; (*передаем УРЛ из ЛБ в Поток, все работает*)
    HtmlCode:=ThreadLdr.Html;  (*получаем результат ТУТ ПУСТО!!!*)
    Memo1.Lines.Add(HtmlCode); (*выводим результат в МЕМО*)
  end;

Во-первых порядок действий такой: сначала создаёшь объект потока остановленным, настраиваешь ему нужные параметры и потом запускаешь его на выполнение с помощью Resume. Т.е после того как поток запущен - уже поздно его "донастраивать" (речь идёт о присвоении Url после Resume).
Во-вторых почему ты сразу пытаешься прочитать из объекта потока значение поля Html? После Resume дополнительный поток живёт своей жизнью, а главный поток своей. Почему ты думаешь, что когда в главном потоке дело дойдёт до строки "HtmlCode:=ThreadLdr.Html" то дополнительный поток уже успеет скачать страницу?
В-третьих зачем ты вообще пытаешь в главном потоке прочитать у объекта потока значение поля Html? Возможно что когда в главном потоке дело дойдёт до строки "HtmlCode:=ThreadLdr.Html" то дополнительный поток уже успеет и скачать страницу и разрушить свой объект (у тебя он саморазрушаемый: FreeOnTerminate:=True) и поэтому переменная ThreadLdr будет указывать в никуда (точнее она будет указывать на то место, где раньше был объект, а теперь "руины" от него, при обращении к которым в программе может случиться "авария" типа Access Violation). Другими словами так как страницу качает дополнительный поток, то значит именно он знает когда страница закачалась, а значит именно ему решать кода уже можно "публиковать" эту страницу в Memo1 (или куда-то там ещё), а вовсе не главному потоку.

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

Код:

procedure TLoader.Execute;
begin
   Synchronize(LoadPage);
end;

И какой был смысл создавать дополнительный поток? Метод Synchronize приостанавливает дополнительный поток и выполняет метод LoadPage в главном потоке, а значит качать будет опять главный поток. С тем же успехом можно было не создавая никаких потоков просто качать в обработчике ListBox1DblClick.

[NumLock]

в кратце:
-создай новый конструктор у наследника TThread
-передавай url и Handle формы в конструктор и сохраняй значение в наследнике
-FreeOnTerminate присвоить в конструкторе False
-всю работу с TIdHTTP перенести в Execute
-после завершения Get уведомлять форму об окончании работы, посылкой сообщения, к примеру
-в обработчике считать результат и удалить объект потока