[kenshi245]

Добрый день, можете помочь мне разобраться как создать простой скрипт на встроенный компилятор delphi используя TTCPBlockSocket? Вот доступный мне api:
http://asiwin.com/api/adrenalin/Plug...TCPBlockSocket

Вот пример клиента из этого api: клиент создает сокет и коннектится на гугл. А мне нужно сделать так, чтобы одно окно программы было клиентом, а второе сервером, и скажем, если я отправляю серверу "привет", он должен ответить "привет". Как можно сделать это максимально проще и понятнее, потому что с сетями я плохо знаком.

Код:

uses Classes, TCP;
var
  Head: TStringList;
  Socket: TTCPBlockSocket;
  i: integer;

procedure OnFree;
begin
  Head.Free;
  Socket.Free;
end;
  
begin
  Head:= TStringList.Create;
  Head.Add('GET / HTTP/1.1');            //Создаем запрос, который пошлем серверу
  Head.Add('Accept: */*');
  Head.Add('Accept-Encoding: gzip, deflate');
  Head.Add('Host: www.google.ru');
  Head.Add('Connection: Keep-Alive');
  Head.Add(#10#13);

  Socket:= TTCPBlockSocket.Create;      //Создаем сокет
  Socket.connect('173.194.32.162', '80'); //конектим www.google.ru
  if (Socket.LastError <> 0) then Exit;    //Если произошла ошибка, выходим
  Socket.SendString(Head.Text);          //Отправляем наши данные

  Head.Clear;
  Head.DelimitedText := Socket.RecvString(5000); //Получаем ответ
  for i := 0 to Head.Count-1 do                  //Показываем ответ 
    print(Head.Strings[i]);
end.

Вот еще немного api
http://synapse.ararat.cz/doc/help/bl...et.html#Accept