Зависание программы с потоком

[casper0094]

При работе с indy, шваез в потоке, приложение начинает виснуть.
Сам поток :

unit Unit2;

interface

uses
  Classes,  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, Forms,ComCtrls,Windows,StdCtrls,IdAntiFreezeBase,
  IdAntiFreeze;

type
  MyThread = class(TThread)
  private
  procedure IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
    { Private declarations }
  public
    file1 : string;
  protected
    procedure Execute; override;
  end;

implementation
var
   ProgressBar1: TProgressBar;
   size : int64;
{
  Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure MyThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end;

    or

    Synchronize(
      procedure
      begin
        Form1.Caption := 'Updated in thread via an anonymous method'
      end
      )
    );

  where an anonymous method is passed.

  Similarly, the developer can call the Queue method with similar parameters as
  above, instead passing another TThread class as the first parameter, putting
  the calling thread in a queue with the other thread.

}

{ MyThread }

procedure MyThread.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
ProgressBar1.Position := aWorkCount div (size div 100);
end;

procedure MyThread.Execute;
var
  Form : Tform;
  IdFTP1: TIdFTP;
  IdAntiFreeze1: TIdAntiFreeze;
begin
  Form := Tform.Create(Application);
  Form.Show;
  IdAntiFreeze1 := TIdAntiFreeze.Create(application);
  ProgressBar1 := TProgressBar.Create(Application);
  ProgressBar1.Parent := Form;
  IdFTP1 := Tidftp.Create(application);

  IdFtp1.Host := 'localhost';
  IdFtp1.Username := 'a';
  IdFtp1.Password := 'a';
  IdFtp1.Connect;
  idftp1.OnWork := IdFTP1Work;

  Size := IdFtp1.Size(file1);
  idftp1.Get(File1,'D:\1.txt',true);

  Form.Close;
  Form.Free;
  IdFtp1.Free;
  { Place thread code here }
end;

Как вызываю из приложения :

	
	
procedure TForm1.Button1Click(Sender: TObject);
var
 T1 : MyThread;
begin
  T1 := MyThread.Create(true);
  T1.FreeOnTerminate:=true;
  T1.Priority:=tpLower;
  if FileList = 1 then
    T1.file1 := File1.Items.Item[File1.ItemIndex].Caption;
  if FileList = 2 then
    T1.file1 := dir2 + '\'+ File2.Items.Item[File2.ItemIndex].Caption;
  T1.Resume;
end;

end.

[_Engine_]

Тут вообще все неправильно, читаем внимательно про потоки, про синхронизацию и в частности про работу из потока с VCL

кстати, у тебя самого в программе написано:
Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize,

[casper0094]

Но оно же всё работате, прогресс бегает. Вот только когда закачка идёт то немогу двигать ни поточную форму ни главную.

[_Engine_]

Вот книга о потоках, почитай - полезно будет.

[casper0094]

Спасибо))) Всё сделал)) просто я думал что Synchronize используется только с vcl из других юнитов, а тут я создавал диамически, вот это то и ввело меня в заблуждение.
Сделал так:

unit Unit2;

interface

uses
  Classes,  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, Forms,ComCtrls,Windows,StdCtrls,IdAntiFreezeBase,
  IdAntiFreeze;

type
  MyThread = class(TThread)
  private
  procedure IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
    { Private declarations }
  public
    file1 : string;
  protected
    procedure Execute; override;
  end;

implementation
var
  Form : Tform;
   ProgressBar1: TProgressBar;
   size : int64;
{
  Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure MyThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end;

    or

    Synchronize(
      procedure
      begin
        Form1.Caption := 'Updated in thread via an anonymous method'
      end
      )
    );

  where an anonymous method is passed.

  Similarly, the developer can call the Queue method with similar parameters as
  above, instead passing another TThread class as the first parameter, putting
  the calling thread in a queue with the other thread.

}

{ MyThread }

procedure MyThread.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
Synchronize(
      procedure
      begin
ProgressBar1.Position := aWorkCount div (size div 100);
      end
      );
end;

procedure MyThread.Execute;
var
  IdFTP1: TIdFTP;
  IdAntiFreeze1: TIdAntiFreeze;
begin
Synchronize(
  procedure
  begin
    Form := Tform.Create(Application);
    Form.Show;
  end);

  IdAntiFreeze1 := TIdAntiFreeze.Create(application);
Synchronize(
  procedure
  begin
  ProgressBar1 := TProgressBar.Create(Application);
  ProgressBar1.Parent := Form;
  end);
  IdFTP1 := Tidftp.Create(application);

  IdFtp1.Host := 'localhost';
  IdFtp1.Username := 'a';
  IdFtp1.Password := 'a';
  IdFtp1.Connect;
  idftp1.OnWork := IdFTP1Work;

  Size := IdFtp1.Size(file1);
  idftp1.Get(File1,'D:\1.txt',true);
Synchronize(
  procedure
  begin
  Form.Close;
  Form.Free;
    end);
  IdFtp1.Free;
  { Place thread code here }
end;


end.