работа с COM-портом

[ramnek]

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

Подскажите пожалуйста как работать с COM-портом.

Я просто не знаю с чего начать. Нужна ли какая нибудь библиотека? Если нужна, то какая и где её скачать....
У меня Builder 6

буду рад любой помощи. Пишите плиз на понятном и простом языке как и что делать

[d7d1cd]

Можно работать без библиотек. А можно и с ними. Я работал без них используя функции WriteFile и ReadFile...
Посмотри тут https://cbuilder.ru/index.php/topic,7008

[Sergey1985]

Скачай себе книгу автор  Агурова П. Последовательные интерфейсы Практика программирования. Там все разжовано. Писать можно при помощи готовых компонент или на WinAPI функциях. Первый вариант более быстрый  второй - более гибкий. Наиболее удачный для новичка компонент на мой взгляд это cport247 можно также сказать с нета. Демки там по мойму тоже прилагаются.

[Дмитрий Шарпей]

Нет. Чот все равно мало инфы для работы с ком портами. Вот я на C# буквально за одни день все сделал. Там есть сласс SerialPort. А здесь в это С++ нет. Саам пиши-предлагают. Или я чот не догнал-с.

[Дмитрий Шарпей]

Мне надо программу срочно!..... 

Я дибил. Ну киньте исходничек. Плиз. СпАсите утопающего

Я уже стока прочитал...

[POV]

Самое простое на мой взгляд - slycomm.
И работает приемлемо и исходники примитивные. Через месяц работы с ними сам все на API напишешь.. если потребуется.

[serg76]

ещё здесь глянь, пользуюсь больше трех лет, всё просто "как два байта переслать"

[Дмитрий Шарпей]

             TCom com;
             com.SetPort(portsName);
             com.FlushCommPort();
             byte zapros[4] = {0x31, 0x01, 0xF0, 0xC5};
             byte answer[32];
             com.SendBuffer(zapros,4);
             com.TakeBytes(answer,strlen(answerCom1));


Кусок кода. Что не правильно? Почему в answer записывается всякая фигня.

[serg76]

для уверености что туда хоть что то пишется, очищай answer[32] перед каждым запросом

Что не правильно?

что надо вообще?

[Дмитрий Шарпей]

Да я очистил.
Потом в Debug - е(    ) я прошел по методу  TakeBytes();
  Вот в чем ошибка. - оказалось что v_hCom=Null // то есть это мой порт.
и как тогда организовывать открытие, чтобы v_hCom не был Null?
вот тот метод из класса com.h
int TCom::TakeBytes(BYTE *buffer, unsigned int MaxBytes)
{
    DWORD bytes_read=0;

    if(!ReadFile(v_hCom,buffer,MaxBytes,&bytes_read,NULL))
        MessageBox(NULL,"???????!","???? ?? ????????!",MB_OK);

    if(bytes_read < MaxBytes)
        buffer[bytes_read]='\0';

    return bytes_read;
}

[serg76]

кусок рабочего кода, отправляет запрос 8 байт, получает ответ 17 байт, таймаут 18млсек

Код

  TCom port;
  int i,j;
  BYTE l[17];
 
  port.SetPortA("COM5");
  port.OpenPort();
  if(port.IfConnected())
  {
    port.SetBaund(38400);
    port.SendBuffer(mm,8);
 
    i=GetTickCount();
    j=0;
    while((j<17)&&(GetTickCount()-i<18))
    {
      l[j]=port.GetByte();
      j++;
    }
  }
  else
  {
    Application->MessageBox("порт закрыт","СОМ порт ошибка",MB_OK);
  }
  port.ClosePort();

[Nikita]

Для работы с СОМ портом я пользуюсь вот такой библиотекой:
ComPort Library version 3.10
 for Delphi 3, 4, 5, 6, 7, 2005, 2006
 and C++ Builder 3, 4, 5, 6 
 by Dejan Crnila

Очень удобная и простая в использовании штука.

 в гугле она есть 

[Дмитрий Шарпей]

Все пока вроде отлично.
Сергею - огромное спасибо!!!!!! И всем, кто неравнодушен остался к моим мучениям!!!!
И вопрос - А почему первый байт шлет ноль(от GetByte)
И еще - а как в HeX - ах отобразить ответ!... У меня а то в DEC пиШется.
А еще - нужны ли -
    // Установки таймаута
                 COMMTIMEOUTS    timeouts={0};
                 timeouts.ReadIntervalTimeout=50;
                 timeouts.ReadTotalTimeoutConstant=50;
                 timeouts.ReadTotalTimeoutMultiplier =10;
                 timeouts.WriteTotalTimeoutConstant = 50;
                 timeouts.WriteTotalTimeoutMultiplier =10;
                 if (!SetCommTimeouts(port,&timeouts))
                 {
                 //error occureed. Inform user
                 }

Никите - эти DLL - случайно не платные??

[Nikita]

Никите - эти DLL - случайно не платные??

Библиотека бесплатная.

Во вложенном файле выложил её. Версия старая правда, новую не искал (а может и нет новой). На этой версии я свой проект делал.

[Дмитрий Шарпей]

Вроде все ЗА работало Все огромнейшее спасибо!!! Отчветьте плиз на предыдущие ворпосы, Сергей. Или кто может.

Кому надо могу выслать прогу.) Пишите.
Мне помо(ГУ)гли - и я помогу.

[serg76]

А почему первый байт шлет ноль

уст-во медленно отвечает, я подбирал задержку на глаз, но можно добавить if(port.BytesAvailable())

Установки таймаута

под себя настраивал

а как в HeX - ах отобразить

на форуме есть, смотри IntToHex

[Дмитрий Шарпей]

А если заранее не известно, сколько байт мы получим??? Как получись число байт ответа?

[serg76]

это уже от протокола обмена зависит

но обычно в ответе: 1й байт адрес уст-ва, 2й длина пакета

получаешь второй байт и подставляешь в условие выхода из цикла

[Дмитрий Шарпей]

Нашел типо такого кода.

int TCom::CountReadByte(HANDLE hFile, wstring &output)
{
 DWORD BytesRead = 0, bufSize = 0;
 bufSize = GetFileSize(hFile, NULL);
 output.resize(bufSize/sizeof(WCHAR)+1);
 ReadFile(hFile, (WCHAR*)output.c_str(), bufSize, &BytesRead, NULL);
               Close(hFile);
output[bufSize/sizeof(WCHAR)] = 0;
 return BytesRead;
}

Но не пойму что за тип wstring? Потому как не компилилтся. Googlil, не помгло пока.