开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DirectPlay8.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：143k
源码类别：

Delphi控件源码

开发平台：

Delphi

DirectPlay8.pas：源码内容
  1. {******************************************************************************}
  2. {*                                                                            *}
  3. {*  Copyright (C) Microsoft Corporation.  All Rights Reserved.                *}
  4. {*                                                                            *}
  5. {*  Files:      dpaddr.h dplobby8.h dplay8.h dvoice.h                         *}
  6. {*  Content:    DirectPlay8 include files                                     *}
  7. {*                                                                            *}
  8. {*  DirectX 9.0 Delphi adaptation by Alexey Barkovoy                          *}
  9. {*  E-Mail: clootie@reactor.ru                                                *}
  10. {*                                                                            *}
  11. {*  Modified: 27-Apr-2003                                                     *}
  12. {*                                                                            *}
  13. {*  Latest version can be downloaded from:                                    *}
  14. {*     http://clootie.narod.ru/delphi                                         *}
  15. {*                                                                            *}
  16. {******************************************************************************}
  17. {                                                                              }
  18. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  19. {                                                                              }
  20. { The contents of this file are used with permission, subject to the Mozilla   }
  21. { Public License Version 1.1 (the "License"); you may not use this file except }
  22. { in compliance with the License. You may obtain a copy of the License at      }
  23. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  24. {                                                                              }
  25. { Software distributed under the License is distributed on an "AS IS" basis,   }
  26. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  27. { the specific language governing rights and limitations under the License.    }
  28. {                                                                              }
  29. { Alternatively, the contents of this file may be used under the terms of the  }
  30. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  31. { provisions of the LGPL License are applicable instead of those above.        }
  32. { If you wish to allow use of your version of this file only under the terms   }
  33. { of the LGPL License and not to allow others to use your version of this file }
  34. { under the MPL, indicate your decision by deleting  the provisions above and  }
  35. { replace  them with the notice and other provisions required by the LGPL      }
  36. { License.  If you do not delete the provisions above, a recipient may use     }
  37. { your version of this file under either the MPL or the LGPL License.          }
  38. {                                                                              }
  39. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  40. {                                                                              }
  41. {******************************************************************************}
  43. {$I DirectX.inc}
  45. unit DirectPlay8;
  47. interface
  49. (*$HPPEMIT '#include "dplay8.h"' *)
  50. (*$HPPEMIT '#include "dplobby8.h"' *)
  51. (*$HPPEMIT '#include "dvoice.h"' *)
  53. uses
  54.   Windows, WinSock, DirectSound;
  56. (*==========================================================================;
  57.  *
  58.  *  Copyright (C) 2000-2002 Microsoft Corporation.  All Rights Reserved.
  59.  *
  60.  *  File:       dpaddr.h
  61.  *  Content:   DirectPlayAddress include file
  62.  ***************************************************************************)
  65. const
  66. (****************************************************************************
  67.  *
  68.  * DirectPlay8Address CLSIDs
  69.  *
  70.  ****************************************************************************)
  72.   // {934A9523-A3CA-4bc5-ADA0-D6D95D979421}
  73.   CLSID_DirectPlay8Address: TGUID = '{934a9523-a3ca-4bc5-ada0-d6d95d979421}';
  74.   {$EXTERNALSYM CLSID_DirectPlay8Address}
  76.   
  77. (****************************************************************************
  78.  *
  79.  * DirectPlay8Address Interface IIDs
  80.  *
  81.  ****************************************************************************)
  82. type
  83.   DPNAREFIID = TGUID;
  84.   {$EXTERNALSYM DPNAREFIID}
  85.   TDPNARefIID = DPNAREFIID;
  88. (****************************************************************************
  89.  *
  90.  * DirectPlay8Address Constants
  91.  *
  92.  ****************************************************************************)
  93. const
  94.   //
  95.   // Asynchronous operation flags
  96.   //
  97.   DPNA_DATATYPE_STRING        = $00000001;
  98.   {$EXTERNALSYM DPNA_DATATYPE_STRING}
  99.   DPNA_DATATYPE_DWORD         = $00000002;
  100.   {$EXTERNALSYM DPNA_DATATYPE_DWORD}
  101.   DPNA_DATATYPE_GUID          = $00000003;
  102.   {$EXTERNALSYM DPNA_DATATYPE_GUID}
  103.   DPNA_DATATYPE_BINARY        = $00000004;
  104.   {$EXTERNALSYM DPNA_DATATYPE_BINARY}
  105.   DPNA_DATATYPE_STRING_ANSI   = $00000005;
  106.   {$EXTERNALSYM DPNA_DATATYPE_STRING_ANSI}
  108.   DPNA_DPNSVR_PORT            = 6073;
  109.   {$EXTERNALSYM DPNA_DPNSVR_PORT}
  111.   DPNA_INDEX_INVALID          = $FFFFFFFF;
  112.   {$EXTERNALSYM DPNA_INDEX_INVALID}
  114. (****************************************************************************
  115.  *
  116.  * DirectPlay8Address Address Elements
  117.  *
  118.  ****************************************************************************)
  120.   DPNA_SEPARATOR_KEYVALUE       = WideChar('=');
  121.   {$EXTERNALSYM DPNA_SEPARATOR_KEYVALUE}
  122.   DPNA_SEPARATOR_USERDATA       = WideChar('#');
  123.   {$EXTERNALSYM DPNA_SEPARATOR_USERDATA}
  124.   DPNA_SEPARATOR_COMPONENT      = WideChar(';');
  125.   {$EXTERNALSYM DPNA_SEPARATOR_COMPONENT}
  126.   DPNA_ESCAPECHAR               = WideChar('%');
  127.   {$EXTERNALSYM DPNA_ESCAPECHAR}
  129.   // Header
  130.   DPNA_HEADER                     = 'x-directplay:/';
  131.   {$EXTERNALSYM DPNA_HEADER}
  133.   // key names for address components
  134.   DPNA_KEY_NAT_RESOLVER     = 'natresolver';
  135.   {$EXTERNALSYM DPNA_KEY_NAT_RESOLVER}
  136.   DPNA_KEY_NAT_RESOLVER_USER_STRING = 'natresolveruserstring';
  137.   {$EXTERNALSYM DPNA_KEY_NAT_RESOLVER_USER_STRING}
  138.   DPNA_KEY_APPLICATION_INSTANCE = 'applicationinstance';
  139.   {$EXTERNALSYM DPNA_KEY_APPLICATION_INSTANCE}
  140.   DPNA_KEY_DEVICE           = 'device';
  141.   {$EXTERNALSYM DPNA_KEY_DEVICE}
  142.   DPNA_KEY_HOSTNAME         = 'hostname';
  143.   {$EXTERNALSYM DPNA_KEY_HOSTNAME}
  144.   DPNA_KEY_PORT             = 'port';
  145.   {$EXTERNALSYM DPNA_KEY_PORT}
  146.   DPNA_KEY_NAMEINFO         = 'nameinfo';
  147.   {$EXTERNALSYM DPNA_KEY_NAMEINFO}
  148.   DPNA_KEY_PROCESSOR        = 'processor';
  149.   {$EXTERNALSYM DPNA_KEY_PROCESSOR}
  150.   DPNA_KEY_PROGRAM          = 'program';
  151.   {$EXTERNALSYM DPNA_KEY_PROGRAM}
  152.   DPNA_KEY_PROVIDER         = 'provider';
  153.   {$EXTERNALSYM DPNA_KEY_PROVIDER}
  154.   DPNA_KEY_SCOPE            = 'scope';
  155.   {$EXTERNALSYM DPNA_KEY_SCOPE}
  156.   DPNA_KEY_TRAVERSALMODE    = 'traversalmode';
  157.   {$EXTERNALSYM DPNA_KEY_TRAVERSALMODE}
  158.   DPNA_KEY_BAUD             = 'baud';
  159.   {$EXTERNALSYM DPNA_KEY_BAUD}
  160.   DPNA_KEY_FLOWCONTROL      = 'flowcontrol';
  161.   {$EXTERNALSYM DPNA_KEY_FLOWCONTROL}
  162.   DPNA_KEY_PARITY           = 'parity';
  163.   {$EXTERNALSYM DPNA_KEY_PARITY}
  164.   DPNA_KEY_PHONENUMBER      = 'phonenumber';
  165.   {$EXTERNALSYM DPNA_KEY_PHONENUMBER}
  166.   DPNA_KEY_STOPBITS         = 'stopbits';
  167.   {$EXTERNALSYM DPNA_KEY_STOPBITS}
  169.   // values for baud rate
  170.   DPNA_BAUD_RATE_9600         = 9600;
  171.   {$EXTERNALSYM DPNA_BAUD_RATE_9600}
  172.   DPNA_BAUD_RATE_14400        = 14400;
  173.   {$EXTERNALSYM DPNA_BAUD_RATE_14400}
  174.   DPNA_BAUD_RATE_19200        = 19200;
  175.   {$EXTERNALSYM DPNA_BAUD_RATE_19200}
  176.   DPNA_BAUD_RATE_38400        = 38400;
  177.   {$EXTERNALSYM DPNA_BAUD_RATE_38400}
  178.   DPNA_BAUD_RATE_56000        = 56000;
  179.   {$EXTERNALSYM DPNA_BAUD_RATE_56000}
  180.   DPNA_BAUD_RATE_57600        = 57600;
  181.   {$EXTERNALSYM DPNA_BAUD_RATE_57600}
  182.   DPNA_BAUD_RATE_115200       = 115200;
  183.   {$EXTERNALSYM DPNA_BAUD_RATE_115200}
  185.   // values for stop bits
  186.   DPNA_STOP_BITS_ONE          = '1';
  187.   {$EXTERNALSYM DPNA_STOP_BITS_ONE}
  188.   DPNA_STOP_BITS_ONE_FIVE     = '1.5';
  189.   {$EXTERNALSYM DPNA_STOP_BITS_ONE_FIVE}
  190.   DPNA_STOP_BITS_TWO          = '2';
  191.   {$EXTERNALSYM DPNA_STOP_BITS_TWO}
  193.   // values for parity
  194.   DPNA_PARITY_NONE = 'NONE';
  195.   {$EXTERNALSYM DPNA_PARITY_NONE}
  196.   DPNA_PARITY_EVEN = 'EVEN';
  197.   {$EXTERNALSYM DPNA_PARITY_EVEN}
  198.   DPNA_PARITY_ODD = 'ODD';
  199.   {$EXTERNALSYM DPNA_PARITY_ODD}
  200.   DPNA_PARITY_MARK = 'MARK';
  201.   {$EXTERNALSYM DPNA_PARITY_MARK}
  202.   DPNA_PARITY_SPACE = 'SPACE';
  203.   {$EXTERNALSYM DPNA_PARITY_SPACE}
  205.   // values for flow control
  206.   DPNA_FLOW_CONTROL_NONE = 'NONE';
  207.   {$EXTERNALSYM DPNA_FLOW_CONTROL_NONE}
  208.   DPNA_FLOW_CONTROL_XONXOFF = 'XONXOFF';
  209.   {$EXTERNALSYM DPNA_FLOW_CONTROL_XONXOFF}
  210.   DPNA_FLOW_CONTROL_RTS = 'RTS';
  211.   {$EXTERNALSYM DPNA_FLOW_CONTROL_RTS}
  212.   DPNA_FLOW_CONTROL_DTR = 'DTR';
  213.   {$EXTERNALSYM DPNA_FLOW_CONTROL_DTR}
  214.   DPNA_FLOW_CONTROL_RTSDTR = 'RTSDTR';
  215.   {$EXTERNALSYM DPNA_FLOW_CONTROL_RTSDTR}
  216.   // values for traversal mode
  217.   DPNA_TRAVERSALMODE_NONE             = 0;
  218.   {$EXTERNALSYM DPNA_TRAVERSALMODE_NONE}
  219.   DPNA_TRAVERSALMODE_PORTREQUIRED     = 1;
  220.   {$EXTERNALSYM DPNA_TRAVERSALMODE_PORTREQUIRED}
  221.   DPNA_TRAVERSALMODE_PORTRECOMMENDED  = 2;
  222.   {$EXTERNALSYM DPNA_TRAVERSALMODE_PORTRECOMMENDED}
  223.   // Shortcut values
  224.   //
  225.   // These can be used instead of the corresponding CLSID_DP8SP_XXXX guids
  226.   //
  227.   DPNA_VALUE_TCPIPPROVIDER            = 'IP';
  228.   {$EXTERNALSYM DPNA_VALUE_TCPIPPROVIDER}
  229.   DPNA_VALUE_IPXPROVIDER              = 'IPX';
  230.   {$EXTERNALSYM DPNA_VALUE_IPXPROVIDER}
  231.   DPNA_VALUE_MODEMPROVIDER            = 'MODEM';
  232.   {$EXTERNALSYM DPNA_VALUE_MODEMPROVIDER}
  233.   DPNA_VALUE_SERIALPROVIDER           = 'SERIAL';
  234.   {$EXTERNALSYM DPNA_VALUE_SERIALPROVIDER}
  236. //// ANSI DEFINITIONS
  238.   // Header
  239.   DPNA_HEADER_A       = 'x-directplay:/';
  240.   {$EXTERNALSYM DPNA_HEADER_A}
  241.   DPNA_SEPARATOR_KEYVALUE_A = '=';
  242.   {$EXTERNALSYM DPNA_SEPARATOR_KEYVALUE_A}
  243.   DPNA_SEPARATOR_USERDATA_A = '#';
  244.   {$EXTERNALSYM DPNA_SEPARATOR_USERDATA_A}
  245.   DPNA_SEPARATOR_COMPONENT_A = ';';
  246.   {$EXTERNALSYM DPNA_SEPARATOR_COMPONENT_A}
  247.   DPNA_ESCAPECHAR_A     = '%';
  248.   {$EXTERNALSYM DPNA_ESCAPECHAR_A}
  250.   // key names for address components
  251.   DPNA_KEY_NAT_RESOLVER_A = 'natresolver';
  252.   {$EXTERNALSYM DPNA_KEY_NAT_RESOLVER_A}
  253.   DPNA_KEY_NAT_RESOLVER_USER_STRING_A = 'natresolveruserstring';
  254.   {$EXTERNALSYM DPNA_KEY_NAT_RESOLVER_USER_STRING_A}
  255.   DPNA_KEY_APPLICATION_INSTANCE_A = 'applicationinstance';
  256.   {$EXTERNALSYM DPNA_KEY_APPLICATION_INSTANCE_A}
  257.   DPNA_KEY_DEVICE_A = 'device';
  258.   {$EXTERNALSYM DPNA_KEY_DEVICE_A}
  259.   DPNA_KEY_HOSTNAME_A = 'hostname';
  260.   {$EXTERNALSYM DPNA_KEY_HOSTNAME_A}
  261.   DPNA_KEY_PORT_A = 'port';
  262.   {$EXTERNALSYM DPNA_KEY_PORT_A}
  263.   DPNA_KEY_NAMEINFO_A = 'nameinfo';
  264.   {$EXTERNALSYM DPNA_KEY_NAMEINFO_A}
  265.   DPNA_KEY_PROCESSOR_A = 'processor';
  266.   {$EXTERNALSYM DPNA_KEY_PROCESSOR_A}
  267.   DPNA_KEY_PROGRAM_A = 'program';
  268.   {$EXTERNALSYM DPNA_KEY_PROGRAM_A}
  269.   DPNA_KEY_PROVIDER_A = 'provider';
  270.   {$EXTERNALSYM DPNA_KEY_PROVIDER_A}
  271.   DPNA_KEY_SCOPE_A = 'scope';
  272.   {$EXTERNALSYM DPNA_KEY_SCOPE_A}
  273.   DPNA_KEY_TRAVERSALMODE_A = 'traversalmode';
  274.   {$EXTERNALSYM DPNA_KEY_TRAVERSALMODE_A}
  275.   DPNA_KEY_BAUD_A = 'baud';
  276.   {$EXTERNALSYM DPNA_KEY_BAUD_A}
  277.   DPNA_KEY_FLOWCONTROL_A = 'flowcontrol';
  278.   {$EXTERNALSYM DPNA_KEY_FLOWCONTROL_A}
  279.   DPNA_KEY_PARITY_A = 'parity';
  280.   {$EXTERNALSYM DPNA_KEY_PARITY_A}
  281.   DPNA_KEY_PHONENUMBER_A = 'phonenumber';
  282.   {$EXTERNALSYM DPNA_KEY_PHONENUMBER_A}
  283.   DPNA_KEY_STOPBITS_A = 'stopbits';
  284.   {$EXTERNALSYM DPNA_KEY_STOPBITS_A}
  286.   // values for stop bits
  287.   DPNA_STOP_BITS_ONE_A = '1';
  288.   {$EXTERNALSYM DPNA_STOP_BITS_ONE_A}
  289.   DPNA_STOP_BITS_ONE_FIVE_A = '1.5';
  290.   {$EXTERNALSYM DPNA_STOP_BITS_ONE_FIVE_A}
  291.   DPNA_STOP_BITS_TWO_A = '2';
  292.   {$EXTERNALSYM DPNA_STOP_BITS_TWO_A}
  294.   // values for parity
  295.   DPNA_PARITY_NONE_A = 'NONE';
  296.   {$EXTERNALSYM DPNA_PARITY_NONE_A}
  297.   DPNA_PARITY_EVEN_A = 'EVEN';
  298.   {$EXTERNALSYM DPNA_PARITY_EVEN_A}
  299.   DPNA_PARITY_ODD_A           = 'ODD';
  300.   {$EXTERNALSYM DPNA_PARITY_ODD_A}
  301.   DPNA_PARITY_MARK_A = 'MARK';
  302.   {$EXTERNALSYM DPNA_PARITY_MARK_A}
  303.   DPNA_PARITY_SPACE_A = 'SPACE';
  304.   {$EXTERNALSYM DPNA_PARITY_SPACE_A}
  306.   // values for flow control
  307.   DPNA_FLOW_CONTROL_NONE_A = 'NONE';
  308.   {$EXTERNALSYM DPNA_FLOW_CONTROL_NONE_A}
  309.   DPNA_FLOW_CONTROL_XONXOFF_A   = 'XONXOFF';
  310.   {$EXTERNALSYM DPNA_FLOW_CONTROL_XONXOFF_A}
  311.   DPNA_FLOW_CONTROL_RTS_A = 'RTS';
  312.   {$EXTERNALSYM DPNA_FLOW_CONTROL_RTS_A}
  313.   DPNA_FLOW_CONTROL_DTR_A = 'DTR';
  314.   {$EXTERNALSYM DPNA_FLOW_CONTROL_DTR_A}
  315.   DPNA_FLOW_CONTROL_RTSDTR_A = 'RTSDTR';
  316.   {$EXTERNALSYM DPNA_FLOW_CONTROL_RTSDTR_A}
  317.   // Shortcut values
  318.   //
  319.   // These can be used instead of the corresponding CLSID_DP8SP_XXXX guids
  320.   //
  321.   DPNA_VALUE_TCPIPPROVIDER_A          = 'IP';
  322.   {$EXTERNALSYM DPNA_VALUE_TCPIPPROVIDER_A}
  323.   DPNA_VALUE_IPXPROVIDER_A            = 'IPX';
  324.   {$EXTERNALSYM DPNA_VALUE_IPXPROVIDER_A}
  325.   DPNA_VALUE_MODEMPROVIDER_A          = 'MODEM';
  326.   {$EXTERNALSYM DPNA_VALUE_MODEMPROVIDER_A}
  327.   DPNA_VALUE_SERIALPROVIDER_A         = 'SERIAL';
  328.   {$EXTERNALSYM DPNA_VALUE_SERIALPROVIDER_A}
  330. type
  331. (****************************************************************************
  332.  *
  333.  * DirectPlay8Address Forward Declarations For External Types
  334.  *
  335.  ****************************************************************************)
  337.   SOCKADDR = TSockAddr;
  338.   {$EXTERNALSYM SOCKADDR}
  340. (****************************************************************************
  341.  *
  342.  * DirectPlay8Address Functions
  343.  *
  344.  ****************************************************************************)
  347. (*
  348.  *
  349.  * This function is no longer supported.  It is recommended that CoCreateInstance be used to create
  350.  * DirectPlay8 address objects.
  351.  *
  352.  * HRESULT WINAPI DirectPlay8AddressCreate( const GUID * pcIID, void **ppvInterface, IUnknown *pUnknown);
  353.  *
  354.  *)
  356. (****************************************************************************
  357.  *
  358.  * DirectPlay8Address Application Interfaces
  359.  *
  360.  ****************************************************************************)
  362.   //
  363.   // COM definition for IDirectPlay8Address Generic Interface
  364.   //
  365.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirectPlay8Address);'}
  366.   {$EXTERNALSYM IDirectPlay8Address}
  367.   IDirectPlay8Address = interface(IUnknown)
  368.     ['{83783300-4063-4c8a-9db3-82830a7feb31}']
  369.     (*** IDirectPlay8Address methods ***)
  370.     function BuildFromURLW(pwszSourceURL: PWideChar): HResult; stdcall;
  371.     function BuildFromURLA(pszSourceURL: PAnsiChar): HResult; stdcall;
  372.     function Duplicate(out ppdpaNewAddress: IDirectPlay8Address): HResult; stdcall;
  373.     function SetEqual(pdpaAddress: IDirectPlay8Address): HResult; stdcall;
  374.     function IsEqual(pdpaAddress: IDirectPlay8Address): HResult; stdcall;
  375.     function Clear: HResult; stdcall;
  376.     function GetURLW(pwszURL: PWideChar; var pdwNumChars: DWORD): HResult; stdcall;
  377.     function GetURLA(pszURL: PAnsiChar; var pdwNumChars: DWORD): HResult; stdcall;
  378.     function GetSP(out pguidSP: TGUID): HResult; stdcall;
  379.     function GetUserData(pvUserData: Pointer; var pdwBufferSize: DWORD): HResult; stdcall;
  380.     function SetSP(const pguidSP: TGUID): HResult; stdcall;
  381.     function SetUserData(pvUserData: Pointer; dwDataSize: DWORD): HResult; stdcall;
  382.     function GetNumComponents(out pdwNumComponents: DWORD): HResult; stdcall;
  383.     function GetComponentByName(pwszName: PWideChar; pvBuffer: Pointer; var pdwBufferSize: DWORD; out pdwDataType: DWORD): HResult; stdcall;
  384.     function GetComponentByIndex(dwComponentID: DWORD; pwszName: PWideChar; var pdwNameLen: DWORD; pvBuffer: Pointer; var pdwBufferSize: DWORD; out pdwDataType: DWORD): HResult; stdcall;
  385.     function AddComponent(pwszName: PWideChar; lpvData: Pointer; dwDataSize, dwDataType: DWORD): HResult; stdcall;
  386.     function GetDevice(out pguidDevice: TGUID): HResult; stdcall;
  387.     function SetDevice(const pguidDevice: TGUID): HResult; stdcall;
  388.     function BuildFromDPADDRESS(pvAddress: Pointer; dwDataSize: DWORD): HResult; stdcall;
  389.   end;
  390.   {$NODEFINE PIDirectPlay8Address}
  391.   {$HPPEMIT 'typedef _di_IDirectPlay8Address *PIDirectPlay8Address;'}
  392.   PIDirectPlay8Address = ^IDirectPlay8Address;
  394.   //
  395.   // COM definition for IDirectPlay8AddressIP Generic Interface
  396.   //
  397.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirectPlay8AddressIP);'}
  398.   {$EXTERNALSYM IDirectPlay8AddressIP}
  399.   IDirectPlay8AddressIP = interface(IUnknown)
  400.     ['{e5a0e990-2bad-430b-87da-a142cf75de58}']
  401.     (*** IDirectPlay8AddressIP methods ***)
  402.     // Constructs a IDirectPlay8 TCP Address from a SOCKADDR structure
  403.     function BuildFromSockAddr(const pSockAddr: TSockAddr): HResult; stdcall;
  405.     // Constructs a TCP Address from a string (hostname) and port
  406.     function BuildAddress(wszAddress: PWideChar; usPort: Word): HResult; stdcall;
  408.     // Builds a local TCP Address
  409.     function BuildLocalAddress(const pguidAdapter: TGUID; usPort: Word): HResult; stdcall;
  411.     // Gets the address from the structure in SOCKADR format
  412.     function GetSockAddress(psockAddress: PSockAddr; var pdwAddressBufferSize: DWORD): HResult; stdcall;
  414.     // Gets the local afddress
  415.     function GetLocalAddress(out pguidAdapter: TGUID; out pusPort: Word): HResult; stdcall;
  417.     // Gets the remote address
  418.     function GetAddress(wszAddress: PWideChar; var pdwAddressLength: DWORD; out psPort: Word): HResult; stdcall;
  419.   end;
  422. (****************************************************************************
  423.  *
  424.  * DirectPlay8Address Interface IIDs
  425.  *
  426.  ****************************************************************************)
  428. type
  429.   // {83783300-4063-4c8a-9DB3-82830A7FEB31}
  430.   IID_IDirectPlay8Address = IDirectPlay8Address;
  431.   {$EXTERNALSYM IID_IDirectPlay8Address}
  432.   // {E5A0E990-2BAD-430b-87DA-A142CF75DE58}
  433.   IID_IDirectPlay8AddressIP = IDirectPlay8AddressIP; 
  434.   {$EXTERNALSYM IID_IDirectPlay8AddressIP}
  438. (*==========================================================================;
  439.  *
  440.  *  Copyright (C) 1998-2002 Microsoft Corporation.  All Rights Reserved.
  441.  *
  442.  *  File:   DPlay8.h
  443.  *  Content: DirectPlay8 include file
  444.  *
  445.  ***************************************************************************)
  447. const
  448. (****************************************************************************
  449.  *
  450.  * DirectPlay8 CLSIDs
  451.  *
  452.  ****************************************************************************)
  454.   // {743F1DC6-5ABA-429f-8BDF-C54D03253DC2}
  455.   CLSID_DirectPlay8Client: TGUID = '{743f1dc6-5aba-429f-8bdf-c54d03253dc2}';
  456.   {$EXTERNALSYM CLSID_DirectPlay8Client}
  458.   // {DA825E1B-6830-43d7-835D-0B5AD82956A2}
  459.   CLSID_DirectPlay8Server: TGUID = '{da825e1b-6830-43d7-835d-0b5ad82956a2}';
  460.   {$EXTERNALSYM CLSID_DirectPlay8Server}
  462.   // {286F484D-375E-4458-A272-B138E2F80A6A}
  463.   CLSID_DirectPlay8Peer: TGUID = '{286f484d-375e-4458-a272-b138e2f80a6a}';
  464.   {$EXTERNALSYM CLSID_DirectPlay8Peer}
  466.   // CLSIDs added for DirectX 9
  468.   // {FC47060E-6153-4b34-B975-8E4121EB7F3C}
  469.   CLSID_DirectPlay8ThreadPool: TGUID = '{fc47060e-6153-4b34-b975-8e4121eb7f3c}';
  470.   {$EXTERNALSYM CLSID_DirectPlay8ThreadPool}
  472.   // {E4C1D9A2-CBF7-48bd-9A69-34A55E0D8941}
  473.   CLSID_DirectPlay8NATResolver: TGUID = '{e4c1d9a2-cbf7-48bd-9a69-34a55e0d8941}';
  474.   {$EXTERNALSYM CLSID_DirectPlay8NATResolver}
  476. (****************************************************************************
  477.  *
  478.  * DirectPlay8 Service Provider GUIDs
  479.  *
  480.  ****************************************************************************)
  482.   // {53934290-628D-11D2-AE0F-006097B01411}
  483.   CLSID_DP8SP_IPX: TGUID = '{53934290-628d-11d2-ae0f-006097b01411}';
  484.   {$EXTERNALSYM CLSID_DP8SP_IPX}
  486.   // {6D4A3650-628D-11D2-AE0F-006097B01411}
  487.   CLSID_DP8SP_MODEM: TGUID = '{6d4a3650-628d-11d2-ae0f-006097b01411}';
  488.   {$EXTERNALSYM CLSID_DP8SP_MODEM}
  490.   // {743B5D60-628D-11D2-AE0F-006097B01411}
  491.   CLSID_DP8SP_SERIAL: TGUID = '{743b5d60-628d-11d2-ae0f-006097b01411}';
  492.   {$EXTERNALSYM CLSID_DP8SP_SERIAL}
  494.   // {EBFE7BA0-628D-11D2-AE0F-006097B01411}
  495.   CLSID_DP8SP_TCPIP: TGUID = '{ebfe7ba0-628d-11d2-ae0f-006097b01411}';
  496.   {$EXTERNALSYM CLSID_DP8SP_TCPIP}
  499.   // Service providers added for DirectX 9
  502.   // {995513AF-3027-4b9a-956E-C772B3F78006}
  503.   CLSID_DP8SP_BLUETOOTH: TGUID = '{995513af-3027-4b9a-956e-c772b3f78006}';
  504.   {$EXTERNALSYM CLSID_DP8SP_BLUETOOTH}
  507. type
  508. (****************************************************************************
  509.  *
  510.  * DirectPlay8 Callback Functions
  511.  *
  512.  ****************************************************************************)
  514.   //
  515.   // Callback Function Type Definition
  516.   //
  517.   TFNDPNMessageHandler = function (pvUserContext: Pointer; dwMessageType: DWORD; pMessage: Pointer): HRESULT; stdcall;
  518.   {$NODEFINE TFNDPNMessageHandler}
  519.   {$HPPEMIT 'typedef PFNDPNMESSAGEHANDLER TFNDPNMessageHandler;'}
  521. (****************************************************************************
  522.  *
  523.  * DirectPlay8 Datatypes (Non-Structure / Non-Message)
  524.  *
  525.  ****************************************************************************)
  527.   //
  528.   // Player IDs.  Used to uniquely identify a player in a session
  529.   //
  530.   PDPNID = ^DPNID;
  531.   {$EXTERNALSYM PDPNID}
  532.   DPNID = {$IFDEF TYPE_IDENTITY}type {$ENDIF}DWORD;
  533.   {$EXTERNALSYM DPNID}
  534.   TDPNID = DPNID;
  536.   //
  537.   // Used as identifiers for operations
  538.   //
  539.   PDPNHandle = ^TDPNHandle;
  540.   DPNHANDLE = {$IFDEF TYPE_IDENTITY}type {$ENDIF}DWORD;
  541.   {$EXTERNALSYM DPNHANDLE}
  542.   TDPNHandle = DPNHANDLE;
  544. (****************************************************************************
  545.  *
  546.  * DirectPlay8 Message Identifiers
  547.  *
  548.  ****************************************************************************)
  550. const
  551.   DPN_MSGID_OFFSET                    = $FFFF0000;
  552.   {$EXTERNALSYM DPN_MSGID_OFFSET}
  553.   DPN_MSGID_ADD_PLAYER_TO_GROUP       = (DPN_MSGID_OFFSET or $0001);
  554.   {$EXTERNALSYM DPN_MSGID_ADD_PLAYER_TO_GROUP}
  555.   DPN_MSGID_APPLICATION_DESC          = (DPN_MSGID_OFFSET or $0002);
  556.   {$EXTERNALSYM DPN_MSGID_APPLICATION_DESC}
  557.   DPN_MSGID_ASYNC_OP_COMPLETE         = (DPN_MSGID_OFFSET or $0003);
  558.   {$EXTERNALSYM DPN_MSGID_ASYNC_OP_COMPLETE}
  559.   DPN_MSGID_CLIENT_INFO               = (DPN_MSGID_OFFSET or $0004);
  560.   {$EXTERNALSYM DPN_MSGID_CLIENT_INFO}
  561.   DPN_MSGID_CONNECT_COMPLETE          = (DPN_MSGID_OFFSET or $0005);
  562.   {$EXTERNALSYM DPN_MSGID_CONNECT_COMPLETE}
  563.   DPN_MSGID_CREATE_GROUP              = (DPN_MSGID_OFFSET or $0006);
  564.   {$EXTERNALSYM DPN_MSGID_CREATE_GROUP}
  565.   DPN_MSGID_CREATE_PLAYER             = (DPN_MSGID_OFFSET or $0007);
  566.   {$EXTERNALSYM DPN_MSGID_CREATE_PLAYER}
  567.   DPN_MSGID_DESTROY_GROUP             = (DPN_MSGID_OFFSET or $0008);
  568.   {$EXTERNALSYM DPN_MSGID_DESTROY_GROUP}
  569.   DPN_MSGID_DESTROY_PLAYER            = (DPN_MSGID_OFFSET or $0009);
  570.   {$EXTERNALSYM DPN_MSGID_DESTROY_PLAYER}
  571.   DPN_MSGID_ENUM_HOSTS_QUERY          = (DPN_MSGID_OFFSET or $000a);
  572.   {$EXTERNALSYM DPN_MSGID_ENUM_HOSTS_QUERY}
  573.   DPN_MSGID_ENUM_HOSTS_RESPONSE       = (DPN_MSGID_OFFSET or $000b);
  574.   {$EXTERNALSYM DPN_MSGID_ENUM_HOSTS_RESPONSE}
  575.   DPN_MSGID_GROUP_INFO                = (DPN_MSGID_OFFSET or $000c);
  576.   {$EXTERNALSYM DPN_MSGID_GROUP_INFO}
  577.   DPN_MSGID_HOST_MIGRATE              = (DPN_MSGID_OFFSET or $000d);
  578.   {$EXTERNALSYM DPN_MSGID_HOST_MIGRATE}
  579.   DPN_MSGID_INDICATE_CONNECT          = (DPN_MSGID_OFFSET or $000e);
  580.   {$EXTERNALSYM DPN_MSGID_INDICATE_CONNECT}
  581.   DPN_MSGID_INDICATED_CONNECT_ABORTED = (DPN_MSGID_OFFSET or $000f);
  582.   {$EXTERNALSYM DPN_MSGID_INDICATED_CONNECT_ABORTED}
  583.   DPN_MSGID_PEER_INFO                 = (DPN_MSGID_OFFSET or $0010);
  584.   {$EXTERNALSYM DPN_MSGID_PEER_INFO}
  585.   DPN_MSGID_RECEIVE                   = (DPN_MSGID_OFFSET or $0011);
  586.   {$EXTERNALSYM DPN_MSGID_RECEIVE}
  587.   DPN_MSGID_REMOVE_PLAYER_FROM_GROUP  = (DPN_MSGID_OFFSET or $0012);
  588.   {$EXTERNALSYM DPN_MSGID_REMOVE_PLAYER_FROM_GROUP}
  589.   DPN_MSGID_RETURN_BUFFER             = (DPN_MSGID_OFFSET or $0013);
  590.   {$EXTERNALSYM DPN_MSGID_RETURN_BUFFER}
  591.   DPN_MSGID_SEND_COMPLETE             = (DPN_MSGID_OFFSET or $0014);
  592.   {$EXTERNALSYM DPN_MSGID_SEND_COMPLETE}
  593.   DPN_MSGID_SERVER_INFO               = (DPN_MSGID_OFFSET or $0015);
  594.   {$EXTERNALSYM DPN_MSGID_SERVER_INFO}
  595.   DPN_MSGID_TERMINATE_SESSION         = (DPN_MSGID_OFFSET or $0016);
  596.   {$EXTERNALSYM DPN_MSGID_TERMINATE_SESSION}
  598.   // Messages added for DirectX 9
  599.   DPN_MSGID_CREATE_THREAD             = (DPN_MSGID_OFFSET or $0017);
  600.   {$EXTERNALSYM DPN_MSGID_CREATE_THREAD}
  601.   DPN_MSGID_DESTROY_THREAD            = (DPN_MSGID_OFFSET or $0018);
  602.   {$EXTERNALSYM DPN_MSGID_DESTROY_THREAD}
  603.   DPN_MSGID_NAT_RESOLVER_QUERY        = (DPN_MSGID_OFFSET or $0101);
  604.   {$EXTERNALSYM DPN_MSGID_NAT_RESOLVER_QUERY}
  606. (****************************************************************************
  607.  *
  608.  * DirectPlay8 Constants
  609.  *
  610.  ****************************************************************************)
  612.   DPNID_ALL_PLAYERS_GROUP                 = 0;
  613.   {$EXTERNALSYM DPNID_ALL_PLAYERS_GROUP}
  615.   //
  616.   // DESTROY_GROUP reasons
  617.   //
  618.   DPNDESTROYGROUPREASON_NORMAL            = $0001;
  619.   {$EXTERNALSYM DPNDESTROYGROUPREASON_NORMAL}
  620.   DPNDESTROYGROUPREASON_AUTODESTRUCTED    = $0002;
  621.   {$EXTERNALSYM DPNDESTROYGROUPREASON_AUTODESTRUCTED}
  622.   DPNDESTROYGROUPREASON_SESSIONTERMINATED = $0003;
  623.   {$EXTERNALSYM DPNDESTROYGROUPREASON_SESSIONTERMINATED}
  625.   //
  626.   // DESTROY_PLAYER reasons
  627.   //
  628.   DPNDESTROYPLAYERREASON_NORMAL              = $0001;
  629.   {$EXTERNALSYM DPNDESTROYPLAYERREASON_NORMAL}
  630.   DPNDESTROYPLAYERREASON_CONNECTIONLOST      = $0002;
  631.   {$EXTERNALSYM DPNDESTROYPLAYERREASON_CONNECTIONLOST}
  632.   DPNDESTROYPLAYERREASON_SESSIONTERMINATED   = $0003;
  633.   {$EXTERNALSYM DPNDESTROYPLAYERREASON_SESSIONTERMINATED}
  634.   DPNDESTROYPLAYERREASON_HOSTDESTROYEDPLAYER = $0004;
  635.   {$EXTERNALSYM DPNDESTROYPLAYERREASON_HOSTDESTROYEDPLAYER}
  638.   DPN_MAX_APPDESC_RESERVEDDATA_SIZE          = 64;
  639.   {$EXTERNALSYM DPN_MAX_APPDESC_RESERVEDDATA_SIZE}
  642. (****************************************************************************
  643.  *
  644.  * DirectPlay8 Flags
  645.  *
  646.  ****************************************************************************)
  648.   //
  649.   // Asynchronous operation flags (For Async Ops)
  650.   //
  651.   DPNOP_SYNC                   = $80000000;
  652.   {$EXTERNALSYM DPNOP_SYNC}
  654.   //
  655.   // Add player to group flags (For AddPlayerToGroup)
  656.   //
  657.   DPNADDPLAYERTOGROUP_SYNC     = DPNOP_SYNC;
  658.   {$EXTERNALSYM DPNADDPLAYERTOGROUP_SYNC}
  660.   //
  661.   // Cancel flags
  662.   //
  663.   DPNCANCEL_CONNECT           = $0001;
  664.   {$EXTERNALSYM DPNCANCEL_CONNECT}
  665.   DPNCANCEL_ENUM              = $0002;
  666.   {$EXTERNALSYM DPNCANCEL_ENUM}
  667.   DPNCANCEL_SEND              = $0004;
  668.   {$EXTERNALSYM DPNCANCEL_SEND}
  669.   DPNCANCEL_ALL_OPERATIONS    = $8000;
  670.   {$EXTERNALSYM DPNCANCEL_ALL_OPERATIONS}
  672.   // Flags added for DirectX 9
  673.   DPNCANCEL_PLAYER_SENDS = $80000000;
  674.   {$EXTERNALSYM DPNCANCEL_PLAYER_SENDS}
  675.   DPNCANCEL_PLAYER_SENDS_PRIORITY_HIGH = (DPNCANCEL_PLAYER_SENDS or $00010000);
  676.   {$EXTERNALSYM DPNCANCEL_PLAYER_SENDS_PRIORITY_HIGH}
  677.   DPNCANCEL_PLAYER_SENDS_PRIORITY_NORMAL = (DPNCANCEL_PLAYER_SENDS or $00020000);
  678.   {$EXTERNALSYM DPNCANCEL_PLAYER_SENDS_PRIORITY_NORMAL}
  679.   DPNCANCEL_PLAYER_SENDS_PRIORITY_LOW = (DPNCANCEL_PLAYER_SENDS or $00040000);
  680.   {$EXTERNALSYM DPNCANCEL_PLAYER_SENDS_PRIORITY_LOW}
  682.   //
  683.   // Close flags (for Close, added for DirectX 9)
  684.   //
  685.   DPNCLOSE_IMMEDIATE = $00000001;
  686.   {$EXTERNALSYM DPNCLOSE_IMMEDIATE}
  688.   //
  689.   // Connect flags (For Connect)
  690.   //
  691.   DPNCONNECT_SYNC              = DPNOP_SYNC;
  692.   {$EXTERNALSYM DPNCONNECT_SYNC}
  693.   DPNCONNECT_OKTOQUERYFORADDRESSING = $0001;
  694.   {$EXTERNALSYM DPNCONNECT_OKTOQUERYFORADDRESSING}
  696.   //
  697.   // Create group flags (For CreateGroup)
  698.   //
  699.   DPNCREATEGROUP_SYNC          = DPNOP_SYNC;
  700.   {$EXTERNALSYM DPNCREATEGROUP_SYNC}
  702.   //
  703.   // Destroy group flags (For DestroyGroup)
  704.   //
  705.   DPNDESTROYGROUP_SYNC         = DPNOP_SYNC;
  706.   {$EXTERNALSYM DPNDESTROYGROUP_SYNC}
  708.   //
  709.   // Enumerate clients and groups flags (For EnumPlayersAndGroups)
  710.   //
  711.   DPNENUM_PLAYERS              = $0001;
  712.   {$EXTERNALSYM DPNENUM_PLAYERS}
  713.   DPNENUM_GROUPS               = $0010;
  714.   {$EXTERNALSYM DPNENUM_GROUPS}
  716.   //
  717.   // Enum hosts flags (For EnumHosts)
  718.   //
  719.   DPNENUMHOSTS_SYNC                   = DPNOP_SYNC;
  720.   {$EXTERNALSYM DPNENUMHOSTS_SYNC}
  721.   DPNENUMHOSTS_OKTOQUERYFORADDRESSING = $0001;
  722.   {$EXTERNALSYM DPNENUMHOSTS_OKTOQUERYFORADDRESSING}
  723.   DPNENUMHOSTS_NOBROADCASTFALLBACK    = $0002;
  724.   {$EXTERNALSYM DPNENUMHOSTS_NOBROADCASTFALLBACK}
  726.   //
  727.   // Enum service provider flags (For EnumSP)
  728.   //
  729.   DPNENUMSERVICEPROVIDERS_ALL         = $0001;
  730.   {$EXTERNALSYM DPNENUMSERVICEPROVIDERS_ALL}
  732.   //
  733.   // GetLocalHostAddresses flags (added for DirectX 9)
  734.   //
  735.   DPNGETLOCALHOSTADDRESSES_COMBINED   = $0001;
  736.   {$EXTERNALSYM DPNGETLOCALHOSTADDRESSES_COMBINED}
  738.   //
  739.   // Get send queue info flags (For GetSendQueueInfo)
  740.   //
  741.   DPNGETSENDQUEUEINFO_PRIORITY_NORMAL = $0001;
  742.   {$EXTERNALSYM DPNGETSENDQUEUEINFO_PRIORITY_NORMAL}
  743.   DPNGETSENDQUEUEINFO_PRIORITY_HIGH   = $0002;
  744.   {$EXTERNALSYM DPNGETSENDQUEUEINFO_PRIORITY_HIGH}
  745.   DPNGETSENDQUEUEINFO_PRIORITY_LOW    = $0004;
  746.   {$EXTERNALSYM DPNGETSENDQUEUEINFO_PRIORITY_LOW}
  748.   //
  749.   // Group information flags (For Group Info)
  750.   //
  751.   DPNGROUP_AUTODESTRUCT               = $0001;
  752.   {$EXTERNALSYM DPNGROUP_AUTODESTRUCT}
  754.   //
  755.   // Host flags (For Host)
  756.   //
  757.   DPNHOST_OKTOQUERYFORADDRESSING      = $0001;
  758.   {$EXTERNALSYM DPNHOST_OKTOQUERYFORADDRESSING}
  760.   //
  761.   // Set info
  762.   //
  763.   DPNINFO_NAME                        = $0001;
  764.   {$EXTERNALSYM DPNINFO_NAME}
  765.   DPNINFO_DATA                        = $0002;
  766.   {$EXTERNALSYM DPNINFO_DATA}
  768.   //
  769.   // Initialize flags (For Initialize)
  770.   //
  771.   DPNINITIALIZE_DISABLEPARAMVAL       = $0001;
  772.   {$EXTERNALSYM DPNINITIALIZE_DISABLEPARAMVAL}
  773.   // Flags added for DirectX 9
  774.   DPNINITIALIZE_HINT_LANSESSION       = $0002;
  775.   {$EXTERNALSYM DPNINITIALIZE_HINT_LANSESSION}
  776.   DPNINITIALIZE_DISABLELINKTUNING     = $0004;
  777.   {$EXTERNALSYM DPNINITIALIZE_DISABLELINKTUNING}
  780.   //
  781.   // Register Lobby flags
  782.   //
  783.   DPNLOBBY_REGISTER                   = $0001;
  784.   {$EXTERNALSYM DPNLOBBY_REGISTER}
  785.   DPNLOBBY_UNREGISTER                 = $0002;
  786.   {$EXTERNALSYM DPNLOBBY_UNREGISTER}
  788.   //
  789.   // Player information flags (For Player Info / Player Messages)
  790.   //
  791.   DPNPLAYER_LOCAL       = $0002;
  792.   {$EXTERNALSYM DPNPLAYER_LOCAL}
  793.   DPNPLAYER_HOST        = $0004;
  794.   {$EXTERNALSYM DPNPLAYER_HOST}
  796.   //
  797.   // Receive indication flags (added for DirectX 9)
  798.   //
  799.   DPNRECEIVE_GUARANTEED       = $0001;
  800.   {$EXTERNALSYM DPNRECEIVE_GUARANTEED}
  801.   DPNRECEIVE_COALESCED        = $0002;
  802.   {$EXTERNALSYM DPNRECEIVE_COALESCED}
  804.   //
  805.   // Remove player from group flags (For RemovePlayerFromGroup)
  806.   //
  807.   DPNREMOVEPLAYERFROMGROUP_SYN = DPNOP_SYNC;
  808.   {$EXTERNALSYM DPNREMOVEPLAYERFROMGROUP_SYN}
  810.   //
  811.   // Send flags (For Send/SendTo)
  812.   //
  813.   DPNSEND_SYNC                = DPNOP_SYNC;
  814.   {$EXTERNALSYM DPNSEND_SYNC}
  815.   DPNSEND_NOCOPY              = $0001;
  816.   {$EXTERNALSYM DPNSEND_NOCOPY}
  817.   DPNSEND_NOCOMPLETE          = $0002;
  818.   {$EXTERNALSYM DPNSEND_NOCOMPLETE}
  819.   DPNSEND_COMPLETEONPROCESS   = $0004;
  820.   {$EXTERNALSYM DPNSEND_COMPLETEONPROCESS}
  821.   DPNSEND_GUARANTEED          = $0008;
  822.   {$EXTERNALSYM DPNSEND_GUARANTEED}
  823.   DPNSEND_NONSEQUENTIAL       = $0010;
  824.   {$EXTERNALSYM DPNSEND_NONSEQUENTIAL}
  825.   DPNSEND_NOLOOPBACK          = $0020;
  826.   {$EXTERNALSYM DPNSEND_NOLOOPBACK}
  827.   DPNSEND_PRIORITY_LOW        = $0040;
  828.   {$EXTERNALSYM DPNSEND_PRIORITY_LOW}
  829.   DPNSEND_PRIORITY_HIGH       = $0080;
  830.   {$EXTERNALSYM DPNSEND_PRIORITY_HIGH}
  831.   // Flag added for DirectX 9
  832.   DPNSEND_COALESCE = $0100;
  833.   {$EXTERNALSYM DPNSEND_COALESCE}
  835.   //
  836.   // Send complete indication flags (added for DirectX 9)
  837.   //
  838.   DPNSENDCOMPLETE_GUARANTEED = $0001;
  839.   {$EXTERNALSYM DPNSENDCOMPLETE_GUARANTEED}
  840.   DPNSENDCOMPLETE_COALESCED = $0002;
  841.   {$EXTERNALSYM DPNSENDCOMPLETE_COALESCED}
  843.   //
  844.   // Session Flags (for DPN_APPLICATION_DESC)
  845.   //
  846.   DPNSESSION_CLIENT_SERVER    = $0001;
  847.   {$EXTERNALSYM DPNSESSION_CLIENT_SERVER}
  848.   DPNSESSION_MIGRATE_HOST     = $0004;
  849.   {$EXTERNALSYM DPNSESSION_MIGRATE_HOST}
  850.   DPNSESSION_NODPNSVR         = $0040;
  851.   {$EXTERNALSYM DPNSESSION_NODPNSVR}
  852.   DPNSESSION_REQUIREPASSWORD  = $0080;
  853.   {$EXTERNALSYM DPNSESSION_REQUIREPASSWORD}
  854.   // Flag added for DirectX 9
  855.   DPNSESSION_NOENUMS = $0100;
  856.   {$EXTERNALSYM DPNSESSION_NOENUMS}
  857.   DPNSESSION_FAST_SIGNED = $0200;
  858.   {$EXTERNALSYM DPNSESSION_FAST_SIGNED}
  859.   DPNSESSION_FULL_SIGNED = $0400;
  860.   {$EXTERNALSYM DPNSESSION_FULL_SIGNED}
  862.   //
  863.   // Set client info flags (For SetClientInfo)
  864.   //
  865.   DPNSETCLIENTINFO_SYNC       = DPNOP_SYNC;
  866.   {$EXTERNALSYM DPNSETCLIENTINFO_SYNC}
  868.   //
  869.   // Set group info flags (For SetGroupInfo)
  870.   //
  871.   DPNSETGROUPINFO_SYNC        = DPNOP_SYNC;
  872.   {$EXTERNALSYM DPNSETGROUPINFO_SYNC}
  874.   //
  875.   // Set peer info flags (For SetPeerInfo)
  876.   //
  877.   DPNSETPEERINFO_SYNC         = DPNOP_SYNC;
  878.   {$EXTERNALSYM DPNSETPEERINFO_SYNC}
  880.   //
  881.   // Set server info flags (For SetServerInfo)
  882.   //
  883.   DPNSETSERVERINFO_SYNC       = DPNOP_SYNC;
  884.   {$EXTERNALSYM DPNSETSERVERINFO_SYNC}
  886.   //
  887.   // SP capabilities flags
  888.   //
  889.   DPNSPCAPS_SUPPORTSDPNSVR      = $0001;
  890.   {$EXTERNALSYM DPNSPCAPS_SUPPORTSDPNSVR}
  891.   DPNSPCAPS_SUPPORTSDPNSRV      = DPNSPCAPS_SUPPORTSDPNSVR;
  892.   {$EXTERNALSYM DPNSPCAPS_SUPPORTSDPNSRV}
  893.   DPNSPCAPS_SUPPORTSBROADCAST   = $0002;
  894.   {$EXTERNALSYM DPNSPCAPS_SUPPORTSBROADCAST}
  895.   DPNSPCAPS_SUPPORTSALLADAPTERS = $0004;
  896.   {$EXTERNALSYM DPNSPCAPS_SUPPORTSALLADAPTERS}
  897.   // Flags added for DirectX 9
  898.   DPNSPCAPS_SUPPORTSTHREADPOOL = $0008;
  899.   {$EXTERNALSYM DPNSPCAPS_SUPPORTSTHREADPOOL}
  900.   DPNSPCAPS_NETWORKSIMULATOR = $0010;
  901.   {$EXTERNALSYM DPNSPCAPS_NETWORKSIMULATOR}
  903.   //
  904.   // SP information flags (added for DirectX 9)
  905.   //
  906.   DPNSPINFO_NETWORKSIMULATORDEVICE = $0001;
  907.   {$EXTERNALSYM DPNSPINFO_NETWORKSIMULATORDEVICE}
  909. (****************************************************************************
  910.  *
  911.  * DirectPlay8 Structures (Non-Message)
  912.  *
  913.  ****************************************************************************)
  915. type
  916.   //
  917.   // Application description
  918.   //
  920.   PDPNApplicationDesc = ^TDPNApplicationDesc;
  921.   _DPN_APPLICATION_DESC = packed record
  922.     dwSize: DWORD;                    // Size of this structure
  923.     dwFlags: DWORD;                   // Flags (DPNSESSION_...)
  924.     guidInstance: TGUID;              // Instance GUID
  925.     guidApplication: TGUID;           // Application GUID
  926.     dwMaxPlayers: DWORD;              // Maximum # of players allowed (0=no limit)
  927.     dwCurrentPlayers: DWORD;          // Current # of players allowed
  928.     pwszSessionName: PWideChar;       // Name of the session
  929.     pwszPassword: PWideChar;          // Password for the session
  930.     pvReservedData: Pointer;
  931.     dwReservedDataSize: DWORD;
  932.     pvApplicationReservedData: Pointer;
  933.     dwApplicationReservedDataSize: DWORD;
  934.   end;
  935.   {$EXTERNALSYM _DPN_APPLICATION_DESC}
  936.   DPN_APPLICATION_DESC = _DPN_APPLICATION_DESC;
  937.   {$EXTERNALSYM DPN_APPLICATION_DESC}
  938.   TDPNApplicationDesc = _DPN_APPLICATION_DESC;
  940.   //
  941.   // Generic Buffer Description
  942.   //
  943.   PBufferDesc = ^TBufferDesc;
  944.   _BUFFERDESC = packed record
  945.     wBufferSize:DWORD;
  946.     pBufferData: PByte;
  947.   end;
  948.   {$EXTERNALSYM _BUFFERDESC}
  949.   BUFFERDESC = _BUFFERDESC;
  950.   {$EXTERNALSYM BUFFERDESC}
  951.   TBufferDesc = _BUFFERDESC;
  953.   PDPNBufferDesc = ^TDPNBufferDesc;
  954.   DPN_BUFFER_DESC = _BUFFERDESC;
  955.   {$EXTERNALSYM DPN_BUFFER_DESC}
  956.   TDPNBufferDesc = DPN_BUFFER_DESC;
  958.   //
  959.   // DirectPlay8 capabilities
  960.   //
  961.   PDPNCaps = ^TDPNCaps;
  962.   _DPN_CAPS = packed record
  963.     dwSize: DWORD; // Size of this structure
  964.     dwFlags: DWORD; // Flags
  965.     dwConnectTimeout: DWORD; // ms before a connect request times out
  966.     dwConnectRetries: DWORD; // # of times to attempt the connection
  967.     dwTimeoutUntilKeepAlive: DWORD; // ms of inactivity before a keep alive is sent
  968.   end;
  969.   {$EXTERNALSYM _DPN_CAPS}
  970.   DPN_CAPS = _DPN_CAPS;
  971.   {$EXTERNALSYM DPN_CAPS}
  972.   TDPNCaps = _DPN_CAPS;
  974.   //
  975.   // Extended capabilities structures (added for DirectX 9)
  976.   //
  977.   PDPNCapsEx = ^TDPNCapsEx;
  978.   _DPN_CAPS_EX = packed record
  979.     dwSize: DWORD; // Size of this structure
  980.     dwFlags: DWORD; // Flags
  981.     dwConnectTimeout: DWORD; // ms before a connect request times out
  982.     dwConnectRetries: DWORD; // # of times to attempt the connection
  983.     dwTimeoutUntilKeepAlive: DWORD; // ms of inactivity before a keep alive is sent
  984.     dwMaxRecvMsgSize: DWORD; // maximum size in bytes of message that can be received
  985.     dwNumSendRetries: DWORD; // maximum number of send retries before link is considered dead
  986.     dwMaxSendRetryInterval: DWORD; // maximum period in msec between send retries
  987.     dwDropThresholdRate: DWORD; // percentage of dropped packets before throttling
  988.     dwThrottleRate: DWORD; // percentage amount to reduce send window when throttling
  989.     dwNumHardDisconnectSends: DWORD; // number of hard disconnect frames to send when close immediate flag is specified
  990.     dwMaxHardDisconnectPeriod: DWORD; // maximum period between hard disconnect sends
  991.   end;
  992.   {$EXTERNALSYM _DPN_CAPS_EX}
  993.   DPN_CAPS_EX = _DPN_CAPS_EX;
  994.   {$EXTERNALSYM DPN_CAPS_EX}
  995.   TDPNCapsEx = _DPN_CAPS_EX;
  997.   // Connection Statistics information
  999.   PDPNConnectionInfo = ^TDPNConnectionInfo;
  1000.   _DPN_CONNECTION_INFO = packed record
  1001.     dwSize: DWORD;
  1002.     dwRoundTripLatencyMS: DWORD;
  1003.     dwThroughputBPS: DWORD;
  1004.     dwPeakThroughputBPS: DWORD;
  1006.     dwBytesSentGuaranteed: DWORD;
  1007.     dwPacketsSentGuaranteed: DWORD;
  1008.     dwBytesSentNonGuaranteed: DWORD;
  1009.     dwPacketsSentNonGuaranteed: DWORD;
  1011.     dwBytesRetried: DWORD;    // Guaranteed only
  1012.     dwPacketsRetried: DWORD;  // Guaranteed only
  1013.     dwBytesDropped: DWORD;    // Non Guaranteed only
  1014.     dwPacketsDropped: DWORD;  // Non Guaranteed only
  1016.     dwMessagesTransmittedHighPriority: DWORD;
  1017.     dwMessagesTimedOutHighPriority: DWORD;
  1018.     dwMessagesTransmittedNormalPriority: DWORD;
  1019.     dwMessagesTimedOutNormalPriority: DWORD;
  1020.     dwMessagesTransmittedLowPriority: DWORD;
  1021.     dwMessagesTimedOutLowPriority: DWORD;
  1023.     dwBytesReceivedGuaranteed: DWORD;
  1024.     dwPacketsReceivedGuaranteed: DWORD;
  1025.     dwBytesReceivedNonGuaranteed: DWORD;
  1026.     dwPacketsReceivedNonGuaranteed: DWORD;
  1027.     dwMessagesReceived: DWORD;
  1028.   end;
  1029.   {$EXTERNALSYM _DPN_CONNECTION_INFO}
  1030.   DPN_CONNECTION_INFO = _DPN_CONNECTION_INFO;
  1031.   {$EXTERNALSYM DPN_CONNECTION_INFO}
  1032.   TDPNConnectionInfo = _DPN_CONNECTION_INFO;
  1035.   //
  1036.   // Group information strucutre
  1037.   //
  1038.   PDPNGroupInfo = ^TDPNGroupInfo;
  1039.   _DPN_GROUP_INFO = packed record
  1040.     dwSize: DWORD;          // size of this structure
  1041.     dwInfoFlags: DWORD;     // information contained
  1042.     pwszName: PWideChar;    // Unicode Name
  1043.     pvData: Pointer;        // data block
  1044.     dwDataSize: DWORD;      // size in BYTES of data block
  1045.     dwGroupFlags: DWORD;    // group flags (DPNGROUP_...)
  1046.   end;
  1047.   {$EXTERNALSYM _DPN_GROUP_INFO}
  1048.   DPN_GROUP_INFO = _DPN_GROUP_INFO;
  1049.   {$EXTERNALSYM DPN_GROUP_INFO}
  1050.   TDPNGroupInfo = _DPN_GROUP_INFO;
  1052.   //
  1053.   // Player information structure
  1054.   //
  1055.   PDPNPlayerInfo = ^TDPNPlayerInfo;
  1056.   _DPN_PLAYER_INFO = packed record
  1057.     dwSize: DWORD;          // size of this structure
  1058.     dwInfoFlags: DWORD;     // information contained
  1059.     pwszName: PWideChar;    // Unicode Name
  1060.     pvData: Pointer;        // data block
  1061.     dwDataSize: DWORD;      // size in BYTES of data block
  1062.     dwPlayerFlags: DWORD;   // player flags (DPNPLAYER_...)
  1063.   end;
  1064.   {$EXTERNALSYM _DPN_PLAYER_INFO}
  1065.   DPN_PLAYER_INFO = _DPN_PLAYER_INFO;
  1066.   {$EXTERNALSYM DPN_PLAYER_INFO}
  1067.   TDPNPlayerInfo = _DPN_PLAYER_INFO;
  1069.   PDPNSecurityCredentials = ^TDPNSecurityCredentials;
  1070.   _DPN_SECURITY_CREDENTIALS = record
  1071.   end;
  1072.   {$EXTERNALSYM _DPN_SECURITY_CREDENTIALS}
  1073.   DPN_SECURITY_CREDENTIALS = _DPN_SECURITY_CREDENTIALS;
  1074.   {$EXTERNALSYM DPN_SECURITY_CREDENTIALS}
  1075.   TDPNSecurityCredentials = _DPN_SECURITY_CREDENTIALS;
  1077.   PDPNSecurityDesc = ^TDPNSecurityDesc;
  1078.   _DPN_SECURITY_DESC = record
  1079.   end;
  1080.   {$EXTERNALSYM _DPN_SECURITY_DESC}
  1081.   DPN_SECURITY_DESC = _DPN_SECURITY_DESC;
  1082.   {$EXTERNALSYM DPN_SECURITY_DESC}
  1083.   TDPNSecurityDesc = _DPN_SECURITY_DESC;
  1085.   //
  1086.   // Service provider & adapter enumeration structure
  1087.   //
  1088.   PDPNServiceProviderInfo = ^TDPNServiceProviderInfo;
  1089.   _DPN_SERVICE_PROVIDER_INFO = packed record
  1090.      dwFlags: DWORD;
  1091.      guid: TGUID;            // SP Guid
  1092.      pwszName: PWideChar;    // Friendly Name
  1093.      pvReserved: Pointer;
  1094.      dwReserved: DWORD;
  1095.   end;
  1096.   {$EXTERNALSYM _DPN_SERVICE_PROVIDER_INFO}
  1097.   DPN_SERVICE_PROVIDER_INFO = _DPN_SERVICE_PROVIDER_INFO;
  1098.   {$EXTERNALSYM DPN_SERVICE_PROVIDER_INFO}
  1099.   TDPNServiceProviderInfo = _DPN_SERVICE_PROVIDER_INFO;
  1101.   //
  1102.   // Service provider caps structure
  1103.   //
  1104.   PDPNSpCaps = ^TDPNSpCaps;
  1105.   _DPN_SP_CAPS = packed record
  1106.     dwSize: DWORD;                   // Size of this structure
  1107.     dwFlags: DWORD;                  // Flags ((DPNSPCAPS_...)
  1108.     dwNumThreads: DWORD;             // # of worker threads to use
  1109.     dwDefaultEnumCount: DWORD;       // default # of enum requests
  1110.     dwDefaultEnumRetryInterval: DWORD; // default ms between enum requests
  1111.     dwDefaultEnumTimeout: DWORD;     // default enum timeout
  1112.     dwMaxEnumPayloadSize: DWORD;     // maximum size in bytes for enum payload data
  1113.     dwBuffersPerThread: DWORD;       // number of receive buffers per thread
  1114.     dwSystemBufferSize: DWORD;       // amount of buffering to do in addition to posted receive buffers
  1115.   end;
  1116.   {$EXTERNALSYM _DPN_SP_CAPS}
  1117.   DPN_SP_CAPS = _DPN_SP_CAPS;
  1118.   {$EXTERNALSYM DPN_SP_CAPS}
  1119.   TDPNSpCaps = _DPN_SP_CAPS;
  1122. (****************************************************************************
  1123.  *
  1124.  * IDirectPlay8 message handler call back structures
  1125.  *
  1126.  ****************************************************************************)
  1128.   //
  1129.   // Add player to group strucutre for message handler
  1130.   // (DPN_MSGID_ADD_PLAYER_TO_GROUP)
  1131.   //
  1132.   PDPNMsgAddPlayerToGroup = ^TDPNMsgAddPlayerToGroup;
  1133.   _DPNMSG_ADD_PLAYER_TO_GROUP = packed record
  1134.     dwSize: DWORD;            // Size of this structure
  1135.     dpnidGroup: TDPNID;       // DPNID of group
  1136.     pvGroupContext: Pointer;  // Group context value
  1137.     dpnidPlayer: TDPNID;      // DPNID of added player
  1138.     pvPlayerContext: Pointer; // Player context value
  1139.   end;
  1140.   {$EXTERNALSYM _DPNMSG_ADD_PLAYER_TO_GROUP}
  1141.   DPNMSG_ADD_PLAYER_TO_GROUP = _DPNMSG_ADD_PLAYER_TO_GROUP;
  1142.   {$EXTERNALSYM DPNMSG_ADD_PLAYER_TO_GROUP}
  1143.   TDPNMsgAddPlayerToGroup = _DPNMSG_ADD_PLAYER_TO_GROUP;
  1145.   //
  1146.   // Async operation completion structure for message handler
  1147.   // (DPN_MSGID_ASYNC_OP_COMPLETE)
  1148.   //
  1149.   PDPNMsgAsyncOpComplete = ^TDPNMsgAsyncOpComplete;
  1150.   _DPNMSG_ASYNC_OP_COMPLETE = packed record
  1151.     dwSize: DWORD;          // Size of this structure
  1152.     hAsyncOp: TDPNHandle;   // DirectPlay8 async operation handle
  1153.     pvUserContext: Pointer; // User context supplied
  1154.     hResultCode: HRESULT;   // HRESULT of operation
  1155.   end;
  1156.   {$EXTERNALSYM _DPNMSG_ASYNC_OP_COMPLETE}
  1157.   DPNMSG_ASYNC_OP_COMPLETE = _DPNMSG_ASYNC_OP_COMPLETE;
  1158.   {$EXTERNALSYM DPNMSG_ASYNC_OP_COMPLETE}
  1159.   TDPNMsgAsyncOpComplete = _DPNMSG_ASYNC_OP_COMPLETE;
  1161.   //
  1162.   // Client info structure for message handler
  1163.   // (DPN_MSGID_CLIENT_INFO)
  1164.   //
  1165.   PDPNMsgClientInfo = ^TDPNMsgClientInfo;
  1166.   _DPNMSG_CLIENT_INFO = packed record
  1167.     dwSize: DWORD;            // Size of this structure
  1168.     dpnidClient: TDPNID;      // DPNID of client
  1169.     pvPlayerContext: Pointer; // Player context value
  1170.   end;
  1171.   {$EXTERNALSYM _DPNMSG_CLIENT_INFO}
  1172.   DPNMSG_CLIENT_INFO = _DPNMSG_CLIENT_INFO;
  1173.   {$EXTERNALSYM DPNMSG_CLIENT_INFO}
  1174.   TDPNMsgClientInfo = _DPNMSG_CLIENT_INFO;
  1176.   //
  1177.   // Connect complete structure for message handler
  1178.   // (DPN_MSGID_CONNECT_COMPLETE)
  1179.   //
  1180.   PDPNMsgConnectComplete = ^TDPNMsgConnectComplete;
  1181.   _DPNMSG_CONNECT_COMPLETE = packed record
  1182.     dwSize: DWORD;                     // Size of this structure
  1183.     hAsyncOp: TDPNHandle;              // DirectPlay8 Async operation handle
  1184.     pvUserContext: Pointer;            // User context supplied at Connect
  1185.     hResultCode: HRESULT;              // HRESULT of connection attempt
  1186.     pvApplicationReplyData: Pointer;   // Connection reply data from Host/Server
  1187.     dwApplicationReplyDataSize: DWORD; // Size (in bytes) of pvApplicationReplyData
  1189.     // Fields added for DirectX 9
  1190.     dpnidLocal: TDPNID;                // DPNID of local player
  1191.   end;
  1192.   {$EXTERNALSYM _DPNMSG_CONNECT_COMPLETE}
  1193.   DPNMSG_CONNECT_COMPLETE = _DPNMSG_CONNECT_COMPLETE;
  1194.   {$EXTERNALSYM DPNMSG_CONNECT_COMPLETE}
  1195.   TDPNMsgConnectComplete = _DPNMSG_CONNECT_COMPLETE;
  1197.   //
  1198.   // Create group structure for message handler
  1199.   // (DPN_MSGID_CREATE_GROUP)
  1200.   //
  1201.   PDPNMsgCreateGroup = ^TDPNMsgCreateGroup;
  1202.   _DPNMSG_CREATE_GROUP = packed record
  1203.     dwSize: DWORD;           // Size of this structure
  1204.     dpnidGroup: TDPNID;      // DPNID of new group
  1205.     dpnidOwner: TDPNID;      // Owner of newgroup
  1206.     pvGroupContext: Pointer; // Group context value
  1208.     // Fields added for DirectX 9
  1209.     pvOwnerContext: Pointer; // Owner context value
  1210.   end;
  1211.   {$EXTERNALSYM _DPNMSG_CREATE_GROUP}
  1212.   DPNMSG_CREATE_GROUP = _DPNMSG_CREATE_GROUP;
  1213.   {$EXTERNALSYM DPNMSG_CREATE_GROUP}
  1214.   TDPNMsgCreateGroup = _DPNMSG_CREATE_GROUP;
  1216.   //
  1217.   // Create player structure for message handler
  1218.   // (DPN_MSGID_CREATE_PLAYER)
  1219.   //
  1220.   PDPNMsgCreatePlayer = ^TDPNMsgCreatePlayer;
  1221.   _DPNMSG_CREATE_PLAYER = packed record
  1222.     dwSize: DWORD;            // Size of this structure
  1223.     dpnidPlayer: DPNID;       // DPNID of new player
  1224.     pvPlayerContext: Pointer; // Player context value
  1225.   end;
  1226.   {$EXTERNALSYM _DPNMSG_CREATE_PLAYER}
  1227.   DPNMSG_CREATE_PLAYER = _DPNMSG_CREATE_PLAYER;
  1228.   {$EXTERNALSYM DPNMSG_CREATE_PLAYER}
  1229.   TDPNMsgCreatePlayer = _DPNMSG_CREATE_PLAYER;
  1231.   //
  1232.   // Destroy group structure for message handler
  1233.   // (DPN_MSGID_DESTROY_GROUP)
  1234.   //
  1235.   PDPNMsgDestroyGroup = ^TDPNMsgDestroyGroup;
  1236.   _DPNMSG_DESTROY_GROUP = packed record
  1237.     dwSize: DWORD;           // Size of this structure
  1238.     dpnidGroup: TDPNID;      // DPNID of destroyed group
  1239.     pvGroupContext: Pointer; // Group context value
  1240.     dwReason: DWORD;         // Information only
  1241.   end;
  1242.   {$EXTERNALSYM _DPNMSG_DESTROY_GROUP}
  1243.   DPNMSG_DESTROY_GROUP = _DPNMSG_DESTROY_GROUP;
  1244.   {$EXTERNALSYM DPNMSG_DESTROY_GROUP}
  1245.   TDPNMsgDestroyGroup = _DPNMSG_DESTROY_GROUP;
  1247.   //
  1248.   // Destroy player structure for message handler
  1249.   // (DPN_MSGID_DESTROY_PLAYER)
  1250.   //
  1251.   PDPNMsgDestroyPlayer = ^TDPNMsgDestroyPlayer;
  1252.   _DPNMSG_DESTROY_PLAYER = packed record
  1253.     dwSize: DWORD;            // Size of this structure
  1254.     dpnidPlayer: TDPNID;      // DPNID of leaving player
  1255.     pvPlayerContext: Pointer; // Player context value
  1256.     dwReason: DWORD;          // Information only
  1257.   end;
  1258.   {$EXTERNALSYM _DPNMSG_DESTROY_PLAYER}
  1259.   DPNMSG_DESTROY_PLAYER = _DPNMSG_DESTROY_PLAYER;
  1260.   {$EXTERNALSYM DPNMSG_DESTROY_PLAYER}
  1261.   TDPNMsgDestroyPlayer = _DPNMSG_DESTROY_PLAYER;
  1263.   //
  1264.   // Enumeration request received structure for message handler
  1265.   // (DPN_MSGID_ENUM_HOSTS_QUERY)
  1266.   //
  1267.   PDPNMsgEnumHostsQuery = ^TDPNMsgEnumHostsQuery;
  1268.   _DPNMSG_ENUM_HOSTS_QUERY = packed record
  1269.     dwSize: DWORD;                        // Size of this structure.
  1270.     pAddressSender: IDirectPlay8Address;  // Address of client who sent the request
  1271.     pAddressDevice: IDirectPlay8Address;  // Address of device request was received on
  1272.     pvReceivedData: Pointer;              // Request data (set on client)
  1273.     dwReceivedDataSize: DWORD;            // Request data size (set on client)
  1274.     dwMaxResponseDataSize: DWORD;         // Max allowable size of enum response
  1275.     pvResponseData: Pointer;              // Optional query repsonse (user set)
  1276.     dwResponseDataSize: DWORD;            // Optional query response size (user set)
  1277.     pvResponseContext: Pointer;           // Optional query response context (user set)
  1278.   end;
  1279.   {$EXTERNALSYM _DPNMSG_ENUM_HOSTS_QUERY}
  1280.   DPNMSG_ENUM_HOSTS_QUERY = _DPNMSG_ENUM_HOSTS_QUERY;
  1281.   {$EXTERNALSYM DPNMSG_ENUM_HOSTS_QUERY}
  1282.   TDPNMsgEnumHostsQuery = _DPNMSG_ENUM_HOSTS_QUERY;
  1284.   //
  1285.   // Enumeration response received structure for message handler
  1286.   // (DPN_MSGID_ENUM_HOSTS_RESPONSE)
  1287.   //
  1288.   PDPNMsgEnumHostsResponse = ^TDPNMsgEnumHostsResponse;
  1289.   _DPNMSG_ENUM_HOSTS_RESPONSE = packed record
  1290.     dwSize: DWORD;                                // Size of this structure
  1291.     pAddressSender: IDirectPlay8Address;          // Address of host who responded
  1292.     pAddressDevice: IDirectPlay8Address;          // Device response was received on
  1293.     pApplicationDescription: PDPNApplicationDesc; // Application description for the session
  1294.     pvResponseData: Pointer;                      // Optional response data (set on host)
  1295.     dwResponseDataSize: DWORD;                    // Optional response data size (set on host)
  1296.     pvUserContext: Pointer;                       // Context value supplied for enumeration
  1297.     dwRoundTripLatencyMS: DWORD;                  // Round trip latency in MS
  1298.   end;
  1299.   {$EXTERNALSYM _DPNMSG_ENUM_HOSTS_RESPONSE}
  1300.   DPNMSG_ENUM_HOSTS_RESPONSE = _DPNMSG_ENUM_HOSTS_RESPONSE;
  1301.   {$EXTERNALSYM DPNMSG_ENUM_HOSTS_RESPONSE}
  1302.   TDPNMsgEnumHostsResponse = _DPNMSG_ENUM_HOSTS_RESPONSE;
  1304.   //
  1305.   // Group info structure for message handler
  1306.   // (DPN_MSGID_GROUP_INFO)
  1307.   //
  1308.   PDPNMsgGroupInfo = ^TDPNMsgGroupInfo;
  1309.   _DPNMSG_GROUP_INFO = packed record
  1310.     dwSize: DWORD;              // Size of this structure
  1311.     dpnidGroup: TDPNID;         // DPNID of group
  1312.     pvGroupContext: Pointer;    // Group context value
  1313.   end;
  1314.   {$EXTERNALSYM _DPNMSG_GROUP_INFO}
  1315.   DPNMSG_GROUP_INFO = _DPNMSG_GROUP_INFO;
  1316.   {$EXTERNALSYM DPNMSG_GROUP_INFO}
  1317.   TDPNMsgGroupInfo = _DPNMSG_GROUP_INFO;
  1319.   //
  1320.   // Migrate host structure for message handler
  1321.   // (DPN_MSGID_HOST_MIGRATE)
  1322.   //
  1323.   PDPNMsgHostMigrate = ^TDPNMsgHostMigrate;
  1324.   _DPNMSG_HOST_MIGRATE = packed record
  1325.     dwSize: DWORD;             // Size of this structure
  1326.     dpnidNewHost: TDPNID;      // DPNID of new Host player
  1327.     pvPlayerContext: Pointer;  // Player context value
  1328.   end;
  1329.   {$EXTERNALSYM _DPNMSG_HOST_MIGRATE}
  1330.   DPNMSG_HOST_MIGRATE = _DPNMSG_HOST_MIGRATE;
  1331.   {$EXTERNALSYM DPNMSG_HOST_MIGRATE}
  1332.   TDPNMsgHostMigrate = _DPNMSG_HOST_MIGRATE;
  1334.   //
  1335.   // Indicate connect structure for message handler
  1336.   // (DPN_MSGID_INDICATE_CONNECT)
  1337.   //
  1338.   PDPNMsgIndicateConnect = ^TDPNMsgIndicateConnect;
  1339.   _DPNMSG_INDICATE_CONNECT = packed record
  1340.     dwSize: DWORD;                        // Size of this structure
  1341.     pvUserConnectData: Pointer;           // Connecting player data
  1342.     dwUserConnectDataSize: DWORD;         // Size (in bytes) of pvUserConnectData
  1343.     pvReplyData: Pointer;                 // Connection reply data
  1344.     dwReplyDataSize: DWORD;               // Size (in bytes) of pvReplyData
  1345.     pvReplyContext: Pointer;              // Buffer context for pvReplyData
  1346.     pvPlayerContext: Pointer;             // Player context preset
  1347.     pAddressPlayer: IDirectPlay8Address;  // Address of connecting player
  1348.     pAddressDevice: IDirectPlay8Address;  // Address of device receiving connect attempt
  1349.   end;
  1350.   {$EXTERNALSYM _DPNMSG_INDICATE_CONNECT}
  1351.   DPNMSG_INDICATE_CONNECT = _DPNMSG_INDICATE_CONNECT;
  1352.   {$EXTERNALSYM DPNMSG_INDICATE_CONNECT}
  1353.   TDPNMsgIndicateConnect = _DPNMSG_INDICATE_CONNECT;
  1355.   //
  1356.   // Indicated connect aborted structure for message handler
  1357.   // (DPN_MSGID_INDICATED_CONNECT_ABORTED)
  1358.   //
  1359.   PDPNMsgIndicatedConnectAborted = ^TDPNMsgIndicatedConnectAborted;
  1360.   _DPNMSG_INDICATED_CONNECT_ABORTED = packed record
  1361.     dwSize: DWORD;            // Size of this structure
  1362.     pvPlayerContext: Pointer; // Player context preset from DPNMSG_INDICATE_CONNECT
  1363.   end;
  1364.   {$EXTERNALSYM _DPNMSG_INDICATED_CONNECT_ABORTED}
  1365.   DPNMSG_INDICATED_CONNECT_ABORTED = _DPNMSG_INDICATED_CONNECT_ABORTED;
  1366.   {$EXTERNALSYM DPNMSG_INDICATED_CONNECT_ABORTED}
  1367.   TDPNMsgIndicatedConnectAborted = _DPNMSG_INDICATED_CONNECT_ABORTED;
  1369.   //
  1370.   // Peer info structure for message handler
  1371.   // (DPN_MSGID_PEER_INFO)
  1372.   //
  1373.   PDPNMsgPeerInfo = ^TDPNMsgPeerInfo;
  1374.   _DPNMSG_PEER_INFO = packed record
  1375.     dwSize: DWORD;              // Size of this structure
  1376.     dpnidPeer: TDPNID;          // DPNID of peer
  1377.     pvPlayerContext: Pointer;   // Player context value
  1378.   end;
  1379.   {$EXTERNALSYM _DPNMSG_PEER_INFO}
  1380.   DPNMSG_PEER_INFO = _DPNMSG_PEER_INFO;
  1381.   {$EXTERNALSYM DPNMSG_PEER_INFO}
  1382.   TDPNMsgPeerInfo = _DPNMSG_PEER_INFO;
  1384.   //
  1385.   // Receive structure for message handler
  1386.   // (DPN_MSGID_RECEIVE)
  1387.   //
  1388.   PDPNMsgReceive = ^TDPNMsgReceive;
  1389.   _DPNMSG_RECEIVE = packed record
  1390.     dwSize: DWORD;             // Size of this structure
  1391.     dpnidSender: TDPNID;       // DPNID of sending player
  1392.     pvPlayerContext: Pointer;  // Player context value of sending player
  1393.     pReceiveData: PByte;       // Received data
  1394.     dwReceiveDataSize: DWORD;  // Size (in bytes) of pReceiveData
  1395.     hBufferHandle: TDPNHandle; // Buffer handle for pReceiveData
  1397.     // Fields added for DirectX 9
  1398.     dwReceiveFlags: DWORD;     // Flags describing how message was received
  1399.   end;
  1400.   {$EXTERNALSYM _DPNMSG_RECEIVE}
  1401.   DPNMSG_RECEIVE = _DPNMSG_RECEIVE;
  1402.   {$EXTERNALSYM DPNMSG_RECEIVE}
  1403.   TDPNMsgReceive = _DPNMSG_RECEIVE;
  1405.   //
  1406.   // Remove player from group structure for message handler
  1407.   // (DPN_MSGID_REMOVE_PLAYER_FROM_GROUP)
  1408.   //
  1409.   PDPNMsgRemovePlayerFromGroup = ^TDPNMsgRemovePlayerFromGroup;
  1410.   _DPNMSG_REMOVE_PLAYER_FROM_GROUP = packed record
  1411.     dwSize: DWORD;               // Size of this structure
  1412.     dpnidGroup: TDPNID;          // DPNID of group
  1413.     pvGroupContext: Pointer;     // Group context value
  1414.     dpnidPlayer: TDPNID;         // DPNID of deleted player
  1415.     pvPlayerContext: Pointer;    // Player context value
  1416.   end;
  1417.   {$EXTERNALSYM _DPNMSG_REMOVE_PLAYER_FROM_GROUP}
  1418.   DPNMSG_REMOVE_PLAYER_FROM_GROUP = _DPNMSG_REMOVE_PLAYER_FROM_GROUP;
  1419.   {$EXTERNALSYM DPNMSG_REMOVE_PLAYER_FROM_GROUP}
  1420.   TDPNMsgRemovePlayerFromGroup = _DPNMSG_REMOVE_PLAYER_FROM_GROUP;
  1422.   //
  1423.   // Returned buffer structure for message handler
  1424.   // (DPN_MSGID_RETURN_BUFFER)
  1425.   //
  1426.   PDPNMsgReturnBuffer = ^TDPNMsgReturnBuffer;
  1427.   _DPNMSG_RETURN_BUFFER = packed record
  1428.     dwSize: DWORD;          // Size of this structure
  1429.     hResultCode: HRESULT;   // Return value of operation
  1430.     pvBuffer: Pointer;      // Buffer being returned
  1431.     pvUserContext: Pointer; // Context associated with buffer
  1432.   end;
  1433.   {$EXTERNALSYM _DPNMSG_RETURN_BUFFER}
  1434.   DPNMSG_RETURN_BUFFER = _DPNMSG_RETURN_BUFFER;
  1435.   {$EXTERNALSYM DPNMSG_RETURN_BUFFER}
  1436.   TDPNMsgReturnBuffer = _DPNMSG_RETURN_BUFFER;
  1438.   //
  1439.   // Send complete structure for message handler
  1440.   // (DPN_MSGID_SEND_COMPLETE)
  1441.   //
  1442.   PDPNMsgSendComplete = ^TDPNMsgSendComplete;
  1443.   _DPNMSG_SEND_COMPLETE = packed record
  1444.     dwSize: DWORD;          // Size of this structure
  1445.     hAsyncOp: TDPNHandle;   // DirectPlay8 Async operation handle
  1446.     pvUserContext: Pointer; // User context supplied at Send/SendTo
  1447.     hResultCode: HRESULT;   // HRESULT of send
  1448.     dwSendTime: DWORD;      // Send time in ms
  1450.     // Fields added for DirectX 9
  1451.     dwFirstFrameRTT: DWORD; // RTT of the first frame in the message
  1452.     dwFirstFrameRetryCount: DWORD; // Retry count of the first frame
  1453.     dwSendCompleteFlags: DWORD; // Flags describing how message was sent
  1454.     pBuffers: PDPNBufferDesc; // Pointer to array of buffers sent, if DirectPlay did not make a copy
  1455.     dwNumBuffers: DWORD; // Number of buffers in previous array
  1456.   end;
  1457.   {$EXTERNALSYM _DPNMSG_SEND_COMPLETE}
  1458.   DPNMSG_SEND_COMPLETE = _DPNMSG_SEND_COMPLETE;
  1459.   {$EXTERNALSYM DPNMSG_SEND_COMPLETE}
  1460.   TDPNMsgSendComplete = _DPNMSG_SEND_COMPLETE;
  1462.   //
  1463.   // Server info structure for message handler
  1464.   // (DPN_MSGID_SERVER_INFO)
  1465.   //
  1466.   PDPNMsgServerInfo = ^TDPNMsgServerInfo;
  1467.   _DPNMSG_SERVER_INFO = packed record
  1468.     dwSize: DWORD;              // Size of this structure
  1469.     dpnidServer: TDPNID;        // DPNID of server
  1470.     pvPlayerContext: Pointer;   // Player context value
  1471.   end;
  1472.   {$EXTERNALSYM _DPNMSG_SERVER_INFO}
  1473.   DPNMSG_SERVER_INFO = _DPNMSG_SERVER_INFO;
  1474.   {$EXTERNALSYM DPNMSG_SERVER_INFO}
  1475.   TDPNMsgServerInfo = _DPNMSG_SERVER_INFO;
  1477.   //
  1478.   // Terminated session structure for message handler
  1479.   // (DPN_MSGID_TERMINATE_SESSION)
  1480.   //
  1481.   PDPNMsgTerminateSession = ^TDPNMsgTerminateSession;
  1482.   _DPNMSG_TERMINATE_SESSION = packed record
  1483.     dwSize: DWORD;              // Size of this structure
  1484.     hResultCode: HRESULT;       // Reason
  1485.     pvTerminateData: Pointer;   // Data passed from Host/Server
  1486.     dwTerminateDataSize: DWORD; // Size (in bytes) of pvTerminateData
  1487.   end;
  1488.   {$EXTERNALSYM _DPNMSG_TERMINATE_SESSION}
  1489.   DPNMSG_TERMINATE_SESSION = _DPNMSG_TERMINATE_SESSION;
  1490.   {$EXTERNALSYM DPNMSG_TERMINATE_SESSION}
  1491.   TDPNMsgTerminateSession = _DPNMSG_TERMINATE_SESSION;
  1493.   //
  1494.   // Message structures added for DirectX 9
  1495.   //
  1497.   //
  1498.   // Create thread info structure for message handler
  1499.   // (DPN_MSGID_CREATE_THREAD)
  1500.   //
  1501.   PDPNMsgCreateThread = ^TDPNMsgCreateThread;
  1502.   _DPNMSG_CREATE_THREAD = packed record
  1503.     dwSize: DWORD; // Size of this structure
  1504.     dwFlags: DWORD; // Flags describing this thread
  1505.     dwProcessorNum: DWORD; // Index of processor to which thread is bound
  1506.     pvUserContext: Pointer; // Thread context value
  1507.   end;
  1508.   {$EXTERNALSYM _DPNMSG_CREATE_THREAD}
  1509.   DPNMSG_CREATE_THREAD = _DPNMSG_CREATE_THREAD;
  1510.   {$EXTERNALSYM DPNMSG_CREATE_THREAD}
  1511.   TDPNMsgCreateThread = _DPNMSG_CREATE_THREAD;
  1513.   //
  1514.   // Destroy thread info structure for message handler
  1515.   // (DPN_MSGID_DESTROY_THREAD)
  1516.   //
  1517.   PDPNMsgDestroyThread = ^TDPNMsgDestroyThread;
  1518.   _DPNMSG_DESTROY_THREAD = packed record
  1519.     dwSize: DWORD; // Size of this structure
  1520.     dwProcessorNum: DWORD; // Index of processor to which thread was bound
  1521.     pvUserContext: Pointer; // Thread context value
  1522.   end;
  1523.   {$EXTERNALSYM _DPNMSG_DESTROY_THREAD}
  1524.   DPNMSG_DESTROY_THREAD = _DPNMSG_DESTROY_THREAD;
  1525.   {$EXTERNALSYM DPNMSG_DESTROY_THREAD}
  1526.   TDPNMsgDestroyThread = _DPNMSG_DESTROY_THREAD;
  1529.   //
  1530.   // Query-to-resolve-NAT-address structure for message handler
  1531.   // (DPN_MSGID_NAT_RESOLVER_QUERY)
  1532.   //
  1533.   PDPNMsgNatResolverQuery = ^TDPNMsgNatResolverQuery;
  1534.   _DPNMSG_NAT_RESOLVER_QUERY = packed record
  1535.     dwSize: DWORD; // Size of this structure.
  1536.     pAddressSender: IDirectPlay8Address; // Address of client that sent the query
  1537.     pAddressDevice: IDirectPlay8Address; // Address of device on which query was received
  1538.     pwszUserString: PWideChar; // User specified string, or NULL if none
  1539.   end;
  1540.   {$EXTERNALSYM _DPNMSG_NAT_RESOLVER_QUERY}
  1541.   DPNMSG_NAT_RESOLVER_QUERY = _DPNMSG_NAT_RESOLVER_QUERY;
  1542.   {$EXTERNALSYM DPNMSG_NAT_RESOLVER_QUERY}
  1543.   TDPNMsgNatResolverQuery = _DPNMSG_NAT_RESOLVER_QUERY;
  1546. (****************************************************************************
  1547.  *
  1548.  * DirectPlay8 Functions
  1549.  *
  1550.  ****************************************************************************)
  1552. (*
  1553.  * This function is no longer supported.  It is recommended that CoCreateInstance be used to create
  1554.  * DirectPlay8 objects.
  1555.  *
  1556.  * extern HRESULT WINAPI DirectPlay8Create( const GUID * pcIID, void **ppvInterface, IUnknown *pUnknown);
  1557.  *
  1558.  *)
  1559.  
  1561. (****************************************************************************
  1562.  *
  1563.  * DirectPlay8Lobby Interface Pointer
  1564.  *
  1565.  ****************************************************************************)
  1567.   IDirectPlay8LobbiedApplication = interface;
  1569. (****************************************************************************
  1570.  *
  1571.  * DirectPlay8 Application Interfaces
  1572.  *
  1573.  ****************************************************************************)
  1575.   //
  1576.   // COM definition for DirectPlay8 Client interface
  1577.   //
  1578.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirectPlay8Client);'}
  1579.   {$EXTERNALSYM IDirectPlay8Client}
  1580.   IDirectPlay8Client = interface(IUnknown)
  1581.     ['{5102dacd-241b-11d3-aea7-006097b01411}']
  1582.     (*** IDirectPlay8Client methods ***)
  1583.     function Initialize(pvUserContext: Pointer; pfn: TFNDPNMessageHandler; dwFlags: DWORD): HResult; stdcall;
  1584.     function EnumServiceProviders(pguidServiceProvider, pguidApplication: PGUID;
  1585.       pSPInfoBuffer: PDPNServiceProviderInfo; out pcbEnumData, pcReturned: DWORD;
  1586.       dwFlags: DWORD): HResult; stdcall;
  1587.     function EnumHosts(const pApplicationDesc: TDPNApplicationDesc;
  1588.       pAddrHost, pDeviceInfo: IDirectPlay8Address; pUserEnumData: Pointer;
  1589.       dwUserEnumDataSize, dwEnumCount, dwRetryInterval, dwTimeOut: DWORD;
  1590.       pvUserContext: Pointer; pAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1591.     function CancelAsyncOperation(hAsyncHandle: TDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1592.     function Connect(const pdnAppDesc: TDPNApplicationDesc;
  1593.       pHostAddr: IDirectPlay8Address; pDeviceInfo: IDirectPlay8Address;
  1594.       pdnSecurity: PDPNSecurityDesc; pdnCredentials: PDPNSecurityCredentials;
  1595.       pvUserConnectData: Pointer; dwUserConnectDataSize: DWORD; pvAsyncContext: Pointer;
  1596.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1597.     function Send(const prgBufferDesc: TDPNBufferDesc; cBufferDesc, dwTimeOut: DWORD;
  1598.       pvAsyncContext: Pointer; phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1599.     function GetSendQueueInfo(pdwNumMsgs, pdwNumBytes: PDWORD; dwFlags: DWORD): HResult; stdcall;
  1600.     function GetApplicationDesc(pAppDescBuffer: PDPNApplicationDesc; var pcbDataSize: DWORD; dwFlags: DWORD): HResult; stdcall;
  1601.     function SetClientInfo(const pdpnPlayerInfo: TDPNPlayerInfo; pvAsyncContext: Pointer;
  1602.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1603.     function GetServerInfo(pdpnPlayerInfo: PDPNPlayerInfo; var pdwSize: DWORD; dwFlags: DWORD): HResult; stdcall;
  1604.     function GetServerAddress(out pAddress: IDirectPlay8Address; dwFlags: DWORD): HResult; stdcall;
  1605.     function Close(dwFlags: DWORD): HResult; stdcall;
  1606.     function ReturnBuffer(hBufferHandle: TDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1607.     function GetCaps(pdpCaps: PDPNCaps; dwFlags: DWORD): HResult; stdcall; //Translator: pdpCaps can be either PDPNCaps or PDPNCapsEx
  1608.     function SetCaps(pdpCaps: PDPNCaps; dwFlags: DWORD): HResult; stdcall; //Translator: pdpCaps can be either PDPNCaps or PDPNCapsEx
  1609.     function SetSPCaps(const pguidSP: TGUID; const pdpspCaps: TDPNSpCaps; dwFlags: DWORD): HResult; stdcall;
  1610.     function GetSPCaps(const pguidSP: TGUID; var pdpspCaps: TDPNSpCaps; dwFlags: DWORD): HResult; stdcall;
  1611.     function GetConnectionInfo(var pdpConnectionInfo: TDPNConnectionInfo; dwFlags: DWORD): HResult; stdcall;
  1612.     function RegisterLobby(dpnHandle: TDPNHandle; pIDP8LobbiedApplication: IDirectPlay8LobbiedApplication; dwFlags: DWORD): HResult; stdcall;
  1613.   end;
  1615.   //
  1616.   // COM definition for DirectPlay8 Server interface
  1617.   //
  1618.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirectPlay8Server);'}
  1619.   {$EXTERNALSYM IDirectPlay8Server}
  1620.   IDirectPlay8Server = interface(IUnknown)
  1621.     ['{5102dace-241b-11d3-aea7-006097b01411}']
  1622.     (*** IDirectPlay8Server methods ***)
  1623.     function Initialize(pvUserContext: Pointer; pfn: TFNDPNMessageHandler; dwFlags: DWORD): HResult; stdcall;
  1624.     function EnumServiceProviders(pguidServiceProvider, pguidApplication: PGUID;
  1625.       pSPInfoBuffer: PDPNServiceProviderInfo; out pcbEnumData, pcReturned: DWORD;
  1626.       dwFlags: DWORD): HResult; stdcall;
  1627.     function CancelAsyncOperation(hAsyncHandle: TDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1628.     function GetSendQueueInfo(dpnid: TDPNID; pdwNumMsgs, pdwNumBytes: PDWORD; dwFlags: DWORD): HResult; stdcall;
  1629.     function GetApplicationDesc(pAppDescBuffer: PDPNApplicationDesc; var pcbDataSize: DWORD; dwFlags: DWORD): HResult; stdcall;
  1630.     function GetServerInfo(pdpnPlayerInfo: PDPNPlayerInfo; pvAsyncContext: Pointer; phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1631.     function GetClientInfo(dpnid: TDPNID; pdpnPlayerInfo: PDPNPlayerInfo; pdwSize: PDWORD; dwFlags: DWORD): HResult; stdcall;
  1632.     function GetClientAddress(dpnid: TDPNID; out pAddress: IDirectPlay8Address; dwFlags: DWORD): HResult; stdcall;
  1633.     function GetLocalHostAddresses(out prgpAddress: IDirectPlay8Address; var pcAddress: DWORD; dwFlags: DWORD): HResult; stdcall;
  1634.     function SetApplicationDesc(const pad: TDPNApplicationDesc; dwFlags: DWORD): HResult; stdcall;
  1635.     function Host(const pdnAppDesc: TDPNApplicationDesc; prgpDeviceInfo: PIDirectPlay8Address;
  1636.       cDeviceInfo: DWORD; pdnSecurity: PDPNSecurityDesc; pdnCredentials: PDPNSecurityCredentials;
  1637.       pvPlayerContext: Pointer; dwFlags: DWORD): HResult; stdcall;
  1638.     function SendTo(dpnid: TDPNID; const prgBufferDesc: TDPNBufferDesc; cBufferDesc, dwTimeOut: DWORD;
  1639.       pvAsyncContext: Pointer; phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1640.     function CreateGroup(const pdpnGroupInfo: TDPNGroupInfo; pvGroupContext, pvAsyncContext: Pointer;
  1641.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1642.     function DestroyGroup(idGroup: TDPNID; pvAsyncContext: Pointer;
  1643.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1644.     function AddPlayerToGroup(idGroup, idClient: TDPNID; pvAsyncContext: Pointer;
  1645.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1646.     function RemovePlayerFromGroup(idGroup, idClient: TDPNID; pvAsyncContext: Pointer;
  1647.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1648.     function SetGroupInfo(dpnid: TDPNID; const pdpnGroupInfo: TDPNGroupInfo; pvAsyncContext: Pointer; phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1649.     function GetGroupInfo(dpnid: TDPNID; pdpnGroupInfo: PDPNGroupInfo; pdwSize: PDWORD; dwFlags: DWORD): HResult; stdcall; //todo: Changed
  1650.     function EnumPlayersAndGroups(prgdpnid: PDPNID; var pcdpnid: DWORD; dwFlags: DWORD): HResult; stdcall;
  1651.     function EnumGroupMembers(dpnid: TDPNID; prgdpnid: PDPNID; var pcdpnid: DWORD; dwFlags: DWORD): HResult; stdcall;
  1652.     function Close(dwFlags: DWORD): HResult; stdcall;
  1653.     function DestroyClient(dpnidClient: TDPNID; pvDestroyData: Pointer; dwDestroyDataSize: DWORD; dwFlags: DWORD): HResult; stdcall;
  1654.     function ReturnBuffer(hBufferHandle: TDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1655.     function GetPlayerContext(dpnid: TDPNID; out ppvPlayerContext: Pointer; dwFlags: DWORD): HResult; stdcall;
  1656.     function GetGroupContext(dpnid: TDPNID; out ppvGroupContext: Pointer; dwFlags: DWORD): HResult; stdcall;
  1657.     function GetCaps(pdpCaps: PDPNCaps; dwFlags: DWORD): HResult; stdcall; //Translator: pdpCaps can be either PDPNCaps or PDPNCapsEx
  1658.     function SetCaps(pdpCaps: PDPNCaps; dwFlags: DWORD): HResult; stdcall; //Translator: pdpCaps can be either PDPNCaps or PDPNCapsEx
  1659.     function SetSPCaps(const pguidSP: TGUID; const pdpspCaps: TDPNSpCaps; dwFlags: DWORD): HResult; stdcall;
  1660.     function GetSPCaps(const pguidSP: TGUID; var pdpspCaps: TDPNSpCaps; dwFlags: DWORD): HResult; stdcall;
  1661.     function GetConnectionInfo(dpnid: TDPNID; var pdpConnectionInfo: TDPNConnectionInfo; dwFlags: DWORD): HResult; stdcall;
  1662.     function RegisterLobby(dpnHandle: TDPNHandle; pIDP8LobbiedApplication: IDirectPlay8LobbiedApplication; dwFlags: DWORD): HResult; stdcall;
  1663.   end;
  1665.   //
  1666.   // COM definition for DirectPlay8 Peer interface
  1667.   //
  1668.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirectPlay8Peer);'}
  1669.   {$EXTERNALSYM IDirectPlay8Peer}
  1670.   IDirectPlay8Peer = interface(IUnknown)
  1671.     ['{5102dacf-241b-11d3-aea7-006097b01411}']
  1672.     (*** IDirectPlay8Peer methods ***)
  1673.     function Initialize(pvUserContext: Pointer; pfn: TFNDPNMessageHandler; dwFlags: DWORD): HResult; stdcall;
  1674.     function EnumServiceProviders(pguidServiceProvider, pguidApplication: PGUID;
  1675.       pSPInfoBuffer: PDPNServiceProviderInfo; out pcbEnumData, pcReturned: DWORD;
  1676.       dwFlags: DWORD): HResult; stdcall;
  1677.     function CancelAsyncOperation(hAsyncHandle: TDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1678.     function Connect(const pdnAppDesc: TDPNApplicationDesc;
  1679.       pHostAddr: IDirectPlay8Address; pDeviceInfo: IDirectPlay8Address;
  1680.       pdnSecurity: PDPNSecurityDesc; pdnCredentials: PDPNSecurityCredentials;
  1681.       pvUserConnectData: Pointer; dwUserConnectDataSize: DWORD;
  1682.       pvPlayerContext, pvAsyncContext: Pointer;
  1683.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1684.     function SendTo(dpnid: TDPNID; const prgBufferDesc: TDPNBufferDesc; cBufferDesc, dwTimeOut: DWORD;
  1685.       pvAsyncContext: Pointer; phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1686.     function GetSendQueueInfo(dpnid: TDPNID; pdwNumMsgs, pdwNumBytes: PDWORD; dwFlags: DWORD): HResult; stdcall;
  1687.     function Host(const pdnAppDesc: TDPNApplicationDesc; prgpDeviceInfo: PIDirectPlay8Address;
  1688.       cDeviceInfo: DWORD; pdnSecurity: PDPNSecurityDesc; pdnCredentials: PDPNSecurityCredentials;
  1689.       pvPlayerContext: Pointer; dwFlags: DWORD): HResult; stdcall;
  1690.     function GetApplicationDesc(pAppDescBuffer: PDPNApplicationDesc; var pcbDataSize: DWORD; dwFlags: DWORD): HResult; stdcall;
  1691.     function SetApplicationDesc(const pad: TDPNApplicationDesc; dwFlags: DWORD): HResult; stdcall;
  1692.     function CreateGroup(const pdpnGroupInfo: TDPNGroupInfo; pvGroupContext, pvAsyncContext: Pointer;
  1693.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1694.     function DestroyGroup(idGroup: TDPNID; pvAsyncContext: Pointer;
  1695.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1696.     function AddPlayerToGroup(idGroup, idClient: TDPNID; pvAsyncContext: Pointer;
  1697.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1698.     function RemovePlayerFromGroup(idGroup, idClient: TDPNID; pvAsyncContext: Pointer;
  1699.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1700.     function SetGroupInfo(dpnid: TDPNID; const pdpnGroupInfo: TDPNGroupInfo; pvAsyncContext: Pointer; phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1701.     function GetGroupInfo(dpnid: TDPNID; pdpnGroupInfo: PDPNGroupInfo; pdwSize: PDWORD; dwFlags: DWORD): HResult; stdcall; //todo: Changed
  1702.     function EnumPlayersAndGroups(prgdpnid: PDPNID; var pcdpnid: DWORD; dwFlags: DWORD): HResult; stdcall;
  1703.     function EnumGroupMembers(dpnid: TDPNID; prgdpnid: PDPNID; var pcdpnid: DWORD; dwFlags: DWORD): HResult; stdcall;
  1704.     function SetPeerInfo(const pdpnPlayerInfo: TDPNPlayerInfo; pvAsyncContext: Pointer;
  1705.       phAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1706.     function GetPeerInfo(dpnid: TDPNID; var pdpnPlayerInfo: TDPNPlayerInfo; pdwSize: PDWORD; dwFlags: DWORD): HResult; stdcall; //todo: Changed
  1707.     function GetPeerAddress(dpnid: TDPNID; out pAddress: IDirectPlay8Address; dwFlags: DWORD): HResult; stdcall;
  1708.     function GetLocalHostAddresses(prgpAddress: PIDirectPlay8Address; var pcAddress: DWORD; dwFlags: DWORD): HResult; stdcall;
  1709.     function Close(dwFlags: DWORD): HResult; stdcall;
  1710.     function EnumHosts(const pApplicationDesc: TDPNApplicationDesc;
  1711.       pAddrHost, pDeviceInfo: IDirectPlay8Address; pUserEnumData: Pointer;
  1712.       dwUserEnumDataSize, dwEnumCount, dwRetryInterval, dwTimeOut: DWORD;
  1713.       pvUserContext: Pointer; pAsyncHandle: PDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1714.     function DestroyPeer(dpnidClient: TDPNID; pvDestroyData: Pointer; dwDestroyDataSize, dwFlags: DWORD): HResult; stdcall;
  1715.     function ReturnBuffer(hBufferHandle: TDPNHandle; dwFlags: DWORD): HResult; stdcall;
  1716.     function GetPlayerContext(dpnid: TDPNID; out ppvPlayerContext: Pointer; dwFlags: DWORD): HResult; stdcall;
  1717.     function GetGroupContext(dpnid: TDPNID; out ppvGroupContext: Pointer; dwFlags: DWORD): HResult; stdcall;
  1718.     function GetCaps(pdpCaps: PDPNCaps; dwFlags: DWORD): HResult; stdcall; //Translator: pdpCaps can be either PDPNCaps or PDPNCapsEx
  1719.     function SetCaps(pdpCaps: PDPNCaps; dwFlags: DWORD): HResult; stdcall; //Translator: pdpCaps can be either PDPNCaps or PDPNCapsEx
  1720.     function SetSPCaps(const pguidSP: TGUID; const pdpspCaps: TDPNSpCaps; dwFlags: DWORD): HResult; stdcall;
  1721.     function GetSPCaps(const pguidSP: TGUID; var pdpspCaps: TDPNSpCaps; dwFlags: DWORD): HResult; stdcall;
  1722.     function GetConnectionInfo(dpnid: TDPNID; var pdpConnectionInfo: TDPNConnectionInfo; dwFlags: DWORD): HResult; stdcall;
  1723.     function RegisterLobby(dpnHandle: TDPNHandle; pIDP8LobbiedApplication: IDirectPlay8LobbiedApplication; dwFlags: DWORD): HResult; stdcall; 
  1724.     function TerminateSession(pvTerminateData: Pointer; dwTerminateDataSize, dwFlags: DWORD): HResult; stdcall;
  1725.   end;