Hola he tenido un inconveniente con la pc de mi casa (un rayo me arruinó varios electródomesticos). Y en la pc nueva cargue todas las aplicaciones hechas con fwh y no tuve inconvenientes (es decir que las generé nuevamente), salvo en una.
Esa una es casualmente el programa de mi negocio. El problema es que compila sin inconvenientes, pero no inicia y no da ningún error. Es un espejo de la que tengo en la oficina que la compila y se ejecuta perfectamente. Si copio el ejecutable generado en la oficina funciona perfectamente en la pc de mi hogar.
Hice una prueba en el prg principal de agregar un msginfo antes de definir la ventana principal, y el mensaje lo muestra perfectamente, pero al salir de él se queda un segundo "pensando" y cierra la ejecución del programa, como si hubiera una orden quit.
Les repito que es una copia fiel de lo que tengo en la oficina, pero aquí no logro que funcione, la diferencia es que en una tengo xp y en la nueva windows 7 started( pero tengan en cuenta que otros programas me los compila y se utilizan perfectamente)
El programa está compilado con verce1.0 fwh712, xharbour (última versión) bcc82 (los scripts son idénticos, sólo cambiando la ruta)
Las librerías que enlazo son:
ct.lib
codepage.lib
mysql.lib
libmysql.lib
wbrowse (hernán)
Bueno si alguien le paso o tiene una idea de lo que puede ser y me da una manito
Gracias
FiveTech Software tech support forums
www.FiveTechSoft.com
No inicia aplicación
11 posts • Page 1 of 1
No inicia aplicación
by surGom » Sun Nov 25, 2012 12:55 am
- surGom
- Posts: 639
- Joined: Wed Oct 19, 2005 12:03 pm
Re: No inicia aplicación
by surGom » Mon Nov 26, 2012 3:30 pm
No hay ninguna idea que me puedan indicar
Luis
Luis
- surGom
- Posts: 639
- Joined: Wed Oct 19, 2005 12:03 pm
Re: No inicia aplicación
by Lautaro » Mon Nov 26, 2012 4:12 pm
Luis,
Copia todas las librerias desde el pc en el que funciona bien el enlazado, incluyendo las del compilador y las del sdk de windows, a mi eso me paso por unas librerias que estaban corruptas y que el linkeador no detectaba en ese estado.
Saludos,
Lautaro Moreira
Osorno
Chile
Copia todas las librerias desde el pc en el que funciona bien el enlazado, incluyendo las del compilador y las del sdk de windows, a mi eso me paso por unas librerias que estaban corruptas y que el linkeador no detectaba en ese estado.
Saludos,
Lautaro Moreira
Osorno
Chile
-
Lautaro - Posts: 322
- Joined: Fri Oct 07, 2005 2:44 pm
- Location: Osorno, Chile
Re: No inicia aplicación
by MarioG » Tue Nov 27, 2012 11:28 am
Luis;
asegurate de tener gtgui.lib que es para FW y no gtwin.lib que es para D.O.S.
Saludos
asegurate de tener gtgui.lib que es para FW y no gtwin.lib que es para D.O.S.
Saludos
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Chaco - Argentina
-
MarioG - Posts: 1380
- Joined: Fri Oct 14, 2005 1:28 pm
- Location: Resistencia - Chaco - AR
Re: No inicia aplicación
by surGom » Wed Jan 30, 2013 11:42 pm
Bueno recién pude retomar mi programa y Lautaro probé con lo que sugerís pero sigue sin funcionar. Lo que hice fue instalar xedit, que lo estuve utilizando en otros programas (funcionando perfectamente) y en xedit el programa inicial directamente no lo toma como el principal, haciendo main al primero que encuentra alfabéticamente. Les detallo el programa principal.
si el mensaje Hola lo pongo debajo de aquí
(1) oMySQL:= TMySQLServer():New( "localhost", "root", "", 3306 )
directamente sale de la aplicación sin mostrar el mensaje.
Lo extraño es que como dije antes en mi oficina funciona perfectamente. Además usando el syqlyog con los parámetros indicados en (1), la base de datos la abre sin inconvenientes.
Bueno espero sugerencias .
Gracias
- Code: Select all Expand view
- #include "FIVEWIN.CH"
#include "xbrowse.ch"
STATIC oVentPrinc, oMySQL ,oDBase
FUNCTION Main()
LOCAL oBarraBotones,oBtnclient, oBtnPro,nape,oradiobutton
LOCAL oCursorMano
LOCAL oBmp
LOCAL oFont
LOCAL surge
? "HolA"
seteo()
SetBalloon( .T. )
SetGetColorFocus(RGB( 210, 239, 246 ))
SetKey( VK_F2, { || Winexec("calc") } )
oMySQL:= TMySQLServer():New( "localhost", "root", "", 3306 )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error conectando con el servidor " + "localhost" + "!" )
oMySQL:End()
Return .F.
EndIf
oDBase := oMySQL:SelectDB( "gomadb" )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error abriendo base de datos " + "gomadb" + "!" )
oMySQL:End()
Return .F.
EndIf
DEFINE CURSOR oCursorMano RESOURCE "Hand"
SET 3DLOOK ON // Se activa vista en 3¦ Dimensi¢n.
DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-10
define icon surge resource "icon_1"
DEFINE WINDOW oVentPrinc FROM 1, 1 TO 22, 75;
TITLE "surGom" icon surge;
MENU PreparaMenu()
//etc etc
si el mensaje Hola lo pongo debajo de aquí
(1) oMySQL:= TMySQLServer():New( "localhost", "root", "", 3306 )
directamente sale de la aplicación sin mostrar el mensaje.
Lo extraño es que como dije antes en mi oficina funciona perfectamente. Además usando el syqlyog con los parámetros indicados en (1), la base de datos la abre sin inconvenientes.
Bueno espero sugerencias .
Gracias
- surGom
- Posts: 639
- Joined: Wed Oct 19, 2005 12:03 pm
Re: No inicia aplicación
by Antonio Linares » Thu Jan 31, 2013 10:22 am
Comprueba si se genera un fichero log en la carpeta de tu aplicación y muestranoslo, gracias
-
Antonio Linares - Site Admin
- Posts: 41366
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
Re: No inicia aplicación
by surGom » Thu Jan 31, 2013 11:47 am
Antonio no me genera nada en la aplicación, pero lo resolví, haciendo un nuevo directorio y probando (por suerte lo tenía en un backup) con el siguiente código
que fue el inicio de mis pruebas con tmysql lo compilé y generó el exe correctamente, luego lo modifiqué y lo deje exactamente igual que los que indiqué anteriormente y construyó el exe y abrió todo sin problemas.
Realmente para mí es un misterio, ya que los dos directorios salvo el nombre son idénticos...
Muchas gracias a todos y si alguien tiene alguna explicación me agradaría saberla
Un abrazo
Luis
- Code: Select all Expand view
- #include "FIVEWIN.CH"
#include "Report.Ch"
#include "xbrowse.ch"
STATIC oVentPrinc, oMySQL ,oDBase
FUNCTION Main()
LOCAL oBrush // Almacena objeto BRUSH
LOCAL oBarraBotones,oBtnclient, oBtnPro,nape,oradiobutton // Almacena objeto BUTTONBAR
LOCAL oCursorMano
LOCAL oBmp
LOCAL oFont
LOCAL surge
seteo()
SetKey( VK_F2, { || Winexec("calc") } )
oMySQL:= TMySQLServer():New( "localhost", "root", "", 3306 )
IF oMySQL:lError
? "Se ha generado un error, no hay conexión, verifique..."
RETURN NIL
ENDIF
oDBase := oMySQL:SelectDB( "gomadb" )
IF oMySQL:lError
? "No se pudo seleccionar el contenedor..."
RETURN NIL
ENDIF
DEFINE CURSOR oCursorMano RESOURCE "Hand"
SET 3DLOOK ON // Se activa vista en 3¦ Dimensi¢n.
DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-10
define icon surge resource "icon_1"
DEFINE WINDOW oVentPrinc FROM 1, 1 TO 22, 75; // Se define la ventana principal
TITLE "surGom" icon surge;
MENU PreparaMenu(oMysql) //Men£ que contendr la ventana
SET FONT OF oVentPrinc TO oFont
SET MESSAGE OF oVentPrinc ; // Mensaje que mostrar al estar
TO "surGom"; // activa la ventana principal.
KEYBOARD; // Mostrar estado del teclado
DATE // Mostrar Fecha
/*** Definimos Barra de Botones en la parte superior de la ventana principal.
Cada vez que el usuario se posicione en la barra, el cursor cambiar al
de tipo "manita". **** ****/
DEFINE BUTTONBAR oBarraBotones; // Se define Barra de Botones (Objeto: BUTTONBAR).
SIZE 33,33; // Tama¤o en pixeles de los botones
3D; // Vista en efecto 3¦ dimensi¢n
TOP; // Se despliega en la parte superior de la ventana.
OF oVentPrinc; // Se indica que pertenece a la ventana principal.
CURSOR oCursorMano // Se define tipo de cursor al posicionarse en la barra.
/******** Definimos Botones que incluiremos en la Barra de Botones */
DEFINE BUTTON oBtnClient RESOURCE "bmp_cli" OF oBarraBotones ;
TOOLTIP "Clientes";
NOBORDER;
ACTION ( oBtnClient:Toggle(),; // Primero mantenemos Presionado el Bot¢n
BrwClient(oMysql),; // llamamos a la funci¢n
oBtnClient:GoUp() ); // Al terminar Levantamos el bot¢n
GROUP; // Se inicia nuevo grupo de iconos
MESSAGE "Editemos una Base de Datos... Archivo de Clientes"
/* DEFINE BUTTON oBtnPro RESOURCE "bmp_pro" OF oBarraBotones;
TOOLTIP "Proveedores";
NOBORDER;
ACTION(oBtnPro:toggle(),BrwProve(), oBtnPro:GoUp());
MESSAGE "Edición de Base de Datos... Archivo Proveedores"
DEFINE BUTTON RESOURCE "bmp_che" OF oBarraBotones;
TOOLTIP oemToAnsi("Cheques");
NOBORDER;
ACTION brwcheque();
MESSAGE ("Editar Cheques...")
/* DEFINE BUTTON FILE "Prn2.Bmp" OF oBarraBotones ;
TOOLTIP OemToAnsi( "Impresi¢n" );
NOBORDER;
ACTION Impresion() ;
MESSAGE "Reportes con FiveWin... Directorio de Clientes"*/
DEFINE BUTTON FILE "SmalCalc.Bmp" OF oBarraBotones ;
TOOLTIP "Calculadora";
NOBORDER;
ACTION WinExec( "Calc" ) MESSAGE "Llama a la Calculadora de Windows" ;
ADJUST // El Bmp se ajustar al tama¤o del icono
DEFINE BUTTON FILE "Ayuda.Bmp" OF oBarraBotones;
TOOLTIP "Ayuda";
NOBORDER;
ACTION WinHelp() ;
MESSAGE "Llama a la Ayuda de Windows" ADJUST
DEFINE BUTTON RESOURCE "Salida" OF oBarraBotones ;
TOOLTIP "Salir";
NOBORDER;
ACTION Salida() GROUP;
MESSAGE OemToAnsi( "Terminar la ejecuci¢n de este programa" )
ACTIVATE WINDOW oVentPrinc MAXIMIZED
RETURN NIL
//------------------------------------------------------------//
* * * *
* FUNCION : PreparaMenu() -> oMenu
* DESCRIPCION: Define el men£ que contendr la ventana principal
* * * *
FUNCTION PreparaMenu(oMysql)
LOCAL oMenu // Objeto que contendr el Men£
MENU oMenu
MENUITEM "&Archivo"
MENU // Especificamos Submen£ para la opci¢n "Archivo".
MENUITEM "&Clientes" ;
ACTION BrwClient(oMysql); // Llama a la funci¢n cuando se seleccione esta opci¢n.
MESSAGE "Editemos una Base de Datos... Archivo de Clientes"
MENUITEM "&Salir..." ;
MESSAGE OemToAnsi( "Terminar la ejecuci¢n de este programa" );
ACTION Salida()
ENDMENU // Fin de la definici¢n de Submen£ para Archivo.
MENUITEM "&Utilerias"
MENU // Submen£ para la opci¢n "Utilerias".
MENUITEM "&Juegos"
MENU // Otro Submen£: para la opci¢n "Utilerias/Juegos".
MENUITEM "&Solitario";
ACTION WinExec( "Sol"); // Llamamos a otra aplicaci¢n Windows.
MESSAGE "Jugemos a las cartas..."
MENUITEM "&Buscaminas";
ACTION WinExec( "Bus" );
MESSAGE " BOOM !!!..."
ENDMENU // Fin de la definici¢n para Submen£ "Utilerias/Juegos".
MENUITEM "&Herramientas"
MENU // Submen£ para la opci¢n "Utilerias/Herramientas".
MENUITEM "&Calculadora" ;
ACTION WinExec( "Calc" ) ;
MESSAGE "Llama a la calculadora de Windows"
ENDMENU // Fin de la definici¢n de Submen£ para "Utilerias/Herramientas".
ENDMENU // Fin de la definici¢n de Submen£ para "Utilerias".
MENUITEM "&?"
MENU
MENUITEM "&Ayuda" ;
ACTION WinHelp(); // Activamos la ventana del programa de Ayuda de Windows
MESSAGE "Llama a la Ayuda de Windows"
SEPARATOR
MENUITEM "Acerca &De..." ;
ACTION MsgInfo( "Mi Primer programa Windows" + Chr( 13 ) + ;
"con Clipper, utilizando FiveWin "+ Chr( 13 )+;
"Fivetechsoftware S.A. ", "Acerca de ...") ;
MESSAGE "Acerca de tu Sistema"
ENDMENU
ENDMENU
RETURN( oMenu )
//------------------------------------------------------------//
FUNCTION Salida()
IF MsgYesNo("¿Deseas Salir ya ?", "Salida del Sistema" )
oVentPrinc:End()
ENDIF
RETURN NIL
//--------------------------------------------------------------------------------------------------------------------//
que fue el inicio de mis pruebas con tmysql lo compilé y generó el exe correctamente, luego lo modifiqué y lo deje exactamente igual que los que indiqué anteriormente y construyó el exe y abrió todo sin problemas.
Realmente para mí es un misterio, ya que los dos directorios salvo el nombre son idénticos...
Muchas gracias a todos y si alguien tiene alguna explicación me agradaría saberla
Un abrazo
Luis
- surGom
- Posts: 639
- Joined: Wed Oct 19, 2005 12:03 pm
Re: No inicia aplicación
by Antonio Linares » Thu Jan 31, 2013 11:57 am
Luis,
Si publicas el codigo del que te falla y del que funciona correcto podemos compararlos y buscar la causa, gracias
Si publicas el codigo del que te falla y del que funciona correcto podemos compararlos y buscar la causa, gracias
-
Antonio Linares - Site Admin
- Posts: 41366
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
Re: No inicia aplicación
by surGom » Thu Jan 31, 2013 7:30 pm
El código que funciona es
Aquí va completo si lo comparas con el primero es igual. Realmente no se en que se basa la disparidad , ya que en mi oficina tengo las fuentes iguales y aquí (en mi hogar) me las compilaba con el error antedicho.
Luis
- Code: Select all Expand view
- #include "FIVEWIN.CH"
#include "xbrowse.ch"
STATIC oVentPrinc, oMySQL ,oDBase
FUNCTION Main()
LOCAL oBrush // Almacena objeto BRUSH
LOCAL oBarraBotones,oBtnclient, oBtnPro,nape,oradiobutton // Almacena objeto BUTTONBAR
LOCAL oCursorMano
LOCAL oBmp
LOCAL oFont
LOCAL surge
seteo()
SetBalloon( .T. )
SetGetColorFocus(RGB( 210, 239, 246 ))
SetKey( VK_F2, { || Winexec("calc") } )
oMySQL:= TMySQLServer():New( "localhost", "root", "", 3306 )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error conectando con el servidor " + "localhost" + "!" )
oMySQL:End()
Return .F.
EndIf
oDBase := oMySQL:SelectDB( "gomadb" )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error abriendo base de datos " + "gomadb" + "!" )
oMySQL:End()
Return .F.
EndIf
DEFINE CURSOR oCursorMano RESOURCE "Hand"
SET 3DLOOK ON // Se activa vista en 3¦ Dimensi¢n.
DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-10
define icon surge resource "icon_1"
DEFINE WINDOW oVentPrinc FROM 1, 1 TO 22, 75;
TITLE "surGom" icon surge;
MENU PreparaMenu()
SET FONT OF oVentPrinc TO oFont
SET MESSAGE OF oVentPrinc ; // Mensaje que mostrar al estar
TO "surGom"; // activa la ventana principal.
KEYBOARD; // Mostrar estado del teclado
DATE // Mostrar Fecha
/*** Definimos Barra de Botones en la parte superior de la ventana principal.
Cada vez que el usuario se posicione en la barra, el cursor cambiar al
de tipo "manita". **** ****/
DEFINE BUTTONBAR oBarraBotones; // Se define Barra de Botones (Objeto: BUTTONBAR).
SIZE 40,40 2007; // Tama¤o en pixeles de los botones
3D; // Vista en efecto 3¦ dimensi¢n
TOP; // Se despliega en la parte superior de la ventana.
OF oVentPrinc; // Se indica que pertenece a la ventana principal.
CURSOR oCursorMano // Se define tipo de cursor al posicionarse en la barra.
/******** Definimos Botones que incluiremos en la Barra de Botones */
DEFINE BUTTON oBtnClient RESOURCE "bmp_cli" OF oBarraBotones ;
TOOLTIP "Clientes";
NOBORDER;
ACTION ( oBtnClient:Toggle(),; // Primero mantenemos Presionado el Bot¢n
BrwClient(oMysql),; // llamamos a la funci¢n
oBtnClient:GoUp() ); // Al terminar Levantamos el bot¢n
GROUP; // Se inicia nuevo grupo de iconos
MESSAGE "Editemos una Base de Datos... Archivo de Clientes"
DEFINE BUTTON oBtnPro RESOURCE "bmp_pro" OF oBarraBotones;
TOOLTIP "Proveedores";
NOBORDER;
ACTION(oBtnPro:toggle(),BrwProve(oMysql), oBtnPro:GoUp());
MESSAGE "Edición de Base de Datos... Archivo Proveedores"
DEFINE BUTTON RESOURCE "bmp_che" OF oBarraBotones;
TOOLTIP oemToAnsi("Cheques");
NOBORDER;
ACTION brwcheque(oMysql);
MESSAGE ("Editar Cheques...")
DEFINE BUTTON RESOURCE "bmp_cta" OF oBarraBotones;
TOOLTIP oemToAnsi("Ctas Ctes");
NOBORDER;
ACTION ctacli(oMysql);
MESSAGE ("Editar Ctas Ctes")
/* DEFINE BUTTON FILE "Prn2.Bmp" OF oBarraBotones ;
TOOLTIP OemToAnsi( "Impresi¢n" );
NOBORDER;
ACTION Impresion() ;
MESSAGE "Reportes con FiveWin... Directorio de Clientes"*/
DEFINE BUTTON RESOURCE "bmp_calc" OF oBarraBotones ;
TOOLTIP "Calculadora";
NOBORDER;
ACTION WinExec( "Calc" ) MESSAGE "Llama a la Calculadora de Windows" ;
ADJUST // El Bmp se ajustar al tama¤o del icono
DEFINE BUTTON FILE "Ayuda.Bmp" OF oBarraBotones;
TOOLTIP "Ayuda";
NOBORDER;
ACTION factura(oMysql,.t.) ;
MESSAGE "Llama a la Ayuda de Windows" ADJUST
DEFINE BUTTON RESOURCE "Salida" OF oBarraBotones ;
TOOLTIP "Salir";
NOBORDER;
ACTION Salida() GROUP;
MESSAGE OemToAnsi( "Terminar la ejecuci¢n de este programa" )
ACTIVATE WINDOW oVentPrinc MAXIMIZED
oMySQL:end()
RETURN NIL
//------------------------------------------------------------//
* FUNCION : PreparaMenu() -> oMenu
* DESCRIPCION: Define el men£ que contendr la ventana principal
* * * *
FUNCTION PreparaMenu()
LOCAL oMenu // Objeto que contendr el Men£
MENU oMenu
oMenu:l2007 := .t.
MENUITEM "&Archivo"
MENU // Especificamos Submen£ para la opci¢n "Archivo".
MENUITEM "&Clientes" ;
ACTION BrwClient(oMysql); // Llama a la funci¢n cuando se seleccione esta opci¢n.
MESSAGE "Editemos una Base de Datos... Archivo de Clientes"
MENUITEM "&Proveedores" ;
ACTION BrwProve(oMysql); // Llama a la funci¢n cuando se seleccione esta opci¢n.
MESSAGE "Editemos una Base de Datos... Archivo de proveedores"
MENUITEM "&Productos" ;
ACTION BrwProdu(oMysql); // Llama a la funci¢n cuando se seleccione esta opci¢n.
MESSAGE "Editemos una Base de Datos... Archivo de productos"
MENUITEM "&Cheques" ;
ACTION BrwCheque(oMysql); // Llama a la funci¢n cuando se seleccione esta opci¢n.
MESSAGE "Editemos una Base de Datos... Archivo de Cheques"
/* MENUITEM "&Actualizar clientes" ;
ACTION ACTUALCLI(oMysql);
MESSAGE " "*/
MENUITEM "&Salir..." ;
MESSAGE OemToAnsi( "Terminar la ejecuci¢n de este programa" );
ACTION Salida()
ENDMENU // Fin de la definici¢n de Submen£ para Archivo.
MENUITEM "&Utilerias"
MENU // Submen£ para la opci¢n "Utilerias".
MENUITEM "&Juegos"
MENU // Otro Submen£: para la opci¢n "Utilerias/Juegos".
MENUITEM "&Solitario";
ACTION WinExec( "Sol"); // Llamamos a otra aplicaci¢n Windows.
MESSAGE "Jugemos a las cartas..."
MENUITEM "&Buscaminas";
ACTION WinExec( "Bus" );
MESSAGE " BOOM !!!..."
ENDMENU // Fin de la definici¢n para Submen£ "Utilerias/Juegos".
MENUITEM "&Herramientas"
MENU // Submen£ para la opci¢n "Utilerias/Herramientas".
MENUITEM "&Calculadora" ;
ACTION WinExec( "Calc" ) ;
MESSAGE "Llama a la calculadora de Windows"
ENDMENU // Fin de la definici¢n de Submen£ para "Utilerias/Herramientas".
ENDMENU // Fin de la definici¢n de Submen£ para "Utilerias".
MENUITEM "&?"
MENU
MENUITEM "&Ayuda" ;
ACTION factura(oMysql,.t.); // Activamos la ventana del programa de Ayuda de Windows
MESSAGE "Llama a la Ayuda de Windows"
SEPARATOR
/* Al seleccionar la siguiente opci¢n llamamos a la funci¢n que crea una
caja de mensajes tipo " ! Informaci¢n". */
MENUITEM "Acerca &De..." ;
ACTION MsgInfo( "Mi Primer programa Windows" + Chr( 13 ) + ;
"con Clipper, utilizando FiveWin "+ Chr( 13 )+;
"Fivetechsoftware S.A. ", "Acerca de ...") ;
MESSAGE "Acerca de tu Sistema""
ENDMENU
ENDMENU
RETURN( oMenu )
//--------------------------------------------------------------------------------------------------------------------//
STATIC FUNCTION Salida()
IF MsgYesNo("¿Deseas Salir ya ?", "Salida del Sistema" )
oVentPrinc:End()
ENDIF
RETURN NIL
//--------------------------------------------------------------------------------------------------------------------//
Function MsgMySQLError( oMySQL, cMsg )
Local cError := oMySQL:Error()
Local cErrNo := oMySQL:ErrorNo()
DEFAULT cMsg := "Se ha producido un error!"
MsgStop( cMsg + CRLF +;
"Error: " + cValToChar( cErrNo ) + CRLF +;
"Descripción: " + CRLF + cError, "MySQL" )
Return NIL
//----------------------------------------------------------------------------------------------------------------------------------------------------//
Aquí va completo si lo comparas con el primero es igual. Realmente no se en que se basa la disparidad , ya que en mi oficina tengo las fuentes iguales y aquí (en mi hogar) me las compilaba con el error antedicho.
Luis
- surGom
- Posts: 639
- Joined: Wed Oct 19, 2005 12:03 pm
Re: No inicia aplicación
by wmormar » Fri Feb 01, 2013 12:16 am
surGom,
Cuando inicias una aplicacion que requiera mysql como tmysql o tdolphin necesitas la DLL libmysql.dll en la carpeta donde se encuentre tu exe, sino he detectado que hace esas rarezas.
Cuando inicias una aplicacion que requiera mysql como tmysql o tdolphin necesitas la DLL libmysql.dll en la carpeta donde se encuentre tu exe, sino he detectado que hace esas rarezas.
William, Morales
Saludos
méxico.sureste
Saludos
méxico.sureste
-
wmormar - Posts: 1074
- Joined: Fri Oct 07, 2005 10:41 pm
- Location: México
Re: No inicia aplicación
by surGom » Fri Feb 01, 2013 9:22 am
Hola Williams, la librería está en el directorio, y para mas confusión este mismo programa que ahora funciona, lo quise complilar con xedit y hace lo mismo es decir no inicia. Y con verce sí
Están las mismas librerías de xharbour, mysql(la última actualización), libmysql.lib. Ahí van los scripts
y el de verce
Bueno por lo menos ya puedo continuar con el desarrollo del sistema, igual voy a seguir probando porque no funciona (ahora) en xedit
Luis
Están las mismas librerías de xharbour, mysql(la última actualización), libmysql.lib. Ahí van los scripts
- Code: Select all Expand view
- <?xml version="1.0"?>
<Project>
<Type Value="exe"/>
<Description Value="fisqlsur"/>
<Output Value="fisqlsur.exe"/>
<Environment Value="fivewin"/>
<MainModule Value="surgom.prg"/>
<MultipleInstances Value="Y"/>
<XPManifest Value="Y"/>
<Icon Value=""/>
<Parameters Value=""/>
<OEM Value="N"/>
<Version>
<VersionInfo Value="N"/>
<Version Value="1.0"/>
<Release Value="0"/>
<Build Value="0"/>
<Company Value=""/>
<CopyRight Value=""/>
<TradeMarks Value=""/>
<Comments Value=""/>
</Version>
<Directories>
<SourceDir Value="Source"/>
<IncludeDir Value="Include"/>
<ResourceDir Value="Resource"/>
<ObjDir Value="Obj"/>
</Directories>
<Options>
<AutomaticMemvarDeclaration Value="Y"/>
<DebugInfo Value="N"/>
<SuppressLineNumberInformation Value="N"/>
<SuppressShortcutting Value="N"/>
<WarnningLevel Value="1"/>
<MoreOptions Value=""/>
<MoreBCCOpt Value=""/>
<MapFile Value="N"/>
<ConsoleMode Value="N"/>
<MoreLinkOpt Value=""/>
</Options>
<Export>
<Dir Value=""/>
<Source Value="Y"/>
<Exe Value="N"/>
<Bin Value="N"/>
<Resource Value="Y"/>
<ResourceAll Value="N"/>
<ErrorLog Value="N"/>
<Subprojects Value="Y"/>
</Export>
<Clean>
<All Value="Y"/>
<Obj Value="Y"/>
<Exe Value="Y"/>
<Bak Value="Y"/>
<Log Value="Y"/>
<Map Value="Y"/>
<Tds Value="Y"/>
</Clean>
<FinalExe>
<FullCompile Value="N"/>
<UpxCompress Value="N"/>
<CompressFlags Value=""/>
<Installer Value="N"/>
<InstallerFlags Value=""/>
</FinalExe>
<Files>
<File Compile="Y" Filename="TARRAY.PRG" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="surgom.prg" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="cheque1.prg" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="ctacli.prg" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="factura.prg" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="funcion.prg" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="surcli1.prg" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="surpro1.prg" Flags="" Output="" UseFlags="N"/>
<File Compile="Y" Filename="surprod.prg" Flags="" Output="" UseFlags="N"/>
</Files>
<Libraries>
<Library Filename="K:\LIBFIVEHME\libbcc582\browse17N\TWBRWX32.LIB" Link="Y"/>
<Library Filename="[project]lib\mysql.lib" Link="Y"/>
<Library Filename="[project]lib\libmysql.lib" Link="Y"/>
<Library Filename="[user]FiveHC.lib" Link="Y"/>
<Library Filename="[fivewin]fivehx.lib" Link="Y"/>
<Library Filename="[xharbour]rtl.lib" Link="Y"/>
<Library Filename="[xharbour]vm.lib" Link="Y"/>
<Library Filename="[xharbour]gtwin.lib" Link="N"/>
<Library Filename="[xharbour]gtgui.lib" Link="Y"/>
<Library Filename="[xharbour]lang.lib" Link="Y"/>
<Library Filename="[xharbour]macro.lib" Link="Y"/>
<Library Filename="[xharbour]rdd.lib" Link="Y"/>
<Library Filename="[xharbour]dbfntx.lib" Link="Y"/>
<Library Filename="[-]ct.lib" Link="Y"/>
<Library Filename="[xharbour]dbfcdx.lib" Link="Y"/>
<Library Filename="[xharbour]dbffpt.lib" Link="Y"/>
<Library Filename="[xharbour]sixcdx.lib" Link="N"/>
<Library Filename="[xharbour]hbsix.lib" Link="Y"/>
<Library Filename="[xharbour]rddads.lib" Link="N"/>
<Library Filename="[xharbour]ace32.lib" Link="N"/>
<Library Filename="[xharbour]codepage.lib" Link="Y"/>
<Library Filename="[xharbour]common.lib" Link="Y"/>
<Library Filename="[xharbour]pp.lib" Link="Y"/>
<Library Filename="[xharbour]pcrepos.lib" Link="Y"/>
<Library Filename="[xharbour]hbzip.lib" Link="Y"/>
<Library Filename="[xharbour]zlib.lib" Link="Y"/>
<Library Filename="[bcc]c0w32.obj" Link="Y"/>
<Library Filename="[bcc]psdk\odbc32.lib" Link="Y"/>
<Library Filename="[bcc]psdk\msimg32.lib" Link="Y"/>
<Library Filename="[bcc]cw32.lib" Link="Y"/>
<Library Filename="[bcc]import32.lib" Link="Y"/>
<Library Filename="[bcc]wininet.lib" Link="Y"/>
<Library Filename="[bcc]PSDK\psapi.lib" Link="Y"/>
</Libraries>
</Project>
y el de verce
- Code: Select all Expand view
- [LIB-OBJ TERCEROS]
REINICIAR=.F.
1=K:\fisqlsur\MYSQL.LIB
2=K:\fisqlsur\LIBMYSQL.LIB
3=C:\XHARBOUR\LIB\CT.LIB
4=C:\XHARBOUR\LIB\CODEPAGE.LIB
5=K:\LIBFIVEHME\LIBBCC582\TWBRWX32.LIB
6=C:\BCC582\LIB\PSDK\PSAPI.LIB
[APLICACION]
EXE=fisqlsur
DIR_EXE=K:\fisqlsur
DIR_PRG=K:\fisqlsur
DIR_OBJ=K:\fisqlsur\obj582
DIR_RC=E:\fisqlsur
CONSOLE=.F.
[MODULOS]
RC=.T.
TIPO_RES=1
NTX=.T.
CDX=.T.
DEBUG=.F.
ADVANTAGE=.F.
ODBC=.F.
MAP=.F.
CONSOLE=.F.
[COMPILADOR]
ID=2
[TIPO_RES]
ID=1
[DLL32]
USAR=.F.
DIR=G:\Archivos de programa\VeRCE
RC=
[PRGS]
1=SURGOM.PRG
2=CTACLI.PRG
3=FACTURA.PRG
4=FUNCION.PRG
5=SURCLI1.PRG
6=CHEQUE1.PRG
7=SURPRO1.PRG
8=SURPROD.PRG
9=TARRAY.PRG
[C]
[INCLUDE_SHARED]
1=K:\fivehme\include
[SOURCE_SHARED]
[RUTAS]
HARBOUR=C:\harbour
XHARBOUR=c:\xHarbour
BORLAND=c:\bcc582
FIVEWIN=C:\fwh
XHARLIB=C:\fwh\lib\FiveHX.lib
[LIBRERIA]
DIR_LIB=G:\Archivos de programa\VeRCE
NOMBRE=G:\Archivos de programa\VeRCE
[FLAGS]
HARBOUR=/n /m /w /es2 /gc1
BCC32=/c /O2 /I
ILINK=/Gn /aa /Tpe /s /I
XHARBOUR=/m /es0 /n /w1/gc1
[TIPO_PROYECTO]
ID=1
[RESOURCE]
1=K:\FISQLSUR\FISQLSUR.RES
Bueno por lo menos ya puedo continuar con el desarrollo del sistema, igual voy a seguir probando porque no funciona (ahora) en xedit
Luis
- surGom
- Posts: 639
- Joined: Wed Oct 19, 2005 12:03 pm
11 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: No registered users and 63 guests