Протокол СОМ порта

[100GRamm]

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

А зачем их вообще замыкать?

Итак, для начала берёте программу под названием HyperTerminal, настраиваете на ваш порт, отправляете красивые байты и видите красивую картинку. Один байт отправлен, один байт на картинке.

- -как? И всё это в одном байте? Что такое это ваша решётка (#).

)) это так в паскале символ зовется (а точнее его номер в аски), ничего другого сказать не могу, только в этом формате могу передать:

Buf:=#255;
ToWrite:=length(Buf)+1;
WriteFile(port,Buf^,ToWrite,nWrite, nil);


ГиперТерминал это тот что с Виндой?
на нем попробовал- он чег то тупит (или я)) . как там отправить просто байт? он файл хочет! но и файл отпраляю - он вешается, а потом, как ни в чем не бывало , дальше молчит (порт он увидел и подключился)

[Ulex]

ToWrite:=length(Buf)+1;

И зачем +1?

ГиперТерминал это тот что с Виндой?
на нем попробовал- он чег то тупит (или я)) . как там отправить просто байт? он файл хочет! но и файл отпраляю - он вешается

Аппаратный протокол управления потоком RTS/CTS
(Hardware Flow Control) использует сигнал CTS, который поз-
воляет остановить передачу данных, если приемник не готов
к их приему. Вот именно он в гипер-терминале и включен по умолчанию. Выключите.

[100GRamm]

Заикнул 3 и 2 чтоб картинка красивая была, иначе там страшно очень (без нагрузки, просто, видать не хочет)

[100GRamm]

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

И зачем +1?

Хороший вопрос не знаю, думается для размерности буфера...нет?

Если убираю - программа висит а на осцилограф ничего не идет

[100GRamm]

При создании подключения в ГиперТерминале отключил управление потоком и он начал передавать данные!!! Но шняга осталась((

хотя нет ! это я отправил "m"
m - это #109, ни че не понял
выходит, чего то я не правильно у себя в проге творю

[100GRamm]

hPort := CreateFile(pchar(self.ComboBox1.Tex t{\\.\COM25}),GENERIC_WRITE,0,nil,O PEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,0);
if hPort=INVALID_HANDLE_VALUE then memo1.Lines.Add('Ошибка подключения')
else memo1.Lines.Add('Подключился');
GetCommState(hPort, DCB);
DCB.BaudRate:=strtoint(self.ComboBo x2.Text{9600});
DCB.Parity:=NoParity;
DCB.ByteSize:=strtoint(cb3.Text); {8}
DCB.StopBits:=strtoint(cb4.Text); {0}
SetCommState(hPort, DCB);

GetCommTimeouts(hPort, CommTimeouts);
CommTimeouts.ReadIntervalTimeout :=MAXDWORD;
CommTimeouts.ReadTotalTimeoutMultip lier := 0;
CommTimeouts.ReadTotalTimeoutConsta nt := 0;
CommTimeouts.WriteTotalTimeoutMulti plier := 0;
CommTimeouts.WriteTotalTimeoutConst ant := 0;
SetCommTimeouts(hPort, CommTimeouts);

[100GRamm]

Все верно, это просто я туплю)))
Buf:=#255+#255;

и всё красиво!
Правда, получается что полюбому посылается два байта?

а как один байт послать?

Гы! байт у меня какой-то резиновый ("Далее #256... #280") )))))

[Ulex]

а как один байт послать?

Очевидно так:

ToWrite:=1;
WriteFile(port,Buf^,ToWrite,nWrite, nil);

Т.е. должна быть переменная, которая содержит длинну пакета. А что такое PChar я без понятия, тут вам в раздел по паскалю нужно заглянуть. Как там length работает. В массиве данных могут быть впринципе любые байты, в том числе 0.

[100GRamm]

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

Очевидно так:

ToWrite:=1;
WriteFile(port,Buf^,ToWrite,nWrite, nil);

Т.е. должна быть переменная, которая содержит длинну пакета. А что такое PChar я без понятия, тут вам в раздел по паскалю нужно заглянуть. Как там length работает. В массиве данных могут быть впринципе любые байты, в том числе 0.

Точно! всё работает! Спасибо!
Я просто уже достаточно давно хотел разобраться как из под винды с портом работать (DELPHI) да всё как то не до этого было, теперь понял.
Теперь можно и с аппаратом заняться (повод нашелся), еще раз спасибо за помощь!