Traducir VB a C

[Antonio Linares]

y #define HB_CDP_ENDIAN_NATIVE 0

[José Vicente Beltrán]

Error: Unresolved external '_hb_itemCopyStrU16'

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

[José Vicente Beltrán]

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

[Antonio Linares]

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

[José Vicente Beltrán]

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

[Antonio Linares]

Has probado a implementar esto ?

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

Como lo has hecho ?

[José Vicente Beltrán]

Antonio,
te contesto por privado.