AYUDA CON DLL Y ARREGLOS

AYUDA CON DLL Y ARREGLOS

Postby Busmatic_wpb » Wed Aug 23, 2017 4: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
User avatar
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: AYUDA CON DLL Y ARREGLOS

Postby Antonio Linares » Wed Aug 23, 2017 5:19 am

Oscar,

dataRead := Space( 16 )


..., @dataRead AS PTR ) ...
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41208
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: AYUDA CON DLL Y ARREGLOS

Postby Busmatic_wpb » Wed Aug 23, 2017 9: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
User avatar
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: AYUDA CON DLL Y ARREGLOS

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 41208
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: AYUDA CON DLL Y ARREGLOS

Postby Busmatic_wpb » Thu Aug 24, 2017 9: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
User avatar
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: AYUDA CON DLL Y ARREGLOS

Postby Busmatic_wpb » 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
User avatar
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: AYUDA CON DLL Y ARREGLOS

Postby Antonio Linares » Sat Aug 26, 2017 10:54 pm

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41208
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: AYUDA CON DLL Y ARREGLOS

Postby Busmatic_wpb » Mon Aug 28, 2017 9: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
User avatar
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 13 guests