Descompresión de graficos directos en memoria

» 27 Sep 2011 23:53

Donde esta ese codigo de descompresion y lectura?

EDIT: Ah es el de ore

» 28 Sep 2011 12:32

Benja.- escribió:Donde esta ese codigo de descompresion y lectura?

EDIT: Ah es el de ore

Si.. igual creo que 13.x usa el mismo módulo, asi que no hay problema. Es mas, los de alkon deberian de implementar esto..

» 28 Sep 2011 13:09

Excelente aporte.

» 28 Sep 2011 14:00

Genial •Parra. Excelente Aporte

» 07 Oct 2011 11:17

Che , sirve para cualqier vercion ?

» 07 Oct 2011 11:45

[JuliaaN] escribió:Che , sirve para cualqier vercion ?

Si lleva implementado el modulo de compresion de ORE o 13.x, si.

Mi Canal YouTube · » 07 Oct 2011 14:49

me marca:

La llamada a función en la parte izq de la asignacion debe devolver un tipo Variant u Object

y me marca

Extract_File = True

del sub Extract_File_Memory

alguna idea de q puede ser?

» 09 Oct 2011 14:48

Perdon, se me debió pasar. Solo tienes que remplazar esta linea:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Extract_File = True

Por esta:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Extract_File_Memory = True

Mi Canal YouTube · » 19 Oct 2011 15:28

me surgio otro problema, primero no estaba seguro asi q compile el mismo cliente,

uno usaba extraccion en la memoria, y el otro la extraccion en disco

el del disco anda bien, pero el q usa este sistema, no abre el juego

lo mas raro es q en modo debug si anda, pero cuando lo compilo y lo pruebo, al momento de cargar una textura, el juego se cierra

alguna idea ???

» 19 Oct 2011 15:47

GoDKeR escribió:me surgio otro problema, primero no estaba seguro asi q compile el mismo cliente,

uno usaba extraccion en la memoria, y el otro la extraccion en disco

el del disco anda bien, pero el q usa este sistema, no abre el juego

lo mas raro es q en modo debug si anda, pero cuando lo compilo y lo pruebo, al momento de cargar una textura, el juego se cierra

alguna idea ???

mhh, en debug te anda y cuando lo usas normal se cierra? que extraño =/

Podrias hacer una pequeña prueba? Metele msgbox a cada linea del codigo (solo en la parte de cargar la textura), así encuentras la linea justo donde se cierra.

Algo tipo:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

   Dim InfoHead As INFOHEADER
    Dim file As String
            msgbox "1"
            InfoHead = File_Find(App.Path & "\Recursos\Graficos\Graficos.TLAO", CStr(Archivo) & ".png")
            msgbox "2"
        If InfoHead.lngFileSize <> 0 Then
            file = zLib.Get_Extract(graphics, CStr(Archivo) & ".png")
           
            Set .texture = mD3D.CreateTextureFromFileEx(device, file, _
                D3DX_DEFAULT, D3DX_DEFAULT, 0, 0, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, D3DX_FILTER_POINT, _
                D3DX_FILTER_NONE, &HFF000000, texture_info, ByVal 0)
                                               
        End If

etc..

PD: Has cambiado el path del pack y su extensión? lo de "\Recursos\Graficos\Graficos.TLAO", y segundo.., has cambiado .png por el formato que tu uses?

PD2: Al menos si lo has probado en debug.. funciona más rapido?

Mi Canal YouTube · » 19 Oct 2011 15:55

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Private Function CrearGrafico(ByVal Archivo As Integer, ByRef texwidth As Long, ByRef textheight As Long) As Direct3DTexture8
'**************************************************************
'Author: Juan Martín Sotuyo Dodero
'menduz was here
'
'**************************************************************
On Error GoTo ErrHandler
    Dim surface_desc As D3DSURFACE_DESC
    Dim texture_info As D3DXIMAGE_INFO
    Dim index As Integer
    Dim InfoHead As INFOHEADER
    Dim Buffer() As Byte
    MsgBox "1"
    index = Archivo Mod HASH_TABLE_SIZE
    
    With TexList(index)
        .surfaceCount = .surfaceCount + 1
        ReDim Preserve .SurfaceEntry(1 To .surfaceCount) As SURFACE_ENTRY_DYN
        With .SurfaceEntry(.surfaceCount)
            'Nombre
            .FileName = Archivo
           
            'Ultimo acceso
            .UltimoAcceso = GetTickCount
        MsgBox "2"
            InfoHead = File_Find(App.Path & "\Graficos\Graficos.kkao", CStr(Archivo) & ".bmp")
            
        'Si existe usamos BMP
        If InfoHead.lngFileSize <> 0 Then
        MsgBox "3"
            Extract_File_Memory graphics, App.Path & "\Graficos", LCase$(CStr(Archivo) & ".bmp"), Buffer()
        MsgBox "4"
            Set .texture = mD3D.CreateTextureFromFileInMemoryEx(device, Buffer(0), UBound(Buffer()) + 1, D3DX_DEFAULT, _
                                                            D3DX_DEFAULT, 0, 0, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, _
                                                            D3DX_FILTER_POINT, D3DX_FILTER_NONE, _
                                                            &HFF000000, texture_info, ByVal 0)
        MsgBox "5"
        Erase Buffer
        Else
            Call AddtoRichTextBox(frmMain.RecTxt, "Error al Cargar la textura " & CStr(Archivo) & ". Al parecer la textura no existe, contacte a los administradores para resolver el problema.", 255, 255, 255, True, False, False)
            Exit Function
        End If
            .texture.GetLevelDesc 0, surface_desc
            .texture_width = texture_info.Width
            .texture_height = texture_info.Height
            .size = surface_desc.size
            texwidth = .texture_width
            textheight = .texture_height
            Set CrearGrafico = .texture
            mFreeMemoryBytes = mFreeMemoryBytes - surface_desc.size
        End With
    End With
    Debug.Print mFreeMemoryBytes / 1024 / 1024; " MB LIBRES"
    Do While mFreeMemoryBytes < 0
        If Not RemoveLRU() Then
            Exit Do
        End If
    Loop
    
       Delete_File (Windows_Temp_Dir & CStr(Archivo) & ".bmp")
Exit Function
ErrHandler:
Debug.Print "ERROR EN GRHLOAD>" & Archivo & ".bmp"
Erase Buffer
End Function

llega hasta el "4", antes del 5 se cierra, osea esta linea:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Set .texture = mD3D.CreateTextureFromFileInMemoryEx(device, Buffer(0), UBound(Buffer()) + 1, D3DX_DEFAULT, _
                                                            D3DX_DEFAULT, 0, 0, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, _
                                                            D3DX_FILTER_POINT, D3DX_FILTER_NONE, _
                                                            &HFF000000, texture_info, ByVal 0)

y si, hay una diferencia, este es mas rapido

Descompresión de graficos directos en memoria

¿Quién está conectado?