?? svcguid.pas
字號:
SVCID_ROUTE_UDP : TGUID = '{000a0208-0000-0000-c000-000000000046}';
SVCID_TIMED_UDP : TGUID = '{000a020d-0000-0000-c000-000000000046}';
SVCID_RVD_CONTROL_UDP : TGUID = '{000a0213-0000-0000-c000-000000000046}';
SVCID_NETWALL_UDP : TGUID = '{000a0215-0000-0000-c000-000000000046}';
SVCID_NEW_RWHO_UDP : TGUID = '{000a0226-0000-0000-c000-000000000046}';
SVCID_RMONITOR_UDP : TGUID = '{000a0230-0000-0000-c000-000000000046}';
SVCID_MONITOR_UDP : TGUID = '{000a0231-0000-0000-c000-000000000046}';
SVCID_ACCTMASTER_UDP : TGUID = '{000a02bc-0000-0000-c000-000000000046}';
SVCID_ACCTSLAVE_UDP : TGUID = '{000a02bd-0000-0000-c000-000000000046}';
SVCID_ACCT_UDP : TGUID = '{000a02be-0000-0000-c000-000000000046}';
SVCID_ACCTLOGIN_UDP : TGUID = '{000a02bf-0000-0000-c000-000000000046}';
SVCID_ACCTPRINTER_UDP : TGUID = '{000a02c0-0000-0000-c000-000000000046}';
SVCID_ELCSD_UDP : TGUID = '{000a02c0-0000-0000-c000-000000000046}';
SVCID_ACCTINFO_UDP : TGUID = '{000a02c1-0000-0000-c000-000000000046}';
SVCID_ACCTSLAVE2_UDP : TGUID = '{000a02c2-0000-0000-c000-000000000046}';
SVCID_ACCTDISK_UDP : TGUID = '{000a02c3-0000-0000-c000-000000000046}';
SVCID_KERBEROS_UDP : TGUID = '{000a02ee-0000-0000-c000-000000000046}';
SVCID_KERBEROS_MASTER_UDP : TGUID = '{000a02ef-0000-0000-c000-000000000046}';
SVCID_PASSWD_SERVER_UDP : TGUID = '{000a02f0-0000-0000-c000-000000000046}';
SVCID_USERREG_SERVER_UDP : TGUID = '{000a02f1-0000-0000-c000-000000000046}';
SVCID_PHONE_UDP : TGUID = '{000a048f-0000-0000-c000-000000000046}';
SVCID_MAZE_UDP : TGUID = '{000a0682-0000-0000-c000-000000000046}';
SVCID_NFS_UDP : TGUID = '{000a0801-0000-0000-c000-000000000046}';
SVCID_RSCS0_UDP : TGUID = '{000a2710-0000-0000-c000-000000000046}';
SVCID_RSCS1_UDP : TGUID = '{000a2711-0000-0000-c000-000000000046}';
SVCID_RSCS2_UDP : TGUID = '{000a2712-0000-0000-c000-000000000046}';
SVCID_RSCS3_UDP : TGUID = '{000a2713-0000-0000-c000-000000000046}';
SVCID_RSCS4_UDP : TGUID = '{000a2714-0000-0000-c000-000000000046}';
SVCID_RSCS5_UDP : TGUID = '{000a2715-0000-0000-c000-000000000046}';
SVCID_RSCS6_UDP : TGUID = '{000a2716-0000-0000-c000-000000000046}';
SVCID_RSCS7_UDP : TGUID = '{000a2717-0000-0000-c000-000000000046}';
SVCID_RSCS8_UDP : TGUID = '{000a2718-0000-0000-c000-000000000046}';
SVCID_RSCS9_UDP : TGUID = '{000a2719-0000-0000-c000-000000000046}';
SVCID_RSCSA_UDP : TGUID = '{000a271a-0000-0000-c000-000000000046}';
SVCID_RSCSB_UDP : TGUID = '{000a271b-0000-0000-c000-000000000046}';
SVCID_QMASTER_UDP : TGUID = '{000a271c-0000-0000-c000-000000000046}';
// NetWare services
// GUID block = 000axxxx-0000-0000-C000-000000000046
SVCID_PRINT_QUEUE : TGUID = '{000b0003-0000-0000-c000-000000000046}';
SVCID_FILE_SERVER : TGUID = '{000b0004-0000-0000-c000-000000000046}';
SVCID_JOB_SERVER : TGUID = '{000b0005-0000-0000-c000-000000000046}';
SVCID_GATEWAY : TGUID = '{000b0006-0000-0000-c000-000000000046}';
SVCID_PRINT_SERVER : TGUID = '{000b0007-0000-0000-c000-000000000046}';
SVCID_ARCHIVE_QUEUE : TGUID = '{000b0008-0000-0000-c000-000000000046}';
SVCID_ARCHIVE_SERVER : TGUID = '{000b0009-0000-0000-c000-000000000046}';
SVCID_JOB_QUEUE : TGUID = '{000b000a-0000-0000-c000-000000000046}';
SVCID_ADMINISTRATION : TGUID = '{000b000b-0000-0000-c000-000000000046}';
SVCID_NAS_SNA_GATEWAY : TGUID = '{000b0021-0000-0000-c000-000000000046}';
SVCID_REMOTE_BRIDGE_SERVER : TGUID = '{000b0024-0000-0000-c000-000000000046}';
SVCID_TIME_SYNCHRONIZATION_SERVER : TGUID = '{000b002d-0000-0000-c000-000000000046}';
SVCID_ARCHIVE_SERVER_DYNAMIC_SAP : TGUID = '{000b002e-0000-0000-c000-000000000046}';
SVCID_ADVERTISING_PRINT_SERVER : TGUID = '{000b0047-0000-0000-c000-000000000046}';
SVCID_BTRIEVE_VAP : TGUID = '{000b004b-0000-0000-c000-000000000046}';
SVCID_DIRECTORY_SERVER : TGUID = '{000b0278-0000-0000-c000-000000000046}';
SVCID_NETWARE_386 : TGUID = '{000b0107-0000-0000-c000-000000000046}';
SVCID_HP_PRINT_SERVER : TGUID = '{000b030C-0000-0000-c000-000000000046}';
SVCID_SNA_SERVER : TGUID = '{000b0444-0000-0000-c000-000000000046}';
SVCID_SAA_SERVER : TGUID = '{000b0130-0000-0000-c000-000000000046}';
// DNS services by record type
// GUID block = 00090035-0000-xxxx-C000-000000000046
SVCID_DNS_TYPE_A : TGUID = '{00090035-0000-0001-c000-000000000046}';
SVCID_DNS_TYPE_NS : TGUID = '{00090035-0000-0002-c000-000000000046}';
SVCID_DNS_TYPE_MD : TGUID = '{00090035-0000-0003-c000-000000000046}';
SVCID_DNS_TYPE_MF : TGUID = '{00090035-0000-0004-c000-000000000046}';
SVCID_DNS_TYPE_CNAME : TGUID = '{00090035-0000-0005-c000-000000000046}';
SVCID_DNS_TYPE_SOA : TGUID = '{00090035-0000-0006-c000-000000000046}';
SVCID_DNS_TYPE_MB : TGUID = '{00090035-0000-0007-c000-000000000046}';
SVCID_DNS_TYPE_MG : TGUID = '{00090035-0000-0008-c000-000000000046}';
SVCID_DNS_TYPE_MR : TGUID = '{00090035-0000-0009-c000-000000000046}';
SVCID_DNS_TYPE_NULL : TGUID = '{00090035-0000-000a-c000-000000000046}';
SVCID_DNS_TYPE_WKS : TGUID = '{00090035-0000-000b-c000-000000000046}';
SVCID_DNS_TYPE_PTR : TGUID = '{00090035-0000-000c-c000-000000000046}';
SVCID_DNS_TYPE_HINFO : TGUID = '{00090035-0000-000d-c000-000000000046}';
SVCID_DNS_TYPE_MINFO : TGUID = '{00090035-0000-000e-c000-000000000046}';
SVCID_DNS_TYPE_MX : TGUID = '{00090035-0000-000f-c000-000000000046}';
SVCID_DNS_TYPE_TEXT : TGUID = '{00090035-0000-0010-c000-000000000046}';
SVCID_DNS_TYPE_RP : TGUID = '{00090035-0000-0011-c000-000000000046}';
SVCID_DNS_TYPE_AFSDB : TGUID = '{00090035-0000-0012-c000-000000000046}';
SVCID_DNS_TYPE_X25 : TGUID = '{00090035-0000-0013-c000-000000000046}';
SVCID_DNS_TYPE_ISDN : TGUID = '{00090035-0000-0014-c000-000000000046}';
SVCID_DNS_TYPE_RT : TGUID = '{00090035-0000-0015-c000-000000000046}';
SVCID_DNS_TYPE_NSAP : TGUID = '{00090035-0000-0016-c000-000000000046}';
SVCID_DNS_TYPE_NSAPPTR : TGUID = '{00090035-0000-0017-c000-000000000046}';
SVCID_DNS_TYPE_SIG : TGUID = '{00090035-0000-0018-c000-000000000046}';
SVCID_DNS_TYPE_KEY : TGUID = '{00090035-0000-0019-c000-000000000046}';
SVCID_DNS_TYPE_PX : TGUID = '{00090035-0000-001a-c000-000000000046}';
SVCID_DNS_TYPE_GPOS : TGUID = '{00090035-0000-001b-c000-000000000046}';
SVCID_DNS_TYPE_AAAA : TGUID = '{00090035-0000-001c-c000-000000000046}';
SVCID_DNS_TYPE_LOC : TGUID = '{00090035-0000-001d-c000-000000000046}';
SVCID_DNS_TYPE_NXT : TGUID = '{00090035-0000-001e-c000-000000000046}';
SVCID_DNS_TYPE_SRV : TGUID = '{00090035-0000-0021-c000-000000000046}';
SVCID_DNS_TYPE_ATMA : TGUID = '{00090035-0000-0022-c000-000000000046}';
implementation
function SVCID_TCP( const Port : Word ) : TGUID;
begin
Result := SVCID_0_TCP;
PWord(@Result.D1)^ := Port;
end;
function SVCID_DNS( const RecordType : Word ) : TGUID;
begin
Result := SVCID_DOMAIN_TCP;
Result.D3 := RecordType;
end;
function IS_SVCID_DNS( Id : TGUID ) : Boolean;
begin
with Id do Result := (D1=$00090035) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;
function IS_SVCID_TCP( Id : TGUID ) : Boolean;
begin
with Id do Result := (PWord(PChar(@D1)+2)^=$0009) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;
function PORT_FROM_SVCID_TCP( Id : TGUID ) : Word;
begin
Result := PWord(@Id.D1)^;
end;
function RR_FROM_SVCID( Id : TGUID ) : Word;
begin
Result := Id.D3;
end;
procedure SET_TCP_SVCID_RR( var Id : TGUID; const Port, RecordType : Word );
begin
with Id do
begin
PWord(@D1)^ := Port;
D3 := RecordType;
end;
end;
procedure SET_TCP_SVCID( var Id : TGUID; const Port : Word );
begin
PWord(@Id.D1)^ := Port;
end;
function SVCID_UDP( const Port : Word ) : TGUID;
begin
Result := SVCID_0_UDP;
PWord(@Result.D1)^ := Port;
end;
function IS_SVCID_UDP( Id : TGUID ) : Boolean;
begin
with Id do Result := (PWord(PChar(@D1)+2)^=$000a) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;
function PORT_FROM_SVCID_UDP( Id : TGUID ) : Word;
begin
Result := PWord(@Id.D1)^;
end;
procedure SET_UDP_SVCID( var Id : TGUID; const Port : Word );
begin
PWord(@Id.D1)^ := Port;
end;
function SVCID_NETWARE( const SapId : Word ) : TGUID;
begin
Result := SVCID_0_NETWARE;
PWord(@Result.D1)^ := SapId;
end;
function IS_SVCID_NETWARE( Id : TGUID ) : Boolean;
begin
with Id do Result := (PWord(PChar(@D1)+2)^=$000b) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
end;
function SAPID_FROM_SVCID_NETWARE( Id : TGUID ) : Word;
begin
Result := PWord(@Id.D1)^;
end;
procedure SET_NETWARE_SVCID( var Id : TGUID; const SapId : Word );
begin
PWord(@Id.D1)^ := SapId;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -