Куплю шаблон скрипта

[Kenshi245]

Привет, куплю простенький шаблон кода с комментариями для общения двух ботов по сети через TCP, один бот выступает в роли хоста, остальные подключаются к нему и передают сообщения, на что хост им отвечает. Цена договорная.

 

[Zubastic]

В гугле трудно поискать на тему сети и делфи?

 

[Kenshi245]

@Zubastic, Облазил весь инет, работающих решений именно под адреналин нет. Есть со сторонними библиотеками, которых в боте нет и подключить их нельзя, бот сразу ругается на директиву...

Вот типичный пример в интернете:

uses tcp;

var
SSocket: TTCPBlockSocket;

begin
SSocket := TTCPBlockSocket.Create;
SSocket.Bind('127.0.0.1','12345');
SSocket.Listen;
end.

Undeclared identifier "Bind"

 

[Zubastic]

http://forum.lineage2bot.net/viewtopic.php?f=15&t=2551

2 ссылка в гугле:

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: http://www.google.ru');
  Head.Add('Connection: Keep-Alive');
  Head.Add(#10#13);

  Socket := TTCPBlockSocket.Create;      //Создаем сокет
  Socket.connect('173.194.71.94', '80'); //конектим к google
  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.

 

[Kenshi245]

@Zubastic, Это вообще не то, ты не создаешь тут никаких хостов, просто подключаешься к гугл, читай сабж

Создать хост это открыть порт и начать его прослушивать, чтобы второй бот смог приконнектиться к нему, в реальном примере это было бы так, а как в боте никто видимо не знает...

SSocket := TTCPBlockSocket.Create;
SSocket.Bind('127.0.0.1','12345');
SSocket.Listen;

 

[Zubastic]

http://asiwin.com/api/adrenalin/Plug-ins/TTCPBlockSocket

Потому что такого метода там нет?

Посмотрел бы хоть API сначала.

 

[Kenshi245]

@Zubastic, ты явно не понимаешь о чем говоришь, понятное дело, что нет, там и половины функций не написано, нормальный API посмотри, поймешь о чем я.

 

[Zubastic]

Zubastic, ты явно не понимаешь о чем говоришь, понятное дело, что нет, там и половины функций не написано, нормальный API посмотри, поймешь о чем я.

Я как раз таки понимаю, поэтому и намекаю тебе, что там есть что-то кроме Bind, на котором ты зациклен. Апи адреналина это не тоже самое, что функционал делфи. А вообще тебе пора на офф форум адреналинщиков где пкодер может сказать что тебе точно надо заюзать.

 

[Kenshi245]

@Zubastic, да я с ним уже общался, он не помнит api для сетей, ну или говорит, что не помнит. Но в инете точно нет инфы

 

[Kenshi245]

Тема еще актуальна