;;;;;;read file
;;;USE "ADODB.STREAM" TO READ [BINDATA],THEN USE "vlax-safearray->list" AND "vlax-variant-value" turn TO [TEXTDATA]
(defun yad-rstream(file / stream rtn)
(setq stream (vlax-get-or-create-object "ADODB.stream"))
(vlax-put-property stream 'type 1)
(vlax-invoke stream 'open)
(vlax-invoke-method stream 'loadfromfile file)
(vlax-put-property stream 'position 0)
(setq rtn (vlax-safearray->list (vlax-variant-value (vlax-invoke-method stream 'read (vlax-get stream 'size)))))
(vlax-release-object stream)
rtn
)
but when i use "vlax-safearray-fill" and "vlax-make-safearray" turn [textdata] to [bindata], and use "write" /"savetofile" with "ADODB.tream" ,it is also has something wrong....
who can help me finish the "yad-wstream" function,thank you!
