Clarion - Conectar a unidad de red 3

   
Vista:

Conectar a unidad de red 3

Publicado por Jose Acho (36 intervenciones) el 23/07/2008 21:32:57
Las variables GLO:Dev y GLO:Path y GLO:Terminal son variables globales del sistema

GLO:Dev (STRING(1))
GLO:Path (STRING(80))
GLO:Terminal BYTE

En Program setup (cuando arranca el programa)

! Establezco la conexion con el Server
! Leo el .ini
GLO:Server = GETINI('Main','SYS:Server',,'.XXXXXX.ini')
GLO:Dev = GETINI('Main','SYS:Dev',,'. XXXXXX.ini')
GLO:Path = GETINI('Main','SYS:Path',,'. XXXXXX.ini')

GLO:Terminal = GETINI('Main','SYS:Terminal',,'. XXXXXX.ini')

! Busco la primera letra disponible

IF GLO:Terminal > 1

x# = GetLogicalDriveStringsA(80,CDrives)

! Esta API devuelve un cstring con los dispositivos declarados en el sistema con el siguiente formato : A:<NULL>C:<NULL>.... según las unidades que estén en el sistema. El siguiente código en violeta lo use para encontrar la primer letra vacante despues de la C obviamente. A la letra obtenida la guardo en LOC:Drive
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu