[fofka]

Приобрел такую "игрушку". Не получается с ним работать. Как написано в описание к устройстве, управление осуществляется текстовыми командами ($KE). Ни как не выходит у меня отправить на устройство команду, получить ответ, или получить данные с АЦП. Если может кто подсказать, буду благодарен. Страница откуда узнал про устройство-http://www.kernelchip.ru/Jerome.php На этой странице пример кода на С+ - http://www.kernelchip.ru/articles/KA013.php А на этой странице передача команд через СОМ http://www.pcports.ru/articles/ke_usb7.php Есть огромное желание заставить его работать из под Delphi. Я так понимаю если есть возможность работы через СОМ порт то получится и через Ethernet.

[Bargest]

Причем тут COM? Модуль сделан для работы через Ethernet, и судя по коду на си, через TCP/IP. COM никакого отношения к этому не имеет. Почему? Потому что COM (RS232) это дергание напряжения на проводке Tx для передачи команды "как есть", отправил байт - получил байт. TCP/IP же при отправке пакета (даже одного байта) оборачивает его большим количеством заголовоков и работает с IP адресами. Работа через COM возможно только при наличии переходника COM->Ethernet, что, имхо, является бредом.

[fofka]

Да я СОМ для примера привел (типа как команды отправляются), прекрасно понимаю что разные протоколы передачи.

[Bargest]

ИМХО проще всего было бы перевести код си на делфи, поменяв тамошние TCP/IP на какие-нибудь делфовые сокеты (или через WinSock).

[fofka]

Пока у меня получилось к нему только подключится. Использовал TClientSocket.
Если верить выполнению этой процедуры

PHP код:

procedure TForm1.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Shape1.Brush.Color:=clLime;
  Label1.Caption := 'Подключились';
  BitBtn2.Enabled:=True;
  logs('Подключен к Jerome');
end; 


Так пытаюсь отправить команду устройству

PHP код:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 CS1.Socket.SendText(ComboBox1.Text);
end; 


В ComboBox1 у меня несколько команд типа такой - $KE

[Bargest]

Вообще-то

Код:

ComboBox1.Items.Strings[i];