WebSVN – spacemission – Diff – /VCL_DELPHIX_D6/DXPlay.pas

 interface
 {$INCLUDE DelphiXcfg.inc}
 uses
-  Windows, SysUtils, Classes, Forms, DXClass, ActiveX, DirectX, DXETable;
+  Windows, SysUtils, Classes, Forms, DXClass, ActiveX, DXETable,
+{$IfDef StandardDX}
+  DirectDraw,
+// Delphi 2010 cannot be use DirectPlay8 because structure was not rewriten
+//  {$IfDef DX9}
+//  DirectPlay8, DX7toDX8;
+//  {$Else}
+  DirectPlay; //old wersion, current in directory
+//  {$EndIf}
+{$Else}
+  DirectX;
+{$EndIf}
 type
+  {$IfDef DX9}
+  TDPID = DWORD;
+  {$EndIf}
   {  TDXPlayPlayer  }
   TDXPlayPlayer = class(TCollectionItem)
   private
   TDXPlaySendCompleteEvent = procedure(Sender: TObject; MessageID: DWORD;
     Result: TDXPlaySendCompleteResult; SendTime: Integer) of object;
   TCustomDXPlay = class(TComponent)
   private
-    FDPlay: IDirectPlay4A;
+    FDPlay: //{$IfDef DX7}
+      IDirectPlay4A;//{$Else}IDirectPlay8Address{$EndIf};
     FGUID: string;
     FIsHost: Boolean;
     FLocalPlayer: TDXPlayPlayer;
     FMaxPlayers: Integer;
     FPlayers: TDXPlayPlayers;
     FModemSetting: TDXPlayModemSetting;
     FTCPIPSetting: TDXPlayTCPIPSetting;
     FAsync: Boolean;
     FAsyncSupported: Boolean;
     procedure ChangeDPlay;
-    procedure CreateDPlayWithoutDialog(out DPlay: IDirectPlay4A; const ProviderName: string);
+    procedure CreateDPlayWithoutDialog(out DPlay:
+     //{$IfDef DX7}
+     IDirectPlay4A;
+     //{$Else}IDirectPlay8Address{$EndIf};
+      const ProviderName: string);
     function OpenDPlayWithLobby(out Name: string): Boolean;
     function OpenDPlayWithoutLobby(out Name: string): Boolean;
     function OpenDPlayWithoutLobby2(const NewSession: Boolean; const ProviderName, SessionName, PlayerName: string): Boolean;
     procedure Open_(NameS: string);
     procedure ReceiveMessage;
   end;
 function DXPlayMessageType(P: Pointer): DWORD;
 function DXPlayStringToGUID(const S: string): TGUID;
