GIF al conectarse a BD en nube
 

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.

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!

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;

Un gran aporte muchas gracias

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