FiveTech Software tech support forums

... should be 0 Dear artu01, I have been looking for solutions for a week, turning the forum many times and all my saves from 1992 to today, from fw14.4 to the penultimate 32-bit version of 2020, unfortunately I can't try the 16-bit exes because I have to find old 16-bit PCs and they are easy ...

... should be 0 Dear artu01, I have been looking for solutions for a week, turning the forum many times and all my saves from 1992 to today, from fw14.4 to the penultimate 32-bit version of 2020, unfortunately I can't try the 16-bit exes because I have to find old 16-bit PCs and they are easy ...

Cuando me pides un ejemplo "completo" no entiendo muy bien a qué te refieres, no obstante, copio una función completa de lectura de un puerto com para un equipo con protocolo ccTalk (Billeteros y Monederos): /*Lee la respuesta de un equipo ccTalk y la devuelve en el formato matriz:  {...

Hola,

Por favor, ¿podrías compartir un ejemplo completo de uso?.

He probado esto, pero el msginfo me lo devuelve vacío.

oCon:COM_EscribePuerto( "hola mundo " )
msginfo( oCon:COM_LeePuerto() )

Ok. He realizado unas modificaciones para adaptarlo a esa recomendación que permite mantener todo dentro de la clase. Las modificaciones básicamente consiste en añadir llamadas al método end() para el caso en que IsOpen=.F. y así evitar tener un objeto creado sin uso. Antes esto lo comprobaba con em...

Create una data que sea DATA isOpen Por ejemplo, y cambia tu código del metodo new: //----------------------------------------------------------------------------//METHOD New(nPuerto,nBaudios,nParidad,nBits,nStops,nBufferSalida,nBufferEntrada) class TComClass   default nPuerto := 1...

Un método constructor en Harbour tiene que devolver Self obligatoriamente.

En Clipper no era necesario, pero en Harbour si

Ok. Con esto compila. ?Se puede devolver también .F. En vez de self?

Verhoven,

En el método New() tienes que devolver Self en vez de nil

Con eso debe funcionar bien

Esta clase la llevo usando años tal cual está sin problemas. Ahora cuando he actualizado las versiones de FW y xHarbour es cuando me da problemas. La copio: /*  TCOMCLASS.prg  21/01/2008  Simple clase para manejo de los puertos serie.  Para incluirla en nuestro programa basta con...

Verhoven,

Puedes copiar aqui el código de tu clase ?

Probé poniendo SELF := NIL, para los casos en que no se verifica la condición para crear la clase, pero arroja el error de ejecución:

ERROR BASE/1065 Invalid Self: New

Y quizás, si no se cumple la condicion que requieres, puedes antes del Return Self, poner el Self := Nil

Hola,

Prueba con ::Self.

Tengo dos errores con la actualización que no logro solucionar: 1º.- Una clase hecha hace varios años que con las versiones que venía usando de FW y XHarbour cuando creaba la clase con el constructor NEW devolvía NIL en vez de Self y esto funcionaba correctamente. Ahora sustituyo ese NIL por SELF y ...