Строка на отдельный 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;

> linox (21.03.06 18:19) [9]

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

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

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

Это

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]

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

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