Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Строка на отдельный IP. [D7, WinXP]

linox © (2006-03-20 16:35:00)
У меня такой вопрос:
в компоненте Treeview отображается список подконектеных компов. Мне нужно отправить строку выделеному компу. Я не знаю как это реализовать. Используются TCPServer & TCPClient///

linox (2006-03-22 14:47:00) [1]
понял.
спасибо

Сергей М. (2006-03-22 12:39:00) [2]
Это

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 11:46:00) [3]
а как тогда это сделать? (см. вопрос)

Сергей М. (2006-03-22 08:12:00) [4]

> linox (21.03.06 18:19) [9]

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

linox (2006-03-21 18:19:00) [5]
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-21 13:47:00) [6]

> не фуричит

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

linox (2006-03-21 13:36:00) [7]
2 Сергей М.
TTreeNode
я такой и выставил.....
сделал это на событие нажатия кнопки.... и не фуричит..

Сергей М. (2006-03-21 11:01:00) [8]

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

TTreeNode

linox (2006-03-21 10:30:00) [9]
2 Сергей М.
а NewNode якого типу маэ бути?

linox (2006-03-21 10:16:00) [10]
2 Сергей М.
сейчас проверю....
спасибо

Сергей М. (2006-03-21 10:10:00) [11]
NewNode := TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode, AThread.Connection.Socket.Binding.PeerIP);
NewNode.Data := AThread;

....

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

linox (2006-03-21 09:59:00) [12]
2 Сергей М.

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

Сергей М. (2006-03-20 16:51:00) [13]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »