在向我的表单添加 aIdUDPServer
并尝试将一些代码放入OnUDPRead
事件后,我无法在设计时向我的表单添加任何组件,也无法运行应用程序。
有什么办法可以解决这个问题吗?
此事件处理程序有两个错误。要修复它们,您可以
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;