$PBExportHeader$winsock.sra $PBExportComments$Generated Application Object forward global type winsock from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables n_winsock gn_ws Boolean gb_Listening Integer gi_ipversion = 4 end variables global type winsock from application string appname = "winsock" end type global winsock winsock on winsock.create appname="winsock" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on winsock.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event open;gn_ws = Create n_winsock // Initialize Winsock If Not gn_ws.of_Startup() Then MessageBox("of_Startup Failed", & gn_ws.of_GetLastError(), StopSign!) Return End If Open(w_main) end event event close;// Cleanly shutdown Winsock If Not gn_ws.of_Cleanup() Then MessageBox("of_Cleanup Failed", & gn_ws.of_GetLastError(), StopSign!) End If Destroy gn_ws end event
File: winsock.sra
Size: 1198
Date: Mon, 31 Dec 2018 21:14:39 +0100
Size: 1198
Date: Mon, 31 Dec 2018 21:14:39 +0100
- application winsock(sra)