Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Include si sistemul de depanare/testare headless din Teste\ (harness UI cu capturi, verificare de sintaxa prin compilare, wrappere text<->binar) si docs\depanare_testare_flora2roa.md.

vfpconnection_utils.prg

@@ -0,0 +1,44 @@
+*!* 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