Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3249425 Wed, 12 Dec 2012 19:46:36 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3249425 Цитата Pcrepair @
сделать в uses модуля ссылку на основную форму Unit1(тогда все работает)

лажа. Никогда так не делай. У потока вроде есть событие OnTerminate, на него подписывайся и из (Sender as TLoader).Html вытаскивай свою страницу.]]> jack128 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3249413 Wed, 12 Dec 2012 19:23:09 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3249413 balah Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3249261 Wed, 12 Dec 2012 14:57:14 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3249261 а вот сейчас и пробую на практике все расставить по своим местам

лучше сообщи свой комментарий на это:
Цитата
идея хорошая, но не пройдет, поскольку в модуле uThreadLoader нет ни формы ни МЕМО
разве что сделать в uses модуля ссылку на основную форму Unit1(тогда все работает), но это както по кривому, не должно быть ссылок на основной модуль из дополнительного, где то читал об этом. как то подругому нет варианта передать результат в основную форму?

но в общем ошибка понятна - нужна была еще одна процедура. тут еще один вопрос: а функцию вместо процедуры в таких конструкция можно использовать? просмотрел много решений(из интернетума), но везде только процедуры. пробовал в Synchronize вставить функции - РАД пишет что так низзя
]]> Pcrepair Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248858 Wed, 12 Dec 2012 06:13:32 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248858 Цитата Pcrepair @
procedure TLoader.Execute;
begin
   Synchronize(LoadPage);
end;
 


Ад и израиль!!!!

Ты в курсе зачем вообще нужен Synchronize?]]> jack128 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248816 Wed, 12 Dec 2012 03:42:35 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248816
    procedure TLoader.ShowPage;
    begin
       Form1.Memo1.Lines.Add(Html);
    end;


идея хорошая, но не пройдет, поскольку в модуле uThreadLoader нет ни формы ни МЕМО
разве что сделать в uses модуля ссылку на основную форму Unit1(тогда все работает), но это както по кривому, не должно быть ссылок на основной модуль из дополнительного, где то читал об этом. как то подругому нет варианта передать результат в основную форму?

но в общем ошибка понятна - нужна была еще одна процедура. тут еще один вопрос: а функцию вместо процедуры в таких конструкция можно использовать? просмотрел много решений(из интернетума), но везде только процедуры. пробовал в Synchronize вставить функции - РАД пишет что так низзя]]> Pcrepair Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248794 Tue, 11 Dec 2012 21:59:27 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248794 Цитата Pcrepair @
Задача была такая: загрузить страницу посредством idHTTP но с использованием класса TThread. Вроде все по теории?

По теории - двойка с минусом.]]> northener Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248725 Tue, 11 Dec 2012 20:12:38 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248725
    procedure TForm1.ListBox1DblClick(Sender: TObject);
    var ThreadLdr: TLoader; HtmlCode:string;
      begin
        ThreadLdr:=Tloader.Create(True); (*создаем поток*)
        ThreadLdr.Priority:=tpNormal;        (*задать приортет нормальный*)
        ThreadLdr.FreeOnTerminate:=True;  (*самовыгрузка в конце потока*)
        ThreadLdr.Url:=ListBox1.Items[ListBox1.ItemIndex]; (*передаем УРЛ из ЛБ в Поток, все работает*)
        ThreadLdr.Resume;  (*запускаю поток - что то устаревшее заменить?*)    
      end;
     
     
    procedure Tloader.LoadPage;
    var
       Ldr:TidHTTP;
    begin
       Ldr:=TidHTTP.Create(nil);
       try
           Html:=Ldr.Get(Url);
       finally
           Ldr.free;
       end;
    end;
     
    procedure TLoader.ShowPage;
    begin
       Form1.Memo1.Lines.Add(Html);
    end;
     
     
    procedure TLoader.Execute;
    begin
       LoadPage;
       Synchronize(ShowPage);
    end;
]]> balah Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248705 Tue, 11 Dec 2012 19:11:44 +0000 Загрузка страниц в Потоке с idHTTP https://forum.sources.ru/index.php?showtopic=369312&view=findpost&p=3248705
    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 или устарело. а чем заменить?]]> Pcrepair Delphi: Сетевое программирование