NIDAQmxBase header translation

[mig-31]

Hi,

I added some code examples to wiki there http://wiki.lazarus.freepascal.org/NI-DAQmx_and_NI-DAQmx_Base_examples.
I continue with code examples adding in next days: digital port input/output, counter.

I will be glad, if someone else check it or add something new. 

There is one question, where we can store and maintain nidaqmx.pas and nidaqmxbase.pas

[tonbo]

Hi, mig-31

I read your nice code examples.
We are waiting for your store.
Thanks.

[mig-31]

Hi,

I hope it will be useful for others.

We are waiting for your store.

I don't understand for what you are waiting for.

[tonbo]

Hi,mig-31

Thankful for your reply.

I want the "nidaqmx.pas" you used for "wiki code examples".
I'd like to confirm the movement of your examples.

[CM630]

Good job!
Or I suppose so, since I have not tested
 

There is one question, where we can store and maintain nidaqmx.pas and nidaqmxbase.pas

SorceForge, for example.
I think my bindings for dynamical linking are there.

[mig-31]

I want the "nidaqmx.pas" you used for "wiki code examples".
I'd like to confirm the movement of your examples.

I'm glad to hear it.
Could you test analog output? I will add an analog output example, but I don't have any hardware with analog output to test it.

[tonbo]

Hi, mig-31 and Paskal
I'm glad about your reply.

I'd like to confirm of all your examples.

Next...
Continuous sampling above 200kHz 10 seconds.
a: Analog 16bit Differential 3-ch sametime input.
b: A B Z Encoder input.

And...
c: a,b sametime input.

For a while, I have a NI USB-6356.

Thanks.

[mig-31]

Hi,

It is nice to hear it.

I added NI USB-6356 to wiki.

I see, this card have 2 analog outputs. I will add example for analog output to wiki. Please test it.

Thanks.

[tonbo]

Hi, mig-31

I fail at the first stage.

When I compiled your "devicelist" by arrangement of default, the next error occurred.
.nidaqmx.pas(61,109) Error: Type identifire expected
.nidaqmx.pas(61,109) Fatal: Syntax error. ")" expected but "CONST" found

( Line61: function DAQmxGetTaskAttribute(taskHandle:TaskHandle; attribute:longint; value:pointer; args:array of const):longint;cdecl;external External_library name 'DAQmxGetTaskAttribute';

109: array of const )

Environment
.Windows7 32Bit
.Lazarus Ver.1.2.6
.NI-DAQmx 14.0

I'm a beginner about
.Linux
.Lazarus...

[mig-31]

Hi, Tonbo
I'm on vacation until 5-th of January. Out of work I use only Linux and I haven't any device. I check it after vacation.

From you description, I think you should check line before, if you have this symbol ")" or you have const word.

Upload you project in .zip here to check error without exe file.

[tonbo]

Hi, mig-31

How was a vacation?
I have just taken short vacation days, too.

When you'll check it, I'm happy.

[mig-31]

Hi,
If you open nidaqmx unit, you see that nidaqmx in your project is for linux 32-bit.
If I replace it by nidaqmx Windows unit and try to compile your project I get a same error as you.
But when i create new program and copy/paste code, I compile it without error.
There is a zip project file.

[tonbo]

Hi, mig-31

Thank you very much.
I moved safely and was shown as follows.
  -------------------------------------------------------------
  |Device name | Product Type | # Serial number | Is Simulated?
  -------------------------------------------------------------
  |Dev1 | USB-6356 (64 MS) | $015714C0 |No

5 hours have not passed yet from my UP.
It's miracle.

If possible, please tell me.
What kind of tool did you use? H2Pas?
I couldn't use it well.

I'll test your sample programs.
Please wait for some days.

Thanks.

[mig-31]

If possible, please tell me.
What kind of tool did you use? H2Pas?
I couldn't use it well.

Hi, tonbo
If you mean translation tool C headers to Pascal bindings, in our case nidaqmx.h to nidaqmx.pas, yes I use h2pas tool.
In case of nidaqmx.h, there are some issues: you should wrap lines with length more than 255 number of letters(chars) and remove C macros. I think, before translation I devided nidaqmx.h on three parts: part with constants definitions, part with function...
Usually I divide big C header on parts, befor translation.
For wrapping lines I use KWrite text editor under linux.

[tonbo]

Hi, mig-31

Thank you very much for your a lot of hints.
I'd like to try someday.

Now, I tested the 'diport' of your sample program.

Your original cord is the 'diport(original).zip'.
Several compile errors occurred by Windows7 32bit.
(Sorry, I can't deal with Linux.)

I rewrote the part of the cord and made them move.
Changed one is the 'diport(change).zip'.
Those changes were marked by '//change'.

Screen indication

  number of readed samples: 10
  data (0) = %00000000
  data [1] = %00000000
  data [2] = %00000000
  data [3] = %00000000
  data [4] = %00000000
  data [5] = %00000000
  data [6] = %00000000
  data [7] = %00000000
  data [8] = %00000000
  data [9] = %00000000

The easy explanation

(a)nidaqmx.pas

I changed it as follows according to the function of 'NIDAQmx.h'.

.function DAQmxCreateTask(taskName:PChar; var taskHandle:TTaskHandle):LongInt;stdcall;external External_library name 'DAQmxCreateTask';
 ->
 function DAQmxCreateTask(taskName:PChar; taskHandle:TTaskHandle):LongInt;stdcall;external External_library name 'DAQmxCreateTask';

.function DAQmxReadDigitalU8(taskHandle:TTaskHandle; numSampsPerChan:LongInt; timeout:Double; fillMode:Cardinal; var readArray:Byte;
           arraySizeInSamps:Cardinal; var sampsPerChanRead:LongInt; reserved:Pointer):LongInt;stdcall;external External_library name 'DAQmxReadDigitalU8';
 ->
 function DAQmxReadDigitalU8(taskHandle:TTaskHandle; numSampsPerChan:LongInt; timeout:Double; fillMode:Cardinal; readArray:PByte;
           arraySizeInSamps:Cardinal; sampsPerChanRead:PLongInt; reserved:Pointer):LongInt;stdcall;external External_library name 'DAQmxReadDigitalU8';

(b)diport.lpr

'ATaskHandle' on the calling side is a Pointer.
So,

.procedure ErrorCheck(AError:longint;ATaskHandle:longint);
 ->
 procedure ErrorCheck(AError:longint;ATaskHandle:Plongint);

.if DITaskHandle<>0 then begin
 ->
 if DITaskHandle^<>0 then begin

Those change may not be best.

Thanks.