forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   Передача данных м/у телефонами (http://forum.boolean.name/showthread.php?t=8592)

Krechet 02.07.2009 00:10

Передача данных м/у телефонами
 
Можно ли на MP написать программу, позволяющую двум телефонам обмениваться данными не через блютуз или инфракрасник, а например через HTTP соединение? Обязателен ли для этого сторонний сервер или в качестве сервера может выступать один из телефонов?

Bruteo 02.07.2009 01:31

Ответ: Передача данных м/у телефонами
 
Можно при наличии сервера.
С помощью mp не удастся создать приложение, которое сможет ожидать соединения.

Krechet 02.07.2009 09:00

Ответ: Передача данных м/у телефонами
 
Хм, нашел вот такой пост в теме про библиотеку Lib_socket:
Цитата:

В MIDP2 есть класс ServerSocketConnection. Он позволяет создать серверное соединение и ждать подключения.
У него есть метод getLocalAdress(), которая возвращает IP адрес сервера. Единственная сложность, что адрес назначается динамически и его надо сообщать клиенту каким-то образом.
ServerSocketConnection это стандартный класс Midlet Pascal'я? Как его использовать? Можно маленький примерчик?
Заранее спасибо

Serg153 03.07.2009 17:49

Ответ: Передача данных м/у телефонами
 
Цитата:

Можно при наличии сервера.
С помощью mp не удастся создать приложение, которое сможет ожидать соединения.
это решается путём создания PHP скрипта - который можно разместить на бесплатном хостинге (есть пример в инете Арена) Телефон который выступает в качестве сервера - посылает туда Пост сообщение, а скрипт вычленяет ИП адрес телефона и заносит время и адрес в табличку...
клиентский телефон - считывает последнюю запись и уже по полученному ИП производит соеденение с телефоном Сервером....
---
Цитата:

ServerSocketConnection это стандартный класс Midlet Pascal'я? Как его использовать? Можно маленький примерчик?
Заранее спасибо
в принципе в библиотеке НЕДОДЕЛАНО реализация сокет соеденения в ОТДЕЛЬНОМ потоке... телефон зависает при попытке соеденения...
pilgrim обещал вроде доделать либу в отдельном потоке... но???хз..
---
вот пример...
Код:

program NewProject;

uses socket;

var
  OpenState: integer;
  SendState: integer;
  RecvString: string;
        i:integer;
begin
//Открываем соединение
  OpenState:= Socket.Open('socket://127.0.0.1:2007');

for i:=0 to 10 do begin
//Отправляем строку
  if  OpenState = 0 then  begin
                        SendState:= Socket.WriteStr('test');
                        //Ждем немного
                        Delay(1000);
                        RecvString:= '';
                        //Читаем входной буфер
                        while Socket.Available > 0 do RecvString:= RecvString + Chr(Socket.Read);
        end; else begin
                //Открываем соединение
                OpenState:= Socket.Open('socket://127.0.0.1:2007');
        end;
        Delay(1000);
end;

        drawText(RecvString, 0, 0);
        drawText('Принято - ' + IntegerToString(Socket.BytesRX), 0, 15);
        drawText('Отправлено - ' + IntegerToString(Socket.BytesTX), 0, 30);
        drawText('Всего - ' + IntegerToString(Socket.BytesRX + Socket.BytesTX), 0, 45);
        repaint;       
        delay(10000);
       
//Закрываем
        Socket.Close;
end.

я на дельфях сделал простой сокет-сервер - запускал пример на Эмуляторе - там всё работает...
на телефоне при подключении к выделенному серверу - телефон зависает...

Serg153 03.07.2009 18:05

Ответ: Передача данных м/у телефонами
 
приведу выдержки и цитаты как организовать игровой интернет сервер...
----
Цитата:

Итак, имеем в Интернете домен на котором размещен наш скрипт "арены".
Есть игра-клиент, которой нужно узнать кол-во доступных серверов, и при необходимости создать свой.

Что нам нужно от "арены"? Всего-навсего получить список серверов в виде "IP:Port IP:Port IP:Port..." и зарегистрировать новый.
Как это будет происходить? Да очень просто! Посредством HTTP запросов.
- Легко разместить такую арену в локальной сети;
- Не требует восстановления после различных ЧП :).

Реализация
В этом разделе описаны основные процедуры необходимые для воплощения нашей мечты в реальность. Работа с ареной делится на 2 части:
1) Подача HTTP запросов и обработка ответов игрой;
2) Обработка запроса скриптом на арене.

Всего будет 2 вида запросов: view и ping.
VIEW необходим для получения списка серверов. Будет выглядеть следующим образом:
Запрос: http://host/?action=arena&mode=view.
Ответ : 212.100.15.45:25666 192.10.38.212:25666.
Т.е. в ответе мы видим, что на данный момент на арене находятся 2 сервера на портах 25666.

PING для оповещения арены о том что сервер жив и удалять его из списка пока нет никакой необходимости. Вы могли заметить то, что нет запроса на регистрацию сервера на арене, т.к. в качестве регистрации выступает постоянный "ping" посылаемый им. Сам же запрос "ping" следует посылать раз в несколько десятков секунд (20-40).
Запрос: http://host/?action=arena&mode=ping&port=25666
Ответ нам абсолютно не нужен :).
Реализация на стороне интернет сервера
Итак, с игрой разобрались, теперь осталось написать скрипт!
В запросах мы посылаем ключевое слово "action=arena" благодаря чему помимо арены на данном домене может висеть полноценный сайт.
Для того, чтобы определить адресуется ли данный запрос арене, в index.php необходимо (желательно в самом начале) написать следующее:

Код:

if ($action == 'arena')
 {
  include 'arena.php';
  die();
 }

Это означает, что в случае того, когда захотят "пообщаться" с ареной, будет запущен скрипт арены для обработки запроса и дальнейшее выполнение скрипта index.php прекратится.

А вот и сам код arena.php:


Код:

<?php
  //В этом файле будет храниться список активных серверов
  $list_file = 'db/arena_list.txt';
  // Узнаем IP адрес отправителя запроса
  $ip = $_SERVER['REMOTE_ADDR'];
  // Читаем номер порта из запроса
  $port = intval($_REQUEST['port']);
  // Это от хитрых кулхацкеров ;)
  if (!($port >= 1024 && $port <= 65500))
  $port = 25666;
  // Читаем файл-список
  $lst = file($list_file);
  // В переменной $time теперь хранится текущее время
  $time = time();
  $j = -1;
  $i = 0;
  // Удаляем “мертвецов” и попутно ищем адрес отправителя
  // в этом списке
  while ($i < count($lst)) {
  $lst[$i] = trim($lst[$i]);
  list($l_ip, $l_port, $l_time) = explode(":", $lst[$i]);
  // Если время с предыдущего пинга превысило 45 секунд
  // – его явно уже нет
  if ($l_time < ($time - 45)) {
    for ($t = $i; $t < count($lst) - 1; $t++)
    $lst[$t] = $lst[$t + 1];
    unset($lst[count($lst) - 1]);
    continue;
  }
  if ($l_ip == $ip) $j = $i;
  $i++;
  }

  // Обработка запроса
  switch ($mode) {
  case 'view':
    for ($i = 0; $i < Count($lst); $i++) {
    // Вывод очередного IP:Port из списка
    list($l_ip, $l_port, $l_time) = explode(":", $lst[$i]);
    echo $l_ip.':'.$l_port.' ';
    }
    break;
  case 'ping':
    if ($j == -1)
    // Если пингуется впервые, значит новый сервер - добавляем
    array_push($lst, $ip.':'.$port.':'.$time);
    else {
    // Обновляем информацию для сервера
    // Заметьте, что при смене порта на сервере
    // на арене он тоже изменится
    list($l_ip, $l_port, $l_time) = explode(":", $lst[$j]);
    $lst[$j] = $l_ip.':'.$port.':'.$time;
    }
    break;
  }

  // Обновляем список серверов в файле-списке
  $f = fopen($list_file, "a+");
  flock($f, LOCK_EX);
  ftruncate($f, 0);
  for ($i = 0; $i < count($lst); $i++)
  fwrite($f, $lst[$i]."\n");
  fflush($f);
  flock($f, LOCK_UN);
  fclose($f);
 ?>

Файл со списком серверов должен находиться в "db/arena_list.txt" с атрибутами разрешающими его изменение.

....

Krechet 06.07.2009 12:25

Ответ: Передача данных м/у телефонами
 
Ух, спасибо Serg153 за подробное описание :)

demon112 06.07.2009 19:22

Ответ: Передача данных м/у телефонами
 
Дык как я понял с имеющейся либой сокет не удасться создать такое приложение, пока либу не доделают?


А по хттп ничего неудасться сделать?


Часовой пояс GMT +4, время: 08:55.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot