0

Динамически создается компонент типа TIdFTP, вот так:

IdFTP1 := TIdFTP.Create;  

IdFTP1.Name := 'IdFTP1';  
IdFTP1.OnWork := FTPWork;  
IdFTP1.OnWorkBegin := FTPWorkBegin;  
IdFTP1.AutoLogin := True;  
IdFTP1.TransferType := ftBinary;  
IdFTP1.ProxySettings.ProxyType := fpcmNone;  
IdFTP1.ProxySettings.Port := 0;  
IdFTP1.Passive:=True;  
IdFTP1.Host:=__host;  
IdFTP1.Port:=__port;  
IdFTP1.Username:=__user;  
IdFTP1.Password:=__pass;  
IdFTP1.Connect;  

проблема в том, что при запуске приложения компилятор ругается на эти 2 строчки

IdFTP1.OnWork := FTPWork;  
IdFTP1.OnWorkBegin := FTPWorkBegin;  

[DCC Error] FtpManage.pas(39): E2009 Incompatible types: 'method pointer and regular procedure'
[DCC Error] FtpManage.pas(40): E2009 Incompatible types: 'method pointer and regular procedure'
[DCC Error] FtpManage.pas(92): E2096 Method identifier expected
[DCC Error] FtpManage.pas(98): E2096 Method identifier expected
[DCC Error] FtpManage.pas(99): E2096 Method identifier expected

процедуры FTPWork и FTPWorkBegin должным образом прописаны.

Почему не хочет нормально работать?

2
  • А можно всетаки показать декларацию FTPWork и FTPWorkBegin И заодно сообшение как компилятор ругается
    – Vahan Av
    14 июн 2012 в 11:57
  • interface procedure FTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); procedure FTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); implementation procedure FTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); begin TForm1.pb1.Position:=AWorkCount; end; procedure FTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); begin TForm1.pb1.Max:= IdFTP1.Size(currentFile); TForm1.pb1.Position:=0; end;
    – Dagmanor
    14 июн 2012 в 12:02

4 ответа 4

3

'method pointer and regular procedure'

Это значит, что компилятор ожидает получить указатель не на процедуру, а на метод класса.

Сделайте FTPWork и FTPWorkBegin методами формы.

2

1.Проблема в том, что эти процедуры не есть методы объекта. А нужно чтобы они были методами какого-то объекта, например - формы.

TWorkEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer) of object;
TWorkBeginEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer) of object;

2.В указанных событиях параметры AWorkCount и AWorkCountMax - должны иметь тип Integer, а у вас Int64 (актуально для версий ниже Delphi 2009)

8
  • "В событиях AWorkCount и AWorkCountMax - Integer. А у вас Int64." у вас версия Delphi старая В 2010 и выше Int64
    – Vahan Av
    14 июн 2012 в 12:16
  • Ок, сейчас поправлю
    – KiTE
    14 июн 2012 в 12:18
  • Integer - это, по сути, int32, так, что существенного изменения из-за этого не произойдет, @Vahan Av.
    – AseN
    14 июн 2012 в 12:18
  • Эти процедуры находятся в отдельном модуле, который не имеет формы. Как сделать их методами формы.
    – Dagmanor
    14 июн 2012 в 12:20
  • 2
    @Dagmanor, как вариант, создайте класс где эти процедуры станут методами в том-же модуле. В initialization создавайте объект, а в finalization его уничтожайте.
    – KiTE
    14 июн 2012 в 12:40
2

Введите их в форму вот так

  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    procedure FormCreate(Sender: TObject);
    procedure IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
  public
    procedure FTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
    procedure FTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
  end;

ну в public или в private сами решайте )) ну и implementation соответственно так

implementation

{$R *.dfm}

procedure TForm1.FTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin

end;

procedure TForm1.FTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
begin

end;
2

Свойство OnWork компонента TIdFTP имеет тип TWorkEvent, который является наследником типа TNotifyEvent. Зная это, можно присвоить данному свойству обработчик через тип TMethod:

procedure alert();   // наш псевдообработчик
begin
  showmessage('Текст =)');
end;

...
var
  eve: TMethod;
begin
  eve.Сode := @alert;  // вешаем наш обработчик
  eve.Data := nil;
  idftp1.OnWork := TWorkEvent(eve);  
end;
...

Далее, думаю, разберетесь. =)

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.