RS232 MSCommPort Output

[Rimantas]

Здраствуйте ,

Помогите мне , пожалуйста , разобраться . Пришлось такое , что надо вывести инфо через СОМ порт на радио сканер . Давненько вы помогли мне с ComPortMSComm и всю инфо от радио сканеров я считаю . С помочью таймера .

В init есть такое :

public void init()
{
   super();
   comPort = new ComPortMSComm();
   comPort.initParmDefault();
   element.setTimeOut( #GetBarkod, 100, true );
   atsijungt.enabled( false );
   baigt.enabled( false );
   lConnect = true;
}

Тогда есть метод GetBarkod :

    Str             input;
    ComVariant      res;
    ComVariant      send1  = new ComVariant();
    str 1           ch;
    int             i, template, u;
    Str             chk = "1234567890><";
    Str             cSend;
    Int             nGun, nBs;
    ;
    i     = comPort.InBufferCount();
    input = "";

    if ( i )
    {
      sleep( 30 );
      i = comPort.InBufferCount();
      ...
     if ( input )
           ... 
   }
   element.setTimeOut( #GetBarkod, 10 );
}

Радио сканер имеет свои коды управления . Я формирую такую строку инфо :

    ComVariant      send1  = new ComVariant();
    Str             cSend;
   ...
         cSend = cGunNr + num2char( 27 ) + " " + num2char( 91 ) +
         num2char( 50 ) + num2char( 74 );
         cSend += cBarcode; // первая строка 
         if ( rInv )
         {
            invTbl = InventTable::find( rInv.ItemId );
            cSend += num2char( 27 ) + " " + num2char( 91 ) +
            num2char( 50 ) + num2char( 59 ) + num2char( 49 ) +
            num2char( 72 ) + substr( invTbl.ItemName, 1, 16 ); // вторая строка
            cSend += num2char( 27 ) + " " + num2char( 91 ) +
            num2char( 51 ) + num2char( 59 ) + num2char( 49 ) +
            num2char( 72 ) + strfmt( "kiekis - %1", rInv.Qty );  // 3-я
         }
         else
         {
            cSend += num2char( 27 ) + " " + num2char( 91 ) +
            num2char( 50 ) + num2char( 59 ) + num2char( 49 ) +
            num2char( 72 ) + "Barkodas nerastas !";
         }
         cSend += num2char( 13 );

         nBs    = comPort.OutBufferSize();
         send1.bStr( cSend );
         comPort.SThreshold( strlen( cSend ) );
         comPort.Output( send1 );

Но вылезает ошибка : ... "Output" возвращает ошибку 0х800A01A ( unknow ) , который ознчает "Property is write-only" ...

Заранее большое спасибо ! С уваженим , Римантас

[michel1971]

метод класса ComPortMSComm криво написан, он ничего не должен возвращать
правильно так:
void Output(COMVariant _Output = COMVariant::createNoValue())
{
self.Output(_Output);
}

[Rimantas]

Цитата:

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

метод класса ComPortMSComm криво написан, он ничего не должен возвращать
правильно так:
void Output(COMVariant _Output = COMVariant::createNoValue())
{
self.Output(_Output);
}

Ваууу ! Вот как помогло ! Большое спасибо ! Теперь посылает обратно на радио сканер и нету ошибок !

Ещё попрошу помочь : я посылаю строки на радио сканер с кодами владения . Вот например такая строка :
cSend = cGunNr + num2char( 27 ) + num2char( 32 ) + num2char( 91 ) +
num2char( 50 ) + num2char( 74 ); // cGunNr - номер сканера

Ето будет Esc [2J . Ета команда должна очистит екранчик радиосканера . Но почему ето неделаеться . Вопрос в том , правильно я формирую строку команды , с numchar( acsiiCode ) , или нет ? В Ахапте я видел , что в тасках 1313 код есть Esc . Может быть таких надо изспользовать ?

Ещё раз огромное спасибо ! С уважением , Римантас

[Rimantas]

Цитата:

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

Ваууу ! Вот как помогло ! Большое спасибо ! Теперь посылает обратно на радио сканер и нету ошибок !

Ещё попрошу помочь : я посылаю строки на радио сканер с кодами владения . Вот например такая строка :
cSend = cGunNr + num2char( 27 ) + num2char( 32 ) + num2char( 91 ) +
num2char( 50 ) + num2char( 74 ); // cGunNr - номер сканера

Ето будет Esc [2J . Ета команда должна очистит екранчик радиосканера . Но почему ето неделаеться . Вопрос в том , правильно я формирую строку команды , с numchar( acsiiCode ) , или нет ? В Ахапте я видел , что в тасках 1313 код есть Esc . Может быть таких надо изспользовать ?

Ещё раз огромное спасибо ! С уважением , Римантас

Простите , моя ошибка - Esc [2J - я сделал пробел . Надо без него . Все работает превосходно ! Спасибо !