Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 611

/ вопрос открыт /

Здравствуйте!
Из кода страницы, как мне подсказали, следует что тут замешан AJAX.
Посоветывали копать в этом направлении
req.open("GET","http://accentservice.kiev.ua/mod_perl/spare/article.pl?sn="+s.value,true);

Но как это прикрутить к моей задаче,которая заключается только в том чтобы заполнить единственный Edit настранице и нажать на кнопку, не знаю.
Пожалуйста. Очень нужно. Помогите

Приложение:
  1.  
  2.  
  3. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  4. <HTML>
  5. <HEAD>
  6. <LINK href="/spare.css" rel=stylesheet type=text/css>
  7. <meta http-equiv="Content-Type" content="text/html; charset=Windows-1251">
  8.  
  9. <script type='text/javascript'>
  10. var req=null;
  11. var console=null;
  12. var READY_STATE_UNINITIALIZED=0;
  13. var READY_STATE_LOADING=1;
  14. var READY_STATE_LOADED=2;
  15. var READY_STATE_INTERACTIVE=3;
  16. var READY_STATE_COMPLETE=4;
  17. function sendRequest(){
  18. req=initXMLHTTPRequest();
  19. var s = document.getElementById("sn");
  20. if (req){
  21. req.onreadystatechange=onReadyState;
  22. req.open("GET","http://accentservice.kiev.ua/mod_perl/spare/article.pl?sn="+s.value,true);
  23. req.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
  24. req.send("sn="+s.value);
  25. }
  26. }
  27. function initXMLHTTPRequest(){
  28. var xRequest=null;
  29. if (window.XMLHttpRequest){
  30. xRequest=new XMLHttpRequest();
  31. }else if (window.ActiveXObject){
  32. xRequest=new ActiveXObject("Microsoft.XMLHTTP")
  33. }
  34. return xRequest;
  35. }
  36. function onReadyState(){
  37. var ready=req.readyState;
  38. var data=null;
  39. if (ready==READY_STATE_COMPLETE){
  40. data=req.responseText;
  41. }else{
  42. data="<p>&nbsp;&nbsp;&nbsp;<img src=await.gif>";
  43. }
  44. toConsole(data);
  45. }
  46. function toConsole(data){
  47. if (console!=null){
  48. console.innerHTML=data;
  49. }
  50. }
  51. window.onload=function(){
  52. console=document.getElementById('console');
  53. }
  54. </script>
  55. </HEAD>
  56.  
  57. <BODY>
  58.  
  59.  
  60. <div id='console'></div>
  61.  
  62. </BODY>
  63. </HTML>
  64. **********************************************


Yuran Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Yuran (статус: Посетитель)
Вопрос отправлен: 23 мая 2008, 14:36
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Yuran!
А обязательно страничку загружать через вебброузер? почему бы не через idHttp? Спокойно выполняем все запросы, а потом пользователю отображаем ответ. для вашего случая это так
s := idHttp1.get('http://accentservice.kiev.ua/mod_perl/spare/article.pl?sn='+edit1.text);
правда, если текст содержит украинские (русские) буквы, то их придётся кодировать. После такого запроса в переменной s будет содержимое странички. Сами картинки надо будет докачивать отдельно, если они конечно надо. Что бы вытянуть с странички нужную инфу, просто используем регулярные выражения. о них ищите статью на этом сайте.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 24 мая 2008, 00:20
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 24 мая 2008, 13:12; участников в обсуждении: 1.
Yuran

Yuran (статус: Посетитель), 24 мая 2008, 13:12 [#1]:

Отлично! Все работает! СПАСИБО ОГРОМНОЕ

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:53
Выполнено за 0.02 сек.