Search found 18 matches: hsource

Return to advanced search

Conexion FTP TSL

... 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. ...
by servicomver
Wed Jan 25, 2023 10:45 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Conexion FTP TSL
Replies: 7
Views: 736

Re: Bajar ficheros desde una conexión FTP.

... cPassword:='123456', lFTPPAsivo:=.f., nPuerto:=21) if empty(oFTP:hFTP) oInternet:End() retu .f. endi cFileOrigen:='c:\respaldo\Archivo.txt' hSource :=FOpen(cFileOrigen) cFileFTP:='httpdocs/Clientes/Archivo.txt' oFile :=TFtpFile():New(cFileFTP, oFTP) oFile:OpenWrite() FSeek(hSource, 0, 0) ...
by Joel Andujo
Tue Feb 27, 2018 3:56 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Bajar ficheros desde una conexión FTP.
Replies: 5
Views: 1283

Re: funciones de FWH y Harbour en un archivo .txt

... HB_ZUnCompressLen(<cPackedData>,[<@nResult>])->nBytes HClone(<hHash>)->hClone HCopy(<hSource>,<hTarget>,[<nStart>],[<nCount>],[<xMode>])->hTarget HDel(<hHash>,<xKey>)->Nil HDelAt(<hHash>,<nPos>)->Nil ...
by carlos vargas
Sat Oct 21, 2017 8:44 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: funciones de FWH y Harbour en un archivo .txt
Replies: 7
Views: 5627

Re: Facturacion Electronica Peru, Metodo sendBill

... a base64 cNewArc:=xlee(cAcrZip) //----------------------------------- 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:="" ...
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

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( ...
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( ...
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( ...
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: No puedo acceder a mi FTP

... download"; ACTION DOWNLOAD( oPrg ) ACTIVATE DIALOG oDlg; CENTER RETURN NIL STATIC FUNCTION DOWNLOAD( oPrg ) LOCAL hInternet, hConnect, hSource, hDest, nRead LOCAL cData := SPACE( 1024 ) LOCAL nPos := 0 hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, ...
by mgsoft
Wed Aug 03, 2011 1:19 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: No puedo acceder a mi FTP
Replies: 4
Views: 980

Re: FTP Bajar y Subir archivos

... return nil static function SendFiles( aSource, 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( ...
by Dioni
Sun May 24, 2009 1:36 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP Bajar y Subir archivos
Replies: 2
Views: 1400

Re: Dialogo que muestre como avanza un proceso

... static function StartCopy( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg ) local n local hSource, hTarget local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 for n = 1 to Len( aSource ) if ! File( ...
by FranciscoA
Wed May 20, 2009 10:19 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Dialogo que muestre como avanza un proceso
Replies: 6
Views: 1691

Re: CopyFileEx

... static function StartCopy( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg ) local n local hSource, hTarget local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 for n = 1 to Len( aSource ) if ! File( ...
by FranciscoA
Mon Feb 02, 2009 2:41 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: CopyFileEx
Replies: 5
Views: 1842

Re: FTP si Funciona con Vista y no con XP

... static function SendFiles( aSource, 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 ) CursorWait() ...
by jnavas
Thu Oct 02, 2008 3:21 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP si Funciona con Vista y no con XP
Replies: 2
Views: 1010

Re: FTP si Funciona con Vista y no con XP

... static function SendFiles( aSource, 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 ) CursorWait() ...
by jnavas
Wed Oct 01, 2008 4:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP si Funciona con Vista y no con XP
Replies: 2
Views: 1010

FTP si Funciona con Vista y no con XP

... static function SendFiles( aSource, 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 ) CursorWait() ...
by jnavas
Wed Oct 01, 2008 8:24 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP si Funciona con Vista y no con XP
Replies: 2
Views: 1010

API functions

... is used, the ciphertext will be up to a "block length" larger than the plaintext. Here is my code: pbBuffer := space(dwBufferLen) dwCount := fread(hSource,@pbBuffer,dwBlockLen) Encrypt(hKey, 0, feof(hSource), 0, @pbBuffer, @dwCount, dwBufferLen) DLL32 Function Encrypt( hKey AS LONG,; hHash AS LONG,; ...
by Antonio Linares
Wed Aug 27, 2008 7:32 am
 
Forum: Utilities / Utilidades
Topic: Boris Pekic - NG's archive
Replies: 27
Views: 64691
Next

Return to advanced search