Hank
We do this extensively. Regretfully it is the sort of consultancy we charge people for, so posting answers here would be unfair to those who have paid. Similarly customers for whom we have done this cannot post our code due to copyright restrictions.
BTW saw the Megamation brochure today at RevSoft UK - very nice looking stuff!
[email protected]
Sprezzatura Ltd
World Leaders in all things RevSoft
When do you want to reboot today?[/b]
</QUOTE>
—-
=== At 18 AUG 1998 05:54PM DSig (SigSolutions) wrote: ===
<QUOTE>BRAVO Jeff …
Hank,
If jeffs stuff isn't enough, I have just gotten a script from a friend and once I go through it (this week) I will be happy to pass it on for gleaning information …
You have to remind me towards the end of the week if you still need it.
DSig
David Tod Sigafoos ~ SigSolutions
[email protected]
</QUOTE>
—-
=== At 24 AUG 1998 12:42PM Cameron Revelation wrote: ===
<QUOTE>Hank,
The following is from our own upgrade scripts using 16-bit InstallShield. A white paper is in the works (pun intended) on just this subject. Hope it helps!
Cameron Purdy
Revelation Software
<code>
<code>
prototype OE_Running();
prototype OE_Process();
prototype rdkinstp.StartOIPanel(HWND, STRING, STRING);
prototype rdkinstp.RunOICommand(HWND, STRING);
prototype rdkinstp.RunOICommandPanel(HWND, STRING);
prototype rdkinstp.ShutdownOI();
…
if (OE_Running()) then
SetupError("You must close OpenInsight before running the upgrade.");
endif;
…
function OE_Running()
begin
return (FindWindow("Arev", "") ] 0);
end;
function OE_Process()
HWND hWindow;
STRING szAccount, szCommand, szTargetDir, szMessageText;
INT nRetVal;
BOOL bError;
begin
ChangeDirectory(szTarget); must be set for engine to boot up
UseDLL(SUPPORTDIR ^ "RDKINSTP.DLL");
hWindow =GetWindowHandle(HWND_INSTALL);
szAccount =SYSPROG";
szTargetDir=szTarget;
StrRemoveLastSlash(szTargetDir);
nRetVal =StartOIPanel(hWindow, szAccount, szTargetDir);
bError=FALSE;
if (nRetVal) then
if (!OE_Running()) then
bError=TRUE;
endif;
else
bError=TRUE;
endif;
if (!bError) then
szCommand=RUN ATTACH_TABLE '" + SUPPORTDIR + "' ,''";
nRetVal =RunOICommand(hWindow, szCommand);
szCommand=RUN COPY_ROW 'SYSUPGRADE','%PROGRAM%','SYSOBJ','$UPDATE_OI','2'";
nRetVal =RunOICommand(hWindow, szCommand);
szCommand=RUN UPDATE_OI";
nRetVal =RunOICommandPanel(hWindow, szCommand);
ShutdownOI();
endif;
UnUseDLL(SUPPORTDIR ^ "RDKINSTP.DLL");
if (bError) then
SetupError("OpenInsight could not upgrade internal system files.\nThe upgrade will not continue.");
endif;
end;
</code>
</code>
</QUOTE>
—-
=== At 25 AUG 1998 01:45PM L B Porch wrote: ===
<QUOTE>Hank,
RTI's script is just fine as long as you are only working with SYSPROG. It won't work for other accounts unless you attach the account information. RTI supplied this fix to me several months ago on this Discussion List.
After the line:
nRetVal =StartOIPanel(hWindow, szAccount, szTargetDir);
you need to insert this code to attach your account information:
szOICommand=RUN SETAPPID '" + szAccount + "'";
nRetVal=RunOICommand( hWindow, szOICommand );
Then you can run:
szOICommand=RUN RDKINSTALL '" + SUPPORTDIR + "','" + szAccount + "'"
nRetVal=RunOICommandPanel( hWindow, szOICommand );
Hope this helps…know how frustrating it can be.
Been there,
Lisa
</QUOTE>
—-
=== At 25 AUG 1998 03:32PM DSig (SigSolutions) wrote: ===
<QUOTE>Lisa ..
Don't give out all the secrets .. you can't bill them if you educate them
dsig
David Tod Sigafoos ~ SigSolutions
[email protected]
</QUOTE>
—-
=== At 03 SEP 1998 09:45AM Hank Huizinga wrote: ===
<QUOTE>To All, thanks for your help.
ps. Lisa, don't listen to David.
</QUOTE>
View this thread on the forum...