Можно при наличии сервера.
С помощью 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.
я на дельфях сделал простой сокет-сервер - запускал пример на Эмуляторе - там всё работает...
на телефоне при подключении к выделенному серверу - телефон зависает...