Форум: "Система";
Поиск по всему сайту: 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.015 c
1-43076           Kozhanov              2002-02-20 15:14  2002.03.14  
как пропачить D6 Enterprise под Windows 2000


3-42957           KIR                   2002-02-15 17:04  2002.03.14  
Locate внутри SQL-Запроса


14-43186          Юрий Федоров          2002-01-29 10:41  2002.03.14  
Проблема мышей


14-43136          Polevi                2002-01-28 16:29  2002.03.14  
IIS не поддерживает сервлеты :( Свинство просто..


1-43031           SuperIgor             2002-02-22 22:44  2002.03.14  
Изображение экрана