VPF::Мониторинг (quake, cs) - Форум программистов

Mitek

Дата 20.1.2007, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 12.1.2007

Репутация: нет
Всего: нет

Проблема в том, что не получается опросить Counter-Strike сервера

Код


if WSAStartup($0002,wsa) <> 0 then Exit;

    s := socket(AF_INET, SOCK_DGRAM, 0);

    ls.sin_port := 0;
    ls.sin_addr.S_addr := INADDR_ANY;
    ls.sin_family := AF_INET;

    bind(s, ls, SizeOf(ls));

    if WSAGetLastError <> 0 then Exit;



    rlen := SizeOf(ls);
    rs.sin_family := AF_INET;
    rs.sin_port := htons(StrToInt(ReadIni(Server, 'port')));
    rs.sin_addr.S_addr := inet_addr(PChar(GetIPByName(Server)));

    Req[1]:='ÿ';
    Req[2]:='ÿ';
    Req[3]:='ÿ';
    Req[4]:='ÿ';
    Req[5]:='T';

    z := sendto(s, Req, 32, 0, rs, SizeOf(rs));

    if WSAGetLastError <> 0 then Exit;

    z := recvfrom(s, Buf, 512, 0, rs, rlen);

    if WSAGetLastError <> 0 then Exit;

    //STemp := StrToChr(Buf,z);

    Temp := '';
    for I := 1 to z do Temp := Temp + Buf[I];
      //for I := 1 to z do Temp := Temp + Buf[I];
    //ShowMessage();
    NowCount := Ord(Gettok(Temp, '6', chr(0))[1]);
    PlayersCount := Ord(Gettok(Temp, '6', chr(0))[2]);
    Form1.StatusBar1.Panels.Items[0].Text := 'Map: ' + Gettok(Temp, '3', Chr(0));
    Form1.StatusBar1.Panels.Items[1].Text := 'Mod: ' + Gettok(Temp, '4', chr(0));
    Form1.StatusBar1.Panels.Items[2].Text := 'Players: ' + IntToStr(NowCount) + '/' + IntToStr(PlayersCount);
    Form1.StatusBar1.Panels.Items[3].Text := Gettok(Temp, '2', Chr(0));

    if NowCount < 1 then Exit;


    Req[1]:='ÿ';
    Req[2]:='ÿ';
    Req[3]:='ÿ';
    Req[4]:='ÿ';
    Req[5]:='U';
    Req[6]:='ÿ';
    Req[7]:='ÿ';
    Req[8]:='ÿ';
    Req[9]:='ÿ';

    z := sendto(s, Req, 32, 0, rs, SizeOf(rs));

    if WSAGetLastError <> 0 then exit;

    z := recvfrom(s, Buf, 1024, 0, rs, rlen);

    if WSAGetLastError <> 0 then Exit;
    //showmessage(inttostr(z));
    Temp := '';
    for I := 1 to z do Temp := Temp + Buf[I];
    //ShowMessage(Gettok(temp, '1', chr(0)));
    STemp := StrToChr(Buf, z);
    //ShowMessage(inttostr(STemp[9]));

    Tpl := '';
    i := 8;


    while i <= z do begin
      if STemp[i] <> 0 then Tpl := Tpl + Chr(STemp[i])
      else begin
        //Tpl := Tpl + #9 +IntToStr(STemp[i + 1]);
        with Form1 do begin
          ListIndex := ListView1.Items.Add.Index;
          ListView1.Items.Item[ListIndex].Caption := Tpl;
          ListView1.Items.Item[ListIndex].SubItems.Add(IntToStr(STemp[i + 1]));
          ListView1.Items.Item[ListIndex].SubItems.Add('null');
        end;
        Inc(i,10);
        Tpl := '';
        continue;
      end;
      Inc(i);
    end;
  end;
  Form1.TrayIcon1.Hint := Trim(Form1.TrayIcon1.Hint);
  WSACleanUp;

Дата 24.1.2007, 03:10 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

Цитата(Mitek @ 20.1.2007, 13:27

)

Проблема в том, что не получается опросить Counter-Strike сервера

А есть какая-то документация на тему опроса CS серверов?
Просто что за код, и должен ли он работать не понятно .......

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »