UDPの利用例でエラーがでるのですが (ID:49455)

名前

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

本文

早速のご返答ありがとうございます。

教えていただいたように書き直してみたのですが、TIdBytesが未定義の識別子になってしまいます。

> procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread; 
>    const AData: TIdBytes; ABinding: TIdSocketHandle); 
                  ^^^^^^^^
これを解決するにはどうすれば良いのでしょうか

因みに、元のソースファイルは下記のとおりです。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,
  IdSocketHandle;

type
  TForm1 = class(TForm)
    IdUDPServer1: TIdUDPServer;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// コンポーネントの設定
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdUDPServer1.DefaultPort := 12345;
  IdUDPServer1.OnUDPRead := IdUDPServer1UDPRead;
  IdUDPServer1.Active := True;
  Memo1.Text := '';
end;

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

// データを受信した時
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  s: string;
begin
  SetLength(s, AData.Size);
  AData.Read(s[1], AData.Size);
  Memo1.Lines.Insert(0, s);
end;

end.

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

戻る