Mostrar formulario, esperar y ejecutar funcion

[ethangio]

Buen dia ...

He buscado en el foro y no he encontrado algo que se asemeje a lo que necesito o quiza no estoy buscando bien.

Lo que busco es como hacer que se muestre mi formulario esperar 3 seg y ejecutar una funcion(conexion al servidor descargar archivo) y cerrar la aplicacion.

Probé en el evento OnActivate pero se pasa muy rapido.

Alguna sugerencia ?

[beginner01]

Hola.

No te sirve un Timer?

[ethangio]

beginner01 como usaria el timer?

Lo primero es que se pinte el formulario que cargue ahy en ese momento esperar y despues ejecutar la funcion ??

lo voy a intentar.

[ethangio]

beginner01 ,,, ya lo habia intentado pero no me funcionó ...

Pero ahora ya funciona ... :S ... ,,, lo siento por el hilo algo torpe ...

gracias ... pongo el codigo .. por si le sirve a alguien.

Código Delphi [-]
//la variable tiempo es global

procedure TForm.Timer1Timer(Sender: TObject);
begin
  if tiempo = 3 then
  begin
    Timer1.Enabled:=False;
    //Funcion que se conecta al server y descarga archivos
  end
  else
  begin
    tiempo  := tiempo + 1;
  end;
end;

[defcon1_es]

Hola, prueba esto:

Pon (en diseño) en la propiedad Enabled := False;

En el evento OnTimer debes poner sólo la llamada a la función que se conecta al server y descarga archivos.

Código Delphi [-]
procedure TForm.FormShow(Sender: TObject);
begin
   Timer1.Interval := 3000; //milisegundos
   Timer1.Enabled := True;
end;

procedure TForm.Timer1Timer(Sender: TObject);
begin
    //Funcion que se conecta al server y descarga archivos
end;

[ethangio]

defcon1_es ..

Gracias lo solucione ...

Pero en mi funcion de descargar archivo si lo descarga pero lo descarga dañado ( es un exe ) ... no se puede ejecutar, estoy usando los componentes indy ...

Tienen alguna sugerencia que estoy haciendo mal .. ??

Código Delphi [-]
      //Descargar
      StringList:= TStringList.Create;
      //Cambiamos de directorio
      IdFTP1.ChangeDir('/public_html/actualizacion/');
       try
        IdFTP1.List(Stringlist, '', false);
        for i := 0 to Stringlist.Count-1 Do
        begin
          if (StringList[i] <> '') and ((StringList[i]<>'.') and (StringList[i]<>'..')) then
          begin
            //Descarga
            idFTP1.Get( ExtractFileName(StringList[i]), 'Update\'+StringList[i], True , False );
          end;
        end;
        except
        IdFTP1.disconnect;
       end;
      StringList.Free;
    end;
  //============================================================================================