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