jwasvcguid.pas

比较全面的win32api开发包

  SVCID_SAA_SERVER: TGUID = '{000B0130-0000-0000-C000-000000000046}';
  {$EXTERNALSYM SVCID_SAA_SERVER}
//
// DNS services by record type
// GUID block = 00090035-0000-xxxx-C0000-000000000046
//

  SVCID_DNS_TYPE_A: TGUID = '{00090035-0000-0001-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_A}
  SVCID_DNS_TYPE_NS: TGUID = '{00090035-0000-0002-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_NS}
  SVCID_DNS_TYPE_MD: TGUID = '{00090035-0000-0003-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_MD}
  SVCID_DNS_TYPE_MF: TGUID = '{00090035-0000-0004-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_MF}
  SVCID_DNS_TYPE_CNAME: TGUID = '{00090035-0000-0005-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_CNAME}
  SVCID_DNS_TYPE_SOA: TGUID = '{00090035-0000-0006-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_SOA}
  SVCID_DNS_TYPE_MB: TGUID = '{00090035-0000-0007-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_MB}
  SVCID_DNS_TYPE_MG: TGUID = '{00090035-0000-0008-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_MG}
  SVCID_DNS_TYPE_MR: TGUID = '{00090035-0000-0009-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_MR}
  SVCID_DNS_TYPE_NULL: TGUID = '{00090035-0000-000A-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_NULL}
  SVCID_DNS_TYPE_WKS: TGUID = '{00090035-0000-000B-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_WKS}
  SVCID_DNS_TYPE_PTR: TGUID = '{00090035-0000-000C-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_PTR}
  SVCID_DNS_TYPE_HINFO: TGUID = '{00090035-0000-000D-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_HINFO}
  SVCID_DNS_TYPE_MINFO: TGUID = '{00090035-0000-000E-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_MINFO}
  SVCID_DNS_TYPE_MX: TGUID = '{00090035-0000-000F-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_MX}
  SVCID_DNS_TYPE_TEXT: TGUID = '{00090035-0000-0010-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_TEXT}
  SVCID_DNS_TYPE_RP: TGUID = '{00090035-0000-0011-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_RP}
  SVCID_DNS_TYPE_AFSDB: TGUID = '{00090035-0000-0012-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_AFSDB}
  SVCID_DNS_TYPE_X25: TGUID = '{00090035-0000-0013-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_X25}
  SVCID_DNS_TYPE_ISDN: TGUID = '{00090035-0000-0014-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_ISDN}
  SVCID_DNS_TYPE_RT: TGUID = '{00090035-0000-0015-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_RT}
  SVCID_DNS_TYPE_NSAP: TGUID = '{00090035-0000-0016-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_NSAP}
  SVCID_DNS_TYPE_NSAPPTR: TGUID = '{00090035-0000-0017-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_NSAPPTR}
  SVCID_DNS_TYPE_SIG: TGUID = '{00090035-0000-0018-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_SIG}
  SVCID_DNS_TYPE_KEY: TGUID = '{00090035-0000-0019-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_KEY}
  SVCID_DNS_TYPE_PX: TGUID = '{00090035-0000-001A-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_PX}
  SVCID_DNS_TYPE_GPOS: TGUID = '{00090035-0000-001B-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_GPOS}
  SVCID_DNS_TYPE_AAAA: TGUID = '{00090035-0000-001C-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_AAAA}
  SVCID_DNS_TYPE_LOC: TGUID = '{00090035-0000-001D-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_LOC}
  SVCID_DNS_TYPE_NXT: TGUID = '{00090035-0000-001E-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_NXT}
  SVCID_DNS_TYPE_SRV: TGUID = '{00090035-0000-0021-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_SRV}
  SVCID_DNS_TYPE_ATMA: TGUID = '{00090035-0000-0022-C000-000000000046}';
  {$EXTERNALSYM SVCID_DNS_TYPE_ATMA}

implementation

function SVCID_TCP_RR(Port, RR: Word): TGUID;
begin
  Result.D1 := ($0009 shl 16) or Port;
  Result.D2 := $0;
  Result.D3 := RR;
  Result.D4[0] := $C0;
  Result.D4[1] := $00;
  Result.D4[2] := $00;
  Result.D4[3] := $00;
  Result.D4[4] := $00;
  Result.D4[5] := $00;
  Result.D4[6] := $00;
  Result.D4[7] := $46;
end;

function SVCID_TCP(Port: Word): TGUID;
begin
  Result := SVCID_TCP_RR(Port, 0)
end;

function SVCID_DNS(RecordType: Word): TGUID;
begin
  Result := SVCID_TCP_RR(53, RecordType);
