como progamar un Meter
Posted: Wed Nov 15, 2006 6:22 pm
HOLA A TODOS
TENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER
EN FW ES ASI PERO EN PC POCKET COMO LO UTILIZO..
DEFINE DIALOG oCopia RESOURCE "envia" TITLE "Copiando Archivo al sitio " + cFTPSite
REDEFINE BITMAP RESOURCE "GFTP" ID 117 OF oCopia
REDEFINE SAY oSay1 ID 110 OF oCopia
REDEFINE SAY oSay2 ID 120 OF oCopia
REDEFINE METER oMeter1 VAR nAmount1 ID 111 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HGREEN, CLR_BLUE
REDEFINE SAY oSay3 ID 140 OF oCopia
REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HRED, CLR_BLUE
oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,;
@lEnd, oCopia, oFTP ,cFTPSite)}
ACTIVATE DIALOG oCopia CENTERED
ESPERO Y ALGUIEN ME PUEDA AYUDAR
TENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER
EN FW ES ASI PERO EN PC POCKET COMO LO UTILIZO..
DEFINE DIALOG oCopia RESOURCE "envia" TITLE "Copiando Archivo al sitio " + cFTPSite
REDEFINE BITMAP RESOURCE "GFTP" ID 117 OF oCopia
REDEFINE SAY oSay1 ID 110 OF oCopia
REDEFINE SAY oSay2 ID 120 OF oCopia
REDEFINE METER oMeter1 VAR nAmount1 ID 111 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HGREEN, CLR_BLUE
REDEFINE SAY oSay3 ID 140 OF oCopia
REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HRED, CLR_BLUE
oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,;
@lEnd, oCopia, oFTP ,cFTPSite)}
ACTIVATE DIALOG oCopia CENTERED
ESPERO Y ALGUIEN ME PUEDA AYUDAR