FoxPro/Visual FoxPro - Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 13/01/2019 23:21:45

Buenas tardes estimados, para ejecutar mi programa sin tener instalado el foxpro9 tuve que copiar los siguientes dll y ocx en el directorio de mi ejecutable:
vfp9r.dll
vfp9t.dll
vfp9resn.dll
vfp9renu.dll
mscvcp71.dll
msvcr70.dll
msvcr71.dll
MSCOMCT2.OCX

Ésto no fue suficiente, además programé un archivo bat y de ésta forma luego de ececutarlo en la pc funciona , pero NO en todas las pc.
EL PROBLEMA CREO QUE ES CON LA LIBRERIA OCX POR ESO PROGRAMÉ EL ARCHIVO BAT.
El archivo bat es el siguiente:

@echo off

echo no olvidar ejecutar este archivo con botón derecho del mouse como administrador (caso contrario da un error, no se copia el archivo de biblioteca y no se procesa)

echo Actualizando archivo

copy c:\prgneg\mscomct2.ocx c:\windows\system32

copy c:\prgneg\mscomct2.ocx c:\windows\SysWOW64

c:\windows\system32\regsvr32 /u mscomct2.ocx

c:\windows\SysWOW64\regsvr32 /u mscomct2.ocx

rem del c:\*.exd /s

c:\windows\system32\regsvr32 mscomct2.ocx

c:\windows\SysWOW64\regsvr32 mscomct2.ocx

Rem esta linea es un comentario, la instruccion if es en el caso de que la

rem carpeta no exista.

IF ERRORLEVEL 2 GOTO ERROR

echo Proceso Completo

pause

******
Aguardo respuesta de alguna otra alternativa ,
ya que al ofrecer mi sistema en la web, necesito que se instale en forma automática por el usuario sin despender de mi.
Muchas Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 1.115

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Leonardo Daniel A. (499 intervenciones) el 14/01/2019 05:19:00

usa innosetup y desde ahi copias los archivos, registras el OCX y creas el icono

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 14/01/2019 10:46:25

Hola, ya utilicé el innosetup para instalar mi programa pero para registrar el ocx, lo hice una vez instalado ejecutando el archivo bat.
De la forma que vos decís cómo registro el ocx con el innosetup?
Desde ya gracias !

Valora esta respuesta

Comentar

Pos: 1

Val: 1.115

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Leonardo Daniel A. (499 intervenciones) el 14/01/2019 18:55:27

https://stackoverflow.com/questions/43214918/inno-setup-register-components-as-an-administrator

Valora esta respuesta

Comentar

Pos: 3

Val: 642

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Abel (286 intervenciones) el 14/01/2019 15:05:59

Por que no instalas todas las librerías (dll) en el system de windows según corresponda W32 o W64; tal vez no sea problema del OCX como crees. ¿O es que acaso te envía un error indicandote que es el control OCX?.

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 14/01/2019 18:43:14

Hola Abel , por lo general funciona con el bat que preparé,, cuando el usuario instala mi programa ,, le tengo que decir que instale el programa en sí y el bat que lo llamo auxiliar , ya lo probé con un cliente donde se lo envié por skipe y funcionó bien.en este caso un programita para agencias de autos.EN REALUDAD SE EJECUTA EN FORMA AUTOMÁTICA,, TAMBUEN LE OFREZCO A MI CLIENTE TOMARLE LA PC CON EL TEAMVIEWER.(PORQUE PUEDEN SER CLUENTES Q
UE NO ESTÉN EN MI LOCALIDAD, ESE ES EL TEMA)
Necesito que algún otro usuario me lo pruebe, más estando en el tema.
Me harías ese favor de probarlo ? Te lo puedo enviar por skipe.
Mi Skype es [email protected] igual que mi e.mail.
(Por skipe es mejor ya que no tuve problemas con el envío archivo , en cambio por Gmail No me deja)
Aguardo respuesta , gracias.

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 14/01/2019 21:35:50

Hola estimados si no equivoco el problema era que lo estaba instalando en un cpu con un sistema operativo de 64 bits

Ahi corregí:
copy c:\prgneg\mscomct2.ocx c:\windows\system32

*El próximo NO lo habia tenido en cuenta en algunas pc de 64 bits
copy c:\prgneg\mscomct2.ocx c:\windows\SysWOW64

c:\windows\system32\regsvr32 /u mscomct2.ocx

c:\windows\SysWOW64\regsvr32 /u mscomct2.ocx

rem del c:\*.exd /s

c:\windows\system32\regsvr32 mscomct2.ocx
c:\windows\SysWOW64\regsvr32 mscomct2.ocx

Continúo con la prueba.-
Muchas Gracias

Valora esta respuesta

Comentar

Pos: 3

Val: 642

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Abel (286 intervenciones) el 15/01/2019 13:24:10

