FiveTech Software tech support forums

Estoy tratando de anidar estructuras pero no recuerdo como lo hice alguna vez. No me funciona ninguna. ¿Podéis decirme como se anidad? STRUCT FIXED_INFO    MEMBER HostName         AS STRING LEN MAX_HOSTNAME_LEN + 4    MEMBER DomainName       AS STRING LEN MAX_DOMAIN_NAME_LEN + 4    MEMBER CurrentDns...

Ya voy viendo la luz al final del túnel. He hecho la llamada a la función GetAdaptersInfo, sin enviar parámetros, y devuelve la estructura de IP_ADAPTER_INFO en formato texto para cargar el buffer de la estructura IP_ADAPTER_INFO desarrollada en FWH/(x)Harbour. La parte de código FWH/(x)Harbour: STR...

Gracias Antonio. ¿Cómo retorno una estructura de datos de la cual solo tengo el puntero a ella? Quisiera retornarlo como string function main() STRUCT MiEstrucuraHarbour MEMBER ... ENDSTRUCT public cTexto:=GetAdaptersInfo() MiEstrucuraHarbour:Buffer:=cTexto // Aquí cargaría mi estructura diseñada en...

Pues en mi lucha con las DLL32 FUNCTION y los BEGINDUMP/ENDDUMP cada vez lo tengo menos claro. Llevo tiempo persiguiendo desarrollar al completo la función GetAdaptersInfo y con DLL32 me da como resultado nil y con #PRAGMA me da 0 pero no me funciona en ambos casos. Código con DLL32: DLL32 FUNCTION ...

cnavarro wrote:Evidentemente, quiero pensar que habrá que inicializarla con el mismo tipo de dato que va a devolver

Ya pero el tipo DWORD puede tener valores negativos y positivos ¿no?

Sea como fuere habrá que tener cuidado con este tema.

¡¡¡ Funciona perfectamente en 64 bits !!! con las nuevas librerías, gracias Antonio. Esperaremos a la siguiente versión de FWH64 para tener los cambios "oficializados" :D Solo un dato curioso en 64 bits. Si inicializo la variable nTipo a un valor negativo (manía que tengo para según que ca...

A mi no me genera GPF, pero no devuelve el valor correcto ( 6 ), devuelve 0 Cristóbal, Si inicializas la variable con un valor distinto de CERO (ejemplo nTipo:= - 1) podrás comprobar si al pasarla por referencia se cambia el valor, probablemente ni siquiera funcione la "llamada a la función&qu...

Los próximos 13 y 14 DE ABRIL EN MADRID se celebra un congreso de tecnologías/redes/software/etc... Más de 60 Stands atendidos por expertos profesionales, que le podrán asesorar personalmente y en profundidad, sobre las tecnologías introducidas a través de los diferentes foros simultáneos. El lugar ...

A mi no me funciona si dejo la parte de código DLL32 FUNCTION... al principio del programa, antes del main(). Si la parte de código DLL32 FUNCTION... la pongo después del return nil funciona. Todo esto en 32 bits. El ejemplo de Cristóbal no me funciona en 64 bits. Es decir, se repite lo que dije en ...

El programa compilado en 64 bits (VS12) no funciona con la opción de wrapear con DLL32 FUNCTION... sí funciona con la opción de insertar código C (BEGINDUMP/ENDDUMP). El programa se ejecuta, aparece la ventana de cGetFile, se escoge el fichero deseado <intro> y... no aparece nada y al rato termina l...

DLL32 FUNCTION GetBinaryType( cFile AS LPSTR, @ nType AS DWORD ) AS LONG PASCAL FROM "GetBinaryTypeA" LIB "Kernel32.dll" Desconocía que se pudieran poner variables pasadas por referencia en el wrapeado de funciones de una DLL. Esto me ha funciona perfectamente :mrgreen: :D De he...

Gracias a ti por tu ayuda

Quitando PASCAL me da el error de "Programa.exe dejo de funcionar..." usando tanto GetBinaryTypeW como GetBinaryTypeA. Después de mucho probar por fin he conseguido que funcione pero usando código C con #pragma BEGINDUMP/ENDDUMP. Gracias por tu ayuda, siempre se aprenden cosas. Y después d...

DLL32 FUNCTION GetBinaryType(cFile AS LPSTR, nType AS PTR ) AS LONG PASCAL FROM "GetBinaryTypeA" LIB "Kernel32.dll" Usando la función GetBinaryType A me da el error de "Programa.exe dejo de funcionar...". Usando GetBinaryType W funciona el ejecutable pero no hace nada,...

Tratando de "wrapear" la función GetBinaryType me encuentro con el problema de no poder definir "un puntero a long o dword" para pasar una variable por referencia. Para strings existe y es la constante LPSTR. Mirando los ficheros DLL.CH he encontrado las constantes para ello: #if...