Передача данных в com порте

← →
FOXi © (2007-04-09 17:48) [0]

Привет всем, помогите пожалуйста разобраться с ком портом, у меня мультиметр который подсоединяется к ком порту, и хотелось бы снимать данные на комп. На форме вот такой текст:
var
stcom:pchar;
bb:boolean;
msg:tagMSG;
pdcb: tdcb;
pcom,xb,xn:thandle;
st:string;
i:integer;
begin
stcom:="com1";
pcom:= createfile (stcom,generic_read,0,nil,open_existing,0,0);
if getcommstate(pcom,pdcb)then stcom:="com1: baud=19200 parity=n data=8 stop=1"
else;
if buildcommdcb(stcom,pdcb) then setcommstate(pcom,pdcb)
else;
while (msg.message<>wm_keydown) do
begin
bb:=readfile(pcom,xb,1,xn,nil);
if not bb then break;
st:=st+" "+inttostr(xb);
if length(st) mod 32=0
then st:=st+chr(10)+chr(13);
label1.caption:=st;
peekmessage(msg,form1.handle,0, 0,pm_remove);
application.processmessages;
end;
end;
передача данных происходит в label который выдает вот такой поток данных :
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
128 128 0 192 128 128 128
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 128 128 0 128 0 0 128 128 0
128 128 0 192 128 128 128 192
0 128 128 0 128 0 0 128 128 0
128 128 0 192 128 128 128 192
Что это значит и как с этим разобраться ?

← →
>>DEATH<< (2007-04-09 17:58) [1]

если не ошибаюсь то мультиметр это чет для получения информации о эл.токе значит
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
128 128 0 192 128 128 128
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 128 128 0 128 0 0 128 128 0
128 128 0 192 128 128 128 192
0 128 128 0 128 0 0 128 128 0
128 128 0 192 128 128 128 192
это и есть вся информация и она както зашифрован..попробуй расшифровать..я думаю так

← →
Kolan © (2007-04-09 18:21) [2]

> Что это значит и как с этим разобраться ?

Это байты  данные.
Документацию ищи от прибора&#133

← →
FOXi © (2007-04-09 20:23) [3]

Это байты — данные.
Документацию ищи от прибора…-я это прикрасно понимаю
А что даст документация ? протокол передачи данных стандартный RS232 все что в доке есть....

← →
Германн © (2007-04-10 01:07) [4]

> FOXi © (09.04.07 20:23) [3]
>
> Это байты — данные.
> Документацию ищи от прибора…-я это прикрасно понимаю
> А что даст документация ? протокол передачи данных стандартный
> RS232 все что в доке есть....
>

Неужели нет программы от производителя? Или жаба душит её купить? :)

А вообще очень впечатляет строка:

> bb:=readfile(pcom,xb,1,xn,nil);

:)))

← →
FOXi © (2007-04-10 13:17) [5]

Хе-хе:-) порога есть, стойт 2.5 американских рублей :-)? где такие бабки взять ?

← →
Сергей М. © (2007-04-10 13:25) [6]

> peekmessage(msg,form1.handle,0, 0,pm_remove);

А эт что за выкрутасы с выкидыванием сообщения в мусор ?

← →
FOXi © (2007-04-10 13:30) [7]

не понял вопроса peekmessage(msg,form1.handle,0, 0,pm_remove);-читаем сообщение из очереди, если оно есть потом удаляем
а потом отчищяем очередь сообщений

← →
Kolan © (2007-04-10 13:33) [8]

> Хе-хе:-) порога есть, стойт 2.5 американских рублей :-)?
> где такие бабки взять ?

Я тоже «каен» хочу, 100000$ где такие бабки взять?

← →
Сергей М. © (2007-04-10 13:34) [9]

> читаем сообщение из очереди, если оно есть потом удаляем

А обрабатывать его кто будет ? Пушкин что ли ?

> потом отчищяем очередь сообщений

Чего ?!!

← →
FOXi © (2007-04-10 13:36) [10]

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

> читаем сообщение из очереди, если оно есть потом удаляем
>А обрабатывать его кто будет ? Пушкин что ли ?
> потом отчищяем очередь сообщений
>Чего ?!!

Да я просто код из проги выдернул, не буду же все выкладывать?

> Не, а вообще кто нибудь может посоветовать, какие нибудь
> стандартные проги которые считывают данные с rс232? или
> работают с ним ?

LGCOmSpy++  хорошая вешь, но тока дял COM1 COM2

LGCOmSpy++ — хорошая вешь, но тока дял COM1 COM2

пасибки а мне ком порт и нужен

> Да я просто код из проги выдернул, не буду же все выкладывать?

Глупости в интерпретации логики работы метода Application.ProcessMessages тоже оттуда "выдернул" ?

Передача данных в com порте Найти похожие ветки