Как записать в com -порт или модем двоичные данные

[sergrom]

Присоедидяюсь к устройству - работает.Команды передает и получает в текстовом формате(WriteFile(hCommFile, PChar(PhoneCommand)^, Length(PhoneCommand), NumberWritten1, nil) //PhoneCommand:string Задача передать двоичные данные и принять ответ в двоичных данных!Как реолизовать?

[Rouse_]

А как выглядят двоичные данные? ))

[sergrom]

Увы там ничего про это нет

[sergrom]

8 бит 11111111 = 0xFF - двоичные данные

[rpy3uH]

что за глупый вопрос? любое число, стоку, массив можно представить как двоичные данные

[Rouse_]

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

8 бит 11111111 = 0xFF - двоичные данные

Вот и пиши
BitData: Byte = $FF;
WriteFile(hCommFile, @BitData...

[sergrom]

спасибо, а я то в итоге написал свою функцию преобразования - хорошо, что легкая! Может подскажите еще как получить ответ от com устройства? С помощью ReadFile или другой функции? А то у меня ошибку выдает! Я еще повожусь если найду ответ напишу.

[Rouse_]

Дождаться готовности порта через WaitCommEvent + EV_RLSD и читать через ReadFile в свой буффер.

[sergrom]

Да я уже понял что чтение com гемор, нашел статью хорошую почитал, но там куча параметров и на Си написано. Переписал под делфу запускаю сом виснет - наверное ответа ждет или отрубается! Разбираться надо, а времени нет! Подскажите пожалуйста.SetCommMask( hCommFile,EV_RXCHAR); ov.hEvent := CreateEvent( 0,true,TRUE,0); WaitCommEvent(hCommFile,dwEventMask , (ov)); if ( WaitForSingleObject(ov.hEvent,INFIN ITE) = WAIT_OBJECT_0) then begin ReadFile( hCommFile,szBuf,sizeof(szBuf),dwByt esRead,ov); while (dwBytesRead > 0 )do begin ReadFile( hCommFile,szBuf,sizeof(szBuf),dwByt esRead,ov); end; end;

[Rouse_]

http://www.delphimaster.ru/articles/comport2/index.html