ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Сгенерированную CSP-страницу сохранить в виде HTML
20 сообщений из 20, страница 1 из 1
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424366
CSPask
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSPask
Гость
Добрый день. Имеется более 100 видов анализов, которые хранятся в своих классах и каждый распечатывается своей CSP-страницей. Хочется организовать архив, состоящий из одного простого класса. В этот класс выгружать поисковые признаки (ФИО, дата) и ссылку на HTML-страницу, которая соответствует сгенерированной печатной CSP-странице.
Можно ли в цикле пройтись по всем анализам, создавая для каждого запись в архивном классе, и при этом генерировать и сохранять HTML-страницы из соответствующих CSP-страниц ?
...
Рейтинг: 0 / 0
22.01.2010, 09:55
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424632
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
CSPask , а что такое "все анализы"?
...
Рейтинг: 0 / 0
22.01.2010, 11:33
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424762
CSPask
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSPask
Гость
krvsa все - это значит, что для всех 30000 анализов за месяц нужно в цикле создать архивную запись с поисковыми признаками и страницу HTML с печатным вариантом (ФИО, перечень показателей с их значениями,...).
...
Рейтинг: 0 / 0
22.01.2010, 12:09
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424878
Фотография ну я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ну я
Участник
В классе %SYSTEM.CSP есть функция
classmethod Show(url As %String, flags As %String = "") as %String
Предположительно, если для каждой страницы для сохранения сформировать url с параметрами, и имя файла куда сохранять страницу, и сделать этот файл текущим устройством, то как-бы...
...
Рейтинг: 0 / 0
22.01.2010, 12:42
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424909
CSPask
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSPask
Гость
ну я, Спасибо - буду пробовать.
...
Рейтинг: 0 / 0
22.01.2010, 12:53
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424943
Блок А.Н.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Блок А.Н.
Участник
не, че-то мне кажется Show не подойдет
может %Net.HttpRequest?
...
Рейтинг: 0 / 0
22.01.2010, 13:02
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424963
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
CSPaskвсе - это значит, что для всех 30000 анализов за месяц
Просто хочу узнать что такое "анализы" вообще...
...
Рейтинг: 0 / 0
22.01.2010, 13:06
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36424996
CSPask
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSPask
Гость
krvsa, анализ мочи, крови и так далее...
...
Рейтинг: 0 / 0
22.01.2010, 13:13
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425093
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Вона она че... Медицинская задачка оказывается... А то думаю может запосы какие SQLные храните и т.п...
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
22.01.2010, 13:41
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425123
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Блок А.Н.может %Net.HttpRequest?
Вот эта штука вреде читать должна...

Код: plaintext
1.
2.
3.
4.
5.
Set httprequest=##class(%Net.HttpRequest).%New()
Set httprequest.Port= 1972 
// это параметры для страницы указывают
Do httprequest.SetParam("PAGE","INDEX")
Do httprequest.Get("/csp/docbook/%CSP.Documatic.cls")
Do httprequest.HttpResponse.OutputToDevice()
Вот только как это вывести на экран или файл что-то я не понял...
...
Рейтинг: 0 / 0
22.01.2010, 13:50
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425175
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Хотя... Вот этот код

Код: plaintext
1.
2.
3.
4.
5.
6.
 Set http = ##class(%Net.HttpRequest).%New()
 Set http.Server = "192.168.10.41"
 Set http.Port =  57772 
 Do http.Head("/ver/info.csp")
 Do http.HttpResponse.OutputToDevice()
 Do http.%Close()
 q

Из моей странички прочитал только вот это...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
HTTP/ 1 . 0   404  Object Not Found
CACHE-CONTROL: no-cache,no-store
CONNECTION: close
CONTENT-TYPE: text/html
EXPIRES: Thu,  29  Oct  1998   17 : 04 : 19  GMT
PRAGMA: no-cache
 
<HTML><HEAD>
<TITLE>Object Not Found</TITLE>
</HEAD><BODY>
<H1>Object Not Found</H1>
The requested URL /ver/info.csp was not found on this server.<P>
</BODY></HTML>

Но это не есть содержимое при просмотре браузером.
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
22.01.2010, 14:01
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425195
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Такую же информацию выдает и

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
>D $System.CSP.Show("/ver/info.csp")

CacheSP: chd= 1 ;
HTTP/ 1 . 0   404  Object Not Found
Content-type: text/html
Expires: Thu,  29  Oct  1998   17 : 04 : 19  GMT
Cache-Control: no-cache,no-store
Connection: close
Pragma: no-cache
 
