West Wind Internet and Client Tools
Action can't complete when web server not running
I had download the latest version wwclient 7.14 Testing program is running properly when web server is running, will prompt this message when web server is not running : after that prompt this :
coding :
SET PATH TO c:\wwclient, c:\wwclient\progs, c:\wwclient\classes
DO wwUtils && Demo only
DO wwDotnetBridge && Load dependencies
do wwJsonSerializer
PUBLIC loBridge as wwDotnetBridge
PUBLIC p_startSecond
loBridge = GetwwDotnetBridge("V4")
*** Create a built-in .NET class
loHttp = loBridge.CreateInstance("System.Net.WebClient")
*** Create as callback object - object has to be 'global'
*** so it's still around when the callback returns
*** Use Public or attach to long lived object like form or _Screen
PUBLIC loCallback
p_startSecond = SECONDS()
loCallBack = CREATEOBJECT("HttpCallback")
*** Make the async call - returns immediately
loBridge.InvokeMethodAsync(loCallback, loHttp,"DownloadStringTaskAsync","http://192.168.50.168:5200/testpage.wc")
*loBridge.InvokeMethodAsync(loCallback, loHttp,"DownloadData","http://192.168.50.168:5200/testpage.wc")
? "Download has started... running in background."
RETURN
*** Callback class - AsyncCallbackEvents is Optional
DEFINE CLASS HttpCallback as AsyncCallbackEvents
************************************************************************
* OnCompleted
****************************************
FUNCTION OnCompleted(lvResult, lcMethod)
? "Http Call completed"
*? "Received: " + TRANS(LEN(lvResult),"999,999,999")
*IF TYPE("lvResult.Result")!="O"
* RETURN .f.
*endif
loResult = loBridge.GetProperty(lvResult,"Result")
*lcJson = lvResult
IF !EMPTY(loResult )
loSer = CREATEOBJECT("wwJsonSerializer")
lcJson = loSer.DeserializeJson(loResult)
?lcJson
*WAIT WINDOW tran((SECONDS()- p_startSecond) /1,"999.999s")+ TYPE("loResult.entered") NOWAIT
*?lcJson.entered
*WAIT WINDOW TYPE("loResult.entered1")
&&loSer.Serialize(loResult,.T.)
? loSer.Serialize(lcJson,.T.)
endif
*** Write to file to temp folder
*STRTOFILE(lvResult,ADDBS(SYS(2023)) + "HelpBuilderSetup.exe")
*TRY
* *** Open the Zip file
* DO wwutils
* GoUrl(ADDBS(SYS(2023)) + "HelpBuilderSetup.exe")
*CATCH
*ENDTRY
*CLEAR EVENTS
ENDFUNC
************************************************************************
* OnError
****************************************
FUNCTION OnError(lcErrorMessage, loException, lcMethod)
? lcErrorMessage
ENDFUNC
ENDDEFINE
Please format your code in your message as described in the big fat message above the Post button.
+++ Rick ---
Hi, I think the coding is descript in Big fat message already. I hope I did correctly.
Well you're making an HTTP request and the server is failing with an HTTP 500 response.
Check what the server is doing... Not much we can do to help you with this failure - you need to debug your server code.
+++ Rick ---