-function DXDirectPlayCreate(const lpGUID: TGUID; out lplpDP: IDirectPlay;
+function DXDirectPlayCreate(const lpGUID: TGUID; out lplpDP:
+  //{$IfDef DX7}
+  IDirectPlay;
+  //{$Else}IDirectPlay8Server{$EndIf};
   pUnk: IUnknown): HRESULT;
 implementation
 uses DXPlayFm, DXConsts;
     raise EDXPlayError.Create(WindowsErrorMsg(ErrorCode));
   Result := P;
   CoTaskMemFree(P);
 end;
-function DXDirectPlayCreate(const lpGUID: TGUID; out lplpDP: IDirectPlay;
+function DXDirectPlayCreate(const lpGUID: TGUID; out lplpDP:
+  //{$IfDef DX7}
+  IDirectPlay;
+  //{$Else}IDirectPlay8Server{$EndIf};
   pUnk: IUnknown): HRESULT;
 type
   TDirectPlayCreate= function(const lpGUID: TGUID; out lplpDP: IDirectPlay; pUnk: IUnknown): HRESULT; stdcall;
 begin
   Result := TDirectPlayCreate(DXLoadLibrary('DPlayX.dll', 'DirectPlayCreate'))
     (lpGUID, lplpDP, pUnk);
 end;
+{$IFDEF UNICODE}
+function DXDirectPlayEnumerate(lpEnumDPCallback: TDPEnumDPCallbackW; lpContext: Pointer): HRESULT;
+type
+  TDirectPlayEnumerateW= function(lpEnumDPCallback: TDPEnumDPCallbackW; lpContext: Pointer): HRESULT; stdcall;
+begin
+  Result := TDirectPlayEnumerateW(DXLoadLibrary('DPlayX.dll', 'DirectPlayEnumerateW'))
+    (lpEnumDPCallback, lpContext);
+end;
+function DXDirectPlayLobbyCreate(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobbyW;
+  lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD): HRESULT;
+type
+  TDirectPlayLobbyCreateW = function(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobbyW;
+    lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD): HRESULT; stdcall;
+begin
+  Result := TDirectPlayLobbyCreateW(DXLoadLibrary('DPlayX.dll', 'DirectPlayLobbyCreateW'))
+    (lpguidSP, lplpDPL, lpUnk, lpData, dwDataSize);
+end;
+{$ELSE}
-function DXDirectPlayEnumerateA(lpEnumDPCallback: TDPEnumDPCallbackA; lpContext: Pointer): HRESULT;
+function DXDirectPlayEnumerate(lpEnumDPCallback: TDPEnumDPCallbackA; lpContext: Pointer): HRESULT;
 type
   TDirectPlayEnumerateA= function(lpEnumDPCallback: TDPEnumDPCallbackA; lpContext: Pointer): HRESULT; stdcall;
 begin
   Result := TDirectPlayEnumerateA(DXLoadLibrary('DPlayX.dll', 'DirectPlayEnumerateA'))
     (lpEnumDPCallback, lpContext);
 end;
-function DXDirectPlayLobbyCreateA(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobbyA;
+function DXDirectPlayLobbyCreate(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobbyA;
   lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD): HRESULT;
 type
   TDirectPlayLobbyCreateA = function(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobbyA;
     lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD): HRESULT; stdcall;
 begin
   Result := TDirectPlayLobbyCreateA(DXLoadLibrary('DPlayX.dll', 'DirectPlayLobbyCreateA'))
     (lpguidSP, lplpDPL, lpUnk, lpData, dwDataSize);
 end;
+{$ENDIF}
 {  TDXPlayPlayers  }
 constructor TDXPlayPlayers.Create;
 begin
   inherited Create(TDXPlayPlayer);
       TStrings(lpContext).Add( PChar(lpData));
     Result := True;
   end;
 var
+  {$IFDEF UNICODE}
+  Lobby1: IDirectPlayLobbyW;
+  Lobby: IDirectPlayLobby2W;
+  DPlay: IDirectPlay4W;
+  {$ELSE}
   Lobby1: IDirectPlayLobbyA;
   Lobby: IDirectPlayLobby2A;
-  DPlay1: IDirectPlay;
   DPlay: IDirectPlay4A;
+  {$ENDIF}
+  DPlay1: IDirectPlay;
   lpAddress: Pointer;
   dwAddressSize: DWORD;
 begin
   if FModemNames=nil then
   begin
     FModemNames := TStringList.Create;
     try
-      if DXDirectPlayLobbyCreateA(PGUID(nil)^, Lobby1, nil, nil, 0)<>0 then
+      if DXDirectPlayLobbyCreate(PGUID(nil)^, Lobby1, nil, nil, 0)<>0 then
         raise EDXPlayError.CreateFmt(SCannotInitialized, [SDirectPlay]);
-      Lobby := Lobby1 as IDirectPlayLobby2A;
+      Lobby := Lobby1 as {$IFDEF UNICODE}IDirectPlayLobby2W{$ELSE}IDirectPlayLobby2A{$ENDIF};
       if DXDirectPlayCreate(DPSPGUID_MODEM, DPlay1, nil)<>0 then
         raise EDXPlayError.CreateFmt(SCannotInitialized, [SDirectPlay]);
-      DPlay := DPlay1 as IDirectPlay4A;
+      DPlay := DPlay1 as {$IFDEF UNICODE}IDirectPlay4W{$ELSE}IDirectPlay4A{$ENDIF};
       {  get size of player address for all players  }
-      if DPlay.GetPlayerAddress(DPID_ALLPLAYERS, nil^, dwAddressSize)<>DPERR_BUFFERTOOSMALL then
+      if DPlay.GetPlayerAddress(DPID_ALLPLAYERS, nil, dwAddressSize)<>DPERR_BUFFERTOOSMALL then
         raise EDXPlayError.Create(SDXPlayModemListCannotBeAcquired);
       GetMem(lpAddress, dwAddressSize);
       try
         FillChar(lpAddress^, dwAddressSize, 0);
         {  get the address  }
-        if DPlay.GetPlayerAddress(DPID_ALLPLAYERS, lpAddress^, dwAddressSize)<>0 then
+        if DPlay.GetPlayerAddress(DPID_ALLPLAYERS, lpAddress, dwAddressSize)<>0 then
           raise EDXPlayError.Create(SDXPlayModemListCannotBeAcquired);
         {  get modem strings from address and put them in the combo box  }
         if Lobby.EnumAddress(@EnumModemAddress, lpAddress^, dwAddressSize, FModemNames)<>0 then
           raise EDXPlayError.Create(SDXPlayModemListCannotBeAcquired);
       lpvMsgBuffer := nil;
       dwMsgBufferSize := 0;
       try
         repeat
-          hr := FDPlay.Receive(idFrom, idTo, DPRECEIVE_ALL, lpvMsgBuffer^, dwMsgBufferSize);
+          hr := FDPlay.Receive(idFrom, idTo, DPRECEIVE_ALL, lpvMsgBuffer, dwMsgBufferSize);
           if hr=DPERR_BUFFERTOOSMALL then
           begin
             ReAllocMem(lpvMsgBuffer, dwMsgBufferSize);
-            hr := FDPlay.Receive(idFrom, idTo, DPRECEIVE_ALL, lpvMsgBuffer^, dwMsgBufferSize);
+            hr := FDPlay.Receive(idFrom, idTo, DPRECEIVE_ALL, lpvMsgBuffer, dwMsgBufferSize);
           end;
           if (hr=0) and (dwMsgBufferSize>=SizeOf(TDPMSG_GENERIC)) then
           begin
             if idFrom=DPID_SYSMSG then
                       Player.FID := Msg_CreatePlayerOrGroup.DPID;
                       Player.FRemotePlayer := True;
                       with Msg_CreatePlayerOrGroup.dpnName do
                       begin
+                        {$IFDEF UNICODE}
+                        if lpszShortNameW<>nil then
+                          Player.FName := lpszShortNameW;
+                        {$ELSE}
                         if lpszShortNameA<>nil then
                           Player.FName := lpszShortNameA;
+                        {$ENDIF}
                       end;
                       DoAddPlayer(Player);
                     end;
                   end;
   if Assigned(FOnSendComplete) then FOnSendComplete(Self, MessageID, Result, SendTime);
 end;
 function TCustomDXPlay.GetProviders: TStrings;
-  function EnumProviderCallback(const lpguidSP: TGUID; lpSPName: LPSTR;
+  function EnumProviderCallback(const lpguidSP: TGUID; lpSPName: {$IFDEF UNICODE}LPCTSTR{$ELSE}LPSTR{$ENDIF};
       dwMajorVersion: DWORD; dwMinorVersion: DWORD; lpContext: Pointer):
       BOOL; stdcall;
   var
     GUID: PGUID;
   begin
 begin
   if FProviders=nil then
   begin
     FProviders := TStringList.Create;
     try
-      DXDirectPlayEnumerateA(@EnumProviderCallback, FProviders);
+      DXDirectPlayEnumerate(@EnumProviderCallback, FProviders);
     except
       FProviders.Free; FProviders := nil;
       raise;
     end;
   end;
       Exit;
     end;
     Guid := New(PGUID);
     Move(lpThisSD.guidInstance, Guid^, SizeOf(TGUID));
+    {$IFDEF UNICODE}
+    TStrings(lpContext).AddObject(lpThisSD.lpszSessionNameW, TObject(Guid));
+    {$ELSE}
     TStrings(lpContext).AddObject(lpThisSD.lpszSessionNameA, TObject(Guid));
+    {$ENDIF}
     Result := True;
   end;
 var
   dpDesc: TDPSessionDesc2;
 var
   i: Integer;
   ProviderGUID: TGUID;
   addressElements: array[0..15] of TDPCompoundAddressElement;
   dwElementCount: Integer;
+  {$IFDEF UNICODE}
+  Lobby1: IDirectPlayLobbyW;
+  Lobby: IDirectPlayLobby2W;
+  {$ELSE}
   Lobby1: IDirectPlayLobbyA;
   Lobby: IDirectPlayLobby2A;
+  {$ENDIF}
   lpAddress: Pointer;
   dwAddressSize: DWORD;
 begin
   i := Providers.IndexOf(ProviderName);
   if i=-1 then
     raise EDXPlayError.CreateFmt(SDXPlayProviderNotFound, [ProviderName]);
   ProviderGUID := PGUID(Providers.Objects[i])^;
   {  DirectPlay address making  }
-  if DXDirectPlayLobbyCreateA(PGUID(nil)^, Lobby1, nil, nil, 0)<>0 then
+  if DXDirectPlayLobbyCreate(PGUID(nil)^, Lobby1, nil, nil, 0)<>0 then
     raise EDXPlayError.CreateFmt(SCannotInitialized, [SDirectPlay]);
-  Lobby := Lobby1 as IDirectPlayLobby2A;
+  Lobby := Lobby1 as {$IFDEF UNICODE}IDirectPlayLobby2W{$ELSE}IDirectPlayLobby2A{$ENDIF};
   FillChar(addressElements, SizeOf(addressElements), 0);
   dwElementCount := 0;
   addressElements[dwElementCount].guidDataType := DPAID_ServiceProvider;
       addressElements[dwElementCount].lpData := @TCPIPSetting.FPort;
       Inc(dwElementCount);
     end;
   end;
-  if Lobby.CreateCompoundAddress(addressElements[0], dwElementCount, nil^, dwAddressSize)<>DPERR_BUFFERTOOSMALL then
+  if Lobby.CreateCompoundAddress(addressElements[0], dwElementCount, nil, dwAddressSize)<>DPERR_BUFFERTOOSMALL then
     raise EDXPlayError.CreateFmt(SCannotInitialized, [SDirectPlay]);
   GetMem(lpAddress, dwAddressSize);
   try
     FillChar(lpAddress^, dwAddressSize, 0);
-    if Lobby.CreateCompoundAddress(addressElements[0], dwElementCount, lpAddress^, dwAddressSize)<>0 then
+    if Lobby.CreateCompoundAddress(addressElements[0], dwElementCount, lpAddress, dwAddressSize)<>0 then
       raise EDXPlayError.CreateFmt(SCannotInitialized, [SDirectPlay]);
     {  DirectPlay initialization  }
     if CoCreateInstance(CLSID_DirectPlay, nil, CLSCTX_INPROC_SERVER, IID_IDirectPlay4A, DPlay)<>0 then
       raise EDXPlayError.CreateFmt(SCannotInitialized, [SDirectPlay]);
     Player.FID := TDPID;
     Player.FRemotePlayer := True;
     with lpName do
     begin
+      {$IFDEF UNICODE}
+      if lpszShortNameW<>nil then
+        Player.FName := lpszShortNameW;
+      {$ELSE}
       if lpszShortNameA<>nil then
         Player.FName := lpszShortNameA;
+      {$ENDIF}
     end;
     Result := True;
   end;
     FRecvEvent[0] := CreateEvent(nil, False, False, nil);
     FLocalPlayer := TDXPlayPlayer.Create(FPlayers);
     FLocalPlayer.FName := NameS;
-    if FDPlay.CreatePlayer(FLocalPlayer.FID, Name, FRecvEvent[0], nil^, 0, 0)<>DP_OK then
+    if FDPlay.CreatePlayer(FLocalPlayer.FID, @Name, FRecvEvent[0], nil, 0, 0)<>DP_OK then
       raise EDXPlayError.CreateFmt(SCannotOpened, [FSessionName]);
     {  Player enumeration  }
-    FDPlay.EnumPlayers(PGUID(nil)^, @EnumPlayersCallback2, Self, DPENUMPLAYERS_REMOTE);
+    FDPlay.EnumPlayers(PGUID(nil), @EnumPlayersCallback2, Self, DPENUMPLAYERS_REMOTE);
     FIsHost := FPlayers.Count=1;
     FCalledDoOpen := True; DoOpen;
     DoAddPlayer(FLocalPlayer);
 end;
 function TCustomDXPlay.OpenDPlayWithLobby(out Name: string): Boolean;
 var
   DPlay1: IDirectPlay2;
+  {$IFDEF UNICODE}
+  Lobby: IDirectPlayLobbyW;
+  {$ELSE}
   Lobby: IDirectPlayLobbyA;
+  {$ENDIF}
   dwSize: DWORD;
   ConnectionSettings: PDPLConnection;
 begin
   Result := False;
-  if DXDirectPlayLobbyCreateA(PGUID(nil)^, Lobby, nil, nil, 0)<>0 then
+  if DXDirectPlayLobbyCreate(PGUID(nil)^, Lobby, nil, nil, 0)<>0 then
     Exit;
-  if Lobby.GetConnectionSettings(0, PDPLConnection(nil)^, dwSize)<>DPERR_BUFFERTOOSMALL then
+  if Lobby.GetConnectionSettings(0, PDPLConnection(nil), dwSize)<>DPERR_BUFFERTOOSMALL then
     Exit;
   GetMem(ConnectionSettings, dwSize);
   try
-    if Lobby.GetConnectionSettings(0, ConnectionSettings^, dwSize)<>0 then
+    if Lobby.GetConnectionSettings(0, ConnectionSettings, dwSize)<>0 then
       Exit;
     with ConnectionSettings^.lpSessionDesc^ do
     begin
       dwFlags := DPSESSION_MIGRATEHOST or DPSESSION_KEEPALIVE or DPSESSION_DIRECTPLAYPROTOCOL;
     FDPlay := DPlay1 as IDirectPlay4A;
     ChangeDPlay;
     with ConnectionSettings.lpSessionDesc^ do
     begin
+      {$IFDEF UNICODE}
+      if lpszSessionNameW<>nil then
+        FSessionName := lpszSessionNameW;
+      {$ELSE}
       if lpszSessionNameA<>nil then
         FSessionName := lpszSessionNameA;
+      {$ENDIF}
     end;
     with ConnectionSettings.lpPlayerName^ do
     begin
+      {$IFDEF UNICODE}
+      if lpszShortNameW<>nil then
+        Name := lpszShortNameW;
+      {$ELSE}
       if lpszShortNameA<>nil then
         Name := lpszShortNameA;
+      {$ENDIF}
     end;
   finally
     FreeMem(ConnectionSettings);
   end;
   begin
     {  Session connection  }
     FillChar(dpDesc, SizeOf(dpDesc), 0);
     dpDesc.dwSize := SizeOf(dpDesc);
     dpDesc.dwFlags := DPSESSION_MIGRATEHOST or DPSESSION_KEEPALIVE;
+    {$IFDEF UNICODE}
+    dpDesc.lpszSessionNameW := {$IFDEF VER12UP}PChar{$ELSE}PWideChar{$ENDIF}(SessionName);
+    {$ELSE}
-    dpDesc.lpszSessionNameA := PChar(SessionName);
+    dpDesc.lpszSessionNameA := PAnsiChar(SessionName);
+    {$ENDIF}
     dpDesc.guidApplication := DXPlayStringToGUID(GUID);
     dpDesc.dwMaxPlayers := MaxPlayers;
     hr := FDPlay.Open(dpDesc, DPOPEN_CREATE);
     if hr=DPERR_USERCANCEL then Exit;
   begin
     {  Message to me  }
     DoMessage(FLocalPlayer, Data, DataSize);
   end else
   if FAsync and FAsyncSupported then
-    FDPlay.SendEx(FLocalPlayer.ID, ToID, DPSEND_GUARANTEED or DPSEND_ASYNC, Data^, DataSize, 0, 0, nil, nil)
+    FDPlay.SendEx(FLocalPlayer.ID, ToID, DPSEND_GUARANTEED or DPSEND_ASYNC, Data, DataSize, 0, 0, nil, nil)
   else
     FDPlay.Send(FLocalPlayer.ID, ToID, DPSEND_GUARANTEED, Data^, DataSize);
 end;
 function TCustomDXPlay.SendMessageEx(ToID: TDPID; Data: Pointer; DataSize: Integer;
   if ToID=FLocalPlayer.ID then
   begin
     {  Ž©•ªˆ¶‚ÌƒƒbƒZ[ƒW  }
     DoMessage(FLocalPlayer, Data, DataSize);
   end else
-    FDPlay.SendEx(FLocalPlayer.ID, ToID, dwFlags, Data^, DataSize,
+    FDPlay.SendEx(FLocalPlayer.ID, ToID, dwFlags, Data, DataSize,
 , 0, nil, @Result); // 0 ˆÈŠO‚ÍƒTƒ|[ƒg‚µ‚È‚¢ƒfƒoƒCƒX‚ ‚é‚Ì‚ÅŽg‚í‚È‚¢
 end;
 procedure TCustomDXPlay.SetGUID(const Value: string);
 begin

Subversion Repositories spacemission

spacemission/VCL_DELPHIX_D6/DXPlay.pas – Rev 1 → 4