Форум: "Система";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Вниз
Эмулировать СОМ Найти похожие ветки
← →
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}, компилируешь и вперед.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c
