|
#1
|
|||
|
|||
Ошибка в потоке
Программа загружает на ФТП файл. Чтобы главная форма не подвисала, сделал загрузку в потоке
Код:
mythread=class(tthread) private public procedure execute; override; end; var Form1: TForm1; potok: mythread; .... procedure TForm1.Button2Click(Sender: TObject); begin potok:=mythread.Create(true); potok.Priority:=tpHigher; potok.FreeOnTerminate:=true; potok.Resume; end; procedure mythread.execute; begin form1.idftp1.Connect(true); form1.idftp1.Put('C:\123.ico','/temp/123.ico'); form1.idftp1.disconnect; end; |
#2
|
||||
|
||||
Вероятно блок try..except на Connect/disconnect здесь не помешает
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
nano_bot (31.10.2013)
|