[kp+]

Помогите, PLSб запустить LISP, использующий ADODB.Stream
Собственно, код здесь: http://forum.dwg.ru/showthread.php?t=71123, пост 3.
Компилятор на него не ругается, но при выполнении вываливается ошибка: ** Error: Ошибка Automation. Отсутствует описание. **
Создать объект явно не получается
Возможно, в системе что-то не установлено или не загружено. Но что - не понимаю.

На сразу возникающие вопросы спешу ответить:
1) возможно, на первоисточнике (theswamp.org) есть рецепт, но попасть туда сложнее, чем на личный прием к президенту
2) Поиск по форуму прямых ответов не дал.
3) Если действовать "в лоб"

Код:

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

 (setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))

то объект ADODB.Stream создается. Но код, который надо запустить, слишком сложен для меня, чтобы так запросто прикрутить туда создание объекта

[Vov.Ka]

Код:

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

(defun vk_ReadBinStream	(FileName / ADODBStreamObj Result)
  (if (and (setq FileName (findfile FileName))
	   (setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))
      )
    (progn (setq Result	(vl-catch-all-apply
			  (function
			    (lambda ()
			      (vlax-put ADODBStreamObj "Type" 1)
			      (vlax-invoke ADODBStreamObj "Open")
			      (vlax-invoke ADODBStreamObj "LoadFromFile" FileName)
			      (vlax-invoke-method ADODBStreamObj "Read" :vlax-true)
			    )
			  )
			)
	   )
	   (vlax-release-object ADODBStreamObj)
	   (if (not (vl-catch-all-error-p Result))
	     Result
	   )
    )
  )
)
(defun vk_WriteBinStream (BinStream FileName / ADODBStreamObj Result)
  (if (setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))
    (progn (setq Result	(vl-catch-all-apply
			  (function
			    (lambda ()
			      (vlax-put ADODBStreamObj "Type" 1)
			      (vlax-invoke ADODBStreamObj "Open")
			      (vlax-invoke-method ADODBStreamObj "Write" BinStream)
			      (vlax-invoke ADODBStreamObj "SaveToFile" FileName 2)
			    )
			  )
			)
	   )
	   (vlax-release-object ADODBStreamObj)
	   (if (not (vl-catch-all-error-p Result))
	     FileName
	   )
    )
  )
)
(defun vk_DownloadFile (RemoteFileName LocalFileName / objHTTP Result)
  (if (setq objHTTP (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))
    (progn (setq Result	(vl-catch-all-apply
			  (function (lambda ()
				      (vlax-invoke-method
					objHTTP	"Open" "GET" RemoteFileName :vlax-false)
				      (vlax-invoke objHTTP "Send")
				      (vlax-get-property objHTTP "ResponseBody")
				    )
			  )
			)
	   )
	   (vlax-release-object objHTTP)
	   (if (not (vl-catch-all-error-p Result))
	     (vk_WriteBinStream Result LocalFileName)
	   )
    )
  )
)
;;;(command "._SHELL"
;;;	 (vk_DownloadFile "http://khm.google.com/kh/v=58&hl=ua&x=9344&y=5503&z=14"
;;;			  (vl-filename-mktemp nil nil ".jpg")
;;;	 )
;;;)

[kp+]

О, спасибо! Ситуация проясняется