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