php скрипты

[Lelick]

имеется вот такой php скрипт, допустим имя у него llck.php

<form action="llck.php" method="GET">
<p> Login <input type="text" name="conn" /> </p>
<p> password <input type="password" name="pas" /></p>
<p> <input type="submit" value="enter"> </p>
</form>

<?php

$s1 = $_GET["pas"];
$s2 = $_GET["conn"];
echo($s1.$s2."PREVED");
?>

он представляет из себя два текстовых поля и кнопку ентер, при нажатии на которую отображаются на странице переменные $s1 и $s2.

А теперь вопрос:
Как передавать имена pas и conn (на примере данного скрипта) из Midlet Pascal ?

[ARV]

пусть pas='Lelik' а conn='Bolik', тогда серверному скрипту http://www.super.com/igo-go.php эти штуки мы передаем так:

 
var
   url : string;
   cn : http;
   result : integer;
begin
   url := 'http://www.super.com/igo-go.php?pas=Lelik&conn=Bolik';
   if OpenHttp(cn, url) then begin
      SetHttpMethod(cn, GET);
      result := SendHttpMessage(cn);
      CloseHttp(cn);
   end;
end.

[Chip]

Нужно принять строку с сайта http://www.teploluxe.net/SMS.php
как это сделать?
Использую:

url := 'http://www.teploluxe.net/SMS.php';
if OpenHttp(cn, url) then
begin
SetHttpMethod(cn, GET);
result_string := getHttpResponse(cn);
CloseHttp(cn);
end;

не выходит.

[ARV]

Опыта у меня немного, но по-моему, сначала надо запрос серверу подать SendHttpMessage, дождаться ответа, а уж потом, если ошибки не было, пытаться получить ответ getHttpResponce...

[Chip]

По всякому пытался.
url := 'http://www.teploluxe.net/SMS.php';
if OpenHttp(cn, url) then
begin
SetHttpMethod(cn, GET);
if sendHttpMessage(cn) <> 200 then halt;
result := getHttpResponse(cn);
CloseHttp(cn);
end; else halt;

Тупо висит и все.

[ARV]

у меня была подобная проблема при тесте на телефоне - на эмуле отрабатывало быстро... висит тупо именно на реальном телефоне? если да, то мне помогли 2 вещи:
1. Отключение прокси в настройках HTTP-профиля для мидлетов
2. Терпение ответ приходил где-то за 45-75 секунд ... мидлет не висит, он ждет...

[Chip]

Все остальные соеденения работают на ура.(опера,Jimm,Magent)
А с этим жду и 5 мин. но ничего не происходит.

[ARV]

даже не знаю... у меня вот этот код

var
 cn : http;
 url : string;
 res : string;
 i : integer;
begin
 delay(5000);
 url := 'http://www.teploluxe.net/SMS.php';
 if OpenHttp(cn, url) then 
  begin
   SetHttpMethod(cn, GET);
   debug('begin');
   //i := sendHttpMessage(cn); // ***
   debug(''+i);
   res := getHttpResponse(cn);
   debug(res);
   CloseHttp(cn); 
  end;
 delay(5000);
end.

и не виснет в эмуляторе, отрабатывает быстренько (в отладочной консоли смотрю результат работы), а если снять ремарку со строки, отмеченной ***, то так же в эмуле отрабатывает практически мгновенно и получает следующую строку: wm+944516 Ок!
Может, причина не в этом участке кода?

[Chip]

У меня эмуль не поддерживает седенение. А с тела не работает.
И этот участок кода поставил в самом начале . А зачем такая длинная пауза вначале твоего кода?

[Chip]

Спасибо за помощь. Вынес в отдельный проект и все заработало.
Единственная проблема это кодировка. Но это решаемо.
Да скорость конекта достаточна приличная , ожидал худшего.

url := 'http://www.teploluxe.net/SMS.php';
if OpenHttp(cn, url) then
begin
SetHttpMethod(cn, GET);
i := sendHttpMessage(cn);
result := getHttpResponse(cn);
drawText(''+result,2,2);
repaint;
CloseHttp(cn);
end; else halt;
delay(3000);

[ARV]

Сообщение от Chip

А зачем такая длинная пауза вначале твоего кода?

Да чтобы успеть открыть окно вывода отладочной инфы пержде, чем мидлет отработает

[Chip]

Еще вопрос а как загрузить image из ресурса?

program CY;
var
i:integer;
url : string;
cn : http;
result : String;
begin
url := 'http://www.teploluxe.net/cy_pr.php?a=submit&code=voxtel.net.ru';
if OpenHttp(cn, url) then
begin
SetHttpMethod(cn, GET);
i := sendHttpMessage(cn);
result := getHttpResponse(cn);
CloseHttp(cn);
end; else halt;
//***************************
Здесь нужно проконвертировать result что то типа StringToImage
Кто делал? Подскажите.
А то ссылка которую дал здесь Pilgrim не пашет
//***************************
end.

[IVenoMI]

Стандартными средствами Паскаля нельзя превратить строку в Имэдж..

[Chip]

Можно ! Посмотри в атаче. В ресурсе есль только текстовый фаил

[Skythrone]

Гм, очень интересно.

Действительно, тут из какой-то странной текстовой строчки формируется большая картинка. У кого-нибудь есть мысли, как это сделано?