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

名前

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

本文

Delphi7にてFTPを使ってダウンロードを行う処理を作成しています。
TIdFTPにOnWork、OnWorkBegin、OnWorkEndのイベントを関連付けようとしていますが、
コンパイルエラーとなってしまいます。
どのように解決すればよろしいでしょうか？
プログラムとエラーは以下のようになります。

＝＝＝＝＝＝＝＝＝＝

type
 TLikeList = Class
   a   : string;
   b   : string;
 end;

procedure FtpCreate;
procedure ftpFtpWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
procedure ftpFtpWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
procedure ftpFtpWorkEnd(Sender: TObject; AWorkMode: TWorkMode);

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

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

procedure ftpFtpWork(Sender: TObject; AWorkMode: TWorkMode;
 const AWorkCount: Integer);
begin
  //プログレスバーの制御
end;

procedure ftpFtpWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
 const AWorkCountMax: Integer);
bgein
  //プログレスバーの制御
end;

procedure ftpFtpWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  //プログレスバーの制御
end;

＝＝＝＝＝＝＝＝＝＝

上記プログラムでコンパイルすると
「型に互換性がありません: メソッドポインタと通常の手続き」
というエラーが表示されてしまいます。

これが作成されているパスにはフォームは存在しません。

解決方法など教えてください。
よろしくお願いします。

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

戻る