FiveTech Software tech support forums

... unas funciones de * Auteur Badara Thiam, publicadas en el Forum, StrToBase64(), y sucedio la magia, pero me retorna algo parecido que he intentado traducir con la funcion Base64ToStr() de la misma fuente, y no obtengo algo legible. Probe hacer el envio con xLee(), que amablemente compartiste.. ...

Antonio,
te contesto por privado.

Has probado a implementar esto ?

4 bytes que indican la longitud de la cadena + AnsiToWide( edi ) + Chr( 0 ) + Chr( 0 )

Como lo has hecho ?

Antonio, Me rindo, no tengo derecho a seguir abusando de tu tiempo. No debería ser tan complicado llamar una funcion de una dll instalada en el sistema. Nada de lo sugerido por ti, ni probado por mi, (varias horas, mas de la cuenta) ha funcionado, así que para la proxima vida intentaré aprender C Gr...

En vez de usar SysAllocString(AnsiToWide(edi)), haz tu la conversión:

4 bytes que indican la longitud de la cadena + AnsiToWide( edi ) + Chr( 0 ) + Chr( 0 )

Prueba con la longitud normal de la cadena y prueba tambien con el doble de la longitud, ya que se trata
de una cadena unicode

Bueno ya he compilado con Harbour 3.2 y compila sin errores, pero lamentablemente la llamada ret := wadedinet:Adedinet(SysAllocString(AnsiToWide(nif)),SysAllocString(AnsiToWide(edi)), @des, @paginahtml) no funciona y es porque la cadena edi := "UNB+UNOA:1...

Error: Unresolved external '_hb_itemCopyStrU16'

Parece que esta funcion es solo de Harbour, ¿existe alguna equivalente en XH?

y #define HB_CDP_ENDIAN_NATIVE 0

Tienes que añadir:

#include <hbapistr.h>

Antonio me perdonarás el peñazo, pero al compilar me sale el error:

Error E2451 wmaster.prg 3514: Undefined symbol 'HB_CDP_ENDIAN_NATIVE' in function HB_FUN_SYSALLOCSTRING
Warning W8065 wmaster.prg 3514: Call to function 'hb_itemCopyStrU16' with no prototype in function HB_FUN_SYSALLOCSTRING

Prueba con esta función SysAllocString() #pragma BEGINDUMP#include <windows.h>#include <hbapi.h>#include <hbstack.h>#include <hbapicdp.h>HB_FUNC( SYSALLOCSTRING ){   BSTR strVal = SysAllocString( ( WCHAR * ) hb_parc( 1 ) );   hb_itemCopySt...

Mira lo que comenta aqui:

If you pass a simple Unicode string as an argument to a COM function that is expecting a BSTR, the COM function will fail.

Si se usa una simple cadena unicode (como hemos hecho con AnsiToWide()) la función fallará

Es diferente a Unicode, pues lleva delante 4 bytes con su longitud y dos ceros al final como se explica aqui: Length prefix A four-byte integer that contains the number of bytes in the following data string. It appears immediately before the first character of the data string. This value does not in...

José Vicente,

BSTR es una cadena unicode, y los parámetros que espera son de tipo BSTR:

https://msdn.microsoft.com/es-es/library/windows/desktop/ms221069(v=vs.85).aspx

Por eso te sugerí que probases con AnsiToWide()

Gracias Antonio, En este caso AnsiToWide() no funciona. ...... peeeeero, debemos estar muy cerca porque despues de algunos retoques, 'ret' ya devuelve los códigos correctos, y no hay errores. El problema que falta por solucionar es que cuando 'ret' = 0, 'des' y 'paginahtml' deberian devolver la info...