Добрый день, коллеги!
Дельфи 10.3.3
Есть железяка и DLL от производителя.
Описание вызова:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
#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 ;
Основываясь на C# примере (с диска производителя)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
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);
}
получаю результат как на экране железяки, например,
75 68 65 68 0 0 0 0
пытаюсь получить тоже самое в Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
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;
В результате вижу следующее:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
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
Предположил, что проблема в длине принимаемого массива внутри union. Изменил:
1.
LDATAS: array[0..MAX_AXIS-1] of byte; -->>LDATAS: array[0..MAX_AXIS-1] of LongInt;
Результат:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
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
Записал лог Wireshark
1.
2.
3.
4.
5.
6.
7.
8.
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
Подскажите, пожалуйста, что я упускаю при работе с данной Си++ функцией? Может надо как-то по иному вызывать её? Или дельфи некорректно обрабатывает её ответ?
Спасибо!
ЗЫ. Код писал только для теста получения данных
