чтение данных (D2XX)

[raxp]

...а как вы будете проверять статус? см. код поста #4
зы: попробуйте, но не забывайте FT_Q_Bytes задать

[fize]

Сообщение от raxp

...а как вы будете проверять статус? см. код поста #4
зы: попробуйте, но не забывайте FT_Q_Bytes задать

пишет про несовместимость array и string-

procedure TForm1.read(Sender: TObject);
var
i:integer;
s:string;
begin
i := Read_USB_Device_Buffer(FT_Q_Bytes);
FT_In_Buffer:=s;
memo1.lines.add(s);
end;

FT_Q_Bytes - а что тут задавать?

[raxp]

function ReceiveBuffer (RxCount : integer)  : integer;
var i : integer;
Var res : FT_Result;
begin
Result := 0;
res := Get_USB_Device_QueueStatus;
IF (FT_Q_Bytes > 0) then
  begin
  if (RxCount <> 0) then
    begin
    if (RxCount > FT_Q_Bytes) then
      begin
      i := Read_USB_Device_Buffer(FT_Q_Bytes);
      result := i;
      end
    else
      begin
      i := Read_USB_Device_Buffer(RxCount);
      result := i;
      end;
    end;
  end;
end;

после использования...

 i:= ReceiveBuffer(5);
 s:= '';
 for k:= 0 to i-1 do
  s:= s+ '$' + inttohex(FT_In_Buffer[i], 2) + ' ';
 //
 memo1.lines.add(s)

[fize]

function ReceiveBuffer (RxCount : integer) : integer;
var
k,i : integer;
res : FT_Result;
s:string;
begin
Result := 0;
res := Get_USB_Device_QueueStatus;
IF (FT_Q_Bytes > 0) then
begin
if (RxCount <> 0) then
begin
if (RxCount > FT_Q_Bytes) then
begin
i := Read_USB_Device_Buffer(FT_Q_Bytes);
result := i;
end
else
begin
i := Read_USB_Device_Buffer(RxCount);
result := i;
i:= ReceiveBuffer(5);
s:= '';
for k:= 0 to i-1 do
s:= s+ '$' + inttohex(FT_In_Buffer[i], 2) + ' ';
//
form1.memo1.lines.add(s)

end;
end;
end;
end;

теперь добавляю ее сюда-

procedure TForm1.Button4Click(Sender: TObject);
begin
ReceiveBuffer;
end;

но пишет нот актуал параметр..

[raxp]

procedure TForm1.Button4Click(Sender: TObject);
var ...
begin
 i:= ReceiveBuffer(5);
 s:= '';
 for k:= 0 to i-1 do
  s:= s+ '$' + inttohex(FT_In_Buffer[i], 2) + ' ';
 //
 form1.memo1.lines.add(s)

все. ушел пить чай.