FiveTech Software tech support forums

y #define HB_CDP_ENDIAN_NATIVE 0

Error: Unresolved external '_hb_itemCopyStrU16'

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

Bueno ya he compilado con Harbour 3.2 y compila sin errores,
pero lamentablemente la llamada

Code: Select all  Expand view

ret := wadedinet:Adedinet(SysAllocString(AnsiToWide(nif)),SysAllocString(AnsiToWide(edi)), @des, @paginahtml)

no funciona y es porque la cadena edi := "UNB+UNOA:1+0941450527920B:ZZ+AEATADUD:ZZ+091112:1622+E00106944'UNH+7920BE00106944+CUSDEC:1:921:UN:ECSR01'BGM+EAL+00327509E'CST++++++'LOC+42+ES::141:001131'LOC+43+11::148+JCPF10::148'DTM+128:20091112:102'GIS+1:42:148'NAD+1+45052792R::148++EXPORTACION'UNT+9+7920BE00106944'UNZ+1+E00106944'"

al hacer SysAllocString(AnsiToWide(edi)) se convierte en NIL
lo mismo pasa con el NIF

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

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

Gracias de nuevo de veras

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,
te contesto por privado.