@kote-kachok

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

0

@E.Kopiy

Только что сам разбирался как работают программы с com портами и в процессе нашел такую программу-пример. Считывает/отправляет данные с com порта и определяет количество байт для передачи и количество переданных байт. Для определения com порта нет модуля. Попробуй у яндекса спросить, может найдется. Если нужно чтобы чтение происходило в потоке- пиши в личку, скину свой модуль.

Вложения

compprogV1.zip (11.5 Кб, 501 просмотров)

0

@E.Kopiy

если можешь, помоги с парой вопросов. Я уже скоро все волосы на голове повыдираю себе)))
Поиск ячейки в StringGrid
Сортировка StringGrid. В чем ошибка?

0

@kote-kachok

у меня она обратно данные не читает(((((

0

@E.Kopiy

Ты номер порта правильно указал? Проверь еще скорость, биты данных, четность и стоповые биты в настройках порта. Они должны совпадать с данными в программе

Добавлено через 4 минуты
Вот что я изменял чтобы у меня работал сканер штрих-кодов в ней

Port:=CreateFile(
'\\.\COM1', !!!тут я устанавливал номер своего порта!!!
GENERIC_READ or GENERIC_WRITE,//открываем порт для чтения и записи
0, //общий доступ к ресурсу запрещен, для портов всегда так
nil, //атрибуты защиты, не используются и потому nil
OPEN_EXISTING, //атрибуты открытия, для портов OPEN_EXISTING
FILE_ATTRIBUTE_NORMAL, //для синхронной работы так
0 //хз что это, но должно быть так
);

и в ком порте я поставил настройки как тут:

GetCommState(port, DCB); //что бы не заполнять всю структуру самим, сначал считываем ее, потом поменяем нужные поля
DCB.BaudRate:=9600; // скорость обмена
DCB.Parity:=NoParity; // нет контроля четности
DCB.ByteSize:=8; //байт из восьми бит
DCB.StopBits:=ONESTOPBIT; //один стоповый бит
SetCommState(port, DCB); //записываем измененную структуру, для открытого порта

Добавлено через 10 минут
Еще эту процедуру поправлял. Надо изменить тип RCBuf на PAnsiChar, иначе на экран у меня выводились иероглифы

procedure TMainForm.ReadDataClick(Sender: TObject);
Var
RCBuf:PChar; //Буфер данных для приема
nToRead:Cardinal; //Число байт для чтения
nRead:Cardinal; //Число прочитанных байт
ComStat:TComStat; //состояние порта
Errsword;
begin
ClearCommError(POrt,Errs,@ComStat); //считываем состояние порта
nToRead:=ComStat.cbInQue; //считываем число байт для чтения из структуры
nToReadLabel.Caption:=IntToStr(nToRead); //выводим на форму число байт для чтения
ReadFile(Port,RCBuf^,nToRead,nRead,nil); //считываем данные
nReadLabel.Caption:=IntToStr(nRead); //выводим на форму число прочитанных байт
RcDataLabel.Caption:=RCBuf;
end;

1

@kote-kachok

спасиб большое,товарищ)))) твоя карма улучшилась)))

0

@E.Kopiy

а то))))))

0

@kote-kachok

кто-нибудь моежт скинуть программу которая открывает и общается с портом рс 232 в АСИНХРОННОМ режиме?

0