GIF al conectarse a BD en nube

[Jose Roman]

Hola a todos,
Trabajo con Rad Studio 11 y MySQL, tengo ya la base de datos creada en la nube, el usuario deberá digitar un USUARIO y CONTRASEÑA y al dar clic se conecta a la base de datos, me gustaría una ayuda para hacer un Thread, lo cual ignoro por completo como hacerlo, el cual muestre un GIF de espera y que este desaparezca cuando se haya conectado o en caso contrario desaparezca y se muestre el error, para cargar el GIF pienso utilizar esto que se ve interesante, obviamente si hay mejor alternativa la acepto. Gracias por el ejemplo me ayudaría en grande.

[pgranados]

Puedes utilizar el proyecto de uno de los miembros del grupo. No encontré el post al respecto en este foro pero si en otro

http://delphiaccess.com/foros/index....imaciones-gif/

Y ya solamente creas un form con el gif y al conectarse lo muestras

Código Delphi [-]
Forma.Show

y al terminar el proceso

Código Delphi [-]
FreeAndNil(Forma)

Saludos!

[Jose Roman]

Gracias, lo intentaré a ver

[pgranados]

Empezado por Jose Roman

Gracias, lo intentaré a ver

Incluye el unit de gifViewer y en un form haz esto:

Coloca un TPanel y en los eventos onShow y onClose haz esto:

Código Delphi [-]
private
   GV3: TGifViewer;

procedure TFormaEsperaImportacion.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   FreeAndNil(GV3);
end;

procedure TFormaEsperaImportacion.FormShow(Sender: TObject);
var  S, lspaso: String;
PWC: PWideChar;
begin
  DoubleBuffered:= true;
  try
    S:= RutaExe+'loading.gif';
    PWC:= PWideChar(S);
    GV3:= TGifViewer.Create;
    GV3.GifView(Panel1.Handle, PWC, true);
  except
    on e:exception do
      showMessage(e.Message);
  end;
end;

RutaEXE es la ruta de mi aplicación
Panel1 es el nombre del TPanel

Y ya para llamarlo desde un form puedes hacer esto:

Código Delphi [-]
FormaEsperaImportacion := TFormaEsperaImportacion.Create(Application);
FormaEsperaImportacion.Show;

En mi caso, ademas del TPanel incluí un label para mostrar algún mensaje, entonces mi forma de usarlo seria:

Código Delphi [-]
FormaEsperaImportacion := TFormaEsperaImportacion.Create(Application);
FormaEsperaImportacion.Show;
FormaEsperaImportacion.lbl.Caption:= 'Estamos haciendo la conexión con el servidor. Un momento por favor.';
FormaEsperaImportacion.lbl.Refresh;

Y ya para cerrarlo

Código Delphi [-]
FormaEsperaImportacion.Close;

[Jose Roman]

Un gran aporte muchas gracias

[pgranados]

No te la habia pasado por mera flojera jeje, pero aqui esta el unit. Yo tuve unos problemas con el y escafandra me ayudo a modificarlo. Solamente anéxalo a tu proyecto

https://drive.google.com/file/d/1kE0...ew?usp=sharing