al copiar animación delphi 2007

[pmtzg]

hola amigos

una pregunta !!! espero poderla formular bien y explicarme

en un pequeño programa que estoy haciendo y en unas de los procedimientos que tengo copio archivos de un lado a otro y copio registros de una tabla a otra, pero me gustaria que al momento que estoy copiando en mi form corra una pequeña animacion como cuando copias archivos en windows 7 algo asi parecedo que corre una hoja de un lado a otro mientras copias , es posible esto en Delphi,

uso delphi 2007

tengo tanbien un Tguage como tipo barra de processo


de antemano mil gracias por su tiempo ,,

[ecfisa]

Hola.

Si no te entiendo mál, bastaría que muestres la imágen del gif animado al iniciar el procedimiento y lo ocultes al finalizar.


Saludos.

[pmtzg]

gracias amigo
usaria tanimation ? a alguno componente q me recomiendes

[ecfisa]

Hola.

Yo uso Delphi 7 con GifImage y no he tenido ningún problema, pero no sé si Delphi 2007 ya soporta ese formato, de ser así sería innecesario usar código de terceros.

Un ejemplo simple de lo que te comento (usando GifImage) sería:

Código Delphi [-]
...
procedure TForm1.FormShow(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('C:\Imagenes\Copiar.gif');
  Image1.Visible:= False;
end;

procedure ComenzarCopia(Img: TImage);
begin
  // iniciar tareas de copia
  Img.Visible:= True;
end;

procedure FinalizarCopia(Img: TImage);
begin
  Img.Visible:= False;
  // finalizar tareas de copia
end;
...

Saludos.

[Neftali [Germán.Estévez]]

Empezado por pmtzg

...copio archivos de un lado a otro y copio registros de una tabla a otra...

Ten en cuenta que segun sea la operación, deberás utilizar threads para la animación.

[[escafandra]]

¿Y por qué no usar SHFileOperation y dejar que el shell de Windows lo haga?

Claro que si queremos personalizar el asunto, entonces quizás usar CopyFileEx con lo que tendremos control del estado del progreso de la copia en todo momento pudiendo usar lo que sugiere ecfisa y, además, podremos conjuntarlo con otras acciones... Revisa esto.


Saludos.

[zeta2]

Estimado ecfisa: Entré al enlace que pusiste y descargué el componente TGIfimage y lo quiero instalar en el delphi 10 pero no se como hacerlo. Me explicas cuales son los pasos a seguir para instalar el componente en delphi10?

Saludos.

Atte. Marco.

[ecfisa]

Hola zeta2.

Como te comenté el uso es muy simple, sólo hay que agregar la unidad donde necisitemos usarla, para que puedas revisarlo te adjunto un demo. Sólo descomprimí todo en una carpeta (incluye imagen .gif).

Cualquier dificultad me avisas.

Saludos.