[Problema] Errores Cliente DX8

Fhkek

Vale por DOS medallas.
#1
Este es el error que me queda por solucionar, si me pueden ayudar bienvenidos sean y gracias.

 
Última edición:

Zeiber

Playmaker.-
#2
Si no cortastes la linea deberia ser la siguiente:

Código:
Set DirectDevice = DirectD3D.CreateDevice( _
                                D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, _
                                frmMain.MainViewPic.hwnd, D3DCREATE_SOFTWARE_VERTEXPROCESSING, _
                                D3DWindow)
 

Fhkek

Vale por DOS medallas.
#13
Tengo 2 pc de escritorio con w10 de 64 bits y no me pasa este problema.
Ahora lo bajo en w7 32 bits y si pasa.
Para mí que es el DirectX q me jode q no logro hacer andar.
te dejo el sub:
Código:
Public Function Engine_DirectX8_Init() As Boolean

    Dim DispMode As D3DDISPLAYMODE
    Dim D3DWindow As D3DPRESENT_PARAMETERS
    
    Set DirectX = New DirectX8
    Set DirectD3D = DirectX.Direct3DCreate
    Set DirectD3D8 = New D3DX8

    DirectD3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, DispMode
    
    With D3DWindow
        .Windowed = True
        .SwapEffect = IIf((ClientSetup.vSync) = True, D3DSWAPEFFECT_COPY_VSYNC, D3DSWAPEFFECT_COPY)  'Settings
        .BackBufferFormat = DispMode.Format
        .BackBufferWidth = frmMain.MainViewPic.ScaleWidth
        .BackBufferHeight = frmMain.MainViewPic.ScaleHeight
        .EnableAutoDepthStencil = 1
        .AutoDepthStencilFormat = D3DFMT_D16
        .hDeviceWindow = frmMain.MainViewPic.hwnd
    End With

    Select Case ClientSetup.Aceleracion
        Case 0 '   Software
            Set DirectDevice = DirectD3D.CreateDevice( _
                                D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, _
                                frmMain.MainViewPic.hwnd, D3DCREATE_SOFTWARE_VERTEXPROCESSING, _
                                D3DWindow)
        Case 1 '   Hardware
            Set DirectDevice = DirectD3D.CreateDevice( _
                                D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, _
                                frmMain.MainViewPic.hwnd, _
                                D3DCREATE_HARDWARE_VERTEXPROCESSING, _
                                D3DWindow)
        Case 2 '   Mixed
            Set DirectDevice = DirectD3D.CreateDevice( _
                                D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, _
                                frmMain.MainViewPic.hwnd, _
                                D3DCREATE_MIXED_VERTEXPROCESSING, _
                                D3DWindow)
        Case Else '   Si no hay opcion entramos en Software para asegurarnos que funcione el cliente
            Set DirectDevice = DirectD3D.CreateDevice( _
                                D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, _
                                frmMain.MainViewPic.hwnd, _
                                D3DCREATE_SOFTWARE_VERTEXPROCESSING, _
                                D3DWindow)
    End Select

    Engine_Init_FontTextures
    Engine_Init_FontSettings
    
    DirectDevice.SetVertexShader D3DFVF_XYZRHW Or D3DFVF_TEX1 Or D3DFVF_DIFFUSE Or D3DFVF_SPECULAR
    DirectDevice.SetRenderState D3DRS_LIGHTING, False
    DirectDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_SRCALPHA
    DirectDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
    DirectDevice.SetRenderState D3DRS_ALPHABLENDENABLE, True
    DirectDevice.SetRenderState D3DRS_POINTSIZE, Engine_FToDW(2)
    DirectDevice.SetTextureStageState 0, D3DTSS_ALPHAOP, D3DTOP_MODULATE
    DirectDevice.SetRenderState D3DRS_POINTSPRITE_ENABLE, 1
    DirectDevice.SetRenderState D3DRS_POINTSCALE_ENABLE, 0
    
    EndTime = GetTickCount
    
    If Err Then
        MsgBox "No se puede iniciar DirectX. Por favor asegurese de tener la última versión correctamente instalada. Puede descargarla desde: " & Client_Web & "support/directx.zip"
        Engine_DirectX8_Init = False
        Exit Function
    End If
    
    If Err Then
        MsgBox "No se puede iniciar DirectD3D. Por favor asegurese de tener la última versión correctamente instalada. Puede descargarla desde: " & Client_Web & "support/directx.zip"
        Engine_DirectX8_Init = False
        Exit Function
    End If
    
    If DirectDevice Is Nothing Then
        MsgBox "No se puede inicializar DirectDevice. Por favor asegurese de tener la última versión correctamente instalada. Puede descargarla desde: " & Client_Web & "support/directx.zip"
        Engine_DirectX8_Init = False
        Exit Function
    End If
    
    Engine_DirectX8_Init = True
End Function
 
#14
Cuál es el error que te tira? Porque ahi dice que esta vacia la variable/objeto pero porque no ejecuto la instrucción. Apreta F8 y decí que error te tira.
 
Última edición:
Arriba