Скачать: CL | DM;

Строка на отдельный IP.   Найти похожие ветки 

← →
linox   (2006-03-20 16:35) [0]

У меня такой вопрос:
в компоненте Treeview отображается список подконектеных компов. Мне нужно отправить строку выделеному компу. Я не знаю как это реализовать. Используются TCPServer & TCPClient///

---

← →
Сергей М. ©   (2006-03-20 16:51) [1]

> в компоненте Treeview отображается список подконектеных
> компов


Он, этот список, там откуда взялся ? Иллюстрируй в коде ..

---

← →
linox   (2006-03-21 09:59) [2]

2 Сергей М.

procedure TForm1.TCPSConnect(AThread: TIdPeerThread);
begin
TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode, AThread.Connection.Socket.Binding.PeerIP);
end;

---

← →
Сергей М. ©   (2006-03-21 10:10) [3]

NewNode := TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode, AThread.Connection.Socket.Binding.PeerIP);
NewNode.Data := AThread;

....

TIdPeerThread(SomeNode.Data).Connection.SendString(..);

---

← →
linox   (2006-03-21 10:16) [4]

2 Сергей М.
сейчас проверю....
спасибо

---

← →
linox   (2006-03-21 10:30) [5]

2 Сергей М.
а NewNode якого типу маэ бути?

---

← →
Сергей М. ©   (2006-03-21 11:01) [6]

> NewNode якого типу маэ бути?


TTreeNode

---

← →
linox   (2006-03-21 13:36) [7]

2 Сергей М.
TTreeNode
я такой и выставил.....
сделал это на событие нажатия кнопки.... и не фуричит..

---

← →
Сергей М. ©   (2006-03-21 13:47) [8]

> не фуричит


Показывай код ..

---

← →
linox   (2006-03-21 18:19) [9]

procedure TForm1.Button3Click(Sender: TObject);
var NewNode, SomeNode:TTreenode; AThread: TIdPeerThread;
begin
NewNode := TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode, AThread.Connection.Socket.Binding.PeerIP);
NewNode.Data := AThread;
TIdPeerThread(SomeNode.Data).Connection.WriteLn("1");
end;

---

← →
Сергей М. ©   (2006-03-22 08:12) [10]

> linox   (21.03.06 18:19) [9]


Попробуй-ка вслух прокомментировать каждую строчку своего кода, и ты сам дойдешь до несуразности написанного тобой ..

---

← →
linox   (2006-03-22 11:46) [11]

а как тогда это сделать? (см. вопрос)

---

← →
Сергей М. ©   (2006-03-22 12:39) [12]

Это

NewNode := TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode, AThread.Connection.Socket.Binding.PeerIP);
NewNode.Data := AThread;

должно быть в обработчике TCPSConnect, т.е. так как и было у тебя вначале .. Зачем ты перенес это в обработчик клика кнопки - ума не приложу ..

А вот это

TIdPeerThread(SomeNode.Data).Connection.WriteLn("1");

должно быть в том месте, где собственно и требуется отправка строки по адресу, ассоциированному с "выделенным компом", например:

procedure TForm1.Button3Click(Sender: TObject);
begin
 if Assigned(TreeView1.Selected) then
  TIdPeerThread(TreeView1.Selected.Data).Connection.WriteLn("1");
end;

---

← →
linox   (2006-03-22 14:47) [13]

понял.
спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c