| 1,23 → 1,10 |
|---|
| unit DXPlayFm; |
| |
| {$INCLUDE DelphiXcfg.inc} |
| |
| {$IFNDEF UseDirectPlay} |
| // If you want to use DXPlayFm.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc |
| interface |
| implementation |
| {$ELSE} // !UseDirectPlay |
| |
| interface |
| |
| uses |
| Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| StdCtrls, ExtCtrls, DXPlay, ActiveX, DXETable, DIB, |
| {$IfDef StandardDX} |
| DirectDraw, DirectPlay; |
| {$Else} |
| DirectX; |
| {$EndIf} |
| StdCtrls, ExtCtrls, DirectX, DXPlay, ActiveX, DXETable, DIB; |
| |
| type |
| TDelphiXDXPlayForm = class(TForm) |
| 67,9 → 54,7 |
|---|
| private |
| FProviderGUID: TGUID; |
| public |
| DPlay: //{$IfDef DX7} |
| IDirectPlay4A; |
| //{$Else}IDirectPlay8Address{$EndIf}; |
| DPlay: IDirectPlay4A; |
| DXPlay: TCustomDXPlay; |
| PlayerName: string; |
| ProviderName: string; |
| 119,15 → 104,12 |
|---|
| |
| procedure InitDirectPlay; |
| var |
| DPlay1: //{$IfDef DX7} |
| IDirectPlay; |
| //{$Else}IDirectPlay8Server{$EndIf}; |
| DPlay1: IDirectPlay; |
| begin |
| if DXDirectPlayCreate(FProviderGUID, DPlay1, nil)<>0 then |
| raise EDXPlayError.CreateFmt(SCannotInitialized, [SDirectPlay]); |
| |
| DPlay := DPlay1 as //{$IfDef DX7} |
| IDirectPlay4A//{$Else}IDirectPlay8Address{$EndIf} |
| DPlay := DPlay1 as IDirectPlay4A; |
| end; |
| |
| function EnumSessionsCallback(const lpThisSD: TDPSessionDesc2; |
| 143,11 → 125,8 |
|---|
| |
| Guid := New(PGUID); |
| Move(lpThisSD.guidInstance, Guid^, SizeOf(TGUID)); |
| {$IFDEF UNICODE} |
| TDelphiXDXPlayForm(lpContext).JoinGameSessionList.Items.AddObject(lpThisSD.lpszSessionNameW, Pointer(Guid)); |
| {$ELSE} |
| TDelphiXDXPlayForm(lpContext).JoinGameSessionList.Items.AddObject(lpThisSD.lpszSessionNameA, Pointer(Guid)); |
| {$ENDIF} |
| |
| Result := True; |
| end; |
| |
| 253,11 → 232,7 |
|---|
| with lpName do |
| begin |
| if lpszShortNameA<>nil then |
| {$IFDEF UNICODE} |
| TDelphiXDXPlayForm(lpContext).JoinGamePlayerList.Items.Add(lpszShortNameW); |
| {$ELSE} |
| TDelphiXDXPlayForm(lpContext).JoinGamePlayerList.Items.Add(lpszShortNameA); |
| {$ENDIF} |
| end; |
| |
| Result := True; |
| 289,7 → 264,7 |
|---|
| hr := TempDPlay.Open(dpDesc, DPOPEN_JOIN); |
| if hr<>0 then Exit; |
| try |
| TempDPlay.EnumPlayers(PGUID(nil), @EnumPlayersCallback2, Self, DPENUMPLAYERS_REMOTE); |
| TempDPlay.EnumPlayers(PGUID(nil)^, @EnumPlayersCallback2, Self, DPENUMPLAYERS_REMOTE); |
| finally |
| TempDPlay.Close; |
| end; |
| 436,7 → 411,5 |
|---|
| end; |
| end; |
| |
| {$ENDIF} // UseDirectPlay |
| |
| end. |
| |