Сокеты

[Oleg34]

В очередной раз обращаюсь за помощью. Подскажите, как организовать пересылку запроса. То есть, у меня клиент, один сервер-распределитель и несколько серверов-вычислителей. От клиента на сервер-распределитель приходит запрос. В зависимости от запроса, сервер-распределитель отсылает свой запрос на сервер-вычислитель. То есть в момент посылки запроса сервер-распределитель становится своеобразным клиентом.На форме сервера-распределителя я помещаю компоненты: ClientServer для связи с клиентом и ClientSocket для связи с сервером распределителем. Связь с клиентом и запрос на сервер распределитель осуществляю в void __fastcall TForm1::ServerSocket1ClientRead(TOb ject *Sender, .Но получаю ошибку:Project Project1.exe reised exception class ESocketError with message 'No adress specified' мол не указан адрес.

// ---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
    TCustomWinSocket *Socket) {
    // принятое сообщение от клиента
    AnsiString text_line = ServerSocket1->Socket->ReceiveText();
    try {
        /** ==================================================================== */
        /* =====================Регистрация серверов============================ */
        /* =========Регистрация сервера реализующего метод 1==================== */
        if (text_line[1] == '1') {
            Memo1->Lines->Add(" \r \n " + TimeToStr(Now())
                + " \r \n клиент с адресом : " +
                ServerSocket1->Socket->RemoteAddress +
                " \r \n номер порта клиента : " +
                ServerSocket1->Socket->RemotePort +
                " \r \n запрашивает метод № 1 " +
                "\r\n---------------------------------------------------");
            // посылка сообщения сервера клиенту метода 1
            ServerSocket1->Socket->SendText(TimeToStr(Now()) + " " +
                " Успешная регистрация метода 1 " +
                "\r\n-----------------------------------------------------");
                        //пытаюсь подключиться к серверу-вычислителю
            Form1->ClientSocket1->Active = true;
            if (Form1->ClientSocket1->Active == true) {
                ClientSocket1->Host = "127.0.0.1";
                ClientSocket1->Port = 1112;
                ClientSocket1->Open();
                Form1->ClientSocket1->Socket->SendText(text_line);
            }
            Memo1->Lines->Add("открыт порт:" + IntToStr(ClientSocket1->Port)
                + "\r\nна адрес:" + ClientSocket1->Host +
                "\r\n-------------------------------" + "\r\n" + text_line);
        }
    }

[Stilet]

Не удивительно.
Ты открываешь сокет раньше чем указываешь ему хост.
Вот так пробуй:

                ClientSocket1->Host = "127.0.0.1";
                ClientSocket1->Port = 1112;
            Form1->ClientSocket1->Active = true;
            if (Form1->ClientSocket1->Active == true) {
                Form1->ClientSocket1->Socket->SendText(text_line);
            }

[Oleg34]

Во, блин! Спасибо!

[Stilet]

Пожалуйста. Будь внимательней )

[Oleg34]

Блииин! Запутался: Последовательность действий от клиента приходит сообщение на сервер-распределитель:

//сервер-распределитель
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
	TCustomWinSocket *Socket) {
	AnsiString s = Socket->ReceiveText();
	/** *************************************************************** */
	if (s[1] == '1') {
//если от клиента пришло сообщение и первый символ '1'
//то
//открываю ClientSocket на порт и адрес другого сервера:
		   ClientSocket1->Host = "127.0.0.1";
                   ClientSocket1->Port = 1112;
                   Form1->ClientSocket1->Active = true;
            if (Form1->ClientSocket1->Active == true) {
// и пересылаю ему принятый от клиента текст:
             Form1->Button4Click(Form1);
                Form1->ClientSocket1->Socket->SendText(s);
            }
}
//все это неграмотно, но умнее не смог придумать:( 
//тут я никак не мог сообразить, как вызвать ф-ию
// ClientSocket1Read, поэтому кинул на форму
//кнопку, в ней прописал:

void __fastcall TForm1::Button4Click(TObject *Sender) {
	Form1->ClientSocket1->Socket->SendText(ss);
}

Сообщение отправляется на сервер-вычислитель:

//сервер-вычислитель
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
	TCustomWinSocket *Socket) {
	AnsiString s = Socket->ReceiveText();{
.......
.......}
//успешно прибыло и обработано и я его отправляю обратно
Socket->SendText(s);
}

теперь обратно возвращаюсь на сервер-распределитель:

//сервер-распределитель
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
	TCustomWinSocket *Socket){
	String s = Socket->ReceiveText();
	if (s[1] == 'q') {
	  //	вот теперь, как дальше его отправить обратно клиенту
          //  ServerSocket1->Socket->SendText(s);  ?
          //  никак не могу сообразить.
	
	}
}

В какой последовательности и в каких событиях все это нужно делать)?