ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ZEN
5 сообщений из 80, страница 4 из 4
  4  все
ZEN
    #36277730
mr.Partizan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mr.Partizan
Гость
servitУберите атрибут method у формы. Он появился в Caché 2010.1.
Убрал, компилируется вроде как нормально.
Но все равно работать не хочет (, пишет:

A run-time error occurred while executing the page

Error: <METHOD DOES NOT EXIST>%OnSubmit^GTS.OPS.1 *%GetStream,%ZEN.Submit
ErrorNo: 5002
CSP Page: /csp/gts_train/GTS.OPS.cls
Namespace: GTS_TRAIN
Class: GTS.OPS
Routine: GTS.OPS.1
Location: %OnSubmit
Line: %OnSubmit(pSubmit) public { set stream=pSubmit.%GetStream("FileStream")
...
Рейтинг: 0 / 0
28.10.2009, 15:57
| Ответить | Цитировать | Написать  
ZEN
    #36277825
servit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
servit
Участник
Метод %GetStream появился в версии 2009.1.

Попробуйте заменить строку
Код: plaintext
set stream=pSubmit.%GetStream("FileStream")
на
Код: plaintext
set stream=$G(%request.MimeData("$V_FileStream", 1 ))
...
Рейтинг: 0 / 0
28.10.2009, 16:38
| Ответить | Цитировать | Написать  
ZEN
    #36278567
mr.Partizan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mr.Partizan
Гость
servit
Попробуйте заменить строку
Код: plaintext
set stream=pSubmit.%GetStream("FileStream")
на
Код: plaintext
set stream=$G(%request.MimeData("$V_FileStream", 1 ))

Заменил, теперь ошибка такая:
A run-time error occurred while executing the page

Error: <INVALID OREF>%OnSubmit+1^GTS.OPS.3
ErrorNo: 5002
CSP Page: /csp/gts_train/GTS.OPS.cls
Namespace: GTS_TRAIN
Class: GTS.OPS
Routine: GTS.OPS.3
Location: %OnSubmit+1
Line: set %session.Data("streamSize")=stream.Size
...
Рейтинг: 0 / 0
29.10.2009, 06:46
| Ответить | Цитировать | Написать  
ZEN
    #36281805
servit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
servit
Участник
Ошибка возникает, потому что Вы не передали файл. Эту ситуацию нужно обрабатывать.
Высылаю пример для версии 2007.1.
...
Рейтинг: 0 / 0
30.10.2009, 11:34
| Ответить | Цитировать | Написать  
ZEN
    #36288467
mr.Partizan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mr.Partizan
Гость
servitОшибка возникает, потому что Вы не передали файл. Эту ситуацию нужно обрабатывать.
Высылаю пример для версии 2007.1.
Все отлично, пример работает.
На самом деле я хотел переделать имеющуюся у меня CSP-страницу в ZEN-страницу, но чего-то у меня не получается.
Вот CSP:
Код: 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.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
<html>
<head>
<title></title>
</head>
<body>
<form enctype="multipart/form-data" method="post">
	Файл   :<input type=file size= 30  name=FileStream><BR><BR>
	Процесс:<input type=text name=proc size= 30 >
	<input type="submit" value="Загрузить!">
</form>
<script language="cache" runat="server">
	S nm=%session.Data("Surname")
	S nik=%session.Data("nik")
	I nm'="" D
	.W "<BR>Здравствуйте ",$$DosToWin^io1(%session.Data("Surname")),"<BR><BR>"
	.;
	.I %request.Get("proc")'="" D  Q
	..S proc=%request.Get("proc")
	..I '^aIm5(proc) D
	...W "<br>Процесс загрузки =",proc
	...W "<br>Последняя загруженная строка =",$zp(^aIm5(proc,1,""))
	...W "<br>Последняя ошибочная   строка =",$zp(^aIm5(proc,0,""))
     	..I ^aIm5(proc)  D f^aIm5(%request.Get("proc"))
	.;
	.I (^aSet("file")&(nik'="nik")) W "<BR><font color=red>не работает<font>"  Q	
	.S obj=%request.MimeData("FileStream", 1 )
 	.S stream=##class(%Library.FileCharacterStream).%OpenId(obj)
	.I stream'["CSP" D   Q
	..W "<br>Файл не выбран!"
	.;
	.S fname=stream.FileName
	.S proc=$I(^aIm5)
	.K ^aList($p,proc)
	.I $$low^a($P(fname,".",2))="xml" D dparse^a2(obj,$na(^aList($p,proc)))
	.I $$low^a($P(fname,".",2))="csv" D csv^aIm5(proc)
	.D stream.%Close()
	.;
	.I $D(^aList($p,proc))'= 11  D  Q
	..W "<br>Неправильный формат файла!"
	.;
	.I $D(^aList($p,proc))= 11   J S^aIm5($na(^aList($p,proc)),proc,%session.Data("Surname"),fname,%session.Data("Surname"))
	.W "<br>Процесс загрузки :",proc
</script>
</body>
</html>

В ZEN не могу получить работающую ссылку на прикрепленный файл чтобы выполнить D dparse^a2(obj,$na(^aList($p,proc)))
...
Рейтинг: 0 / 0
03.11.2009, 14:40
| Ответить | Цитировать | Написать  
5 сообщений из 80, страница 4 из 4
  4  все
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ZEN
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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