FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Traducir VB a C
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Traducir VB a C
Posted: Sat Jul 02, 2016 07:55 PM

y #define HB_CDP_ENDIAN_NATIVE 0

regards, saludos

Antonio Linares
www.fivetechsoft.com
José Vicente Beltrán
Posts: 282
Joined: Mon Oct 10, 2005 08:55 AM
Re: Traducir VB a C
Posted: Mon Jul 04, 2016 09:31 AM

Error: Unresolved external '_hb_itemCopyStrU16'

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

José Vicente Beltrán
Posts: 282
Joined: Mon Oct 10, 2005 08:55 AM
Re: Traducir VB a C
Posted: Mon Jul 04, 2016 12:31 PM
Bueno ya he compilado con Harbour 3.2 y compila sin errores,
pero lamentablemente la llamada
Code (fw): Select all Collapse
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: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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Traducir VB a C
Posted: Mon Jul 04, 2016 12:34 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
José Vicente Beltrán
Posts: 282
Joined: Mon Oct 10, 2005 08:55 AM
Re: Traducir VB a C
Posted: Mon Jul 04, 2016 03:16 PM

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 :cry:

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Traducir VB a C
Posted: Mon Jul 04, 2016 08:22 PM

Has probado a implementar esto ?

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

Como lo has hecho ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
José Vicente Beltrán
Posts: 282
Joined: Mon Oct 10, 2005 08:55 AM
Re: Traducir VB a C
Posted: Tue Jul 05, 2016 08:33 AM

Antonio,
te contesto por privado.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions