unitrpc.pas

< Delphi网络通信协议分析与应用实现>>一书的源代码。

unit UnitRPC;

interface

type
//define in system.pas
  TUUID = packed record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;
  PUUID = ^TGUID;

//decare function: UUIDCreat
  function UuidCreate(Uuid:PUUID):integer;stdcall external 'Rpcrt4.dll';


//in WinError.h
//  No network address is available to use to construct a universal
//  unique identifier (UUID).
//
//  #define RPC_S_UUID_NO_ADDRESS            1739L

//in RPCNTERR.h
// #define RPC_S_OK                          ERROR_SUCCESS

//also defined in windows.pas
const
     RPC_S_OK = 0;
     RPC_S_UUID_NO_ADDRESS = 1739;
     {The string universal unique identifier (UUID) is invalid. }
     RPC_S_INVALID_STRING_UUID = 1705;


implementation

end.