FiveTech Software tech support forums

... local aFiles:={}, cFilZip AADD(aFiles, "c:\fwh\samples\testdlg.prg") cFilZip := "c:\fwh\samples\test.zip" ferase(cFilZip) lOK := HB_ZipFile( cFilZip, aFiles, 9,,,'695',.F. ) //695 is a password ? lOK return

... LOCAL oDlg, oGet, oFont, oBtn, oBtnAction LOCAL nWidth,cVar,oBrw,iHelp,WHlp LOCAL uTemp,aDim,lOk,cHType LOCAL x,tRtn,DispDesc:=.F.,aDArray:={},aTmpArray:={} cVar := aVarArry[1] oBrw := aVarArry[2] nWidth := aVarArry[3] iHelp := aVarArry[4] WHlp ...

... nTop, nLeft, nBottom, nRight ) local oFont, oDlg local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF := .F., lOk := .F. publ oMemo DEFAULT nTop := 9, nLeft := 9, nBottom := 27, nRight := 71.5, ; cTitle := "RichEdit5" * DEFINE FONT oFont NAME "Arial" ...

... CENTERED Return nil FUNCTION WebPageSource(cUrl) local oIE,cTXT,cHTML,cMemo:="" local cString LOCAL cString1,cString2 LOCAL oUrl, oCli,lOk DEFAULT cUrl := "https://www.bcv.org.ve" BEGIN SEQUENCE oUrl = TUrl():New( cUrl ) IF EMPTY( oUrl ) BREAK ENDIF oCli = TIPClientHttp():New( ...

... nLeft, nBottom, nRight ) local oFont, oDlg, oMemo local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF := .F., lOk := .F. DEFAULT nTop := 9, nLeft := 9, nBottom := 27, nRight := 71.5,; cTitle := "RichEdit5" DEFINE FONT oFont NAME "Ms Sans Serif" ...

José Luis, Creo que es tan simple como cambiar esto: DBLCLICK {|| ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) } por DBLCLICK ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) :-) gracias por tu feedback Maestro Antonio, tampoco funciona. El problema es que DOBLE ...

José Luis,

Creo que es tan simple como cambiar esto:

DBLCLICK {|| ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) }

por

DBLCLICK ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() )



gracias por tu feedback

... if valtype(oDk)="U".or.oDk:ReadyState!="complete" WaitMessage() SysRefresh() else lOk:=.T. exit endif enddo if lOk itm:=oDk:getElementById('auto_cdi') itm:Click() endif

Ciao all I HAVE NO PROBLEM IF I USE THE BELOW SAMPLE USING PEC MAIL BUT I GOT ERROR IF I WISH TO USE IT USING NO PEC MAIL, LIKE GMAIL (EXAMPLE) PLEASE CAN U TELL ME WHAT IS WRONG ? OR CAN U SEND ME A SMAL EXAMPLE TO SEND MAIL USING NO PEC (OR ALSO PEC) GRAZIE !!!! ************************** SHORT EX...

... "clave" local rRuta := "/public_ftp/ruta" local CantFiles,nSize:= 0 local oDlg,oSay,oBtnCancel,oMeter,lEnd:=.F.,nAmount,lOk:= .F.,lValRet:= .F. local lReturn := .F. MsgRun( "Connecting to Internet...", "Please, wait",{ || oInternet := TInternet():New()}) ...

... FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort, lNotification, lSSL ) LOCAL lOk := .F. LOCAL oCfg, oMsg LOCAL cCc := "" LOCAL i DEFAULT lHtml := "<html" $ LOWER( cMessage ) DEFAULT lNotification := .F. ...

... HB_VERSION_COMPILER Microsoft Visual C 19.26.28806 (64-bit) Instale TWeb - Ok http://localhost/tweb/tutor.prg Version: TWeb 1.2 Instale Mercury - lOk http://localhost/mercury/ Welcome to Mercury Version: Mercury v1.08b - Aprendiendo Mercury: * Nuestra primera vista: hello.view localhost/go: OK ...

... HB_VERSION_COMPILER Microsoft Visual C 19.26.28806 (64-bit) Instale TWeb - Ok http://localhost/tweb/tutor.prg Version: TWeb 1.2 Instale Mercury - lOk http://localhost/mercury/ Welcome to Mercury Version: Mercury v1.08b - Aprendiendo Mercury: * Nuestra primera vista: hello.view localhost/go: OK ...

... se puede mover la ventana pero sos objetos no esta ligados a la ventana y no se mueven, cuando se ejecuta queda afuera de la ventana como GET lOk PUSHBUTTON. [img] https://www.4shared.com/photo/pGLcBmsRea/ventana_1.html [/img] Static Function abrdlg()    local oDlg, GetList := {}, ...

... msxml6.dll is there anothe command on Windows seven ? this is the function FUNCTION GETURLTOFILE( cUrl, cFile, cUsr, cPsw ) LOCAL lOk := .F. LOCAL oHtp, oStr, ex DEFAULT cFile := CFILENAME( STRTRAN( cUrl, "/", "\" ) ) //TRY oHtp = CREATEOBJECT( "Msxml2.XMLHTTP.6.0" ...