Форум: "Система";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Опять 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 без проблем. Если надо пишите.

---

← →
Ant_bofh   (2001-11-29 15:50) [5]

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

---

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

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

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

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c