end;

function IS_SVCID_DNS(const Guid: TGUID): Boolean;
begin
  Result := (Guid.D1 = $00090035) and (Guid.D2 = $0) and
    (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
    (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
    (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
end;

function IS_SVCID_TCP(const Guid: TGUID): Boolean;
begin
  Result :=
   ((Guid.D1 and DWORD($FFFF0000)) = $00090000) and (Guid.D2 = $0) and
    (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
    (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
    (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
end;

function PORT_FROM_SVCID_TCP(const Guid: TGUID): Word;
begin
  Result := WORD(Guid.D1 and $FFFF);
end;

function RR_FROM_SVCID(const Guid: TGUID): Word;
begin
  Result := Guid.D3;
end;

procedure SET_TCP_SVCID_RR(var Guid: TGUID; _Port, _RR: Word);
begin
  Guid.D1 := ($0009 shl 16) or _Port;
  Guid.D2 := $0;
  Guid.D3 := _RR;
  Guid.D4[0] := $C0;
  Guid.D4[1] := $00;
  Guid.D4[2] := $00;
  Guid.D4[3] := $00;
  Guid.D4[4] := $00;
  Guid.D4[5] := $00;
  Guid.D4[6] := $00;
  Guid.D4[7] := $46;
end;

procedure SET_TCP_SVCID(var Guid: TGUID; Port: Word);
begin
  SET_TCP_SVCID_RR(Guid, Port, 0);
end;

function SVCID_UDP_RR(Port, RR: Word): TGUID;
begin
  Result.D1 := ($000A shl 16) or Port;
  Result.D2 := $0;
  Result.D3 := RR;
  Result.D4[0] := $C0;
  Result.D4[1] := $00;
  Result.D4[2] := $00;
  Result.D4[3] := $00;
  Result.D4[4] := $00;
  Result.D4[5] := $00;
  Result.D4[6] := $00;
  Result.D4[7] := $46;
end;

function SVCID_UDP(Port: Word): TGUID;
begin
  Result := SVCID_UDP_RR(Port, 0);
end;

function IS_SVCID_UDP(const Guid: TGUID): Boolean;
begin
  Result := (Guid.D1 and DWORD($FFFF0000) = $000A0000) and (Guid.D2 = $0) and
    (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
    (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
    (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
end;

function PORT_FROM_SVCID_UDP(const Guid: TGUID): WORD;
begin
  Result := WORD(Guid.D1 and $FFFF);
end;

procedure SET_UDP_SVCID_RR(var Guid: TGUID; Port, RR: WORD);
begin
  Guid.D1 := ($000A shl 16) or Port;
  Guid.D2 := $0;
  Guid.D3 := RR;
  Guid.D4[0] := $C0;
  Guid.D4[1] := $00;
  Guid.D4[2] := $00;
  Guid.D4[3] := $00;
  Guid.D4[4] := $00;
  Guid.D4[5] := $00;
  Guid.D4[6] := $00;
  Guid.D4[7] := $46;
end;

procedure SET_UDP_SVCID(var Guid: TGUID; Port: WORD);
begin
  SET_UDP_SVCID_RR(Guid, Port, 0);
end;

function SVCID_NETWARE(SapId: WORD): TGUID;
begin
  Result.D1 := ($000B shl 16) or SapId;
  Result.D2 := $0;
  Result.D3 := $0;
  Result.D4[0] := $C0;
  Result.D4[1] := $00;
  Result.D4[2] := $00;
  Result.D4[3] := $00;
  Result.D4[4] := $00;
  Result.D4[5] := $00;
  Result.D4[6] := $00;
  Result.D4[7] := $46;
end;

function IS_SVCID_NETWARE(const Guid: TGUID): Boolean;
begin
  Result := (Guid.D1 and DWORD($FFFF0000) = $000B0000) and (Guid.D2 = $0) and
    (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
    (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
    (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
end;

function SAPID_FROM_SVCID_NETWARE(const Guid: TGUID): WORD;
begin
  Result := WORD(Guid.D1 and $FFFF);
end;

procedure SET_NETWARE_SVCID(var Guid: TGUID; SapId: WORD);
begin
  Guid.D1 := ($000B shl 16) or SapId;
  Guid.D2 := $0;
  Guid.D3 := $0;
  Guid.D4[0] := $C0;
  Guid.D4[1] := $00;
  Guid.D4[2] := $00;
  Guid.D4[3] := $00;
  Guid.D4[4] := $00;
  Guid.D4[5] := $00;
  Guid.D4[6] := $00;
  Guid.D4[7] := $46;
end;


end.