0

Delphi XE-7 および Indy 10.6.0.5169 用の単純な UDP サンプル/デモ アプリケーションを探しています。

私はしばらく探していましたが、見つけ続けているものはすべて、コンパイルされなくなった古いバージョンの Indy または Delphi のものです。

WS-Discovery メッセージを処理するには、UDP クライアントを実装する必要があります。

ここにリストされているアプリケーションを使用しようとしました：

http://delphi.about.com/library/weekly/code/src101105.zip

SendBufferここでエラーが発生しています：

procedure TUDPSearchForm.SearchPartner;
var
  x: Array[0..3] of Byte;
begin
  RadioGroup1.Items.Clear;
  RadioGroup1.ItemIndex := -1;
  Height := 50+13;
  Top := Top;
  Left := left;
  Show;
  IdUDPClient1.Host := '255.255.255.255';
  IdUDPClient1.Active := true;
  IdUDPClient1.BroadcastEnabled := True;
  x[0] := $00; // Search Receivers
  x[1] := $00; // Search
  x[2] := MessageCount div $100;
  x[3] := MessageCount mod $100;
  inc(MessageCount);
  IdUDPClient1.Port := UDPDefaultPort;
  IdUDPClient1.SendBuffer(x, 4);
  IdUDPClient1.BroadcastEnabled := False;
end;
4

1 に答える 1