[RBASE-L] - re: connection to efilm

Fri, 02 Jul 2010 08:10:35 -0700 

For the time being, just on the laptop I use for development.
once everything is set up, it will have to run on one, maybe two PC's, where the efilm is also installed. 

--------------------------------------------------
From: "Mike Byerley" <[email protected]>
Sent: Friday, July 02, 2010 4:47 PM
To: "RBASE-L Mailing List" <[email protected]>
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.
>>
>>
>>
>
>

Reply via email to