Опять COM-порт и всё что связано :-)

← →
Ant_bofh © (2001-11-29 08:59) [0]

Опять хочу написать про COM-порты !
Ну дык вот .. начну с самого начала, проблема у меня такая:
я открываю COM-порт (с этим всё нормально :), даже могу записать в него данные, но вот считывать оттуда у меня не получается ничего :-) .. Вот привожу исходный код ... просьба посмотрите и поможите чем можите ....
procedure TForm1.ReciveData(Sender: TObject; var Done: Boolean); var count: cardinal; buf: char; begin if Memo1.Enabled then if ReadFile(hFile,buf,1,count,nil) then Memo1.Text := Memo1.Text + buf; end;
заранее благодарен всем, кто откликнется ;-)))

← →
Ant_bofh © (2001-11-29 09:05) [1]

да ! эта функция весит на Application.onIdle; :-)

← →
Danya © (2001-11-29 11:15) [2]

сам написал сам ответил....

← →
pasha676 (2001-11-29 11:21) [3]

Нормальные люди чтение из COM-порта делают через поток и waitevent. Это может не проще, но правильнее

← →
paa713 (2001-11-29 12:11) [4]

Народ. Харе мучаться, предлагаю свою DLL для работы с COM портами (разработана была для многомодемных приложений). Написана она правда на С++ (без классов), но с Delphi работает уже года 2 без проблем. Если надо пишите.

pasha676, а по подробнее ?

← →
SergeyDon (2001-12-03 09:53) [6]

Незнаю получится но попробуй
Buf:array[0..50] of Uchar

ReadFile(hFile,buf[0],1,count,nil);

Опять COM-порт и всё что связано :-) Найти похожие ветки