Bonjour tout le monde,
J'ai un problème dont je n'arrive pas à me défaire. En effet, impossible d'initialiser mon serveur, j'obtient une erreur lors de l'instruction RegisterMessageHandler .
Voilà mon code :
dim DX as DirectX8
dim AppDesc as DPN_APPLICATION_DESC
dim DXPlayServeur As DirectPlay8Server
dim DXPlayServeurIP As DirectPlay8Address
Set DX = New DirectX8
With AppDesc
.guidApplication = "{5726CF1F-702B-5008-28BC-EF9C95D9E288}"
.lMaxPlayers = 32
.SessionName = "Test"
.lFlags = DPNSESSION_CLIENT_SERVER
End With
Set DXPlayServeur = DX.DirectPlayServerCreate
Set DXPlayServeurIP = DX.DirectPlayAddressCreate
DXPlayServeur.RegisterMessageHandler Me <--- ERREUR Type incompatible
DXPlayServeurIP.SetSP DP8SP_TCPIP
DXPlayServeurIP.AddComponentLong DPN_KEY_PORT, 2210
DXPlayServeur.Host AppDesc, DXPlayServeurIP
J'enprofite aussi pour poser une question : Le SDK de directX 8 /8.1 existe-t-il encore ? Si oui, où peut-on le téléchager ? Je ne trouve que le SDK de la version 9...
Partager