UDPの利用例でエラーがでるのですが (ID：49452)

名前

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

本文

初めまして、お世話になります。

下記のHPからダウンロードした実行ファイルは正常に動作するのですが、ソースをコンパイルするとエラーが出ます。
https://codezine.jp/article/detail/197

私の開発環境は、windows10 pro 64bitです。
Delphi 10.2を使っていますので、IndyはIndy10だと思います。

エラーはソース中の「←」で示す箇所で下記のエラーが出ます。
[dcc32 エラー] Unit1.pas(36): E2010 'TIdUDPListenerThread' と 'TObject' には互換性がありません

これを解決する方法を教えていただけないでしょうか。

UDPの利用例

procedure TForm1.FormCreate(Sender: TObject);
begin
  // コンポーネントの設定
  Memo1.Text := '';
  IdUDPServer1.DefaultPort := 12345; // 適当なポートを使用
  IdUDPServer1.OnUDPRead   := IdUDPServer1UDPRead; // 受信時のイベント  ←ここでエラーが発生
  // UDPサーバーを起動する
  IdUDPServer1.Active := True;
end;

// ボタンを押したら自分に対し'test'を送信する
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdUDPServer1.Send('127.0.0.1', 12345, 'test'); // 自分自身に送信
end;

// データを受信した時
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  s: string;
begin
  // TStreamを文字列に変換する
  SetLength(s, AData.Size);
  AData.Read(s[1], AData.Size);
  // メモの先頭に受信した文字列を挿入
  Memo1.Lines.Insert(0, s);
end;

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

戻る