<HTML><HEAD>
<TITLE>Object Not Found</TITLE>
</HEAD><BODY>
<H1>Object Not Found</H1>
The requested URL /ver/info.csp was not found on this server.<P>
</BODY></HTML>
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
22.01.2010, 14:06
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425234
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
А вот такая парочка сработала!

Код: plaintext
1.
SAMPLES>Do $SYSTEM.CSP.LoadPage("/csp/samples/loop.csp","ck")
SAMPLES>D $System.CSP.Show("/csp/samples/loop.csp")

На текущее устройство был выведен текст странички.
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
22.01.2010, 14:14
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425265
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Вот таким кодом файлик сформировал...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
tmp ;;;;[  22 / 01 / 2010   14 : 20  ]
 s url="/vers/info.csp"
 d $SYSTEM.CSP.LoadPage(url,"ck")
 s fl=$$FOpen^ASYS("\\ksa\box\temp.html")
 u fl
 d $System.CSP.Show(url)
 c fl 
 q
FOpen(File,Typ,Byte,Sym)               ; * Открыть файл *
 S Typ=$G(Typ,"WNS")
 S:Typ="W" Typ="WNS"
 S:Typ="R" Typ="RS"
 S Sym=$G(Sym)
 I $ZU( 68 , 40 , 1 )
 q:":\/"[$e(File,$l(File)) ""
 I Sym'="" O File:(Typ::Sym): 0  Q:$T File Q ""
 O File:(Typ::""): 0 
 Q:$T File
 Q ""
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
22.01.2010, 14:23
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425458
CSPask
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSPask
Гость
Спасибо за участие, у меня всё получилось (через оба способа).
...
Рейтинг: 0 / 0
22.01.2010, 15:05
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425707
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
CSPask , покажи как сделал через %Net.HttpRequest ...
...
Рейтинг: 0 / 0
22.01.2010, 16:17
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425763
doublefint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
doublefint
Участник
Есть примерчик, читал внешний XML источник, поэтому вывод в объекты через парсер
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
        s httprequest=##class(%Net.HttpRequest).%New()
	s httprequest.Server="www.somewhere.by" ;cервер
	d httprequest.SetParam("TYP","D0") ;параметры
	d httprequest.SetParam("TOP","100") 
	d httprequest.SetParam("NAME",name_"%")
	d httprequest.Get("/page.xml") ;получить страничку 
	if '$IsObject(httprequest.HttpResponse) {
		d httprequest.%Close()	
		s httprequest=""
		q
	}
	
        ;Вместо нижеследующего можно писать поток из httprequest.HttpResponse.Data в файл
	Set xmlr = ##class(%XML.Reader).%New()
        set res = xmlr.OpenStream(httprequest.HttpResponse.Data) ;неплохо бы проверить res
	
        d xmlr.Correlate("TagName","My.Object") ;ищем в ответе тэг и с объектом класса

        s object="", sc=""
        while xmlr.Next(.object,.sc) { ;читаем объекты
    	 q:'sc  ;если проблемы с парсингом
         ;do something with object, for example:  
         d object.%Save()
        }
	do xmlr.Close(),xmlr.%Close()
	d httprequest.%Close()	
	
	q $$$OK
...
Рейтинг: 0 / 0
22.01.2010, 16:37
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36425796
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Ясно...
С теми двумя методами попроще, если все на этом же сервере и находится... Если на другом - только тат.
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
22.01.2010, 16:48
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36428084
CSPask
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CSPask
Гость
krvsa, Вот программа с тестом.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
myResp()
    // запускал из терминала

	w "resp.mac начало",!  // это видно на терминале начало
		
	Set httprequest=##class(%Net.HttpRequest).%New()
	Set httprequest.Port= 8972 
	do httprequest.SetParam("Par1","gggg")   // передаю один параметр
	Do httprequest.Get("/csp/user/resp.csp") // запрос тестовой CSP-страницы
  
	set file="respon.html"           // имя файла, куда хочу выводить HTML
        Open file:(/CREATE:/WRITE) // создаю файл для вывода HTML и ...
        Use file                             // ...делаю его текущим для вывода...
 	do httprequest.HttpResponse.OutputToDevice()  // вывод HTML в текущее устройство(файл)
        close file                            // закрыл выходной файл

            w "END resp.mac ",! // это видно на терминале конец
  quit
В результате получается в файле HTML с несколькими "лишними" строками впереди. Идея работает, а детали дальше уже под свои каталоги.
...
Рейтинг: 0 / 0
25.01.2010, 06:24
| Ответить | Цитировать | Написать  
Сгенерированную CSP-страницу сохранить в виде HTML
    #36428132
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Учто и это, если приспичит, спасибо...
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
25.01.2010, 08:32
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Сгенерированную CSP-страницу сохранить в виде HTML
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]