用delphi 怎么搞定这些?

The ProtoSupport is defined as follows:
typedef struct {
u_16 count;
u_16 length;
ProtoSupportEntry value[1];
} ProtoSupport;
typedef struct {
ApplProtoId appl_proto;
TransProtoId trans_proto;
u_16 port_number;
ProtoOptions options;
} ProtoSupportEntry;
typedef u_16 ApplProtoId;
#define AP_ID_ACSE 1
#define AP_ID_DATA_OUT 5
typedef u_16 TransProtoId;
#define TP_ID_UDP 1
typedef u_16 ProtoOptions;
#define P_OPT_WIRELESS 0x8000

不知道你这个问题是否已经解决, 如果还没有解决的话:

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^