File: winsock.sra
Size: 1198
Date: Mon, 31 Dec 2018 21:14:39 +0100
$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