[MaxSt]

Добры день.
Есть задача: необходимо отправлять на COM порт данные и выводить ответ на монитор, к примеру, на Memo.
За COM портом находится коммутатор, при отправке команды на вывод текущего IP адреса, коммутатор предоставляет данные о своем статусе и т.д.

[MaxSt]

DES-1228/ME:4#sh sw
Command: show switch

Device Type : DES-1228/ME Metro Ethernet Switch
MAC Address : АА-АА-АА-АА-АА-АА
IP Address : 192.168.3.88 (Manual)
VLAN Name : 500
Subnet Mask : 255.255.255.0
Default Gateway : 192.168.3.254

DES-1228/ME:4#show vlan
Command: show vlan

VID : 1 VLAN Name : default
VLAN Type : Static Advertisement : Enabled
Member Ports : 25-28
Static Ports : 25-28
Current Tagged Ports :
Current Untagged Ports : 25-28
Static Tagged Ports :
Static Untagged Ports : 25-28
Forbidden Ports :

[Alegun]

Недостаточно вводных данных, как и чем происходит "общение" со свичем, по вебморде, телнету etc., необходимо разбить задачу на подзадачи и искать их реализацию менее глобально

[MaxSt]

Сообщение от Alegun

Недостаточно вводных данных, как и чем происходит "общение" со свичем, по вебморде, телнету etc., необходимо разбить задачу на подзадачи и искать их реализацию менее глобально

Причем тут веб или телнет, через консольник. Локально.

[Alegun]

Сообщение от MaxSt

...через консольник. Локально.

Тогда нужен пример "общения" с консолью, из неё данные получить можно в прынципе

[MaxSt]

Сообщение от Alegun

Тогда нужен пример "общения" с консолью, из неё данные получить можно в прынципе

Не совсем понял про пример, можно подробнее?

[Alegun]

Так понимаю, сейчас идёт "обмен данными" с устройством посредством подачи\приёма комманд через консольный интерфейс, выходит задача состоит в эмуляции данного процесса и получении приложением данных из неё (консоли), вот и нужен пример, как это происходит?

[MaxSt]

Сообщение от Alegun

Так понимаю, сейчас идёт "обмен данными" с устройством посредством подачи\приёма комманд через консольный интерфейс, выходит задача состоит в эмуляции данного процесса и получении приложением данных из неё (консоли), вот и нужен пример, как это происходит?

При вводе любого сообщения коммутатор анализирует содержимое строки и выдает ответ. В случае, если это распознаваемая им команда, то он ее выполняет.
Если же просто символы, то он выдает стандартный ответ.

Например:
Отправляем ему команду создать vlan 111 и дать ему соответственно имя 111.
DES-1228/ME:5#create vlan 111 tag 111
В ответ на что получаем повтор выполняемой команды и результат.
Command: create vlan 111 tag 111

Success.

При вводе нераспозноваемой команды он выдает возможный перечень команд.
DES-1228/ME:5#a

Available commands:
.. ? cable_diag clear
config create delete dir
disable download enable login
logout ping ping6 reboot
reset save show smtp
telnet traceroute upload

Коммутатор постоянно находится в процессе ожидания ввода команды.

[MaxSt]

Фактически задачу можно разбить на 4 подпункта.
1. Подключение к конкретному порту COMn, где n вводимый пользователем порт.
2. Отправка текстового сообщения на порт.
3. Получение ответа.
4. Вывод ответа на экран.
И дальше снова 2-3-4,2-3-4, до тех пор, пока работа с оборудование не будет завершена.

[Alegun]

Тогда вам видимо вот это пригодится

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105

