Модуль "P2KApi" (часть 68) - TP2KAPI.FlashCmd16

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 160
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
function TP2KAPI.FlashCmd16(Acmd: shortstring): shortstring;
var
  Cmd_temp:array[0..255] of char;
  i:byte;
  Cmd_Ans:array[0..1023] of char;
  tmp: string;
  cmd: string;
  xx: dword;

begin
  cmd:= ACmd;
  result:= '';
  if not TelStatus then exit;
  cmd_temp[0]:=#02;
  i:=1;
  repeat
  cmd_temp[i]:=cmd[i];
  i:=i+1;
  until i = length(cmd)+1;
  cmd_temp[i]:=#03;
  USB_WriteDataEx(@Cmd_temp, i+1,2,xFlashTimeOut);
//  Sleep(100);
FillMemory(@Cmd_ans, 1024, 0);
  xx:= 1024;
  USB_ReadDataEx(@Cmd_ans, xx,2,xFlashTimeOut);
  i:=0;
  tmp:='';
  repeat
  tmp:= tmp + cmd_ans[i];
  i:=i+1;
  until i=16;
  result
Rambler's Top100