DeviceIoControl parameters

dhovden · Feb 18th 2014

In your programming examples and samples (mostly C and C#) for DeviceIoControl, the values IOCTL_DIO_SET_PIN, IOCTL_DIO_GET_PIN and IOCTL_DIO_CLR_PIN are used but I can't find how these are defined for use in VB.Net.

Where can I find what the values for these 3 constants are?

fs-support_ZU · Feb 18th 2014

Hello,

these values are defined in dio_sdk.h. This file is installed with the sdk. But you will find also complete .NET samples in our forum (please check this http://www.forum.fs-net.de/viewtopic.php?f=4&t=2377).

Try:

Code

protected static uint CTL_CODE(uint DeviceType, uint Function, uint Method, uint Access)
{
return ((DeviceType) << 16) | ((Access) << 14) | ((Function) << 2) | (Method);
}
// Later on ^_^
public const uint FILE_DEVICE_UNKNOWN = 0x00000022;
public const uint IOCTL_UNKNOWN_BASE = FILE_DEVICE_UNKNOWN;
public const uint METHOD_BUFFERED = 0;
public const uint FILE_READ_ACCESS = 0x0001;
public const uint FILE_WRITE_ACCESS = 0x0002;
public static uint IOCTL_YOUR_COOL_CUSTOM_COMMAND = CTL_CODE(IOCTL_UNKNOWN_BASE, 0x0800, METHOD_BUFFERED, FILE_READ_ACCESS | FILE_WRITE_ACCESS);

Display More

C

/*++
THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
PARTICULAR PURPOSE.
Copyright (c) 2004 F&S Elektronik Systeme GmbH
Module Name:
dio_sdk.h
Abstract:
This module contains the constant, type and structure definitions for the
NetDCU6-WINCE Digital I/O Interface (DIO.DLL) device driver.
Notes:
--*/
#ifndef __DIOSDK_H__
#define __DIOSDK_H__
#ifdef __cplusplus
extern "C" {
#endif
// We'll need some defines
#include "WINIOCTL.h"
// Configuration registry values
#define REG_VAL_PORT TEXT("Port")
#define REG_VAL_USEASIO TEXT("UseAsIO")
#define REG_VAL_DATADIR TEXT("DataDir")
#define REG_VAL_DATAINIT TEXT("DataInit")
#define REG_VAL_IRQCFG0 TEXT("IRQCfg0")
#define REG_VAL_IRQCFG1 TEXT("IRQCfg1")
#define REG_VAL_IRQCFG2 TEXT("IRQCfg2")
#define NUM_IRQS 24
// New IOControlCode values
#define FILE_DEVICE_DIO 0x00008007
#define IOCTL_DIO_REQUEST_IRQ CTL_CODE(FILE_DEVICE_DIO, 41, METHOD_BUFFERED, FILE_ANY_ACCESS) //WINCE600
#define IOCTL_DIO_RELEASE_IRQ CTL_CODE(FILE_DEVICE_DIO, 40, METHOD_BUFFERED, FILE_ANY_ACCESS) //WINCE600
#define IOCTL_DIO_REQUEST_SYSINTR CTL_CODE(FILE_DEVICE_DIO, 38, METHOD_BUFFERED, FILE_ANY_ACCESS)
// DeviceIoControl( hDIO, IOCTL_DIO_REQUEST_SYSINTR,
// &dwIRQ, sizeof(DWORD),
// &dwSysIntr, sizeof(DWORD), NULL );
#define IOCTL_DIO_RELEASE_SYSINTR CTL_CODE(FILE_DEVICE_DIO, 54, METHOD_BUFFERED, FILE_ANY_ACCESS)
//
// BYTE chPin = 5;
// DeviceIoControl( hDIO, IOCTL_DIO_SET_PIN,
// &chPin, sizeof(BYTE),
// NULL, 0, NULL );
#define IOCTL_DIO_SET_PIN CTL_CODE(FILE_DEVICE_DIO, 60, METHOD_BUFFERED, FILE_ANY_ACCESS)
// BYTE chPin = 5;
// DeviceIoControl( hDIO, IOCTL_DIO_CLR_PIN,
// &chPin, sizeof(BYTE),
// NULL, 0, NULL );
#define IOCTL_DIO_GET_PIN CTL_CODE(FILE_DEVICE_DIO, 61, METHOD_BUFFERED, FILE_ANY_ACCESS)
// BYTE chPin = 5;
// BYTE chReturn;
// DeviceIoControl( hDIO, IOCTL_DIO_SET_PIN,
// &chPin, sizeof(BYTE),
// &chReturn, sizeof(BYTE), NULL );
#define IOCTL_DIO_CLR_PIN CTL_CODE(FILE_DEVICE_DIO, 62, METHOD_BUFFERED, FILE_ANY_ACCESS)
// IOCTL_DIO_REINIT:
// Read registry and init digital I/O's
// DeviceIoControl( hDIO, IOCTL_DIO_REINIT,
// NULL, 0,
// NULL, 0, NULL );
#define IOCTL_DIO_REINIT CTL_CODE(FILE_DEVICE_DIO, 63, METHOD_BUFFERED, FILE_ANY_ACCESS)
/*
* Modified: 2008-09-22, DK:
* Enabling interrupts
*/
//Perform WaitForSingleObject on SysIntr.
#define IOCTL_DIO_WAIT_IRQ CTL_CODE(FILE_DEVICE_DIO, 65, METHOD_BUFFERED, FILE_ANY_ACCESS)
//Perform InterruptDone on SysIntr.
#define IOCTL_DIO_DONE_IRQ CTL_CODE(FILE_DEVICE_DIO, 66, METHOD_BUFFERED, FILE_ANY_ACCESS)
//Struct to pass to WAIT_IRQ CTL
typedef struct tagWAITIRQ
{
DWORD dwPin;
DWORD dwTimeout;
}WAITIRQ;
#ifdef __cplusplus
}
#endif

Display More

dhovden · Feb 18th 2014

Thank you, that works, one step further

What I'm running into now is the declaration of DeviceIoControl in VB.Net. I have tried a number of IntPtr/UInteger variations but cannot get it to work: either the programs crashes or nothing happens.

I'd be very grateful if you could show me how the DllImport should look like in VB.Net and how to call it to set or clear or pin.

fs-support_ZU · Feb 19th 2014

Hello,

i have no experience in vb but it should be complete the same as in c# (refer the sample in the link above).
Why do you not use ReadFile/WriteFile? The code is not so smart and maybe you have to add "SetFilePointer" but the code is very simple (and i hope fast enough).

Code

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
namespace AutobootCS
{
class DIOSwitch
{
protected IntPtr hPort;
const UInt32 GENERIC_READ= 0x80000000;
const UInt32 GENERIC_WRITE = 0x40000000;
const UInt32 OPEN_EXISTING = 3;
const Byte BIT0 = 0x01;
const Byte BIT1 = 0x02;
const Byte BIT2 = 0x04;
const Byte BIT3 = 0x08;
const Byte BIT4 = 0x10;
const Byte BIT5 = 0x20;
const Byte BIT6 = 0x40;
const Byte BIT7 = 0x80;
public bool Open(string Port)
{
hPort = CreateFile(Port, GENERIC_READ|GENERIC_WRITE, 0, IntPtr.Zero, OPEN_EXISTING, 0, IntPtr.Zero);
if (hPort == (IntPtr)(-1))
return false;
return true;
}
public bool EnableEingang(bool bOn)
{
byte b=0;
if(Read(ref b))
{
if(bOn==true)
{
byte c = BIT7;
b &= ((byte)~c);
return Write(b);
}
else
{
b |= BIT7;
return Write(b);
}
}
return false;
}
public bool SelectEingang(string sDevice)
{
byte b=0;
if (Read(ref b) == false)
return false;
byte c= BIT6;
byte d =BIT5;
switch (sDevice)
{ //74lvc139 mit e=L
//a0,a1 y1,y2,y3,y4
case Autoboot.INVOLTAGE_1://LL LHHH
b &= ((byte)~c);
b &= ((byte)~d);
break;
case Autoboot.INVOLTAGE_2://HL HLHH
b |= c;
b &= ((byte)~d);
break;
case Autoboot.INVOLTAGE_3://LH HHLH
b &= ((byte)~c);
b |= d;
break;
default:
return false;
}
return Write(b);
}
public bool EnableAusgang(bool bOn)
{
byte b = 0;
if (Read(ref b))
{
if (bOn == true)
{
byte c = BIT4;
b &= ((byte)~c);
return Write(b);
}
else
{
b |= BIT4;
return Write(b);
}
}
return false;
}
public bool SelectAusgang(string sDevice)
{
byte b = 0;
if (Read(ref b) == false)
return false;
byte c = BIT3;
byte d = BIT2;
switch (sDevice)
{ //74lvc139 mit e=L
//a0,a1 y1,y2,y3,y4
case Autoboot.OUTVOLTAGE_1://LL LHHH
b &= ((byte)~c);
b &= ((byte)~d);
break;
case Autoboot.OUTVOLTAGE_2://HL HLHH
b |= c;
b &= ((byte)~d);
break;
default:
return false;
}
return Write(b);
}
public bool LEDRot(bool bOn)
{
byte b = 0;
if (Read(ref b))
{
if (bOn == true)
{
b |= BIT1;
return Write(b);
}
else
{
byte c = BIT1;
b &= ((byte)~c);
return Write(b);
}
}
return false;
}
public bool LEDGruen(bool bOn)
{
byte b = 0;
if (Read(ref b))
{
if (bOn == true)
{
b |= BIT0;
return Write(b);
}
else
{
byte c = BIT0;
b &= ((byte)~c);
return Write(b);
}
}
return false;
}
public void Close()
{
CloseHandle(hPort);
}
// ******************************************************************
private bool Read(ref Byte b)
{
Byte[] Data = new Byte[1];
Int32[] Read = new Int32[1];
if (ReadFile(hPort, Data, 1, Read, IntPtr.Zero) > 0)
{
b = Data[0];
return true;
}
return false;
}
private bool Write(Byte b)
{
Byte[] Data = new Byte[1];
Int32[] Written = new Int32[1];
Data[0] = b;
if(WriteFile(hPort, Data, 1, Written, IntPtr.Zero)>0)
return true;
return false;
}
// ******************************************************************
[DllImport("coredll.dll", EntryPoint = "CreateFileW", SetLastError = true)]
public extern static IntPtr CreateFile(string lpFileName, uint dwDesiredAccess, uint dwShareMode, IntPtr pSecurityAttributes,
uint dwCreationDisposition, uint dwFlagsAndAttributes, IntPtr hTemplateFile);
[DllImport("coredll.dll", EntryPoint = "CloseHandle", SetLastError = true)]
public extern static int CloseHandle(IntPtr hObject);
[DllImport("coredll.dll", EntryPoint = "ReadFile", SetLastError = true)]
public extern static uint ReadFile(IntPtr hObject, Byte[] lpBuffer, uint NumberOfBytesToRead, Int32[] NumberOfBytes,
IntPtr lpOverLapped);
[DllImport("coredll.dll", EntryPoint = "WriteFile", SetLastError = true)]
public extern static uint WriteFile(IntPtr hObject, Byte[] lpBuffer, uint NumberOfBytesToWrite, Int32[] NumberOfBytes,
IntPtr lpOverLapped);
}
}

Display More

dhovden · Feb 19th 2014

Thank you for the example code but I already have working WriteFile/ReadFile code. The advantage with DeviceIoControl is that it lets you individual pins whereas WriteFile always affects an entire port which is not always what you want.

So, a code example using DeviceIoControl would be much appreciated ...

fs-support_ZU · Feb 20th 2014

Hello

Quote

The advantage with DeviceIoControl is that it lets you individual pins whereas WriteFile always affects an entire port which is not always what you want.

You are right, But you may read before and set/clear the desired bit - not so smart and fast, but for most GPIO purpose sufficient.
Did you examinate the c# "DeviceIOControl" sample? Please post the problems in detail.

Code

...
const Byte BIT1 = 0x02;
//Writeonly bit 1
byte b = 0;
if (Read(ref b))
{
if (bOn == true)
{
b |= BIT1;
return Write(b);
}
else
{
byte c = BIT1;
b &= ((byte)~c);
return Write(b);
}
}

Display More

dhovden · Feb 20th 2014

Well, the problem in detail, as already posted was this

What I'm running into now is the declaration of DeviceIoControl in VB.Net. I have tried a number of IntPtr/UInteger variations but cannot get it to work: either the programs crashes or nothing happens.

I'd be very grateful if you could show me how the DllImport should look like in VB.Net and how to call it to set or clear or pin.

So not much point in looking at C# examples ... which I have done and have working as well but I need to get this working in VB as well. Normally, DllImport declarations are quite easy to figure out (or find) but as I said, I can't get this work. Whatever I try, my program either crashes or nithing happens when I call DeviceIoControl

fs-support_ZU · Feb 20th 2014

Please post your code?
Where your program crashes?
How looks your registry? Does the c# sample work with your registy.
How should we help with the current information?
VB and C# are not very different.

dhovden · Feb 20th 2014

VB and C# are not very different in general but when it comes to DLlImport they are. Anyway, WriteFile/ReadFile works so the registry settings are correct. Here is how I set them

reg open \drivers\builtin\digitalio
reg set val UseAsIO hex 00,00,00,00,00,C0,01
reg set val DataDir hex 00,00,00,00,00,C0,01
reg set val DataInit hex 00,00,00,00,00,00,01
reg save

I'm testing on pins 1, 2 and 13 on J10, all as output.

The essential bits of the code are (please note that port has already been set by call to SetFilePointer):

<DllImport("coredll.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function DeviceIoControl(ByVal hDevice As IntPtr, ByVal dwIoControlCode As UInteger, ByRef InBuffer As UInteger, _
ByVal nInBufferSize As Integer, ByRef OutBuffer As UInteger, ByVal nOutBufferSize As Integer, ByRef pBytesReturned As UInteger, _
ByVal lpOverlapped As IntPtr) As Boolean
End Function

Sub SetPin(ByVal APin As Integer)
Dim cnt As UInteger
Dim pin As UInteger
pin = APin
DeviceIoControl(hPort, IOCTL_DIO_SET_PIN, pin, 4, Nothing, 0, cnt, Nothing)
End Sub

Sub ClearPin(ByVal APin As Integer)
Dim cnt As UInteger
Dim pin As UInteger
pin = APin
DeviceIoControl(hPort, IOCTL_DIO_CLR_PIN, pin, 4, Nothing, 0, cnt, Nothing)
End Sub

where

IOCTL_DIO_SET_PIN = CTL_CODE(FILE_DEVICE_DIO, IOCTL_SET_PIN, METHOD_BUFFERED, FILE_ANY_ACCESS)
IOCTL_DIO_CLR_PIN = CTL_CODE(FILE_DEVICE_DIO, IOCTL_CLR_PIN, METHOD_BUFFERED, FILE_ANY_ACCESS)

and

Const IOCTL_SET_PIN As UInteger = 60
Const IOCTL_CLR_PIN As UInteger = 62

fs-support_ZU · Feb 20th 2014

Hello,
"ByRef InBuffer As IntPtr" and "ByRef OutBuffer As IntPtr" i assume (http://www.pinvoke.net/default.aspx/kernel32.deviceiocontrol).
What is about the return values and "GetLastError" of "DeviceIOControl" calls? This would be also intersting.

dhovden · Feb 20th 2014

"ByRef InBuffer As IntPtr", I've tried that with pin=new IntPtr(APin) (in SetPin) but that's when it crashes ...
Haven't checked GetLastError, a bit difficult since the program crashes ate the DeviceIoControl call
Maybe a try catch will work, will test

fs-support_ZU · Feb 20th 2014

Sorry, i correct the link below.
Please try again, there you will find everything you need.

dhovden · Feb 20th 2014

<a class="postlink" href="http://www.pinvoke.net/default.aspx/kernel32.deviceiocontrol">http://www.pinvoke.net/default.aspx/ker ... eiocontrol</a> is where I always go for DllImport definitions and so also in this case. Normally it works but not in this case which is why I have asked you for help ...

fs-support_ZU · Feb 20th 2014

But in their sample they use "Marshall. ..." to allocate the buffer this may be impoertant.

RawBean · Jun 11th 2014

I also must update an application in VB, and I must make call to DeviceIoControl().

@dhovden How did you finally make the declaration?

RawBean · Jun 20th 2014

I've got the solution now, and I will post it here for the next guy in troubles, like I've been.

I created below structure

Code

<StructLayout(LayoutKind.Sequential)> _
Public Structure NI2C_MSG_HEADER
Public chDevAddr As Byte
Public chFlags As Byte
Public wLen As Int16
Public Property NI2C_MSG_HEADER(ByVal chDevAddr As Byte, ByVal chFlags As Byte, ByVal wLen As Int16) As NI2C_MSG_HEADER
Get
Return Me
End Get
Set(ByVal value As NI2C_MSG_HEADER)
Me.chDevAddr = value.chDevAddr
Me.chFlags = value.chFlags
Me.wLen = value.wLen
End Set
End Property
End Structure

Display More

I've used 2 overloaded declaration

Code

Private Overloads Declare Function DeviceIoControl Lib "coredll" (ByVal hDevice As IntPtr, _
ByVal dwIoControlCode As Int32, _
ByVal inBuffer As NI2C_MSG_HEADER(), _
ByVal inBufferSize As Int32, _
ByVal outBuffer As Byte(), _
ByVal outBufferSize As Int32, _
ByRef bytesReturned As Int32, _
ByVal overlapped As IntPtr) As Integer
' SkipResult(), CheckResult(), GetClockFreq()
Private Overloads Declare Function DeviceIoControl Lib "coredll" (ByVal hDevice As IntPtr, _
ByVal dwIoControlCode As Int32, _
ByVal inBuffer As IntPtr, _
ByVal inBufferSize As Int32, _
ByVal outBuffer As IntPtr, _
ByVal outBufferSize As Int32, _
ByRef bytesReturned As Int32, _
ByVal overlapped As IntPtr) As Integer

Display More

Then, I have 2 functions (among others) for Schedule and GetResults.

Schedule
Code
1. Public Function Schedule(ByVal msg As NI2C_MSG_HEADER(), ByVal data As Byte()) As Integer
2. Dim bytesreturned As Int32
5. bytesreturned = Marshal.SizeOf(data)
8. Return DeviceIoControl(hPort, IOCTL_NI2C_SCHEDULE, _
9. msg, msg.Length * Marshal.SizeOf(GetType(NI2C_MSG_HEADER)), _
10. data, data.Length, _
11. bytesreturned, IntPtr.Zero)
12. End Function
Display More
[list=2]
GetResult

Code

Public Function GetResult(ByVal msg As NI2C_MSG_HEADER(), ByVal data As Byte()) As Integer
Dim bytesreturned As Int32
Return DeviceIoControl(hPort, IOCTL_NI2C_GET_RESULT, _
msg, msg.Length * Marshal.SizeOf(GetType(NI2C_MSG_HEADER)), _
data, data.Length, _
bytesreturned, IntPtr.Zero)
End Function

fs-support_ZU · Jun 23rd 2014

Hello
many thanks for spend your time and for the detailed code above.