FTPのイベントの関連付けを行うには？ (ID：11653)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

りりかさん、ありがとうございます。

教えていただいたように以下のようにTMethodHolderを作成しましたが、
またもやエラーとなってしまいました。

＝＝＝＝＝＝＝＝＝＝＝
type
  TMethodHolder = class(TObject)
  public
    procedure ftpFtpWork(Sender: TObject; AWorkMode: TWorkMode;
          const AWorkCount: Integer);
    procedure ftpFtpWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
          const AWorkCountMax: Integer);
    procedure ftpFtpWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
  end;

procedure FtpCreate;
begin
  //FTPのCreate
  ftpFTP := TIdFtp.Create(nil);

//FTPイベントの結びつけ
  ftpFTP.OnWork      := TMethodHolder.ftpFtpWork;
  ftpFTP.OnWorkBegin := TMethodHolder.ftpFtpWorkBegin;
  ftpFTP.OnWorkEnd   := TMethodHolder.ftpFtpWorkEnd;
end;

procedure TMethodHolder.ftpFtpWork(Sender: TObject; AWorkMode: TWorkMode;
 const AWorkCount: Integer);

（残り２つの関数も同じようにTMethodHolderを追加しました）

＝＝＝＝＝＝＝＝＝＝＝

上記でコンパイルすると
「'TWorkEvent'と'Procedure'には互換性がありません」
というエラーになってしまいました。

>ftpFTP.OnWork      := TMethodHolder.ftpFtpWork;

ここの部分を

ftpFTP.OnWork      := MethodHolder.ftpFtpWork;

とすると、未定義の識別子のエラーになってしまいます。

どこか記述が間違っているのでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る