Barra de progresso muito fina! wow

[hugo]

Olhem que maneiro

[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver este link.] alt="" />

Creditos e download do codigo:
[Você precisa estar registrado e conectado para ver este link.]

[mfelis]

Bacana, Reputado, eu não utilizo OCX para Barras de Progresso eu faço as minhas!

[alceu11]

mflis
E como seria fazer a sua barra de progresso, neste form de backup do sistema?
poderia demostrar pegando este form e mudar a barra dele de progresso.?

link importante o winrar precisa estar instalado para este backup funcionar

[Você precisa estar registrado e conectado para ver este link.]

Como sei que faz isto direto, entao vou perguntar mas 1 coisa.:
E vou aproveitar tb depois do backup zipado, como vc faz para envia-lo para o ftp
direto, r?

[hugo]

alceu, coloquei um link no forum ai de um compactador independente
de software 3os

ou seja, compactacao no proprio vfp

fiz algumas adaptacoes no codigo e resolvi parte de uma situacao
minha, mais a titulo de conhecimento, mais achei bem legal

abraco professor

valeu

[alceu11]

HUGO
Ondi esta o link Desta compactacao, PODERIA posstar o fonte ?
Aviso
nao esqueci do projeto ajax,!!!

é o que o meu backup, faz por pasta do projeto ou do que queira compactar,,,,,,,,,

[hugo]

tai professor
[Você precisa estar registrado e conectado para ver este link.]

e o ajax vai te pegar.... hehehehehe
obrigado por tudo amigao!

[mfelis]

mflis
E como seria fazer a sua barra de progresso, neste form de backup do sistema?
poderia demostrar pegando este form e mudar a barra dele de progresso.?

link importante o winrar precisa estar instalado para este backup funcionar

[Você precisa estar registrado e conectado para ver este link.]

Como sei que faz isto direto, entao vou perguntar mas 1 coisa.:
E vou aproveitar tb depois do backup zipado, como vc faz para envia-lo para o ftp
direto, r?

Coloquei e Adaptei o Form de Acordo com a Barra espero que funcione!
Download
Desculpe senão funcionar estoua trasado preciso sair agora não estarei a tarde mas amanha eu resolvo oK!

[Julio]

Eu utilizo uma DLL "MOLEZIP.DLL", se não me falhe a memoria é free.

Ai vai meu modelo, a barra é diferente da que tem no form do Alceu, e tambem inferior a beleza da que o Hugo postou.

Utiliza-se de uma classe para fazer a barra de progresso.

Mas em si a rotina faz o backup bem feito.

[Você precisa estar registrado e conectado para ver este link.]

Julio

[Julio]

Tenho esta tambem.

Utilizo em um processo do sistema.

Acho que todos ja conhecem.

Código:

* BARRA DE PROGRESSO DA OTIMIZAÇÃO
DEFINE CLASS gsThermometer AS form

    Height = 76
    Width = 500
    AutoCenter = .T.
    BackColor = RGB(240,240,240)
    BorderStyle = 0
    Caption = ""
    Closable = .F.
    ControlBox = .F.
    MaxButton = .F.
    MinButton = .F.
    Movable = .F.
    AlwaysOnTop = .f.
    ShowWindow = 1
    Name = "gsThermometer"


    ADD OBJECT ShapeOuter AS shape WITH ;
        Top = 2, ;
        Left = 2, ;
        Height = 72, ;
        Width = 496, ;
        BackStyle = 0, ;
        BorderWidth = 4, ;
        Curvature = 5, ;
        SpecialEffect = 0, ;
        BorderColor = RGB(0,128,0), ;
        Style = 0, ;
        Name = "ShapeOuter"


*    ADD OBJECT Image1 AS image WITH ;
        Picture = ADDBS(HOME(4))+[Bitmaps\Assorted\Beany.bmp], ;
        BackStyle = 0, ;
        Height = 64, ;
        Left = 10, ;
        Top = 6, ;
        Width = 64, ;
        Name = "Image1"

    ADD OBJECT Image1 AS image WITH ;
        Picture = [C:\SISTEMA\ICONES\TRASH02B.BMP], ;
        BackStyle = 0, ;
        Height = 64, ;
        Left = 20, ;
        Top = 26, ;
        Width = 64, ;
        Name = "Image1"

    ADD OBJECT Progress1 AS textbox WITH ;
        Value = 1, ;
        Visible = .F., ;
        Name = "Progress1"


    ADD OBJECT lblProgress AS label WITH ;
        FontBold = .T., ;
        BackStyle = 0, ;
        Caption = "Aguarde o Término da Otimização.  Progresso da Operação ...", ;
        Height = 14, ;
        Left = 81, ;
        Top = 16, ;
        Width = 384, ;
        ForeColor = RGB(0,128,0), ;
        Name = "lblProgress"


    ADD OBJECT ShapeProgress AS shape WITH ;
        Top = 32, ;
        Left = 77, ;
        Height = 32, ;
        Width = 408, ;
        BackStyle = 1, ;
        SpecialEffect = 0, ;
        BackColor = RGB(255,255,240), ;
        Name = "ShapeProgress"


    ADD OBJECT Label1 AS label WITH ;
        FontBold = .T., ;
        FontSize = 24, ;
        BackStyle = 0, ;
        Caption = (REPLICATE("I",50)), ;
        Height = 30, ;
        Left = 81, ;
        Top = 29, ;
        Width = 404, ;
        ForeColor = RGB(192,192,192), ;
        Name = "Label1"


    ADD OBJECT Label2 AS label WITH ;
        FontBold = .T., ;
        FontSize = 24, ;
        BackStyle = 0, ;
        Caption = "Label2", ;
        Height = 30, ;
        Left = 79, ;
        Top = 29, ;
        Width = 404, ;
        ForeColor = RGB(0,192,0), ;
        Name = "Label2"


    ADD OBJECT Label3 AS label WITH ;
        FontBold = .T., ;
        FontSize = 24, ;
        BackStyle = 0, ;
        Caption = "Label3", ;
        Height = 30, ;
        Left = 81, ;
        Top = 29, ;
        Width = 404, ;
        ForeColor = RGB(0,192,0), ;
        Name = "Label3"

    * numero da porcentagem realizada
    ADD OBJECT ProgressPercent AS Label WITH ;
        BackStyle = 0, ;
        BorderStyle = 0, ;
        FontItalic = .t., ;
        FontSize = 11, ;
        ForeColor = RGB(0,0,128), ;
        FontBold = .T., ;
        Top = 16, ;
        Left = 444, ;
        Height = 18, ;
        Width = 36, ;
        Name = "ProgressPercent"


    PROCEDURE Destroy
        SET CURSOR ON
    ENDPROC


    PROCEDURE Init
        * Simply Set This.Progress1.Value = % completed to display suitably.
        *
        This.Progress1.Value = 0
        SET CURSOR OFF
        This.zOrder(0)
        INKEY(0.001)
    ENDPROC


    PROCEDURE progress1.ProgrammaticChange
        * 380 is the Max width of the Progress Bar when 100% completed.
        This.Parent.ProgressPercent.Caption = TRANSFORM(This.Value)+'%'
        This.Parent.Label2.Caption = REPLICATE("I",This.Value/2)
        This.Parent.Label3.Caption = REPLICATE("I",This.Value/2)
        INKEY(0.001)
    ENDPROC


ENDDEFINE
**

Julio

[hugo]

muito obrigado julio

alceu, quando der certo da um ok pra fecharmos o post

abracao professor

[alceu11]

Ainda dependo da 2 resposta do mfelix sobre enviar o backup para ftp, apos o zip, se teria como enviar para o ftp,,, na mesma rotina do backup.
dando um gancho no form tipo
if 6=messagebox('deseja enviar para o ftp',4+32,'comando')
*comandos
endif

mas acredito que ele nao dara resposta......

mais todavia se quiser dar por encerrado. tudo ok........

[hugo]

sobre enviar arquivo para upload temos um post sobre o assunto

so fazer as devidas adequacoes

[Você precisa estar registrado e conectado para ver este link.]

[hugo]

sobre a Barra em especifico
podemos fechar?

[alceu11]

E Hugo, so queria sair do meu form backup e ir para o ftp e adiciona-lo acho que o Mfelis sabe disto......Quem sabe ele contribua para isto....

Se nao poder esperar ate amanha tudo bem , mas qto a barra esta resolvido!!!
Mas todavia se voce quer encerrar. pode fique a vontade.....

[hugo]

espero sim professor