FiveTech Support Forums

Usando CopyFileEx, con fivewin , por ejemplo.

Bueno, en un proyecto he tenido que copiar un fichero de un sitio a otro,
si bueno teniamos la funcion MyCopyFile() que teniamos implementada en
Fivewin de la siguiente manera:


Dicha funcion, para copiar ficheros de 1 o 2 megas, funciona muy bien, porque
da tiempo a nuestra aplicación que no se vuelva con un '( No responde )'.

Si no lo crees, muy simple, intenta copiar un fichero de 100 Megas, y me cuentas

Básicamente, es porque nosotros HEMOS PERDIDO TOTALMENTE el control sobre nuestra
aplicacion, y no podemos recibir/enviar mensajes a Windows en que punto estamos.

Esto tiene fácil solución, nos hacemos nuestra propia función CopyFile().
El mayor inconveniente es que tenemos que hacerla , y eso, es un paso atrás.

¿ Como podemos hacerlo entonces ? Muy simple usando la funcion CopyFileEx(), disponible en el API win32.

Dicha función no funciona bajo los Windows 98 o similares, estáis advertidos, o eso dicen las malas lenguas.

Bien, sin más dilaciones vamos a realizar la implementación, y eso si,
aqui vamos a usar C, por cuestión de velocidad.

Nuestro prototipo
CopyFileEx( Fichero_Origen, Fichero_Destino, bCodeblock ) --> nResult
Fichero_Origen y Fichero_Destino no necesitan explicación.
bCodeblock , es un bloque de código que nos va a pasar ;
{ |nPorcentaje, nTotal, nTransferido | MyFunction( nPorcentaje, nTotal, nTransferido ) }

Un ejemplo de llamada;


Ah!, Ahora puedes ver, que encima vamos a poder montar una progressbar ,
por ejemplo, para ir mostrando el % que va quedando, es el primer parámetro,
que simplemente resulta de ;
nPorcentaje = nTransferido * 100 / nTotal

Lo he pasado como parámetro al codeblock, porque de esta manera, ya lo tienes
calculado a nivel de C, no perdiendo más tiempo.

Lo importante es que puedes crear una funcion como;



Uy! ¿ Pero que ven tus ojitos!! ? Si , PUEDES CANCELAR también lo que
estas copiando, , muy útil si quieres cancelar un archivo de 500 Megas,
por ejemplo, créeme.

En este caso, por ejemplo, puedes poner un botón similar a esto;
REDEFINE BUTTON oBtn ACTION ( s_lCancel := .T. ) ID 110 OF oWnd

El cambiar el estado de la variable static s_lCancel, simplemente hará
que cuando el codeblock se vuelva a ejecutar, lo cancelará.

Ahora bien, todo esto no es posible sin el codigo fuente de C, asi
que dejo paso al codigo fuente;

Lo que más me a costado no a sido la implementación de la funcion en si
misma, si no, convertir un LARGE_INTEGER en un valor double.

No es una función portable del API de Windows para Harbour, es una adaptación
a una necesidad en concreto, si lo quereis hacer compatible con el API de
Windows, ahi tenéis un punto de partida, por mi parte no pienso mejorarla
más.

Antonio, seria interesante portar esta funcion a Fivewin.
Los warnings de C, son porque no se usan ciertos parametros de la callback, no se como decirle al compilador que no los muestre.

Buenos dias

Me gustaria saber si se ha implementado ya algo parecido a éste post un poco ya antiguo de The Full, ya que necesito copiar ficheros de unos 50 megas aproximadamente.

De todas las maneras, he hecho lo que pone en el post y copia los ficheros correctamente, pero se me queda colgado en la barra de progreso.

Será que estoy construyendo el dialogo de progreso mal, ya que en el ejemplo que pone The full:


Da un error en oProgress, y lo que deduzco es que hay que hacer un dialogo progress, y hago esto:


Hago algo mal?

Saludos

Esta funcion la he usado durante años, desde FW 2.0, y bueno... hasta el momento me ha funcionado.
Talvez quieran probarla (si aun no lo han hecho). No es mia, venia como ejemplo en FW
//----------------------------------------------------------------------------//

function CopyFiles( aSource, aTarget, nBufSize )

local oDlg, oSay1, oSay2, oSay3, oBtnCancel
local oMeter1, oMeter2
local nAmount1, nAmount2
local lEnd := .f.

DEFAULT nBufSize := 4000

DEFINE DIALOG oDlg RESOURCE "CopyFiles"

REDEFINE SAY oSay1 ID 110 OF oDlg
REDEFINE SAY oSay2 ID 120 OF oDlg

REDEFINE METER oMeter1 VAR nAmount1 ID 130 OF oDlg

REDEFINE SAY oSay3 ID 140 OF oDlg
REDEFINE METER oMeter2 VAR nAmount2 ID 150 OF oDlg

REDEFINE BUTTON oBtnCancel ID 2 OF oDlg ;
ACTION ( lEnd := .t., SysRefresh(), oDlg:End() )

oDlg:bStart := { || StartCopy( aSource, aTarget, nBufSize,;
oSay1, oSay2, oMeter1, oSay3, oMeter2,;
@lEnd, oDlg ),;
oBtnCancel:SetText( "&Ok" ) }

ACTIVATE DIALOG oDlg CENTERED
return nil

//----------------------------------------------------------------------------//

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( aSource[ n ] )
MsgInfo( "Fichero no encontrado: " + aSource[ n ], "Advertencia" )
else
hSource = FOpen( aSource[ n ] )
nTotSize += FSeek( hSource, 0, 2 )
FClose( hSource )
endif
SysRefresh()
next

oMeter2:nTotal = nTotSize

for n = 1 to Len( aSource )
IF File( aSource[ n ] )
hSource = FOpen( aSource[ n ] )
hTarget = FCreate( aTarget[ n ] )
oSay1:SetText( "Fuente : " + aSource[ n ] )
oSay2:SetText( "Destino: " + aTarget[ n ] )
oMeter1:Set( 0 )
oMeter1:nTotal = FSeek( hSource, 0, 2 )
FSeek( hSource, 0, 0 )
nFile := 0
SysRefresh()
while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0
FWrite( hTarget, cBuffer, nBytes )
oSay3:SetText( "Bytes copiados: " + ;
AllTrim( Str( nTotal += nBytes ) ) )
oMeter1:Set( nFile += nBytes )
oMeter2:Set( nTotal )
SysRefresh()
end
FClose( hSource )
FClose( hTarget )
if lEnd
exit
endif
ENDIF
next

oDlg:End()

return nil

Saludos.

Es que estas llamando cada vez a la creación del dialogo.

Lo que tienes que hacer es lo siguiente, seudo codigo a piñon;

STATIC oProgressBar // Porque la función PASA va a actualizartelo.

FUNCTION DlgMio()
Local oDlg
DEFINE DIALOG oDlg
@1,1 PROGRESSBAR oProgressBar
@2,1 BUTTON CopyDlg()
@3,1 BUTTON CancelDlg()

ACTIVATE DIALOG
RETURN NIL

FUNCTION CopyDlg()
if ( COPYFILEEX ( cFile_Path_MDB , cFile_Path_Repara+"\TPVMAL.MDB", {|x,y,z| pasa(x,y,z) } ) == 0 )
? "MAL"
endif
return nil

STATIC FUNCTION PASA( nPorcentaje, nTotal, nTransferido )
static nPasa := 0

if nPasa > 10
   SysRefresh()
   nPasa := 0
endif
nPasa++
oProgress:SetPos( nPorcentaje )  // Esto es una variable static

return( if( s_lCancel, PROGRESS_CANCEL, PROGRESS_CONTINUE ) )

Lo pillas ahora mejor ?

Usando FOpen(), FCreate(), FRead(), FWrite() y FClose() tenemos control total y podemos hacer lo que queramos
Ambas soluciones son validas:

1. Pedirle al API de Windows que lo haga, usando una funcion tipo callback como ha hecho Rafa.

2. Hacerlo a "mano" usando estas funciones mencionadas de Clipper de toda la vida

Hola Rafa

Gracias por responder

Tenia encima la empanadilla de Móstoles

Solucionado

Gracias

Jose Luis