Marius Mutu
2736cbd525
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.
45 lines
1.6 KiB
Plaintext
45 lines
1.6 KiB
Plaintext
*!* 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
|