Показать сообщение отдельно
Старый 26.09.2007, 20:11   #8
Aluk
AnyKey`щик
 
Регистрация: 22.09.2007
Сообщений: 11
Написано 0 полезных сообщений
(для 0 пользователей)
Re: POST запрос работает на эмуле а на мобиле нет

все остальные приложения работаю все но не через хттп а через сокет, МП я как понял не дает возможность работы с сокетами? я прав?
и насчет прокси(у мя МТС(ЮМС)) я не совсем шарю насчет прокси, но как его подключить если я запучкаю такое приложение
program net;
var 
conn: http; 
htmlBody: string; 
contentType: string; 
con:integer;
begin 
 htmlBody
:='p=postbody';
if 
not openHttp(conn, 'http://nvu.ru/checkpost.php?'+htmlBody) then halt; 
  
setHttpMethod(conn, POST);
  
addHttpHeader(conn, 'User-agent', 'SendSMS'); 
  
addHttpHeader(conn, 'Content-type','application/x-www-form-urlencoded');
  
addHttpHeader(conn, 'Content-Length', integertoString(length(htmlBody)+1));
  
addHttpBody(conn,htmlBody);

  if 
sendHttpMessage(conn) <> 200 then halt; 
htmlBody := getHttpResponse(conn);  
closeHttp(conn); 
  
con := formAddString('used method '+htmlBody); 
  
showForm;
  
delay(5000);
end. 
отправляя пост запрос на сайт http://nvu.ru/checkpost.php ???
(Offline)
 
Ответить с цитированием