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

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 152

последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.

function TP2KAPI.FlashErase: boolean;
var
  cmd: shortstring;
begin
  result:= false;
  cmd:= 'ERASE'+ #$1E + #$80;
  cmd:= FlashCmd(cmd);
  cmd:=trim(cmd);
  //if Pos('ACK'+#$1E+'ERASE,', cmd) > 0 then result:=true else result:=false;
  if Pos('ERR', cmd) <= 0 then result:=true else result:=false;
end;

Еще записи по теме