LISP. Как взять данные с интернет страницы?

LastGraff · 14.07.2011, 07:38

Сложилась такая проблема:
Очень нужно связываться с локальным сервером (что не проблема), но связь надо осуществить через http, то есть как бы зайти через lisp на сайт на сервере, а сайт - вернет необходимые данные. Подскажите, как это можно реализовать?

hwd · 14.07.2011, 08:49

Как вариант: лиспом запустить внешнюю программу, которая считает интересующие вас данные и запишет их, к примеру, в текстовый файл. Затем из лиспа можете обрабатывать этот файл.

LastGraff · 14.07.2011, 08:53

Этот вариант уже рассматривался, но все же хочется реализовать без подключения сторонних приложений, если это возможно...

VVA · 14.07.2011, 10:45

Как вариант попробовать объект XMLHTTPRequest
Что-то типа

Код:

[Выделить все]

(or
(setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP.6.0"))
(setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP"))
(setq XMLHTTP (vlax-create-object "Microsoft.XMLHTTP"))
)
(vlax-invoke XMLHTTP "open" "POST" "http://www.bla-bla-bla/updatever.asp" 1)
(vlax-invoke XMLHTTP "setRequestHeader" "Content-Type" "application/x-www-form-urlencoded")

LastGraff · 14.07.2011, 11:12

Спасибо большое, только пока не могу сообразить как получить результат... Штудирую мануал по XMLHTTPRequest

Все, разобрался, почти...

Код:

[Выделить все]

     (vlax-invoke XMLHTTP "send" '12345)
    (setq q (vlax-get-property XMLHTTP "responseText"))

возвращает "! GET: Array\n(\n)\n! POST: Array\n(\n)\n! FILES: Array\n(\n)\n"

то есть POST не передал в запросе ничего. Как ни бьюсь - решить эту проблему не удается( может я где накосячил?

VVA · 14.07.2011, 15:05

Посмотри еще эти программы: News & Weather Reader (требуется регистрация)

*** Добавлено

Цитата:

Все, разобрался, почти...

По ссылке выше в описании сказано

Цитата:

Кроме того, при POST обязателен заголовок Content-Type, содержащий кодировку. Это указание для сервера - как обрабатывать (раскодировать) пришедший запрос.

Код:

[Выделить все]

// Пример с POST
...
var params = 'name=' + encodeURIComponent(name) + '&surname=' + encodeURIComponent(surname)
xmlhttp.open("POST", '/script.html', true)
>>>>>>>!!!!!!!!!       mlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
...
xmlhttp.send(params)

Попробуй добавить выделенную красным строчку из #4

LastGraff · 14.07.2011, 15:49

Цитата:

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

Попробуй добавить выделенную красным строчку из #4

я в #5 указал только то, что добавил к твоему... вот полный листинг этого куска

Код:

[Выделить все]

 (vl-load-com)    
(defun TakeInf(/ XMLHTTP)
  (or
    (setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP.6.0"))
    (setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP"))
    (setq XMLHTTP (vlax-create-object "Microsoft.XMLHTTP"))
  )
  (vlax-invoke XMLHTTP "open" "post" "http://192.168.0.4/index2.php" 0)
  (vlax-invoke XMLHTTP "setRequestHeader" "Content-Type" "application/x-www-form-urlencoded")
  (vlax-invoke XMLHTTP "send" '12345)
  (setq q (vlax-get-property XMLHTTP "responseText"))
  (vlax-invoke XMLHTTP "abort")
)

я использую синхронное соединение, в моем случае оно и проще и полностью удовлетворяет задаче

так вот этот код и возвращает в q
"! GET: Array\n(\n)\n! POST: Array\n(\n)\n! FILES: Array\n(\n)\n"

метод GET обрабатывает нормально, а вот с POSTом - напряженка

VVA · 14.07.2011, 16:27

В примере по ссылке

Цитата:

xmlhttp.open("POST", '/script.html', true)

У тебя

Цитата:

(vlax-invoke XMLHTTP "open" "post" "http://192.168.0.4/index2.php" 0)

Попробуй вместо 0 1 или :vlax-true

LastGraff · 15.07.2011, 07:23

не помогает... по всем правилам - должно работать как часы, но не работает... Запрос идет пустой и ничего не получается сделать. Проверил и vlax-true и vlax-false - результат плачевен(

Справился, оказывается, что я неправильно формировал сам текст запроса (не учел его структуры) просто вместо '12345 должно было быть "f=12345" и все...

Теперь думаю над передачей файла (пока слабо представляю как это должно происходить)

Pastor · 15.07.2011, 08:18

Может правильным является использование строки в качестве параметров запроса:

Код:

[Выделить все]

(vlax-invoke XMLHTTP "send" "name1=value1&name2=value2&...")

И еще, хотелось бы глянуть на файл index2.php

p.s.
Опоздал на три минуты

VVA · 15.07.2011, 09:13

Я когда-то с форума cadstudio.cz сохранил фрагмент кода, может поможет

Код:

[Выделить все]

(setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP.6.0"))
(setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP"))
(setq XMLHTTP (vlax-create-object "Microsoft.XMLHTTP"))
(vlax-invoke XMLHTTP "open" "POST" "http://www.cadstudio.cz/_sys_/updatever.asp" 1)
(vlax-invoke XMLHTTP "setRequestHeader" "Content-Type" "application/x-www-form-urlencoded")
(vlax-invoke XMLHTTP "send" (STRCAT "cv=" (RTOS XANADU-WEBUPDATE-VER 2 2) "&ver=" X__ENC2))

LastGraff · 15.07.2011, 13:56

Спасибо еще раз, разобрался как передавать файл. Если кому-то интересно - могу выложить листинг.

Capiton · 15.07.2011, 14:36

Конечно интересно! Заранее спасибо!

LastGraff · 15.07.2011, 15:41

Код:

[Выделить все]

 (vl-load-com)    

(defun TakeInf(/ XMLHTTP)
  (or
    (setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP.6.0"))
    (setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP"))
    (setq XMLHTTP (vlax-create-object "Microsoft.XMLHTTP"))
  )
  (vlax-invoke XMLHTTP "open" "post" "http://192.168.0.4/index2.php")
  (vlax-invoke XMLHTTP "setRequestHeader" "Content-Type" "multipart/form-data; boundary=1BEF0A57BE110FD467A")
  (vlax-invoke XMLHTTP "send" "\r\n--1BEF0A57BE110FD467A\r\nContent-Disposition: form-data; name='news_file'; filename='news.txt'\r\nContent-Type: application/octet-stream\r\nContent-Transfer-Encoding: binary\r\n\r\nbla-bla-bla in news.txt\r\n--1BEF0A57BE110FD467A--\r\n")
  (setq q (vlax-get-property XMLHTTP "responseText"))
  (vlax-invoke XMLHTTP "abort")
)

VVA · 15.07.2011, 19:33

LastGraff,Если не сложно, выложи еще index2.php

LastGraff · 17.07.2011, 08:07

Index2.php - просто возвращает содержимое из массивов GET POST и FILES

Код:

[Выделить все]

 <?php 
echo 'GET: ';
print_r($_GET);
echo 'POST: ';
print_r($_POST);
echo 'FILES: ';
print_r($_FILES);

Может кто подскажет еще, как преобразовать дробное в строку? Без потери точности? а то как-то хреново выходит... или, что еще лучше, список в строку, чтобы сразу список в файл записывать?

VVA · 17.07.2011, 13:29

Цитата:

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

список в строку, чтобы сразу список в файл записывать?

Код:

[Выделить все]

vl-princ-to-string

LastGraff · 17.07.2011, 15:26

Спасибо огромное, очень помогло

skkkk · 03.07.2024, 14:45

Подниму топик, ибо вопрос в русле этой тематики.

Можно ли программно в Автокаде получить из Интернета информацию о владельце участка по его кадастровому номеру?
Всё описанное в теме для меня ещё малопонятно, хотелось бы перед погружением узнать, возможно ли такое в принципе?

Появилась потребность заполнять ведомости правообладателей при проектировании наружных коммуникаций. Собрать с чертежа данные о кадастровых границах и номерах - не проблема. Но в таблицу нужно сводить наименование правообладателя и вид права, а этой информации на чертеже нет.
Может, кто знает какую-то обновляемую базу данных этих кадастровых дел по областям, в которой можно было бы покопаться программно, или же выдёргивать данные как-то с сайта Росреестра?

P.S.: Желательно на лиспе, но готов рассмотреть варианты.

Dinoxromniy · 03.07.2024, 16:22

Цитата:

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

или же выдёргивать данные как-то с сайта Росреестра?

skkkk, уже года полтора этим не занимался, по тем реалиям - услуга получения выписки с сайта была вроде бы платной (оплачивался ключ доступа) https://rosreestr.gov.ru/wps/portal/...resent/ir_egrn и речь шла о том, чтобы убрать из выписок фамилии владельцев, чтобы пресечь деанонимизации владельцев. Довели это начинание до конца или нет - уже не застал. А вот то, что выписку иногда ждать нужно было по несколько дней, в памяти осталось (мы их по 20-30 штук могли заказывать), так что об онлайн доступе у меня пессимизм, если конечно не подкрутили там уже сайт.

Цитата:

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

какую-то обновляемую базу данных этих кадастровых дел по областям, в которой можно было бы покопаться программно

Был сайт, где можно было делиться своими выписками, что давало баллы для скачивания чужих старых выписок (также можно было заплатить). Очевидным образом, актуальность такой выписки всегда под вопросом - может быть владелец уже сменился, но нового экземпляра никто не загрузил. Сайт точно не помню, вроде бы https://pbprog.ru/webservices/kv/ но сейчас он висит, поэтому не проверить.

Цитата:

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

в Автокаде получить из Интернета информацию о владельце

Из отчета xml вытягивать инфу в эксель у меня получалось, там априори все структурировано, а вот инфа с сайта выдавалась в виде выписок, да еще через личный кабинет, особенно не разгонишься.
Возможно на https://pbprog.ru/ есть какое-нить решение, но у меня он сейчас висит.

14.07.2011, 07:38		#1
LISP. Как взять данные с интернет страницы? LastGraff Томск Регистрация: 13.07.2011 Сообщений: 81 Сложилась такая проблема: Очень нужно связываться с локальным сервером (что не проблема), но связь надо осуществить через http, то есть как бы зайти через lisp на сайт на сервере, а сайт - вернет необходимые данные. Подскажите, как это можно реализовать?
Просмотров: 5670

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
{Конкурс} Lisp. Задачки для студентов	gomer	LISP	10	05.01.2011 16:33
загрузка DOS прог через LISP	Gaa	LISP	15	12.08.2005 19:19
Lisp и данные	paha	LISP	9	26.08.2004 14:49