interface uses Windows;   type TComPort = class private    hFile: THandle; public    constructor Create;    destructor Destroy; override;    function InitCom(BaudRate, PortNo: Integer; Parity: Char;      CommTimeOuts: TCommTimeouts): Boolean;    procedure CloseCom;    function ReceiveCom(var Buffer; Size: DWORD): Integer;    function SendCom(var Buffer; Size: DWORD): Integer;    function ClearInputCom: Boolean; end;   implementation   uses SysUtils;   constructor TComPort.Create; begin inherited; CloseCom; end;   destructor TComPort.Destroy; begin CloseCom; inherited; end;   function TComPort.InitCom(BaudRate, PortNo: Integer; Parity: Char; CommTimeOuts: TCommTimeouts): Boolean; var FileName: string; DCB: TDCB; PortParam: string; begin result := FALSE; FileName := 'Com' + IntToStr(PortNo); {имя файла} hFile := CreateFile(PChar(FileName),    GENERIC_READ or GENERIC_WRITE, 0, nil,    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hFile = INVALID_HANDLE_VALUE then    exit; //установка требуемых параметров GetCommState(hFile, DCB); //чтение текущих параметров порта PortParam := 'baud=' + IntToStr(BaudRate) + ' parity=' + Parity +    ' data=8 stop=1 ' +    'octs=off'; if BuildCommDCB(PChar(PortParam), DCB) then begin    result := SetCommState(hFile, DCB) and      SetCommTimeouts(hFile, CommTimeOuts); end;   if not result then    CloseCom; end;   procedure TComPort.CloseCom; begin if hFile < > INVALID_HANDLE_VALUE then    CloseHandle(hFile); hFile := INVALID_HANDLE_VALUE; end;   function TComPort.ReceiveCom(var Buffer; Size: DWORD): Integer; var Received: DWORD; begin if hFile = INVALID_HANDLE_VALUE then    raise Exception.Create('Не открыта запись в Com порт'); if ReadFile(hFile, Buffer, Size, Received, nil) then begin    Result := Received; end else    raise Exception.Create('Ошибка приема данных: ' + IntToStr(GetLastError)); end;   function TComPort.SendCom(var Buffer; Size: DWORD): Integer; var Sended: DWORD; begin if hFile = INVALID_HANDLE_VALUE then    raise Exception.Create('Не открыта запись в Com порт'); if WriteFile(hFile, Buffer, Size, Sended, nil) then begin    Result := Sended; end else    raise Exception.Create('Ошибка передачи данных: ' + IntToStr(GetLastError)); end;   function TComPort.ClearInputCom: Boolean; begin if hFile = INVALID_HANDLE_VALUE then    raise Exception.Create('Не открыта запись в Com порт'); Result := PurgeComm(hFile, PURGE_RXCLEAR); end; end.

только порт текст не передает и не принимает, немного другими понятиями он оперирует, проще сделать эмуляцию, но это совсем другая песня

[MaxSt]

Почему он не хочет подключаться к COM6, который RS232 подключенный через USB (USB Serial Port)?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var   DCB   : TDCB;   hPort : THandle; begin   hPort := CreateFile(PChar('COM'+Form1.Edit1.Text),GENERIC_READ + GENERIC_WRITE,0, nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);   if (hPort = INVALID_HANDLE_VALUE)   then     begin     ShowMessage('Error!');     exit;     end; end;

Админ: Пользуемся тегами при оформлении кода!

Выдает Error, но смело подключается к COM1 (последовательный порт).

[dr. F.I.N.]

Чтобы не заморачиваться, возьмите готовый, бесплатный и стабильно работающий компонент BComPort. А для указания порта используйте \\.\COM№.
Если не получится что-то - укажите подробно на ошибку.

[MaxSt]

Сообщение от dr. F.I.N.

Чтобы не заморачиваться, возьмите готовый, бесплатный и стабильно работающий компонент BComPort. А для указания порта используйте \\.\COM№.
Если не получится что-то - укажите подробно на ошибку.

Спасибо за подсказку, в поисках BComPort "нарвался" на TComPort, вполне себе удобный компонент.
Но вопросов становится все больше.
Для подключения к порту успешно используется:
Form1.ComPort1.Port:=('COM5');
Form1.ComPort1.Open;
Для записи в порт:
Form1.ComPort1.WriteStr('text'+#13#10);
Для считывания:
Form1.ComPort1.Read(s,16); где s - переменная типа string.
Возник вопрос.