Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.14;
Скачать: CL | DM;

Вниз

Эмулировать СОМ   Найти похожие ветки 

 
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]

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



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

Текущий архив: 2002.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-43083
KvORubin
2002-02-26 15:42
2002.03.14
TRichEdit - ПОМОГИТЕ !!!


1-43063
Юля_Орлова
2002-02-26 14:37
2002.03.14
Как написать функцию, возвращающую 3 значения?


3-42928
amamed_3071
2002-02-14 08:51
2002.03.14
Qreport GroupFooter in Subdetail


1-43050
greenrul
2002-02-25 19:27
2002.03.14
Создание компонента в RunTime


1-43020
Dtr
2002-02-27 12:51
2002.03.14
Связь компонента