|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Создание простейшей модели через TTCPBlockSocket
Добрый день, можете помочь мне разобраться как создать простой скрипт на встроенный компилятор 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 Последний раз редактировалось kenshi245, 15.06.2017 в 01:22. |