Показать сообщение отдельно
Старый 03.07.2009, 17:49   #4
Serg153
Нуждающийся
 
Регистрация: 03.01.2009
Сообщений: 93
Написано 8 полезных сообщений
(для 15 пользователей)
Ответ: Передача данных м/у телефонами

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