Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to launch site?
Message
From
30/01/2023 13:25:42
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01686010
Message ID:
01686017
Views:
50
Hello Dmitry

>>Hello all,
>>
>>I will have a button on form. When the user clicks that button I want to launch where the user can make it's payment.
>>
>>My app is on WIndows Server 2016.
>>
>>So far someone gave me this code
>>
>>
>>lParameters tcURL, tcAction
>>tcUrl = IIF(type("tcUrl")="C",tcUrl,"https://square.link/u/HereCodeForThePersonWhowillBePaid")
>>tcAction = IIF(type("tcAction")="C",tcAction,"Open")
>>IF type("Application.StartMode") = "N" AND !inlist(Application.StartMode,2,3,5)
>>  *  UI only when not being called from a COM server
>>  WAIT WINDOW "Loading " + tcURL + " ..." NOWAIT
>>ENDIF
>>DECLARE INTEGER ShellExecute IN SHELL32.dll ;
>>     INTEGER nWinHandle, ;
>>     STRING cOperation, ;
>>     STRING cFileName, ;
>>     STRING cParameters, ;
>>     STRING cDirectory, ;
>>     INTEGER nShowWindow
>>DECLARE INTEGER FindWindow IN WIN32API ;
>>     STRING cNull, ;
>>     STRING cWinName
>>RETURN ShellExecute(FindWindow(0,_Screen.Caption),tcAction,tcUrl,"",SYS(2023),1)
>>
>>
>>First time I executed that code I received this : Declare DLL caused an exception
>>Second time I executed my VFP session froze.
>>
>>Suggestion?
>>
>>Regards
>
>Hi Denis,
>
>I have this code and it works:
>
>
>DECLARE INTEGER ShellExecute IN shell32.dll ; 
>  INTEGER hndWin, ; 
>  STRING cAction, ; 
>  STRING cFileName, ; 
>  STRING cParams, ;  
>  STRING cDir, ; 
>  INTEGER nShowWin
>
>cURL = ALLTRIM(TableName.WEB_URL)
>cAction = "open"
>ShellExecute(0,cAction,cURL,"","",1)
>
>
>HTH

First try of your code : ShellExecute caused an exception
Second try : VFP session frozen.
*******************************************************
Save a tree, eat a beaver.
Denis Chassé
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform