FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Convert code to FWH
cdmmaui
Posts: 708
Joined: Fri Oct 28, 2005 09:53 AM
Convert code to FWH
Posted: Fri Apr 28, 2023 09:26 PM

Happy Friday Everyone,

Could someone help me convert this code to FWH? I would happy to pay you for your time.

Thank you!

define AddrPort 0x2e

define DataPort 0x2f

define SIO_UnLock_Value 0x87

define SIO_Lock_Value 0xaa

define SIO_LDN_GPIO 0x07

define GPIO_Port 0xF1

// Enter_Config

WriteByte (AddrPort , SIO_UnLock_Value);

WriteByte (AddrPort , SIO_UnLock_Value);

WriteByte (AddrPort , 0x07);

WriteByte (DataPort , SIO_LDN_GPIO);

//Set OUT1~OUT8Value

WriteByte( AddrPort , GPIO_Port);

WriteByte (DataPort , 0x00); //set OUT1~OUT8 value, OUT1=Bit0, OUT2=Bit1

// Read In1~In8 value

WriteByte( AddrPort, 0xED);

Data=ReadByte DataPort ); //Read In1~In8 value

// close config mode

WriteByte( AddrPort , SIO_Lock_Value);

*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 04:29 AM

Dear Darrell,

What C compiler are you using ?

Are you using 32 or 64 bits ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
cdmmaui
Posts: 708
Joined: Fri Oct 28, 2005 09:53 AM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 04:31 AM

Hi Antonio,

Borland

*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 04:36 AM

32 bits ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
cdmmaui
Posts: 708
Joined: Fri Oct 28, 2005 09:53 AM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 04:42 AM

Hi Antonio,

Yes

*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 05:11 AM
Dear Darrell,

Please download this zip file:
https://github.com/starofrainnight/winio/releases/download/3.0/WinIo.zip

And try this initial version:
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "dll.ch"

#define AddrPort 0x2e
#define DataPort 0x2f
#define SIO_UnLock_Value 0x87
#define SIO_Lock_Value 0xaa
#define SIO_LDN_GPIO 0x07
#define GPIO_Port 0xF1

static hDll

function Main()

   local Data

   hDLL = LoadLibrary( "winio.dll" )

   InitializeWinIO()

   // Enter_Config
   WriteByte (AddrPort , SIO_UnLock_Value)
   WriteByte (AddrPort , SIO_UnLock_Value)

   WriteByte (AddrPort , 0x07)
   WriteByte (DataPort , SIO_LDN_GPIO)

   //Set OUT1~OUT8Value
   WriteByte( AddrPort , GPIO_Port)
   WriteByte (DataPort , 0x00) //set OUT1~OUT8 value, OUT1=Bit0, OUT2=Bit1

   // Read In1~In8 value
   WriteByte( AddrPort, 0xED)
   Data=ReadByte( DataPort ) //Read In1~In8 value

   // close config mode
   WriteByte( AddrPort , SIO_Lock_Value)

   ShutDownWinIo()
   FreeLibrary( hDLL )

   MsgInfo( "ok" ) 

return nil

DLL FUNCTION InitializeWinIO() AS BOOL FROM "InitializeWinIo" LIB hDLL
DLL FUNCTION WriteByte( nPort AS _INT, nValue AS _INT ) AS BOOL FROM "SetPortVal" LIB hDLL 
DLL FUNCTION ReadByte( nPort AS _INT ) AS _INT FROM "GetPortVal" LIB hDLL
DLL FUNCTION ShutdownWinIo() AS VOID FROM "ShutdownWinIo" LIB hDLL
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 05:17 AM

Please replace this line:

InitializeWinIO()

with:

MsgInfo( InitializeWinIO() )

to check if the DLL properly initializes

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 05:19 AM

After running it please check if there is a hb_out.log file

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 05:32 AM

There is something else to implement, doing it...

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 05:41 AM
https://github.com/starofrainnight/winio

These are the right files to use:
https://github.com/starofrainnight/winio/releases/download/3.0/WinIo.zip
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 05:57 AM
This should be the right code:

winio32.dll and winio32.sys should be where your EXE is placed.

ports.prg
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "dll.ch"

#define AddrPort 0x2e
#define DataPort 0x2f
#define SIO_UnLock_Value 0x87
#define SIO_Lock_Value 0xaa
#define SIO_LDN_GPIO 0x07
#define GPIO_Port 0xF1

static hDll

function Main()

   local Data

   hDLL = LoadLibrary( "winio32.dll" )

   MsgInfo( hDLL )

   MsgInfo( InstallWinIoDriver( "WinIo32.sys", .T. ) )

   MsgInfo( InitializeWinIO() )

   // Enter_Config
   WriteByte (AddrPort , SIO_UnLock_Value)
   WriteByte (AddrPort , SIO_UnLock_Value)

   WriteByte (AddrPort , 0x07)
   WriteByte (DataPort , SIO_LDN_GPIO)

   //Set OUT1~OUT8Value
   WriteByte( AddrPort , GPIO_Port)
   WriteByte (DataPort , 0x00) //set OUT1~OUT8 value, OUT1=Bit0, OUT2=Bit1

   // Read In1~In8 value
   WriteByte( AddrPort, 0xED)
   Data=ReadByte( DataPort ) //Read In1~In8 value

   // close config mode
   WriteByte( AddrPort , SIO_Lock_Value)

   ShutDownWinIo()
   FreeLibrary( hDLL )

   MsgInfo( "ok" ) 

return nil

DLL FUNCTION InstallWinIoDriver( cPath AS LPSTR, lIsDemandLoaded AS BOOL ) AS BOOL FROM "InitializeWinIo" LIB hDLL
DLL FUNCTION InitializeWinIO() AS BOOL FROM "InitializeWinIo" LIB hDLL
DLL FUNCTION WriteByte( nPort AS _INT, nValue AS _INT ) AS BOOL FROM "SetPortVal" LIB hDLL 
DLL FUNCTION ReadByte( nPort AS _INT ) AS _INT FROM "GetPortVal" LIB hDLL
DLL FUNCTION ShutdownWinIo() AS VOID FROM "ShutdownWinIo" LIB hDLL
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 06:03 AM
A brief explanation:

A Windows app can't directly manage the ports for security reasons, it must use a driver.

WinIO32.sys is the driver and WinIO32.DLL is the DLL to manage such driver

This WinIO was developed by http://www.sysinternals.com but lately was bought by Microsoft and they dropped it.

Thats why this free github repo has implemented it: https://github.com/starofrainnight/winio
regards, saludos

Antonio Linares
www.fivetechsoft.com
cdmmaui
Posts: 708
Joined: Fri Oct 28, 2005 09:53 AM
Re: Convert code to FWH
Posted: Sat Apr 29, 2023 12:18 PM

Hello Antonio,

Thank you so much! Initially we are looking to read certain values to determine status of a device, simply 0 or 1 (on or off).

Thank you again!

*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Jimmy
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: Convert code to FWH
Posted: Sun Apr 30, 2023 09:13 PM
hi,

i like to know what Hardware do you use with this CODE :?:
greeting,

Jimmy
cdmmaui
Posts: 708
Joined: Fri Oct 28, 2005 09:53 AM
Re: Convert code to FWH
Posted: Sun Apr 30, 2023 10:14 PM

Hi Jimmy,

Nuvoton NCT6106D. We are looking to get status from specific pin, either on (1) or off (0).

*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Static archive · New replies & topics via GitHub Discussions