FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour AYUDA CON DLL Y ARREGLOS
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
AYUDA CON DLL Y ARREGLOS
Posted: Wed Aug 23, 2017 04:10 AM

Buenas tardes amigos haber quin me puede guiar con esto que la verdad no entiendo.

Tengo este

dataRead: array[0..15] of Byte; es delphi
Bloque: Byte;

Seria asi dataRead:= {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",}
Bloque:= 0
frHandle:=0

fretcode := ACR120_Read(frHandle, Bloque, @dataRead)
:::::

DLL FUNCTION ACR120_Read(frHandle AS LONG, Bloque AS LONG, @dataRead AS LPSTR) AS LONG PASCAL FROM "ACR120_Read" LIB ACR120libHandle

Como pasaria al llamado para la funcion con una arrelgo a llamado a la funcion ACR120_Read
y saber un poco mas de este tipo de manejo de datos

LPSTR WORD PTR LONG BYTE STRING VOID _INT

Agradeceria mucho quien me pueda iluminar gracias desde ya.

Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: AYUDA CON DLL Y ARREGLOS
Posted: Wed Aug 23, 2017 05:19 AM

Oscar,

dataRead := Space( 16 )

..., @dataRead AS PTR ) ...

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: AYUDA CON DLL Y ARREGLOS
Posted: Wed Aug 23, 2017 09:57 PM
Gracias estimado por contestar

Entonces el llamado quedaria

Seria asi dataRead:= ( 16 )
Bloque:= 0
frHandle:=0

fretcode := ACR120_Read(frHandle, Bloque, @dataRead)
:::::

DLL FUNCTION ACR120_Read(frHandle AS LONG, Bloque AS LONG, @dataRead AS PTR ) AS LONG PASCAL FROM "ACR120_Read" LIB ACR120libHandle

El parametro AS LONG PASCAL SERIA CORRECTO

Entonces cuando se usa LPSTR
Muchas Gracias..
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: AYUDA CON DLL Y ARREGLOS
Posted: Thu Aug 24, 2017 10:52 AM

> Entonces cuando se usa LPSTR

Cuando suministramos una cadena como parámetro que no va a ser modificada

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: AYUDA CON DLL Y ARREGLOS
Posted: Thu Aug 24, 2017 09:43 PM

Estimado.
Muy agradecido.

Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: AYUDA CON DLL Y ARREGLOS
Posted: Fri Aug 25, 2017 11:43 PM
Buenas Tardes.
Muy agradecido por tus respuestas.

Haber esta.
El $ en Pascal es como el 0x en C, y significa que a continuación hay un número en hexadecimal.

Por ejemplo, en Pascal escribir $FF es lo mismo que 255.
En C, 0xFF es 255.

Ahora necesito crear una cadena donde necesito mandar una cadena a una
algo seria

lOCAL pKey:="$FF$FF$FF$FF$FF$FF$FF"

fretcodeLogin := ACR120_Login(frHandle, Sector, ACR120_LOGIN_KEYTYPE_A, Campovar, @pKey)

Quien me puede ayudar si existe alguna funcion para convertir 255 a hexadecimal agradezco cualquier ayuda por favor.
desde ya gracias..
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: AYUDA CON DLL Y ARREGLOS
Posted: Sat Aug 26, 2017 10:54 PM

lOCAL pKey:= Replicate( Chr( 255 ), 7 )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: AYUDA CON DLL Y ARREGLOS
Posted: Mon Aug 28, 2017 09:56 PM

Gracias .
Intentare haber como lo logro
Oscar Chacon.

Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide

Continue the discussion