[Dzman]

Хочу отправить сообщение: "$KE".

код:

Код:

procedure TForm1.B1Click(Sender: TObject);
begin
CS1.Active:=True;
CS1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Text:='Connect';
end;

procedure TForm1.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Text:=CS1.Socket.ReceiveText;
end;

procedure TForm1.B2Click(Sender: TObject);
begin
CS1.Socket.SendText('$KE'+#13+#10);
end;

выдает ошибку при нажатии на B2:

адресс и порт прописываю на ClientSocket, сообщение: "Connect" в memo1 выводит.

в чем проблема?

[Dzman]

тут встречается такая же проблема, но про решение ничего нету, а готовая программа выдает точно такую же ошибку: http://www.delphisources.ru/forum/sh...ad.php?p=97000

[lmikle]

Ну, если смотреть по картинке, то не указан адрес, предположительно, куда надо слать сообщение.

[NumLock]

событие OnDisconnect в Мемо выведи еще.
Jerome или похожее?)

[Dzman]

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

Да, именно Jerome.

Спасибо всем за помощь.В интернете сначала искал эту проблему, везде те кто спрашивали сами решали эту проблему, теперь понял почему.