Search found 32 matches: nfile

Return to advanced search

Conexion FTP TSL

... " + cSource ) Return .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( cTarget, oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) end FClose( hSource ) oFile:End() ...
by servicomver
Wed Jan 25, 2023 10:45 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Conexion FTP TSL
Replies: 7
Views: 736

Re: New TprogressWheel

Me auto contesto con oDlg:bStart := {||Eval( oBtn:bAction ),nFile == 0 } puedo ejecutarlo automáticamente :mrgreen: I auto reply with oDlg: bStart: = {|| Eval (oBtn: bAction), nFile == 0} I can run it automatically :mrgreen: Hello, I already tried to make ...
by AIDA
Tue Aug 04, 2020 7:23 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: New TprogressWheel
Replies: 72
Views: 9334

Re: Facturacion Electronica Peru, Metodo sendBill

... 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( hSource, ...
by Enrrique Vertiz
Mon Aug 01, 2016 4:34 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Facturacion Electronica Peru, Metodo sendBill
Replies: 22
Views: 8133

Re: FiveWeb Questions

Using the sample from Antonio it does return 37.
No idea why it works with aParams[nFile] but not aParams[37]

The field before it lines up at [36] so [37] should work. It's strange.
by Jeff Barnes
Fri Feb 19, 2016 12:24 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: FiveWeb Questions
Replies: 140
Views: 25529

Re: FiveWeb Questions

... sure the last item is the 37 item in aParams..... So when I try to save aParmas[37] to my DBF I get nothing. Since it's the last item I tried: nFile:= Len(aParams) and used aParmas[nFile] instead of aParpam[37] .... it works. Odd thing is, if I do a MsgInfo(nFile) I get "null"
by Jeff Barnes
Thu Feb 18, 2016 9:09 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: FiveWeb Questions
Replies: 140
Views: 25529

Listview class

... item "Console app" then when I wish select this file make me error because on baction of Listview I insert bAction:= { | nOption | Optionfile( oList ) } function Optionfile(oList) Local nfile:= 0 Local cFile:= "" If len(oList:aItems)<>0 nfile:= oList:nOption IF nFile ...
by Silvio.Falconi
Sat Jan 16, 2016 10:53 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Listview class
Replies: 0
Views: 278

Also for Listview

... } oList := TListView():New(oAllegati:nHeight-300,2,{},bAction, oAllegati, ,,.T., .F., oAllegati:nwidth-25,150, ) function Optionfile(oAllegati,oList) msginfo(oList:nOption) return nil I need a baction to show the caption of item But the baction not run ok I tried also with Local ...
by Silvio.Falconi
Tue Jun 16, 2015 7:55 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Also for Listview
Replies: 29
Views: 5047

Re: xBrowse ERROR

... Local nDUE:=StrTran(IIF(AT("/",nDES)>0,Left(nUNO,Len(nUNO)-1)+Right(nDES,1),nDES),CHR(34),"") Local nTIT:=nDUE Local nFILE:=Upper(StrTran(Alltrim(nTIT)," ","_")) Local nARG:={} Local nBT1:=IIF(nBUT<>NIL,IIF(AT("1",nBUT)>0,.T.,.F.),.T.) ...
by vensanto
Thu Mar 13, 2014 4:16 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: xBrowse ERROR
Replies: 14
Views: 2129

Subir ficheros por FTP

... Static Function SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) Local n Local hSource Local cBuffer := Space( nBufSize ) Local nBytes, nFile := 0, nTotal := 0 Local nTotSize := 0 Local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Archivo No Encontrado: ...
by Sebastián Almirón
Tue Nov 12, 2013 12:53 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Subir ficheros por FTP
Replies: 4
Views: 1134

Re: Cliente FTP con FW+xH

... Static Function SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) Local n Local hSource Local cBuffer := Space( nBufSize ) Local nBytes, nFile := 0, nTotal := 0 Local nTotSize := 0 Local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Archivo No Encontrado: ...
by postinelli
Tue Jan 24, 2012 12:18 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Cliente FTP con FW+xH
Replies: 8
Views: 2969

Re: ayuda como subir archivo via ftp

... Static Function SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) Local n Local hSource Local cBuffer := Space( nBufSize ) Local nBytes, nFile := 0, nTotal := 0 Local nTotSize := 0 Local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Archivo No Encontrado: ...
by postinelli
Fri Dec 09, 2011 12:10 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: ayuda como subir archivo via ftp
Replies: 3
Views: 1019

Re: Win7 + EZTW32.DLL problem?

... ","0")+".PDF" Local oScanner,oIMG,nRES:=100 Local nFILE,nCONTA:=1 Local hPDF,K,nOK AEVAL(DIRECTORY("T_*.BMP"),{|X|FERASE(X[1])}) IF FILE("scanner.txt") FERASE("scanner.txt") ...
by vensanto
Wed Aug 18, 2010 8:01 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Win7 + EZTW32.DLL problem?
Replies: 14
Views: 5226

Re: archivos em funcionamiento

... es una funcion que quita el path del fichero, tu puedes probarlo sin estan funcion pasando directamente el nombre del fichero. Function EnMemoria( nFile ) LOCAL aTasks := GetTasks(),; aLen := 0 ,; aResult := .F. FOR aLen := 1 TO Len( aTasks ) If cFileNoPath( aTasks[aLen] ) == Upper( nFile ) aResult ...
by jll-fwh
Thu Feb 04, 2010 6:43 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: archivos em funcionamiento
Replies: 2
Views: 349

Re: Zip functions - I'm in trouble

... with the * HB_UNZIPFILE() function, so you can use returned result in the code * block. See example below. * $EXAMPLES$ * FUNCTION MAIN() * Local nFiles := HB_GETUNZIPFILE( "test.zip" ) * * if nFiles > 0 * ? "This files Contains ", nfiles * endif * * Return Nil * * Here ...
by Enrico Maria Giordano
Sun Aug 30, 2009 1:05 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Zip functions - I'm in trouble
Replies: 1
Views: 904

Re: FTP Bajar y Subir archivos

... aTarget, nBufSize, oSay1, oSay2,oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "File not found: " ...
by Dioni
Sun May 24, 2009 1:36 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP Bajar y Subir archivos
Replies: 2
Views: 1400
Next

Return to advanced search

cron