Stops an asynchronous communication channel and aborts outstanding requests of this channel.
webapi.bdh
WebAsyncStop( nAsyncHandle : number ): boolean;
Parameter | Description |
---|---|
nAsyncHandle | The handle value of the asynchronous communication channel, which was returned by a preceding WebAsyncPrepare...() function. |
true if successful
false otherwise
dclfunc function FAsyncCallback(sResponseBody : string) <ASYNC_CALLBACK_FUNCTION> begin RepMessage("MESSAGE: '" + sResponseBody + "'", SEVERITY_INFORMATIONAL); if (StrSearch(sResponseBody, "last message", STR_SEARCH_FIRST) <> 0) then UserSignal("LastMessage"); end; end FAsyncCallback; dcltrans transaction TMainListen var nAsyncChannel : number; begin WebPageUrl("http://demo.borland.com:8080/atmosphere-meteor-pubsub-2.1.3/", "/atmosphere-meteor-pubsub-2.0.3/"); nAsyncChannel := WebAsyncPreparePush(callback(FAsyncCallback)); WebFormGet("http://demo.borland.com:8080/atmosphere-meteor-pubsub-2.1.3/pubsub/mychannel_1234", METEOR_PUB_SUB_FORM); UserWaitFor("LastMessage", 60); WebAsyncStop(nAsyncChannel); end TMainListen;