No tengo problemas José en probar tu programa; envíamelo si lo deseas, te sugiero para tus envíos muy grandes usar por ejemplo MEGAsync que te permite crear enlaces de los archivos que subes a la nube y solo con ese enlace lo puede descargar otra persona; también puedes compartir carpetas completas; lo mismo que con DropBox, por ejemplo. En todo caso mi user de skype es abelsysgen; aunque no lo uso muy seguido.

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 15/01/2019 15:47:52

Ok,Abel , para compartir con Dropbox me pide un email.

Valora esta respuesta

Comentar

Pos: 3

Val: 642

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Abel (286 intervenciones) el 15/01/2019 20:50:30

En éste mensaje puedes ver mi correo, pero no es necesario, podrías solo crear un enlace solo haciendo clic con el botón derecho sobre el archivo cargado en dropbox y luego generar enlace o algo así dice y como lo crea en el portapapeles de windows solo lo aplicas en un correo o lo que sea como pegar y ya.

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 15/01/2019 20:52:57

OK, ahí compartí el enlace en Dropbox
, la carpeta se llama SISTEMAGENFP.

Favor de fijarte si lo ves , (hay que ejecutar los dos archivos , primero el setupsistemagen.exe.)
Aguardo respuesta
Muchas gracias

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 15/01/2019 21:20:55

Abel, hay que probarlo en una PC que no tenga el foxpro 9 cargado.
Gracias

Valora esta respuesta

Comentar

Pos: 3

Val: 642

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Abel (286 intervenciones) el 16/01/2019 14:15:10

Bien José, voy a probarlo en un ordenador que no tenga instalado el VFP.

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 16/01/2019 14:16:14

Gracias Abel !

Valora esta respuesta

Comentar

Pos: 3

Val: 642

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Abel (286 intervenciones) el 17/01/2019 14:29:22

Buen día José, disculpa la demora pero recién me hice un poco de tiempo en probar tus instaladores; instalé setupsistemagen y perfecto, pero con setupauxi me da error; aparentemente no se copia en su sitio el OCX ni para W32 no W64. Te consulto, has intentado declarar el OCX desde la misma carpeta desde donde está tu ejecutable?.

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 17/01/2019 14:57:19

Hola sí, si, llama la atención que en algunas pc funciona.
Te lo paso por Dropbox otro ejecutable para 32 y 64 bits , que se llama setaux3264,,,,pero éste trabaja distinto primero genera una carpeta en la partición c que se llama AUX3264 y luego a continuación ejecuta el bat que está dentro.
A mí me lo toma bien.
Favor de probarlo , nuevamente gracias!

Valora esta respuesta

Comentar

Pos: 3

Val: 642

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Abel (286 intervenciones) el 17/01/2019 15:11:18

Dejame sugerirte lo siguientes:

Con el siguientes código determinas si el sistema donde se instalará es 64 o 32bits.

***** Llamemole por ej. "TipoDeWindows.PRG"

Local lnHandle, lnProceso64

Do DECLARAR_API

lnHandle    = GetCurrentProcess()

lnProceso64 = 0

IsWow64Process(lnHandle, @lnProceso64)

CloseHandle(lnHandle)

Return  Iif(lnProceso64=0,"32","64")

Procedure DECLARAR_API

Declare Integer GetCurrentProcess In KERNEL32

Declare Integer CloseHandle In KERNEL32 INTEGER hObject

Declare Integer IsWow64Process In KERNEL32 INTEGER hProcess, INTEGER @Wow64Process

****

*** Llamemos a éste "RegistraOCX.PRG".

Lparameters cNome2Reg  && Este cNome2Reg será nombre y ruta del OCX.

Local nResultado

nResultado = REGISTRAR_OCX(cNome2Reg)

Do Case

	Case nResultado=0

		Messagebox("Registración OK")

	Case nResultado=1

		Messagebox("No existe el archivo que quisiste registrar")

	Case nResultado=2

		Messagebox("No se pudo registrar, error desconocido")

	Otherwise

		Messagebox("No se pudo registrar, no lo ejecutaste como Administrador")

Endcase

Return

Function REGISTRAR_OCX

Lparameters cNombreOCX

Local nNumError

nNumError = 0

Try

	Declare Long DllRegisterServer In (cNombreOCX)

Catch

	nNumError=1

Endtry

If nNumError=0

Try

		nNumError=DllRegisterServer()

	Catch

		nNumError=2

	Endtry

Endif

RETURN (nNumError)

***

*** Ahora teniendo esos 2 procedimientos, haces...

cWinruta = Iif(TipoDeWindows()="32","C:\WINDOWS\System32","C:\WINDOWS\SysWOW64") && Importante es que no tenga el Backslash final.

Copy File MScomct2.ocx To &cWinruta

RegistraOCX(cWinruta+"\MScomct2.ocx")

Valora esta respuesta

Comentar

Pos: 5

Val: 313

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

Publicado por Jose Francisco (166 intervenciones) el 17/01/2019 15:22:23

Está muy bueno el código.
Muchas gracias

Valora esta respuesta

Comentar

Problema al guardar un registro en grid todo en blanco

asignar nombres a objetos