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=14308)

Reizel 26.02.2011 16:27

Сервер-клиент
 
Предупреждаю: Абсолютно не знаю, как это работает!

В общем, нужно получить список (типа как в аське список контактов) с сервера. Можно ли это сделать?
Потом, надо чтоб на левую кнопку была забиндена функция, открывающая меню, с двумя пунктами.
Ну, и соответственно, Управлять Куками в телефоне с сервера, возможно ли это?
И посыать на сервер POST, GET-запросы.

Как это делается и что нужно.

Мобилка SE, k770i


Просто нужна прога для контролирования одного сервиса под рукой - в мобильнике

Trazzy 27.02.2011 06:17

Ответ: Сервер-клиент
 
Вложений: 1
Цитата:

Сообщение от Павел (Сообщение 180699)
В общем, нужно получить список (типа как в аське список контактов) с сервера. Можно ли это сделать?

Да, все можно сделать.:-D
RTFM!. Справка -> Язык программирования MP -> Справочник процедур и функций -> HTTP: связь
таким образом получаешь данные от сервера, парсишь текст и получаешь что тебе нужно..:)

Цитата:

Сообщение от Павел (Сообщение 180699)
Потом, надо чтоб на левую кнопку была забиндена функция, открывающая меню, с двумя пунктами.

Делается за парсек!!.

Цитата:

Сообщение от Павел (Сообщение 180699)
И посыать на сервер POST, GET-запросы.

GET-запросы посылаются через пример (в указаном мной разделе справки),
только с добавлением к адресу сайта:
"?парам1=знач1&парам2=знач2&парам3=знач3" etc.
Пример: http://sayt.domen/stranica.php?user=2fake
Для POST-запросов потребуется дополнительная либа.

Цитата:

Сообщение от Павел (Сообщение 180699)
Как это делается и что нужно.

Делается довольно просто. Нужно иметь желание и ровные руки.;)
__________________
Здесь есть немного инфо..
http://forum.boolean.name/showthread.php?p=171423

Reizel 28.02.2011 12:59

Ответ: Сервер-клиент
 
Ужас. Впечатление от языка довольно ужасное. С++ рулит :)
Вот к примеру, так и не разобрался, как узнать ASCII-код символа в строке?
var c:char;

begin
c:=getchar("ololo",0);
if(c=30) then begin end;

Вот например здесь надо проверить , совпадает ли первый символ с символом под номером 30.
В кавычках не прокатит, ибо нужно будет в реальной проге сравнивать с 3-м символом.

ViNT 28.02.2011 14:27

Ответ: Сервер-клиент
 
Цитата:

Сообщение от Павел (Сообщение 180881)
Ужас. Впечатление от языка довольно ужасное. С++ рулит :)
Вот к примеру, так и не разобрался, как узнать ASCII-код символа в строке?
var c:char;

begin
c:=getchar("ololo",0);
if(c=30) then begin end;

Вот например здесь надо проверить , совпадает ли первый символ с символом под номером 30.
В кавычках не прокатит, ибо нужно будет в реальной проге сравнивать с 3-м символом.

Можно написать
if ord(c)=30 then...

cherepets 28.02.2011 19:01

Ответ: Сервер-клиент
 
Я всегда писал if c=chr(30) then....
Это ведь тоже самое что и #30?

Павел, если знаешь С++, то наверное лучше писать на j2me. Там синтаксис ближе. Да и визуальный редактор для форм (а ты вроде писал что ими будешь пользоваться) есть и в нетБинсе, и в эклипсе..

ViNT 28.02.2011 19:08

Ответ: Сервер-клиент
 
Цитата:

Сообщение от cherepets (Сообщение 180929)
Я всегда писал if c=chr(30) then....
Это ведь тоже самое что и #30?

Это я забыл, MP не понимает константы типа #30, как раз нужно использовать chr(30) вместо #30.

Reizel 01.03.2011 01:59

Ответ: Сервер-клиент
 
Нубский вопрос:
PHP-скрипт выдает строку на русском в windows-1251.
я ее читаю и сую MenuAppendString. Вместо русских сами знаете что. Как???? Как сделать русске?

Trazzy 01.03.2011 04:12

Ответ: Сервер-клиент
 
Попробуй использовать это:

Цитата:

Сообщение от abcdef (Сообщение 116504)
PHP код:

function win2utf(string) : string;
var  {
rus_ansi to unicode}
  
i,integer;
begin
  
for i:=length(s)-1 downto 0 do
  
begin
    c
:=ord(getChar(s,i)) and 255;
    if (
c>=192then  s:=setChar(s,chr(c+848),i);
    if (
c=168)  then  s:=setChar(s,chr($0401),i); {Ё}
    if (
c=184)  then  s:=setChar(s,chr($0451),i); {ё}
  
end;
  
win2utf := s;
end;


function 
utf2win(string) : string;
var
  
i,integer;
begin
  
for i:=length(s)-1 downto 0 do
  
begin
    c
:=ord(getChar(s,i));
    if (
c>255)   then  s:=setChar(s,chr(c-848),i);
    if (
c=$0401then  s:=setChar(s,chr(168),i); {Ё}
    if (
c=$0451then  s:=setChar(s,chr(184),i); {ё}
  
end;
  
utf2win := s;
end




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

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