Всем ещё раз привеееет =)))
Народ, я поробовал AntiFreeze - ничего не получилось - прочитал, что он подтормаживает.. Решил поэтому сделать отдельным потоком.. Вроде нормально получилось, вот только такой вопрос - как теперь обработать события OnWork & OnWorkBegin & OnWorkEnd...???? 
Дело в том, что я хочу отслеживать процесс закачки.. Кстати - в новом процессе я использую такой код. Всё ли правильно?!
| Код |
unit Unit5;
interface
uses
Classes, IdFTP;
type
MThread = class(TThread)
private
RFilePath: string;
protected
procedure upload(FilePath: string);
procedure Execute; override;
public
property FilePath: string write RFilePath;
end;
implementation
uses Unit3;
procedure MThread.upload(s: string);
var ftp: TIdFTP;
begin
ftp:=TIdFTP.Create(nil);
with ftp do begin
Username:='nick';
Password:='password';
Host:='www.domen.ru';
ftp.OnConnected:=???;
ftp.OnWorkEnd:=???;
ftp.OnWork:=???;
ftp.OnWorkBegin:=???;
Connect;
Put(s, s);
Disconnect;
end;
ftp.Free;
end;
procedure MThread.Execute;
begin
Synchronize(upload(FilePath));
end;
end.
|
Пробовал просто приравнять их к процедурам - обработчикам событий. если писать через VCL... Но говорит о несовпадении типов TNotifyEvent & procedure  |
