Консультация № 64037
24.11.2006, 18:16
0.00 руб.
0 6 3
Здраствуйте.
Подскажите пожалуйста как послать от сервера клиенту сообщение,
Использую TidTcpServer /Ttcpserver и TidTcpclient / Ttcpclient.
И если это нереально то стоит ли мне устанавливать Delphi 2005, чтобы воспользоваться компонентом Tsocet или от неё тоже толку не будет?!

Обсуждение

Неизвестный
24.11.2006, 18:21
общий
это ответ
Здравствуйте, chikanok!

Если не будете смотреть в справку и каталог Demo\Internet - то толку точно не будет ни от одной из версий
Неизвестный
25.11.2006, 10:45
общий
это ответ
Здравствуйте, chikanok!
В приложении код отправки строки с помощью TcpClient. Ip, Port и S - строковые переменные, обозначающие Ip адрес, куда вы посылаете сообщение, порт, которому вы посылаете сообщение и строка, которую вы посылаете соответственно

Приложение:
TcpClient1.RemoteHost:=Ip; TcpClient1.RemotePort:=Port; TcpClient1.Active:=True; Try If TcpClient1.Connect then TcpClient1.Sendln(S); Finally Begin MainForm.Client.Disconnect; End; End;
Неизвестный
25.11.2006, 11:04
общий
Мне нужно послать ОТ СЕРВЕРА К КЛИЕНТУ!!!
Неизвестный
25.11.2006, 19:40
общий
Ну, через низкоуровневые сокеты это точно делается - я сам на Си делал. Если вы выясните, что через TTCPServer TTCPClient ну никак не получается — беритесь за сокеты. Правда, устанавливать для этого Delphi 2005 не обязательно.
Неизвестный
27.11.2006, 07:17
общий
это ответ
Здравствуйте, chikanok!

попробуй вот так

var buf:array [1..10] of byte;
begin
idtcpserver1.Bindings.Items[0].Send(buf,sizeof(buf),flag); //или
idtcpserver1.bindings.Items[0].SendTo(Remote_IP, Remote_PORT, Buf, SizeOf(buf));
end;

Flag=
MSG_OOB - Send out-of-band data .= $1
MSG_DONTROUTE - Do not route the data.=$4
Неизвестный
28.11.2006, 07:40
общий
Посмотри пример в папке Demos\indy\TCPStreamClientServerтам какраз похожий пример рассматривается,ну если не получиться пиши, разбираться будем !!!УДАЧИ !!!
Форма ответа