#include "fwlib32.h" or "fwlib64.h"

FWLIBAPI short WINAPI cnc_diagnoss(unsigned short FlibHndl, short number, short axis, short length, ODBDGN *diag);

length   [ in ]

Specify the data block length(size of ODBDGN structure).

    4+(byte size of diagnosis data) * (number of axis) 

typedef struct  odbdgn {
   short datano;              /* diagnosis data number */
   short type;                /* upper byte:type */
                              /* lower byte:axis */
   union {
      char  cdata;            /* bit/byte diagnosis data */
      short idata;            /* word diagnosis data */
      long  ldata;            /* 2-word diagnosis data */
      char  cdatas[MAX_AXIS]; /* bit/byte diagnosis data with axis*/
      short idatas[MAX_AXIS]; /* word diagnosis data with axis */
      long  ldatas[MAX_AXIS]; /* 2-word diagnosis data with axis */
   } u ;
} ODBDGN ;

		void Button2Click(object sender, EventArgs e)
		{
			short a = Convert.ToInt16(textBox10.Text); //308		
			
		//	ConnectionID=32769;
			ODBDGN oo = new ODBDGN();
			string ss="";
			short b = 8; // (-1);

			status = cnc_diagnoss(ConnectionID,a,b,12,oo); //4+1*8
 			foreach (byte qq in oo.cdatas)
			{
				 ss = ss+ qq.ToString();
			}
			textBox1.Text = textBox1.Text + String.Format("Data : {0}\n\r\n\rValues : {1}\n\r\n\r",oo.datano,ss);
		}

const
  MAX_AXIS=8;

  Podbdgn = ^Todbdgn;
  Todbdgn=packed record
    datano:SmallInt;
    dtype:SmallInt;

    LDATAS: array[0..MAX_AXIS-1] of byte;
  end;

function cnc_diagnoss (FlibHndl:Word; number: SmallInt; axis: SmallInt; length :SmallInt; diag:Podbdgn):SmallInt;stdcall;external 'Fwlib32.dll';

procedure TForm2.Button1Click(Sender: TObject);
var
  i:Integer;
  h:Word;
  odData:Podbdgn;
  odD:Todbdgn;
  ip:AnsiString;
  s:string;
begin
  h:=0;
  try
    try

      ip:='10.*.*.*';
      i:=cnc_allclibhndl3(PAnsiChar(ip),45001,5, @h);
      Memo1.Lines.Add('i='+i.ToString);

      if (i=0) then
        begin
          Memo1.Lines.Add('cd found');
          New(odData);
          ShowMessage(sizeof(odD).ToString);

          i:=cnc_diagnoss(h, smallint(seNum.Value), SmallInt(MAX_AXIS), {SmallInt(4+(4*(MAX_AXIS-1)))}sizeof(odD), odData);
          Memo1.Lines.Add('cd i='+i.ToString);

          Memo1.Lines.Add(odData^.datano.ToString +'|'+odData^.dtype.ToString{+'|'+odData^.ldata.ToString});
          for I := 0 to MAX_AXIS-1 do
            begin
                s:=odData^.LDATAS[i].ToString;
                Memo1.Lines.Add(i.ToString+':='+s);
            end;
          Dispose(odData);
        end;
    except on E: Exception do
      Memo1.Lines.Add('ERROR='+e.Message);
    end;

  finally
    if h<>0 then
      begin
        cnc_freelibhndl(@h);
        Memo1.Lines.Add('Fanuc closed success');
      end;
  end;
end;

i=0
cd found
cd i=0
308|8
0:=81
1:=0
2:=0
3:=0
4:=84
5:=111
6:=112
7:=116
Fanuc closed success

LDATAS: array[0..MAX_AXIS-1] of byte; -->>LDATAS: array[0..MAX_AXIS-1] of LongInt;

i=0
cd found
cd i=0
308|8
0:=72
1:=10
2:=6553699
3:=6684704
4:=7667823
5:=6553710
6:=655373
7:=0
Fanuc closed success

0000   48 2a e3 83 a9 72 2c 4f 52 ea 6a 1b 08 00 45 00
0010   00 6c e5 93 00 00 3c 06 30 2a 0a 75 12 1d 0a 75
0020   41 c8 af c9 ec 1f 31 a1 11 37 5a e3 59 10 50 18
0030   21 b4 ad 19 00 00 a0 a0 a0 a0 00 02 21 02 00 3a
0040   00 01 00 38 00 01 00 01 00 30 00 00 00 00 00 00
0050   00 28 00 00 01 34 00 08 00 00 00 00 00 48 30 30  //308 и 8 получаемые вижу, всё последующее нет.
0060   30 38 20 38 00 00 00 00 00 00 00 00 00 00 00 00
0070   00 00 00 00 00 00 00 00 00 00