Разобраться с компонентом

[BARNEY]

Доброго времени суток.
Не как не могу разобраться с компонентами

TcpServer1, TcpClient1. Закладка Internet Delphi Xe5

Мне нужен пример их использования в режиме bmThreadBlocking.
Скажем чтобы несколько клиентов посылали задания
серверу допустим деления, а сервер передавал клиентам результат, все Except от клиентов складываются в 1 memo на сервере.
Основная задача чтоб текст (задачи) передавались не sendnl, а Stream. И все Except отрабатывались хорошо и сервер не падал (думаю нужны критические секции)
Пример на другом компоненте.

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
s:TStringStream;
str:string; // текст сообщения
begin
try
s:=TStringStream.Create;  //Инициализация потока s
AContext.Connection.IOHandler.ReadStream(s); //Чтение из контекста в поток
s.Position:=0;  //Установка позиция на начало потока s
 str:=s.ReadString(s.Size); // получаем текст запроса
//  Memo1.Lines.Add(str);
finally
 	s.Free;  //Уничтожение потока s
end;

procedure TForm1.sendServer(str: string);
  var
	s:TStringStream;
begin
    try
    IdTCPClient1.Connect;
s:=TStringStream.Create; //Инициализация потока s
s.WriteString(str);  //Запись сообщения в поток s
s.Position:=0; //Установка позиция на начало потока s
IdTCPClient1.IOHandler.Write(s, s.Size, true); //Передача сообщения
s.Free; //Уничтожение потока s
    IdTCPClient1.Disconnect;
    except
     s.Free; //Уничтожение потока s
    end;
end;

Время затраченное на это я могу оценить в скромные 500 рублей на карточку, или мобильный телефон.

[Avazart]

<<TcpServer1, TcpClient1. Закладка Internet Delphi Xe5>>
Путаешься в показаниях.
Говоришь закладка Internet, хотя пример на Indy

[Человек_Борща]

С блокирующими сокетами разобраться не можете? Не блок. сокеты сложнее....
Пишите, помогу, чем смогу)

[BARNEY]

Avazart, не путаюсь, сразу написал пример на других компонентах.

Человек_Борща, да с Indy проблем нет... а вот с этими затык...

[Avazart]

Так на чем нужно ?

Если будете писать мне, сразу УКАЗЫВАЙТЕ предполагаемый БЮДЖЕТ и максимальные СРОКИ, иначе просто не стану обсуждать задание:

Icq 673574224
E-mail avazart@yandex.ua

Для прикладных программ использую Delphi/С++Builder/C++Qt
Работаю только с предоплатой 30%.

[Smitt&Wesson]

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

Так на чем нужно ?

На контенте.

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

Работаю только с предоплатой 30%.

Эх, молодость - молодость...
Поручик, а правда, Что вы были членом суда?
Ах, молодость-молододость....
Членом суда.... Членом туда....

[BARNEY]

Исполнитель найден.

[Человек_Борща]

Человеку все ещё нужна помощь с этим...
Я не справился

[Avazart]

<<Человеку все ещё нужна помощь с этим...
Я не справился>>

C кем не справился ? С человеком ?

[Человек_Борща]

С компонентом... с человек все впорядке