Использование сетевого кода

[xGroupers]

Всем здарова это опять я, вчера почти все учебники изучил но не где не нашол про TcpServer и TcpClient пожалуйсто кому не трудно выб не могли привести здесь пример передачи сообщения к клиенту...

В первой программе создаю TcpServer1
Во второй программе создаю TcpClient1

Для TcpServer1 в первой программе при нажатие на кнопку создаю такой код:

TcpServer1.Active:= True; 
TcpServer1.LocalHost:= '80.66.254.36';
TcpServer1.LocalPort:='80';

Для TcpClient1 во второй программе при нажатие на кнопку создаю такой код:

TcpClient1.Active:= True;
TcpClient1.RemoteHost:= '80.66.254.36';
TcpClient1.RemotePort:= '80';

Потом во второй программе создаю RichText1
А в первой это сервер создаю Button2 и при нажатие на эту кнопку надо сделать перессылку сообщения в RichText1 ко всем клиентам если можно объясните с помощью пояснения или пример или ссылочку на учебник...
мне очень нужно ...

впредь за подобную рекламу в сообщениях получите предупреждение. (Квэнди)

[Air]

Учимся разбираться, будут вопросы говорите.
+ справка Delphi
Во-первых

TcpServer1.Active:= True;
TcpClient1.Active:= True;

задавать после указания портов и адресов.

[Квэнди]

http://programmersforum.ru/showpost....5&postcount=14

[xGroupers]

Квэнди это не реклама а простая картинка! совсем уже но хоть замечание не поставили спасибо

[xGroupers]

Я всё сделал но не хочет исправте меня пожалуйсто http://gta-s.do.am/ptroject.rar

я не нашол как загрузить файл на форум

[JTG]

Во-первых не занимай порт 80, и вообще значения <1000 зарезервированы под системные нужды, а во-вторых если запускаешь и сервер и клиент на одной машине - ставь адрес 127.0.0.1

WTF???

procedure TForm2.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
RichEdit1.Text(ClientSocket.ReceiveLn);
end;

Имелось ввиду

procedure TForm2.TcpClient1Receive(Sender: TObject; Buf: PChar;
  var DataLen: Integer);
begin
  RichEdit1.Text:=string(buf^);
end;

?

см. 3й пост, там всё есть (проверил )

[xGroupers]

Всёравно ошибки даже больше...

[Air]

Сообщение от xGroupers

Всёравно ошибки даже больше...

Вместо

procedure TForm2.Button7Click(Sender: TObject);
begin
TcpClient1.Sendln(RichEdit2.Text);
TcpClient1.Disconnect;
TcpClient1.Connect;

end;

пиши

procedure TForm2.Button7Click(Sender: TObject);
begin
TcpClient1.Sendln(RichEdit2.Text);
TcpClient1.Close;
TcpClient1.Open;
end;

Вместо

procedure TForm2.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
RichEdit1.Text(ClientSocket.ReceiveLn);
end;

пиши

procedure TForm2.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
RichEdit1.Text:=ClientSocket.ReceiveLn;
end;

И всё работает

[xGroupers]

Тупо* дельфи 6 всёравно не работает всё не как ...

[xGroupers]

мне в четверг срочно надо !!!