FiveTech Software tech support forums

cTemp := StrTran(cTemp, "<a href=", "{\field{\*\fldinst{HYPERLINK ") cTemp := StrTran(cTemp, "</a>", "}}{\fldrslt ") cTemp := StrTran(cTemp, ">", "}}") ...

Hola.. yo lo hago así: LOCAL cTempZip:=GETENV("TEMP")+"\foto.zip",uData *comprimo el archivo para que no ocupe tanto espacio Hb_ZipFile(cTempZip,"nombre del archivo, del formato que sea",9,,.T.,.T.,) *lo guardo ...

... htmlview with the updated htmlcode. Should work, but maybe there can be updated function that will show plain html data from a variable data. When cTemp = used, htmlview will also startup google and give a result of a google seek for the code (cTemp = used as a seeking parameter) function htmlzien(cFile,oWnd1)  ...

... Catalog='+xDATABASE+';User Id='+xUSERID+';Password='+xPASSWORD aImages := Directory( cCft + "*.*" ) FOR nX1=1 TO LEN(aImages) cTemp := aImages[nX1,1] cItem := "" oSay:SetText( LTRIM( STR( ROUND( (nX1/LEN(aImages))*100, 2), 9, 3) ) + "% Complete . . ." ) ...

... FUNCTION _SqlBuild( cSqlField, cSqlValue, cSqlType, cSqlString1, cSqlString2 ) local cTemp := "", cChar, nX, cPrefix := "" // String1.... IF ! EMPTY( cSqlString1 ) cSqlString1 += "," ENDIF cSqlString1 += ...

... Dialog oDlg Center On Init aBtn[1]:Click() return Nil Static Function ps_Seek( aGet, oActiveX ) local i, abEval, cStreet, cNum, cCity, cCountry, cTemp local cHtml := MemoRead( "google\google.html" ) cStreet := GoogleOk( AllTrim( Eval(aGet[1]:bSetGet) ) ) cNum := GoogleOk( AllTrim( Str( ...

... IF ! EMPTY( cSqlIns ) TRY oSqlIns:Open( cSqlIns, xSQL ) CATCH oError lError := .T. END ENDIF // Copy to history... IF ! EMPTY(cTxemail) // Init... cTemp := "" aEmail := {} FOR nX7=1 TO LEN(cTxemail) cChar := SUBSTR( cTxemail, nX7, 1 ) IF cChar=="," IF ! EMPTY( cTemp ) AADD( ...

... creando un temporal y cargarlo con LoadBMP() que también necesita freeimage.dll       REDEFINE IMAGE oFoto ID 118 OF oDlg NOBORDER ADJUST       cTemp:= hb_CurDrive() + ":\" + CurDir() + "\foto.png"           MEMOWRIT( cTemp, oEMPL:FOTO , .F. )       oFoto:Loadbmp( ...

... LoadBMP() que también necesita freeimage.dll       REDEFINE IMAGE oFoto ID 118 OF oDlg NOBORDER ADJUST       cTemp:= hb_CurDrive() + ":\" + CurDir() + "\foto.png"           MEMOWRIT( cTemp, oEMPL:FOTO ...

... "+If(substr(aValor[5],1,1)=="D","*","")+" "+aValor[4]+" ["+M->oPublic:cTemp+terminal+"]"; TIME DATE KEYBOARD; COLOR CLR_BLUE; FONT px:oDomiFontMsg; NOINSET oMsgprin:lInfoRes:=.f. DEFINE MSGITEM oMsgTTS OF oMsgprin ...

Ernesto,

Ese código has debido copiarlo y pegarlo y se ha dañado, en realidad el código correcto seria este:

oActiveX:src = cTemp
oActiveX:GotoFirstPage()

Pruébalo así

... mysql, me genera un error: error E0030 syntax error "syntax error at '#'" estas son las líneas del fuente prg oActiveX&#058;src = cTemp oActiveX&#058;GotoFirstPage() tengo la versión 2012_03 de fivewin. como se soluciona este error ? Gracias

... cSection )LOCAL aEntry := {}LOCAL oFile := TFileRead():New( "yourfile.ini" )LOCAL lRead := .F.LOCAL cTempWHILE oFile:MoreToRead()    cTemp := allTrim( oFile:ReadLine() )    IF cTemp == "[" + cSection + "]"  ...

... "Fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL oGet, cVar := "Hello World!" + CRLF + "This is a test" LOCAL cStr, cTemp DEFINE DIALOG oDlg @ 1, 1 GET oGet VAR cVar MEMO SIZE 80, 30 // So text isn't selected/highlighted oGet:bGotFocus := {|| oGet:setpos(oGet:nPos)} ...

... Crystal Reports Class Constructor // // =========================================================================== METHOD NEW_( nDirCrPe ) LOCAL cTemp ::hDll := 0 ::nJobHandle := 0 ::lError := .F. // Check if we load 16 or 32 Bits. First try to load CRPE32 // IF IsWin95() .OR. IsWinNT() ::hDll ...