Весы ВТА-60 + MSCOMM

function TMyClass.GetWeight(RetValue: PV8Variant; Params: PV8ParamArray;  const ParamCount: integer; var v8:TV8AddInDefBase): boolean;
var
  str, Stro, weight, PortName, readedstring, resultstring: String;
  i, rl, L:integer;
  cc, dp, by:Byte;
begin

  //if g_isOpen then
  // Raise Exception.Create('Порт уже открыт');

  Property_DeviceID_GetSet(@Params[1], false, v8);

  Str:= '003';
  Stro:= '';

  //MessageBox(0, Pchar(Str), '*Str',0);
  For i:= 1 to length(Str) do
    begin
      Stro:= Stro + Chr(Ord(Str[i]) - Ord('0'));
    end;

  g_cp.WriteString(Stro);

  MessageBox(0, pChar(@Params[1]), '*p_DeviceID',0);

  try
  repeat

  readedstring:= '';
  resultstring:= '';
  // ожидание события

  rl:=g_cp.p_ScalesProt;

  readedstring:=g_cp.ReadString(rl);
  //MessageBox(0, pChar(readedstring), '*readedstring 1 ',0);
  //stringlength := length(readedstring);
  If length(readedstring) <rl then
    readedstring:=readedstring+g_cp.ReadString(rl-length(readedstring));
    //MessageBox(0, pChar(readedstring), '*length(readedstring)<rl',0);
    //MessageBox(0, pChar(stringlength), '*length(readedstring)',0);
    if length(readedstring)=rl then begin
      Case rl of
        18: begin
          For i:=1 to 6 do
            begin
              resultstring:=chr(ord(readedstring[i])+Ord('0'))+resultstring;
              if i=3 then
              resultstring:='.'+resultstring;
            end;
               //evt:= 'weight1';
          end;

        10: begin
          // <N,И6,И5,И4,И3,И2,И1,СС> Протокол 10
          resultstring:=Copy(readedstring,3,6);
          CC:=ord(readedstring[9]);
          //положення крапки с1с0
          dp:=CC mod 4;
          // біт заспокоєння с2
          by:=  (CC mod 8) shr 2;
	        //індикація "0"   с3
	        //Светится0=Цел((СС % 16)/8);
	        //індикація "Т"   с4
	        //СветитсяТ=Цел((СС % 32)/16);
	        //Сообщить(СС);
	        //Сообщить(СветитсяТ);
	        //знак ваги 1= <0 с5
	        //Если Цел((СС % 64)/32)=0 тогда
	        //ЗнакВесов=1
        	//Иначе
	        //  ЗнакВесов=-1
	        //КонецЕсли;
          insert('.',resultstring,6-dp);
          //evt:= 'weight'+inttostr(by);
          end;
        7: begin
          // <,N,И2,И1,И0,СС >  	протокол 7

          end;
        end;

          SetParamDouble(StrToFloat(resultstring), 1, Params);
          //Params[2].VarEnum.dblVal := StrToFloat(resultstring);
          MessageBox(0, pChar(@Params[2]), '*WeightD',0);
      end;
  
      sleep(300);
      result := True;
  until readedstring = '';
  except
			on E:Exception do begin
			  g_ErrorMsg:=E.Message;
        V8.addError(1006, 'Внешняя компонента', pWideChar(g_ErrorMsg), E_FAIL);
        result := False;
      end;

  end;
end;

     p_BaudRate:= CBR_4800;
     p_ByteSize:= 8;
     p_Parity:= EVENPARITY;
     p_StopBits:= ONESTOPBIT;


  if not GetCommState(hCom,dcb) //uses Windows
    then RaiseLastOSError;
      dcb.BaudRate:=p_BaudRate;
      dcb.ByteSize:=p_ByteSize;
  if p_scalesprot=18 then
     dcb.Parity:=p_Parity
  else
     dcb.Parity:=NOPARITY;
      dcb.StopBits:=p_StopBits;
    
  if not SetCommState(hCOM,dcb) //uses Windows
    then RaiseLastOSError;

  //Выставляем параметры COM-порта
  if not GetCommTimeOuts(hCom,cto) //uses Windows
    then RaiseLastOSError;

    cto.ReadIntervalTimeout:=1;
    cto.ReadTotalTimeoutMultiplier:=1;
    cto.ReadTotalTimeoutConstant:=10;

    cto.WriteTotalTimeoutMultiplier:=0;
    cto.WriteTotalTimeoutConstant:=0;

  if not SetCommTimeOuts(hCom,cto) //uses Windows
    then RaiseLastOSError;