Hola Amigos,

Encontre un problema y creo es con el tlink,

Pues tengo un modulo que es tan pesado que cuando adiciono una variable mas le doy una asignacion el link saca el siguiente error y no genera el ejecutable.

No lo puedo descomponer en 2 , pues ya lo descompuse lo mas que puedo, este modulo debe tener todo este codigo, los otros modulos les hago el llamado como sifueran programas externos.

Fatal: Bad object file ´\programa.obj´ near file off ser 19624
Sin embargo el compilador c3 genero el obj, con los siguinetes datos:
Code size 80064, Symbols 65536, Constants 16286

sin embargo cuando retiro la ultima instruccion cualquiera que sea compila, genera el elejecutable y corre.

Code size 79970, Symbols 65088, Constants 16286

La version del Tlink que uso es 1.6.72.0


Trate de usar el ilink del c++ 5.5 y no funciono

Por tanto creo que es el Tlink el que esta produciendo el error, existe otra version mejorada?

Agradezco la ayuda que me puedan prestar.

_________________
Saludos.
German

Hola.

Lo único que se me ocurre es que 'rompas' el prg en varios y despues en el primer prg del grupo creado utilices:

Include "prg2.prg"
Include "prg3.prg"
.....

Suerte.

_________________
Un saludo.
Jesús P. Melgar Velasco

Ya lo intente, y al compilar este reune todo el codigo, no me se que mas hacer

_________________
Saludos.
German

Pues lo unico que se me ocurre es que trates de 'encapsular' el prg con algún tipo de 'apaño'.

Si utilizas IDE, creo que lo vas a tener más complicado.

Yo NO utilizo el IDE y por ejemplo en formularios con TabControl hago que cada TabSheet llame a una nueva clase en OTRO prg.

WITH ::PageControl := XPageControl():Create( Self )
:SetBounds( 0, 4, 0, 0 )
:Themed := False
:Tabs := { "&Expedientes", ;
"&Facturas",;
"&Presupuestos" }
:ImageList:Images := { "160Expedientes", "160Facturas", "160Presupuestos" }

// ······································································
// EXPEDIENTES
// ······································································

::TabSheetExpedientes := ages[ 1 ]

oFormularioExpedientes := XFormularioExpedientes():Create( ::TabSheetExpedientes )

// ······································································
// FACTURAS
// ······································································

::TabSheetFacturas := ages[ 2 ]

....

Suerte.

_________________
Un saludo.
Jesús P. Melgar Velasco

Gacias,
esto puede funcionar,

Existe un problema no entendi el ejemplo, podrias explicarlo mejor

_________________
Saludos.
German

A ver si logro explicarme.

1º NO UTILIZAR IDE.
2º Si en el formulario del problema utilizas control(es) TPageControl
3º Cada TabSheet (pestaña) del TPageControl, llama a otro PRG y por lo tanto TODOS los controles y FUNCIONALIDAD de esta pestaña la colocas en una NUEVA CLASE EN OTRO PRG.

Esta formula la utilizo desde el principio y me parece mucho más 'limpia' que crear todos los controles y funcionalidad en un solo prg.

A ver si me he explicado.....

_________________
Un saludo.
Jesús P. Melgar Velasco

El IDE yo tampoco lo utilizo.
Solo para hacer pruebas o la ayuda

Ahora me toca aprender a utilizar los controles que me mensiona, pues son nuevos para mi,

Para un modulo del programa yo uso dos prg, uno que es el main que recibe parametros y hace algunos proceso pequeños y otro donde estan las definiciones de objetos y metodos, en este ultimo es donde tengo el error.

Entrare a la ayuda del IDE para ver como se uilizan los comandos que me haz dicho, para saber utilizarlos, por eso no entendia.

Te cuento como me fue mas adelante

Gracias por la ayuda

PD.
He visto los pantallazos que has creado, y me parecen muy buenos, estan hechos con dedicacion, y gusto. Mis mas siceras felicitaciones.

Una pregunta esas pantallas corren en cualquier reoslucion de pantalla, sin que se desubiquen los elementos y tomen al ancho y alto de la pantalla donde estan ejecutandose ?

_________________
Saludos.
German