Как использовать компоненты с формы в потоке?

[Чиполлино]

Привет всем.

Голову ломаю весь день, нигде не нашёл информации...
Допустим у меня есть компонент idFTP, как его включить в дополнительный поток?

Procedure Potok.Execute;
begin
Main.idFTP1.Put(...
end;

Так не работает...

[Pamparam]

визуальные компоненты нельзя юзать в потоках

[Аватар]

Можно с использованием метода Synchronize

[Чиполлино]

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

Можно с использованием метода Synchronize

Приведите пример, пожалуйста.

[Аватар]

procedure TThread1.MyProcedure;
begin
  TForm1.Label1.Caption:='Тря-ля-ля';
end;

procedure TThread1.Execute;
begin
  ...
  Synchronize(MyProcedure);
  ...
end;

[Человек_Борща]

а я так делаю=)

procedure MsgToForm(aStr:string);
procedure MsgToFormSync;

var
  syncS:string;

procedure MsgToForm(aStr:string);
begin
syncS:=aStr;
Synchronize(MsgToFormSync);
end;
procedure MsgToFormSync;
begin
 Form1.Label1.Caption:=syncS;
syncS:='';
end;

[Аватар]

Только сейчас обратил внимание, что не по теме отвечаем. Пост #2 с толку сбил. Речь то идет о idFTP1, а он к визуальным компонентам никакого отношения не имеет

[Чиполлино]

Подскажите как такое сделать с idFTP.

[3D Hunter]

Создавайте idFTP программно, например так:

MyFTP:=TidFTP.Create(nil);
with MyFTP do
begin
//установка свойств соединения, работа с сервером
//закрытие соединения
end;
FreeAndNil(MyFTP);

P.S. С Indy не работал, но общая схема должна быть такой.

[Чиполлино]

Пробовал вот так:

Procedure Potok.Execute;
var
idFTP1: TIdFTP;
begin
idFTP1:=TIdFTP.Create(nil);
idFTP1.Password:= '---';
idFTP1.Username:= '---';
idFTP1.Host:= '--';
idFTP1.Put(...);
idFTP1.Free;
end;

Безуспешно.