Показать сообщение отдельно
  #5  
Старый 23.12.2011, 16:15
Аватар для fofka
fofka fofka вне форума
Начинающий
 
Регистрация: 12.10.2008
Сообщения: 163
Репутация: -1588
По умолчанию

Пока у меня получилось к нему только подключится. Использовал TClientSocket.
Если верить выполнению этой процедуры
PHP код:
procedure TForm1.CS1Connect(SenderTObjectSocketTCustomWinSocket);
begin
  Shape1
.Brush.Color:=clLime;
  
Label1.Caption := 'Подключились';
  
BitBtn2.Enabled:=True;
  
logs('Подключен к Jerome');
end

Так пытаюсь отправить команду устройству
PHP код:
procedure TForm1.BitBtn2Click(SenderTObject);
begin
 CS1
.Socket.SendText(ComboBox1.Text);
end

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