FiveTech Software tech support forums

... oUrl ) IF ! oClient:ReadToFile( cFile ) MSGINFO("Generic error in writing." + cFile) ENDIF oClient:Close() endif IF FILE(CFILE) hFile := FOPEN(CFILE) WHILE HB_FReadLine( hFile, @sLine, aEol ) == 0 ctr++ IF subs(ALLTRIM(sLine),1,8) == "<SPAN ID" // ip is next line ctr := 1 lok := .t. ...

... to make the fastest search on all fields of a DBF. We found with great surprise that the solution was to open the DBF as a standard file with FOpen(), read a bunch of bytes in memory and perform a simple At() to locate a string. Once found, you substract the DBF header length, then divide ...

... oDlg:UPDATE() ; oDlg:aEvalWhen() Return(.T.) ademas la guardo en un campo memo de la siguiente forma: Artic->NomFoto:=aVars[15,2] nHandle:=FOpen(".\Fotos\"+aVars[15,2]) tFile:="" Do While .T. nRead:=FRead(nHandle,@cBuff,255) tFile+=Left(cBuff,nRead) If nRead != 255 Exit EndIf EndDo FClose(nHandle) ...

... + cEol cSay += "Containers = " + LTRIM(STR(nCtnr,9)) + cEol cSay += "Updates = " + LTRIM(STR(nUpd ,9)) + cEol oSay:Refresh() Sysrefresh() hHan := FOPEN( cFolder + aEdi[nY], 0) IF (hHan >= 0) // Init... lEof := .F. cEq := "" cMbl := "" cEvent := "" cEname := "" cDay := "" cMon := "" cYear := ...

... de maestros Jedi, esta bien que sois alumnos avanzados, pero no os olvideis del viejo maestro: Manual de FiveWin, funcion SetFTime() uso: hFile := Fopen("ficheroafechar.ext") SetFTime(hFile, "10:20:59", "15:01:2005") Fclose(hFile) Con esta funcion podeis poner la fecha y la hora que querais en ...