delphi - Delphi XE IDE コード パーサー エラー: 「予期される '>' but '.' 見つかった。"

Question

フォームにを追加IdUDPServerし、イベントにコードを挿入しようとした後OnUDPRead、設計時にフォームにコンポーネントを追加することも、アプリケーションを実行することもできません。

これを解決する方法はありますか？

Answer 1

このイベント ハンドラには 2 つのバグがあります。それらを修正するには、次のことができます。

• システムを取り外します。from TArray<System.Byte>(インターフェースおよび実装内)
• IdSocketHandleインターフェイスの使用リストに追加します

これ以上調査していませんが、これらの変更後、コードをコンパイルできます。

したがって、完全なコードは次のようになります

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, 
  IdSocketHandle, // <-- added
  IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, IdUDPServer;

type
  TForm12 = class(TForm)
    IdUDPClient1: TIdUDPClient;
    IdUDPServer1: TIdUDPServer;
    procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      AData: TArray<Byte>; ABinding: TIdSocketHandle);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TArray<Byte>; ABinding: TIdSocketHandle);
begin
  //
end;