FiveTech Software tech support forums

... static function SendFiles( cSource, cTarget, nBufSize, oFTP ) local hSource local cBuffer := Space( nBufSize ) local nBytes local oFile if ! File( cSource ) MsgStop( "File not found: " + cSource ) Return .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( ...

... DIALOG oDlg ; ON INIT EnableCommNotification( nComm, oDlg:hWnd, 20, 20 ) CloseComm( nComm ) return nil function InitCOMM() local cDcb, nError, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb ) MsgStop( "Error BUILD!" ...

... oFile :=TFtpFile():New(cFileFTP, oFTP) oFile:OpenWrite() FSeek(hSource, 0, 0) nBufSize:=2000000 cBuffer :=space(nBufSize) do while ( nBytes:=FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) endd FClose( hSource ) oFile:End()

... #define ONESTOPBIT 0 #define ONE5STOPBITS 1 #define TWOSTOPBITS 2 FUNCTION LeePuerto485() LOCAL nComm, cBloque Public cResultado := "" ,nByteslargo ,cTrIngPuerta001 ,cTrIngPuerta002 cTrIngPuerta001:= Chr( 0x02 ) + Chr( 0x30 ) + Chr( 0x30 ) + Chr( 0x30 ) + Chr( 0x31 ) + Chr( 0x31 ) + ...

... #define ONESTOPBIT 0 #define ONE5STOPBITS 1 #define TWOSTOPBITS 2 FUNCTION LeePuerto485() LOCAL nComm, cBloque Public cResultado := "" ,nByteslargo ,cTrIngPuerta001 ,cTrIngPuerta002 cTrIngPuerta001:= Chr( 0x02 ) + Chr( 0x30 ) + Chr( 0x30 ) + Chr( 0x30 ) + Chr( 0x31 ) + Chr( 0x31 ) + ...

... nError ) ) RETURN 0 ELSE MsgRun("Puerto Seteado") ENDIF RETURN IdPort STATIC FUNCTION leer_bloque(port,n) LOCAL bloque:= SPACE(n),bcc1,nBytes,i:=1 DO WHILE .t. nBytes := ReadComm( port,@bloque) i++ IF EMPTY(bloque) MsgWait("Esperando ENQ","Espere",3) mandar_enq(port) ...

... han enviado'+str(BitesSend,5),'',.5000) ENDIF cBlock=space(1024) nTry=0 do while nTry<10 // can remove this nTry if not applicable if ( nBytes := readComm( nComm, @cBlock) ) > 0 msgwait('Esperando haber si lee algo , espere'+str(nTry,5),'',.10) LogFile( "Milagros.log", cBlock) ...

... ReadKey()->nReadkeyCode ReadModal(<aGetList>)->Nil ReadVar()->cVarName RecCount()->nRecords RecNo()->nRecord RecSize()->nBytes RemAll(<cString>,[<xChar>])->cResult RemLeft(<cString>,[<xChar>])->cResult RemRight(<cString>,[<xChar>])->cResult ...

... ReadKey()->nReadkeyCode ReadModal(<aGetList>)->Nil ReadVar()->cVarName RecCount()->nRecords RecNo()->nRecord RecSize()->nBytes RemAll(<cString>,[<xChar>])->cResult RemLeft(<cString>,[<xChar>])->cResult RemRight(<cString>,[<xChar>])->cResult ...

... DiskReadyW([<cDrive>],[<lOSErrorMsg>])->lIsWriteable DiskSpace([<nDrive>],[<nType>])->nBytes DiskTotal([<cDrive>])->nTotalBytes DiskUsed([<cDrive>])->nUsedDiskSpace DispBegin()->Nil DispBox(<nTop>,<nLeft>,<nBottom>,<nRight>,[<cnBoxString>],[<cColorString>])->Nil ...

... and padding of Unicode strings. FW_UTF8PADCHAR( cStr, nCharacters ) --> cPartStr whose HB_UTF8LEN() is nCharacters FW_UTF8PADBYTE( cStr, nBytes ) --> cPartStr whose Len() is nBytes without invalidating the part string. It may be noted that our own legacy applications and many 3rd party ...

... and padding of Unicode strings. FW_UTF8PADCHAR( cStr, nCharacters ) --> cPartStr whose HB_UTF8LEN() is nCharacters FW_UTF8PADBYTE( cStr, nBytes ) --> cPartStr whose Len() is nBytes without invalidating the part string. It may be noted that our own legacy applications and many 3rd party ...

... Funcion para Leer ZIP ------------------------------------// function xlee(hsource) local hTarget local cBuffer := Space(4000) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local nBufsize:=4000 local xfile:="" hSource = FOpen( hsource) while ( nBytes := FRead( ...

... no se ejecute más de una vez: FUNCTION LecturaPto1() Local cBuffer := Space( 30 ) static lTrabajando := .F. if ! lTrabajando lTrabajando = .T. nBytes := WriteComm(nComm,AllTrim(PARBASCULA->COMANDO)) //aquimando una "P" IF nBytes <= 0 RETURN ENDIF IF FlushComm(nComm,0) != 0 RETURN ...

... * Enhancement: TXImage: Can now be created from resource. New data lUseGDI default .t. If set to .f., uses FI * New function FW_UTF8PADR( cText, nBytes ) * Fix: Errsysw.prg: Function SetErrorFileName(cFile) was not setting the new file name. Fixed. Thanks Mr Enrico http://forums.fivetechsupport.com/viewtopic.php?f=3&t=31583 ...