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.
--- RBASE-L
================================================
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]
(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
================================================
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
================================================
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
================================================
