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. > > >
