Hi,
I have a problem with "run" function.
When I use this function to call an external program, it runs the external program, but does not wait external program to end.
Is there any solution for this problem.
Best regards.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
We always just open a response window and in place the run command in the open (or other) event. The response window as you know causes the processing to stop. The trick is determining when the processing (from your Run command) is complete (like existence of a file, etc.) and closing the response window to let processing continue.
HTH
Rich
kisv,
I was thinking more about how you would close the response window when your process ends...
The easiest way is a timer event that checks for existence, non-existence of a file, etc. But if you have no control over what this external program does maybe in the timer event you could call a windows API function to check and see if that "exe" is running... if so keep window open, if not close the response window and your app continues as you wanted. Of course the response window doesn't have to be visible.
HTH
Rich Bianco
Hi Kisv,
Try this:
In the called application:
1. In the application or window Open event of called
application:
string ls_handle
ls_handle = CommandParm() // get the run argument
if isnumber(ls_handle) then
il_handle = long(ls_handle)
end if
2. Sending a message for the caller application:
Post(il_handle, 1024 , wparam , lparam) (async)
Send(il_handle, 1024 , wparam , lparam) (sync)
where:
il_handle, is the handle of the caller window
wparam = 0
lparam = 0 (or a return parameter)
Must be the last activity in the called application
Send(handle, 1024, 0, 0) send a message to pbm_custom01,
Send(handle, 1025, 0, 0) send a message to pbm_custom02, ...
---
In the caller application:
1. In the caller window, define a user event mapped for
pbm_custom01
This user event will receive a message from step 2
above
2. Run the called application, passing the handle of the
window
string ls_handle
ls_handle = string(handle(parent))
Run ("pbcalled.exe " + ls_handle, minimized!)
3. The caller window still opened for receive the message
4. If the caller application is locked for the user
until the called appl ends, define the window as
response and code the close event for prevent from
closing.
5. If the caller application is free for processing,
the user will receive a message when called appl
ends
6. Put your Messagebox("title", "message") in the
user event.
HTH
ddbeira
the _spawn suite of functions in "msvcrt.dll" are used for this but their calls are a bit tricky to convert to PB external function calls. there are several version of the spawn function depending on they calling environment and flags, one of the flags deterimines wether the calling thread pauses and waits for the called app to execute.
Do you need to pass params? one of the params of one of the veriosn of spawn requires a pointer to array of char *( an array of strings in C ), i'm not sure you can pass that in PB.
I think the easiest way would be to write you params to a file, when your called app is run have it open the file exclusivly, then get your PB app to loop attempting to open the file, remember to call yield() in your loop to give the os a chance to process messages. So when your called app finsishes it writes it results back to the locked file, closes it and exits.
You pb loop should then finish and grab the results back, also remember to code in a timeout if you can reasonably predict the behaviour of the other program.
Hi kisv,
I use the following for Dos programms....
- Create two structures
- Create a non-visual object (ex unv_dos).
- Copy the declarations in Declarations Local External Functions
- Create a object function of_run_dos and copy the script you find below into this function
- save the object
Now you can create the non-visual object where you need it as follows:
unv_dos lnv_dos
string ls_command
lnv_dos = CREATE unv_dos
ls_command = 'c:\dos\mybatch.bat parm1 parm2'
lnv_dos.uf_run_dos(ls_comm
DESTROY lnv_dos
This works great.
Good luck!
Hans
--------------------------
//Structures
global type str_process_information from structure
unsignedlong hprocess
unsignedlong hthread
unsignedlong dwprocessid
unsignedlong dwthreadid
end type
global type str_startupinfo from structure
unsignedlong cb
string lpreserved
string lpdesktop
string lptitle
unsignedlong dwx
unsignedlong dwy
unsignedlong dwxsize
unsignedlong dwysize
unsignedlong dwxcountchars
unsignedlong dwycountchars
unsignedlong dwfillattribute
unsignedlong dwflags
unsignedlong wshowwindow
unsignedlong cbreserved2
string lpreserves2
unsignedlong hstdinput
unsignedlong hstdoutput
unsignedlong hstderror
end type
//Declarations (Local External Functions)
Function ulong CreateProcessA (ref string lpApplicationName, ref string lpCommandLine, ulong lpProcessAttributes, ulong lpThreadAttributes, boolean bInheritHandles, ulong dwCreationFlags, ref any lpEnvironmment, ref string lpCurrentDirectory, ref str_startupinfo lpStartupInfo, ref str_process_information lpProcessInformation ) library "KERNEL32.DLL"
Function ulong CloseHandle ( ulong hObject ) Library "KERNEL32.DLL"
Function ulong WaitForSingleObject ( ulong hHandle, ulong dwMilliseconds ) Library "KERNEL32.DLL"
Function ulong WaitForInputIdle ( ulong hProcess, ulong dwMilliseconds ) Library "USER32.DLL"
//Function (object function)
// Parameters: 1) command line string, 2) Boolean wait indicator
Constant Long INFINITE = -1
Constant Long NORMAL_PRIORITY_CLASS = 32
Constant Long WAIT_TIMEOUT = 258
ulong res, res2
string nullString
any environ
str_startupinfo sinfo
str_process_information pinfo
long return_value = 1
SetPointer(HourGlass!)
environ = 0
setnull(nullstring)
sinfo.cb = Len(string(sinfo))
SetNull(sinfo.lpReserved)
SetNull(sinfo.lpDesktop)
SetNull(sinfo.lpTitle)
sinfo.dwFlags = 1
sinfo.wshowwindow = 2
res = CreateProcessA(REF nullString, REF as_app_to_run,0,0,TRUE,nor
if res = 0 Then
return_value = -1
goto scriptexit
end if
if ab_wait Then
WaitForInputIdle(pinfo.hPr
CloseHandle(pinfo.hThread)
Do
res2 = WaitForSingleObject(pinfo.
Yield()
if res2 <> wait_timeout Then
exit
end if
Loop While True
CloseHandle(pinfo.hProcess
end if
Scriptexit:
return return_value
OleObject test
integer li_return
CONSTANT integer MAX = 3
CONSTANT integer MIN = 2
CONSTANT integer NORMAL = 1
CONSTANT boolean WAIT = TRUE
CONSTANT boolean NOWAIT = FALSE
test = CREATE OleObject
li_return = test.ConnectToNewObject( "WScript.Shell" )
li_rc = test.Run("Notepad" , NORMAL, WAIT)
messagebox("hello", "")
Business Accounts
Answer for Membership
by: BhattiPosted on 2002-11-01 at 06:23:35ID: 7396521
Please let us know how you are using run command and which external program ou want to run.