See my reply to Jim Bently...
----- Original Message -----
From: "Dennis McGrath" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 02, 2010 11:44 AM
Subject: [RBASE-L] - re: connection to efilm
Mike,
I would also be interested in this.
We have VS so no problem there.
Thanks,
Dennis McGrath
[email protected]
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Mike Byerley
Sent: Friday, July 02, 2010 9:47 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - re: connection to efilm
BTW, How many computers have to run the program.
The MSScript Control has to be installed on any machine that has to access
the DLL.
I can redistribute the control legally as I have VS.
If it is on multiple machines, you can test for the ocx existance in the
Controls CreateObject method and if it doesn't exist, you install it at
runtime from RBase by keeping the ocx as a VarBit stored in the DB, then
copy the ocx to a local folder (you will have to figure out where it will
work if its Vista or Win7) such as System32 on XP, etc. Then in your
install, run regsvr32.exe to register the ocx.
Thereafter it will work without interruption.
----- Original Message -----
From: "Luc Delcoigne" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 02, 2010 10:26 AM
Subject: [RBASE-L] - re: connection to efilm
thank you, Mike.
Yep, that's my correct email.
Grtz
Luc
----- Original Message -----
From: "Mike Byerley" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 02, 2010 4:23 PM
Subject: [RBASE-L] - re: connection to efilm
OK.. give me a bit to look over the helpfile to be certain it matches the
current version and I'll send you a link. Is your email shown a good one
for off list?
----- Original Message -----
From: "Luc Delcoigne" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Friday, July 02, 2010 10:12 AM
Subject: [RBASE-L] - re: connection to efilm
> 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.
>>
>>
>>
>
>
