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;
  //============================================================================================

[ecfisa]

Hola ethangio.

Tál como dice el punto [ 8 ] de nuestra guía de estilo, te ruego que esta última consulta la hagas en un hilo aparte con un título significativo. De ese modo quien pudiera tener un problema similar lo podrá encontrar fácilmente.

Saludos y gracias por tu colaboración.