swpruncmd() and Clipper Apps
Gunnar Wagenknecht
Anyone know how to call Blinker compiled Clipper 5.2e Apps with swpruncmd()
?
I've tried it several times but it doesn't work.
Example:
test1.exe is a Clipper5.2e application
I want to call it with a 2nd Clipper application
Cu, Gunnar
--
Gunnar Wagenknecht
http://www.planet-wagenknecht.de
http://www.niederrossla.de
PGP Key verfügbar
Ross McKenzie
<gunnar.wa...@planet-wagenknecht.de> wrote:
>Hi!
>
>Anyone know how to call Blinker compiled Clipper 5.2e Apps with swpruncmd()
>?
>I've tried it several times but it doesn't work.
>
>Example:
>
>test1.exe is a Clipper5.2e application
>I want to call it with a 2nd Clipper application
>
>Cu, Gunnar
Hello Gunnar,
From within your 2nd Clipper application issue
SwpRunCmd( "TEST1.EXE", 0, "", "C:\TEMP" )
then test for success...
Regards,
Ross McKenzie
ValuSoft
(affordable source recovery available)
(Fix1900 utility available)
(custom hardware interfaces)
www.irvis.nl
Peter M. Hill
Peter Kohler
--
Peter Kohler, Quick Software SA
peter....@pixie.co.za (home office)
pet...@quicksoftware.co.za (work)
Peter M. Hill <pete...@flash.net> wrote in message news:39AD8C2C...@flash.net...
Ross McKenzie
Firstly, would you mind turning off your html junk please?
Yes, it works.
Below is the code that I used to firstly shell out to dos from a
Clipper 5.2e/Blinker 5.1 test program and then to swpruncmd to an old
Summer 87 accounting package with a real mode .exe of 491,994 byte
size and about 10 dbfs open with multiple indexes. Runs like a dream.
Memory free (mem /c) in a Win95 sponsored DOS session before starting
the test code was 564,128 bytes. In the DOS shell it was 548,592
bytes. Didn't measure it with the accounting pacakge...it simply works
and that is good enough for me.
Here is the test code. Abuse at your leisure. Watch out for word
wrapping.
Procedure Main
local lSwapOK
do while .T.
clear screen
@ 10, 2 say "This is the calling program...any key to shell
out, Esc to quit"
if inkey(0) == 27
exit
endif
lSwapOK := SwpRunCmd( "", 0, "", "C:\TEMP")
IF !lSwapOK
Alert("Swap Run Command Error Codes;" + ;
"(DOS Shell);" + ;
"Major : " + str( swperrmaj() ) + ";" + ;
"Minor : " + str( swperrmin() ) , {"Tell ValuSoft"} )
Endif
clear screen
@ 10, 2 say "This is the calling program...any key to Mateer,
Esc to quit"
if inkey(0) == 27
exit
endif
lSwapOK := SwpRunCmd(
"D:\CLIPPER\MATEER\TESTHERE\NEWSTART.EXE", 0,
"D:\CLIPPER\MATEER\TESTHERE", "C:\TEMP")
IF !lSwapOK
Alert("Swap Run Command Error Codes;" + ;
"(Mateer);" + ;
"Major : " + str( swperrmaj() ) + ";" + ;
"Minor : " + str( swperrmin() ) , {"Tell ValuSoft"} )
Endif
enddo
Return
*********
Regards,
Ross McKenzie
ValuSoft
Melbourne Australia
On Thu, 31 Aug 2000 17:08:30 +0200, "Peter Kohler"
<peter....@pixie.co.za> wrote:
>This is a multi-part message in MIME format.
>
>------=_NextPart_000_003D_01C0136E.16632320
>Content-Type: text/plain;
> charset="iso-8859-1"
>Content-Transfer-Encoding: quoted-printable
>
>Have you got it to work??
>I tried 2 things that did not work
>1) Swap to a command window
>2) Swap and run a batch file which runs the old dos 6.22 backup .exe
>
>Each time I got some sort of error 13 (I think, it was a while back) =
>saying their was a problem with the command interpreter
>
>Can you confirm whether you are able to swap to a dos command window?
>
>Thanks Peter
>
>
>--=20
>
>Peter Kohler, Quick Software SA
>peter....@pixie.co.za (home office)
>pet...@quicksoftware.co.za (work)
>
>
> Peter M. Hill <pete...@flash.net> wrote in message =
>news:39AD8C2C...@flash.net...
> The "called" program must be in real mode.
>
> Ross McKenzie wrote:
> >=20
> > On Wed, 30 Aug 2000 20:08:58 +0200, "Gunnar Wagenknecht"
> > <gunnar.wa...@planet-wagenknecht.de> wrote:
> >=20
> > >Hi!
> > >
> > >Anyone know how to call Blinker compiled Clipper 5.2e Apps with =
>swpruncmd()
> > >?
> > >I've tried it several times but it doesn't work.
> > >
> > >Example:
> > >
> > >test1.exe is a Clipper5.2e application
> > >I want to call it with a 2nd Clipper application
> > >
> > >Cu, Gunnar
> >=20
> > Hello Gunnar,
> >=20
> > From within your 2nd Clipper application issue
> >=20
> > SwpRunCmd( "TEST1.EXE", 0, "", "C:\TEMP" )
> >=20
> > then test for success...
> >=20
> > Regards,
> >=20
Gunnar Wagenknecht
> > SwpRunCmd( "TEST1.EXE", 0, "", "C:\TEMP" )
Why does it only work with real mode apps?
Cu, Gunnar