GS-Zone
Facebook Twitter

Como cargar graficos etc desde Carpeta Graficos del Cliente Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

3

Nota » 14 Ene 2012 20:30

Eso mismo.. Me gustaria saber como hacer para que se carguen los graficos apartir de la carpeta graficos y no de la carpeta recursos(cuyos graficos estan encriptados). He estado investigando y creo que llegue al sitio exacto.. opinen y ayuden porfis.. nose como encaminar, omejor tengo miedo de "cagarla" xD es poniendo /graficos namas? Ahi os dejo el codigo:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Select Case file_type
  2.         Case Graphics
  3.             If UseOutputFolder Then
  4.                 SourceFilePath = resource_path & OUTPUT_PATH & "Graficos.iao"
  5.             Else
  6.                 SourceFilePath = resource_path & "\Graficos.iao"
  7.             End If
  8.             OutputFilePath = resource_path & GRAPHIC_PATH
  9.            
  10.         Case Midi
  11.             If UseOutputFolder Then
  12.                 SourceFilePath = resource_path & OUTPUT_PATH & "Midi.iao"
  13.             Else
  14.                 SourceFilePath = resource_path & "\MIDI.iao"
  15.             End If
  16.             OutputFilePath = resource_path & MIDI_PATH
  17.        
  18.         Case MP3
  19.             If UseOutputFolder Then
  20.                 SourceFilePath = resource_path & OUTPUT_PATH & "MP3.iao"
  21.             Else
  22.                 SourceFilePath = resource_path & "\MP3.iao"
  23.             End If
  24.             OutputFilePath = resource_path & MP3_PATH
  25.        
  26.         Case Wav
  27.             If UseOutputFolder Then
  28.                 SourceFilePath = resource_path & OUTPUT_PATH & "Sounds.iao"
  29.             Else
  30.                 SourceFilePath = resource_path & "\Sounds.iao"
  31.             End If
  32.             OutputFilePath = resource_path & WAV_PATH
  33.        
  34.         Case Scripts
  35.             If UseOutputFolder Then
  36.                 SourceFilePath = resource_path & OUTPUT_PATH & "Init.iao"
  37.             Else
  38.                 SourceFilePath = resource_path & "\Init.iao"
  39.             End If
  40.             OutputFilePath = resource_path & SCRIPT_PATH
  41.        
  42.         Case Interface
  43.             If UseOutputFolder Then
  44.                 SourceFilePath = resource_path & OUTPUT_PATH & "Interface.iao"
  45.             Else
  46.                 SourceFilePath = resource_path & "\Interface.iao"
  47.             End If
  48.             OutputFilePath = resource_path & INTERFACE_PATH
  49.        
  50.         Case Maps
  51.             If UseOutputFolder Then
  52.                 SourceFilePath = resource_path & OUTPUT_PATH & "Mapas.iao"
  53.             Else
  54.                 SourceFilePath = resource_path & "\Mapas.iao"
  55.             End If
  56.             OutputFilePath = resource_path & MAP_PATH
  57.         Case Else
  58.             Exit Function
  59.     End Select



Y tambien en declaraciones pone esto:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Enum resource_file_type
  2.     Graphics
  3.     Midi
  4.     MP3
  5.     Wav
  6.     Scripts
  7.     Patch
  8.     Interface
  9.     Maps
  10. End Enum
  11.  
  12. Private Const GRAPHIC_PATH As String = "\Graficos\"
  13. Private Const MIDI_PATH As String = "\Midi\"
  14. Private Const MP3_PATH As String = "\Mp3\"
  15. Private Const WAV_PATH As String = "\Wav\"
  16. Private Const MAP_PATH As String = "\Mapas\"
  17. Private Const INTERFACE_PATH As String = "\Interface\"
  18. Private Const SCRIPT_PATH As String = "\Init\"
  19. Private Const PATCH_PATH As String = "\Patches\"
  20. Private Const OUTPUT_PATH As String = "\Output\"


Ahora pienso..(diganme si estoy correcto o que falta para tal xD) :
Por ejemplo con la carga de graficos...
Select Case file_type
Case Graphics
If UseOutputFolder Then
SourceFilePath = resource_path & OUTPUT_PATH & "Graficos.iao"
Else
SourceFilePath = resource_path & "\Graficos.iao"
End If
OutputFilePath = resource_path & GRAPHIC_PATH

Tendria que borrar todo y dejar solamente:
Select Case file_type
Case Graphics
SourceFilePath = resource_path & GRAPHIC_PATH
??? asi?

Administrador de CruzNegrAO (Servidor Mundial Style IAO Pero Mas Desarrollado...)
http://www.cruznegrao.webs.com
ZoLTaR
RaZoV - lLider de CruzNegra|
454
Aprendiz [2]
Registrado: Diciembre 2011
Ubicación: Portugal
Mensajes: 259
Aportes: 2
Arriba

Nota » 15 Ene 2012 18:38

en el Case Graphics
cambia el SourceFilePath = resource_path & GRAPHIC_PATH
por SourceFilePath = App.Path & "/Graficos/"

Igualmente pensá que ese modulo que posteaste es para cargar gráficos encriptados

Imagen
Crónicas de Arcania: El Despertar. Próximamente...
Krono
<Crónicas de Arcania>
274
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 263
Aportes: 1
Arriba

Nota » 15 Ene 2012 21:09

Sip lo que nose es donde exactamente tener que cambiar algo para que lea los graficos, ya hize eso, probe ir a recursos y quitar el graficos.iao y se ve todo blanco(sin graficos, osea no lee la carpeta graficos) porque esta programado para leer un archivo y no una carpeta, eso sera nose.. que opinan? Ahora pondre el codigo de load graphdata

Administrador de CruzNegrAO (Servidor Mundial Style IAO Pero Mas Desarrollado...)
http://www.cruznegrao.webs.com
ZoLTaR
RaZoV - lLider de CruzNegra|
454
Aprendiz [2]
Registrado: Diciembre 2011
Ubicación: Portugal
Mensajes: 259
Aportes: 2
Arriba

Volver a Otras versiones

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados