programa ejecutable EXE

[edgar]

Hola Antonio, he creado un ejecutable(EXE), utilizando FWH6.12 - xHarbour 0.99.71 - BCC32 - xEdit2; todo el proceso paso sin ningun problema, al darle doble click al ejecutable no pasa nada, que puede estar pasando, me puedes dar alguna idea?

Saludos,

Edgar

[Antonio Linares]

Edgar,

Pon un MsgInfo( "aqui" ) despues del Main() principal a ver si te aparece

[Antonio Linares]

Mira a ver si se te crea algún fichero log en el disco

[carlos vargas]

lo primero es ver si fwh+xharbour te funciona correctamente, para eso prueba cualquiera de los ejemplos de la carpeta samples de fwh, modificando los path del bat buildx.bat, por ejemplo puedes probar

buildx tutor04

si el ejecutable es creado correctamente, entonces tu entorno de programación es correcto, ahora continuaríamos con xedit.
existen algunas cosas que verificar, que el programa principal, sea el primero en la lista, ademas que el modulo principal se llame main.
el orden de las lib debe ser similar al del buildx.bat.

con eso se inicia.

no cuentas como te fue.

salu2

[edgar]

Hola Antonio, otra vez aqui, hice lo que me digiste de colocar un MsgInfo( "aqui") despues del main(), lo compile y ejecute y no hay ninguna señal del mensaje que aparezca, que podra ser.
Estas son las sentencias iniciales del programa principal:


#include "FiveWin.ch"
#define SRCPAINT 15597702 // 0xEE0086 // Para Mensajes
#define SRCAND 8913094

STATIC oWndMain // Objeto Ventana principal
STATIC hBorland

// -----------------------------------------------------------------------
// Funci¢n ...: Main()
// Descripci¢n: Funci¢n principal, que inicia el programa.
// Par metros : Ninguno.
// Devuelve ..: Nada.
// -----------------------------------------------------------------------
FUNCTION Main()

LOCAL oBrush, oBar, oBtn, oBmp // Objeto Brush

MsgInfo( "aqui" )
MEMVAR pANY // Variable Global
pANY := Year( Date() ) // A¤o de trabajo actua

// ====================================================================

// ====================================================================
SET EPOCH TO 1990 // Para impedir que el a¤o 00,
// se interprete como 2000
SET CENTURY ON // 4 d¡gitos a¤o
SET DATE ITALIAN // formato dd-mm-yyyy
SET DELETED ON // Impedir ver registros marcados borrar

SetCancel( .F. ) // Inutiliza ALT + C para abortar programa
SetHandleCount( 100 ) // M ximo n§ ficheros abiertos

REQUEST DBFCDX
RDDSETDEFAULT( "DBFCDX" )

//SET _3DLOOK ON
SET 3DLOOK ON

//SET RESOURCES TO "WBANKS.DLL", "BWCC.DLL"
SET RESOURCES TO ".\System\FoScr001.Dll"

hBorland := LoadLibrary( ".\System\BWCC32.DLL" )



// VENTANA PRINCIPAL --------------------------------------------------
DEFINE BRUSH oBrush STYLE BORLAND
DEFINE ICON oIcon RESOURCE "OI"

DEFINE WINDOW oWndMain FROM 00,00 TO 30,75 ;
TITLE CompName() ;
MENU MenuMain() ;
BRUSH oBrush ;
ICON oIcon ;
MDI

DEFINE BUTTONBAR oBar SIZE 25,25 3DLOOK OF oWndMain

DEFINE BUTTON OF oBar RESOURCE "CLIENT" ACTION Clientes() ;
TOOLTIP "Adiciona/Edita Productos" ;
NOBORDER

DEFINE BUTTON OF oBar RESOURCE "PENCIL8" ACTION Peso1(.T.) ;
TOOLTIP "Registro de pesos" ;
NOBORDER

DEFINE BUTTON OF oBar RESOURCE "MNUREINDEX" ACTION CreaDbfPeso() ;
TOOLTIP "Reorganizar Ficheros Indice" ;
NOBORDER

DEFINE BUTTON OF oBar RESOURCE "INTERROG" ACTION Copyright() ;
TOOLTIP OemToAnsi( "Acerca de.." ) ;
NOBORDER

DEFINE BUTTON OF oBar RESOURCE "EXIT1" ACTION( NetCloseAll(), ;
oWndMain:End() ) ;
TOOLTIP "Salir del Programa" ;
NOBORDER



IF File( "CAMION22.BMP" )
@ 00,00 BITMAP FILE "CAMION22.BMP" OF oWndMain:oWndClient SIZE 1050,700 ADJUST
ENDIF

SET MESSAGE OF oWndMain TO OemToAnsi( "TW-Pesos v.1.0 - (c) E.Flores, 2003-2007"+" SISTEMA DE PESOS * A¤o: " )+ AllTrim( Str( pANY ) ) ;
CLOCK ;
DATE ;
KEYBOARD

ACTIVATE WINDOW oWndMain MAXIMIZED ON INIT DlgInicial()

DbCloseAll()
FreeLibrary( hBorland )
SET RESOURCES TO

RETURN NIL

Saludos,

Edgar Flores

[edgar]

Antonio, si me genera un archivo error.log, y este es lo que muestra.

Application
===========
Path and name: C:\xedit2\PROYECTOS\WPESOS\WPESOS.exe (32 bits)
Size: 2,208,768 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 11/28/14, 11:43:09
Error description: (DOS Error 2) DBFCDX/1003 Open error: EMPRESAX.cdx

Stack Calls
===========
Called from: => ORDLISTADD(0)
Called from: company.prg => COMPNAME(44)

System
======
CPU type: Intel(R) Core(TM)2 Duo CPU E4600 @ 2.40GHz 2400 Mhz
Hardware memory: 2048 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)
Windows version: 6.1, Build 7601 Service Pack 1

Windows total applications running: 0

Variables in use
================
Procedure Type Value
==========================
ORDLISTADD
Param 1: C "EMPRESAX"
Param 2: C "EMPRESAX"
Local 1: U
Local 2: N 2
COMPNAME
Local 1: C ""
Local 2: C ""

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX

DataBases in use
================

1: => EMPRESAX0001 RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 1 .F. .F.

Indexes in use TagName

Relations in use

Classes in use:
===============
1 HASHENTRY
2 HBCLASS
3 ERROR
4 HBOBJECT
5 TREG32

Memory Analysis
===============
211 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


[edgar]

hola Carlos, gracias por ayudar; si fwh+xharbour funciona correctamente,lo probe con buildx tutor04 que mensionas. El asunto es que probando con xEdit2, he logrado compilar y me genera el EXE, pero cuando lo ejecuto es que no da ninguna señal.
Como dices probablemente el problema este en xEdit. El programa principal si empieza con Main(), revise el orden de los PRG que entran a compilar, los pone en orden alfabetico y el programa principal lo pone al ultimo(wper.prg), pero en propiedades del proyecto, Main Module: le pongo el nombre del prg principal(wper.prg).no se donde estara el problema de que no ejecute.

Saludos

Edgar Flores

[Antonio Linares]

Edgar,

Borra el fichero log y asegurate nuevamente que es tu EXE el que lo crea.

De ser tu EXE está llegando hasta la línea 44:

Called from: company.prg => COMPNAME(44)

Estas llamando a Harbour con el parámetro /n ?

[noe aburto]

Saludos

El problema que se me presento con xEdit, es que al agregar nuevos prgs al proyecto, el primero siempre debe ser el prgs principal en agregarse.

Solucion:

1.

edita el archivo "PROYECTO.XPJ" con notepad (PROYECTO es el nombre de tu proyecto, segun donde lo tengas guardado), y cambia la linea:

<MainModule Value="PRINCIPAL.PRG"/>

donde PRINCIPAL,PRG es tu programa principal o main()

2.

En la seccion <files> es donde se tienen todos los prgs que integran tu sistema, el la primera linea del esta seccion pon el PRINCIPAL.PRG

<Files>
<File Filename="..\..\FUN\PRINCIPAL.PRG"/>
<File Filename="..\..\FUN\calc.rc"/>
<File Filename="..\..\FUN\autosys.rc"/>
</Files>

guarda tu archivo y entra al xEdit y debe funcionarte.

[edgar]

Hola Antonio, ya quedo solucionado el problema, no ejecutaba el sistema porque el programa principal(Main(), no era el primero en la lista de los prg's que compilaba. Muchas gracias por la ayuda,el soporte que Uds. brindan es realmente de primera.

Saludos,

Edgar Flores

[edgar]

Hola Carlos, muchas gracias por tu ayuda, efectivamente el problema estaba en xEdit, hice lo que me indicaste y funciona de maravila. A pesar que ahora el sistema funciona, tengo algunos inconvenientes con mis formularios que tienen controles de tipo borlan, asi que estoy quitando esos controles y generando de nuevo mi DLL, espero q todo vaya bien, si tengo algun inconveniento volvere a molestarte.

Saludos,

Edgar Flores

[carlos vargas]

a la orden