*!* vfpconnection_utils

***********************
Function MyProgress && Callback from the FLL - can be used to track operation progress
	Lparameters tcFile
	Local lnProgress, lcFile
	lnProgress = 0
	lcFile = Iif(Empty(m.tcFile) Or Type('tcFile') <> 'C', '', m.tcFile)
	If m.nConnectTotalBytes > 0
		m.lnProgress = Int(m.nConnectBytesSoFar / m.nConnectTotalBytes * 100)
	Endif

	Wait Window m.lcFile + ' ' + Transform(m.lnProgress) + '% ...' Nowait
Endfunc



***********************
Function MyTrace() && Callback from the FLL - used to provide a detailed trace of the operation
	***********************
	*!* You can create your own function, procedure or method to handle this and name it whatever you want.
	*!* The nTraceDataType and cTraceData are private variables created on-the-fly by the FLL
	#Define TYPE_TEXT 0
	#Define TYPE_HEADER_IN 1
	#Define TYPE_HEADER_OUT 2
	#Define TYPE_DATA_IN 3
	#Define TYPE_DATA_OUT 4
	#Define TYPE_SSL_DATA_IN 5
	#Define TYPE_SSL_DATA_OUT 6
	#Define TYPE_END 7
	lcDataType = Icase(m.nTraceDataType = TYPE_TEXT, "STATUS:", ;
		m.nTraceDataType = TYPE_HEADER_IN, "<RECV HEADER: ", ;
		m.nTraceDataType = TYPE_HEADER_OUT, ">SEND HEADER: ", ;
		m.nTraceDataType = TYPE_DATA_IN, "<RECV DATA: ", ;
		m.nTraceDataType = TYPE_DATA_OUT, ">SEND DATA: ", ;
		m.nTraceDataType = TYPE_SSL_DATA_IN, "<RECV SSL DATA: ", ;
		m.nTraceDataType = TYPE_SSL_DATA_OUT, ">SEND SSL DATA: ", ;
		m.nTraceDataType = TYPE_END, "END: ", "UNKNOWN: ")
	lcData = m.cTraceData
	If Inlist(m.nTraceDataType, TYPE_TEXT)
		lcMesaj = lcDataType + " " + lcData
		goApp.Log(m.lcMesaj)
	Endif
Endfunc