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




Вниз

Эмулировать СОМ 


Kostya Luzan   (2001-12-08 03:59) [0]

У меня проблема. Есть программа (ЕХЕ файл), которая общается с внешним устройством через СОМ порт. Мне нужно написать аналог этой программы. Отсюда вопрос как мне смоделировать для этой программы СОМ -порт, так чтобы когда онаписала в него, сообщения приходили в мою программы, а когда я отвечал - ей ? Очень нужно такое написать.
ЗЫ: устройства у меня нету, так что вариант подключить и подслушать не подойдёт. Надо именно эмулировать.



LU   (2001-12-08 09:57) [1]

Я не понял, ты хочешь просто "прослушать" порт, а устройства нет. Другими словами тебе нужен протокол обмена между устройством и программой или что-то другое?



swr   (2001-12-08 10:17) [2]

unit Main;

interface

{$DEFINE EMULATOR}

uses
Windows, Messages, ...

...
{$IFDEF EMULATOR}
WriteEmulator(Str);
{$ELSE}
WriteComm(Str);
{$ENDIF}
...

----------------------------------------------------------------
Если {$DEFINE EMULATOR} определена, то компилируется WriteEmulator(Str), если нет - WriteComm(Str). WriteComm(Str) реально пишет в COM порт. WriteEmulator(Str) - пишет в форму-эмулятор, которая ведет себя типа как COM порт. Соответственно нужно переопределить ф-и, которые читают из порта. Прежде чем идти на объект, стираешь строку {$DEFINE EMULATOR}, компилируешь и вперед.



vasco   (2001-12-08 12:23) [3]

Я примерно такое делал при написании модуля связи с АТС.
Вариант такой: отдаешь этой программе один порт, например, com1, сам забираешь второй (com2), соединяешь в блоке эти два порта обрезком 9-жильного кабеля (распайку могу нарисовать) и все...
Все, что ты пошлешь на com2, будет принято на com1 и наоборот, надо только установить одинаковые параметры порта.



Kostya Luzan   (2001-12-08 15:24) [4]

О, Самый класс. (Хорошие решения как правило простые). нарисуйте плиз распайку, так чтобы я себе порты не попалил.




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




Наверх





Память: 0.72 MB
Время: 0.042 c
3-42911           Destroyer             2002-02-14 08:08  2002.03.14  
DBGrid и транзакции


1-43079           Neep                  2002-02-27 14:09  2002.03.14  
OLEConteiner and WORD


14-43161          roman001              2002-01-30 18:27  2002.03.14  
rxlib и др.


3-42943           BillyJeans            2002-02-15 09:45  2002.03.14  
Как сделать индикатор индексации TTable?


3-42976           Ross                  2002-02-15 22:32  2002.03.14  
Очень нужен ваш совет