Help translate from Delphi to Fivewin

[kok joek hoa]

Dear All,

Can some one help me to translate this Winapi (Delphi to Fivewin ) ,
and how I call this function if I have data like :

nport :=3
addres := 0xff

thanks

kok joek hoa
//-----------------------dll function
long WINAPI OpenComPort (long Port , unsigned char *ComAdr, long *FrmHandle)
long WINAPI AutoOpenComPort(long *Port , unsigned char *ComAdr, long *FrmHandle)

I have try this statement but still no effect

DLL Function OpenComPort( nPort AS long, @CompAdr AS LPSTR , @nFrmHandel AS PTR) AS LONG PASCAL FROM "OpenComPort" LIB "RR9000mul.dll"
DLL Function AutoOpenComPort( nPort AS PTR, @CompAdr AS LPSTR , @nFrmHandel AS PTR) AS LONG PASCAL FROM "OpenComPort" LIB "RR9000mul.dll"

[kok joek hoa]

problem solved

thanks

[James Bott]

Please show us how.

Regards,
James

[kok joek hoa]

Dear James,

here,

DLL FUNCTION AutoOpenComPort ( @nPort AS LPSTR , @CompAdr AS LPSTR , @FrmHandle AS LPSTR) AS LONG PASCAL FROM "AutoOpenComPort" LIB "RR9000MUL.dll"
DLL FUNCTION OpenComPort ( nPort AS LONG , @CompAdr AS LPSTR , @FrmHandle AS LPSTR) AS LONG PASCAL FROM "OpenComPort" LIB "RR9000MUL.dll"

regards,

kok joek hoa

[kok joek hoa]

Dear James,

we can control this hardware ( DL810 long Range Rfid ISO 15690 ) using fivewin like :

#include "fivewin.ch"
#include "dll.ch"
#include "Struct.ch"


function Main()

LOCAL hDLL := LoadLibrary( "RR9000mul.dll" )

local nport
local naddresSport
local FrmHandle
LOCAL VERSIONINFO
local ReaderType
local TrType
local InventoryScanTime


STRUCT nport
MEMBER NPORT AS LONG
ENDSTRUCT

STRUCT NADDRESSPORT
MEMBER ADDRESS AS BYTE
ENDSTRUCT

STRUCT FrmHandle
MEMBER CODE AS LONG
ENDSTRUCT



NPORT:NPORT := 3 // com3
NADDRESSPORT:ADDRESS :=0XFF // 255
FrmHandle:CODE := 0

TRY
FOR NCTL = 3 TO 5
NPORT:NPORT := NCTL

MSGINFO( AUTOOPENCOMPORT(NPORT:CBUFFER ,NADDRESSPORT:CBUFFER ,FrmHandle:CBUFFER ))
MSGINFO(NPORT:NPORT)
MSGINFO(NADDRESSPORT:ADDRESS)
MSGINFO(FrmHandle:CODE)

NEXT
CATCH

MSGINFO('Cannot Open Port')
END


CloseComPort ()
FreeLibrary( hDLL )

return nil



DLL FUNCTION AutoOpenComPort ( @nPort AS LPSTR , @CompAdr AS LPSTR , @FrmHandle AS LPSTR) AS LONG PASCAL FROM "AutoOpenComPort" LIB "RR9000MUL.dll"
DLL FUNCTION OpenComPort ( nPort AS LONG , @CompAdr AS LPSTR , @FrmHandle AS LPSTR) AS LONG PASCAL FROM "OpenComPort" LIB "RR9000MUL.dll"
DLL FUNCTION CloseComPort () AS LONG FROM "CloseComPort" PASCAL LIB "RR9000MUL.dll"