Многопоточность

[danil123]

Пытаюсь сделать в программе многопоточность, но, увы, не получается.
Код unit 1(основной)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, IdCookieManager, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdSSL, IdSSLOpenSSL,xpman,unit2 ;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdCookieManager1: TIdCookieManager;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    OpenDialog2: TOpenDialog;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Edit3: TEdit;
    Button4: TButton;
    OpenDialog3: TOpenDialog;
    Memo5: TMemo;
    Memo6: TMemo;
    Memo7: TMemo;
    Memo8: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
var pot:potok;
begin
pot:=potok.Create(true);
pot.FreeOnTerminate:=true;
pot.Resume;
    end;
   end.

код Unit2(поток)

unit Unit2;

interface

uses
  Classes,Windows, Messages, SysUtils, Variants,Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, IdCookieManager, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdSSL, IdSSLOpenSSL,xpman;

type
  potok = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation
procedure potok.Execute;
var st:tstringlist;
i,j,k,p,z,s,f,pr,t,v:integer;
begin
idHttp1.ReadTimeout:=15000;
idHttp1.ConnectTimeout:=10000;
end;
end.

Суть в том, что unit2 не видит не idhttp1, ни любой другой функции и выдает кучу эрроров. Помогите, пожалуйста.

[Lardes]

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

Суть в том, что unit2 не видит не idhttp1, ни любой другой функции и выдает кучу эрроров. Помогите, пожалуйста.

Добавь в uses Unit1.

[danil123]

Lardes, бесполезно, все равно не видит

[Lardes]

procedure potok.Execute;
var st:tstringlist;
i,j,k,p,z,s,f,pr,t,v:integer;
begin
Form1.idHttp1.ReadTimeout:=15000;
Form1.idHttp1.ConnectTimeout:=10000;
end;

[eoln]

Уточню, юните2 uses unit1 надо писать не в interface, а в implementation, иначе зацикливание будет

И почитай про синхронизацию.

И даже с синхронизацией могут быть ошибки в виду ассинхронности

Создавай динамический компонент, иначе грабли могут быть

[danil123]

прописал в implementation, все равно http://gyazo.com/a54a693aec8cc089a7e03d461356eafb

[eoln]

Мой пост был уточнением. Lardes написал про явное указание модуля(формы)
Это будет выглядеть так. НО! В данном случае не вижу никакого смысла многопоточности. Хотя... всякое бывает.

...
type
  potok = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure synch;
  end;

implementation
uses unit1;
procedure potok.synch;
var st:tstringlist;
i,j,k,p,z,s,f,pr,t,v:integer;
begin
form1.idHttp1.ReadTimeout:=15000;
form1.idHttp1.ConnectTimeout:=10000;
end;

procedure potok.Execute;
begin
  synchronize(synch);
end;
...

[danil123]

не сразу заметил, что вы form1 дописали. Да, ошибка вроде исчезла, сейчас попробую дописать

[danil123]

Почему программа подвисает на время выполнения? Ведь она должна благодаря потоку не виснуть.

[Пепел Феникса]

синхрониз блокирует все потоки на момент выполнения синхрониз-метода.
итого у вас нет смысла в этом коде вообще.