Hi, Mike,
I have no experience at all in Delphi, but if I understand it well, with
your DLL I could simply pass the variables from r:base to the VBS code and
execute it.
This sounds like exactly what I need.
At this moment I only need to communicate from R:base > Efilm.
Maybe I could need some more of your help to get it implemented......;-)
Thanks a lot.
Luc Delcoigne
----- Original Message -----
From: "Mike Byerley" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 02, 2010 3:52 PM
Subject: [RBASE-L] - re: connection to efilm
I have a Delphi DLL that is a Wrapper for the MS Script Control which
would
enable you to manipulate the ActiveX object from RBase lines of code and
return variables from the object to RBase. All return values are of type
TEXT, so type conversion has to occur on the RBase side.
I demonstrated this a few years ago at the Developers Conference using MS
Word as a proof of concept. Since then, I have massaged it a bit.
If you declare the DLL in the beginning of the RBase Session, you can
access
it any time during the RBase Session, which gives you access to the
entire
spectrum of VBScript anywhere in your RBase code.
You can DIM objects / variables from RBase code on the fly, or
alternatively
load an entire bunch of Subs and Functions and call them from RBase code
by
name and arguments.
If this sounds like it might work for you, let me know. Before sending
it
off to you, I would need to put it through its' paces here to be certain
I
didn't leave anything unhinged as it has been a while since I worked on
the
source code.
----- Original Message -----
From: "Luc Delcoigne" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 02, 2010 8:28 AM
Subject: [RBASE-L] - re: connection to efilm
HI,
I have to make this Access-code work in R:Base 9.0.
in a patient file I have set up a button which executes the following
code
on click:
Public Sub Efilm()
Dim EfilmObj As Object
Dim var As Boolean
Dim varefilm As Boolean
Dim vpatID As String, vcon As String, bCloseCurWindow As Boolean,
bAddToWindow As Boolean, nSeriesRows As Integer, nSeriesCols As Integer,
nImageRows As Integer, nImageCols As Integer, bAutoSeriesFormat As
Boolean,
bAutoImageFormat As Boolean
Set EfilmObj = CreateObject("Efilm.Document")
vpatID = Forms![InterfaceNieuw]![Patiënten].Form![Punieknummer]
vcon = Forms![InterfaceNieuw]![Consultatie].Form![Consultnummer]
bCloseCurWindow = True
bAutoSeriesFormat = False
bAutoImageFormat = False
nSeriesRows = 1
nSeriesCols = 2
nImageRows = 1
nImageCols = 1
varefilm = EfilmObj.oleOpenStudy(vpatID, vcon, bCloseCurWindow,
bAddToWindow, nSeriesRows, nSeriesCols, nImageRows, nImageCols,
bAutoSeriesFormat, bAutoImageFormat)
varefilm = EfilmObj.oleSetForegroundWindow
End Sub
Could any-one please help me to get this work in R:Base ?
I have to pass the variables vPatID and vcon from the database to efilm,
as
these two parameters are needed to bring up the X-rays of the right
patient.
Maybe it's simple...No idea.
Thanks a lot everybody ...
Luc Delcoigne
PS: 36°c...way too hot to think straight over here.
