FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Preguntonta sobre ruta?
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Preguntonta sobre ruta?
Posted: Wed May 17, 2006 08:07 PM

Amigos del foro como siempre dando lora con mi pregunticas..

Resulta y pasa que en algunas ocaciones me ha tocado enviarles a los clienes archivos comprimidos para actualizar el programa y resulta y pasa que aparte de explicarles como descomprimir me toca decirles que corte y copie en una carpeta especicifa por que si no el programa no corre. en este momento enruto las bases de datos de la siguiente manera:

c:\lymainv\lamdbfs\clientes.dbf

me gustaria que el sistema tome la carpeta en donde este descargado automaticamente ose que tome

....\lamdbf\clientes.dbf

y anterior a esto no importe en que carpeta este...

Espero me alla hecho entender...

De antemando GRACIAS

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Preguntonta sobre ruta?
Posted: Wed May 17, 2006 08:24 PM

¿No te vale InnoSetup?.- Te comprime los archivos que quieras y los descarga en el directorio que tu le pongas.

Un saludo



Manuel
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Preguntonta sobre ruta?
Posted: Wed May 17, 2006 10:04 PM

Con las funciones:

CURDRIVE()+":\"+CURDIR(CURDRIVE())

Te regresa la ruta en la que esta corriendo el EXE, por ejemplo:

"C:\TOROS\SISTEMA"

no se si esto te sirva. Salu2

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Preguntonta sobre ruta?
Posted: Wed May 17, 2006 11:28 PM

Hola Leandro

Me uno a la sugerencia de Manuel, por que no usas algun programa para generar un instalador ? ahi le especificas que archivos, en donde se deben copiar, etc, etc.

Hay muchos por la red, algunos son gratis y claro, otros con costo :wink:

En lo personal, yo uso el Astrum I.W. desde hace varios años y anda muy bien, con ese genero instalaciones y actualizaciones para los clientes.

Saludos

FWH 10.6 + xHarbour + Borland 582
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Preguntonta sobre ruta?
Posted: Thu May 18, 2006 12:30 AM

Mi caso es similar al de Leandro, mis clientes tienen pocos conocimientos en Windows y es un gran problema mandarles actualizaciones:

  • Si les mandas un EXE, ya casi todos los servidores rechazan este tipo de archivos adjuntos.
  • Si les mandas el EXE con la extensión modificada, es dificil explicarles que deben copiarlo a una carpeta temporal, cambiarle el nombre y después copiarlo a la carpeta definitiva para que sustituya al EXE original.
  • Si lo mandas dentro de un ZIP, algunos servidores (gmail por ejemplo) rechazan archivos adjuntos ZIP que contengan EXEs además de que no siempre tienen un PKZIP para descomprimirlo y de que también hay que explicarles como y donde lo deben descomprimir.

Estoy pensando seriamente en facilitarles todo esto a mis clientes en la siguiente versón poniendo en el sistema un modulo que se llame "Actualizar versión" y que lo que haga es correr otro EXE también creado por mi y que este se encarge de buscar dentro de su maquina un archivo "X", lo descomprima, lo renombre y lo copie a la carpeta en donde esta el sistema.

Si alguien tiene una mejor idea, ahorita es cuando.

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
Posts: 298
Joined: Fri Oct 07, 2005 05:20 AM
Preguntonta sobre ruta?
Posted: Thu May 18, 2006 02:51 AM

Leandro :

Puedes usar lo siguiente :

cOrigen := cFilePath( GetModuleFileName( GetInstance() ))

Donde cOrigen te devolverá la ruta exacta donde está tu aplicación

Vikthor
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
gracias
Posted: Thu May 18, 2006 04:49 PM

Gracias a todos por las respuestas... las probe todas pero la de victor se adapata mas a lo que necesito en el momento...

Lo de los instaladores es bueno.. pero no se ajusta a lo que necesito en el momento...

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Esto sirve?
Posted: Thu May 18, 2006 06:08 PM

Mirando por ahi varios de los ejemplos de five win me encontre con esta otra opcion.. creo que tambien sirve...

cIni := ".\inicioser.ini"

alguien me puede indicar realmente como funciona?

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Esto sirve?
Posted: Fri May 19, 2006 04:26 AM
leandro wrote:Mirando por ahi varios de los ejemplos de five win me encontre con esta otra opcion.. creo que tambien sirve...

cIni := ".\inicioser.ini"

alguien me puede indicar realmente como funciona?


Mi estimado, los INI es un archivo de texto donde guardas parámetros.
Ej.

[AUTOR]
Empresa=INCOS (c) 2006
Sistema=Marcajes personalizadas - INCOS (c) 2006
eMail=soporte.tecnico@incos.com.mx
WEB=www.incos.com.mx
Teléfono=(937) 322-5044

Y rescatarlos desde tu aplicación.

cIniFile := ".\leandro.ini"
WritePProString( "AUTOR" , "Copyright  ", "Incos (c) 2006", cIniFile )

AUTOR es digamos el item PADRE y Copyright será el item HIJO, el código anterior es para guardar un valor en el ini

cIniFile    := ".\leandro.ini"
cCopyR   := GetPvProfString( "AUTOR", "Copyright", "0", cIniFile )


En este último código, es para rescatar el valor guardado con anterioridad, te comento que los valores pasados son de tipo caracter, eso quiere decir que hay que convertir los valores de tipo diferente.

Espero haber sido claro, o por lo menos un poco menos confuso

jjejjejje
William, Morales

Saludos



méxico.sureste

Continue the discussion