Artigos Delphi Criar Bat e Backup Automático MySQL

Olá galera, nesta Quick Tips, irei mostra como podemos fazer duas coisas muito interessantes. A primeira é o backup automático com o Banco MySQL, e a segunda é montar um arquivo bat para isso.

Vamos criar uma unit, e salvar a mesma como uBackupMySQL, nela vamos implementar o código abaixo:


unit uBackupMySQL;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

Type
TBackupMySQL = class
private
  FUsuario: String;
  FSenha: String;
  FNomeArquivo: String;
  FNomeBancoDados: String;
  FPastaBackup : String;
  { private declarations }
protected
  { protected declarations }
public
  { public declarations }
  property Usuario : String read FUsuario write FUsuario;
  property Senha : String read FSenha write FSenha;
  property NomeArquivo : String read FNomeArquivo write FNomeArquivo;
  property NomeBancoDados : String read FNomeBancoDados write FNomeBancoDados;
  property PastaBackup : String read FPastaBackup write FPastaBackup;
  procedure ExecutarBackup;
end;

implementation

{ TBackupMySQL}
procedure TBackupMySQL.ExecutarBackup;
Var
  xArquivoBat : TStringList;
begin
  Try
    xArquivoBat := TStringList.Create;
    xArquivoBat.Add('@echo off');
    xArquivoBat.Add('@echo.');
    xArquivoBat.Add('echo     
    #################################################');
    xArquivoBat.Add('echo     
    #################################################');
    xArquivoBat.Add('echo ### ###');
    xArquivoBat.Add('echo ### ###');
    xArquivoBat.Add('echo ### Backup automático ###');
    xArquivoBat.Add('echo ### ###');
    xArquivoBat.Add('echo ### ###');
    xArquivoBat.Add('echo   
    #################################################');
    xArquivoBat.Add('echo     
    #################################################');
    xArquivoBat.Add('cd C:\Program Files\MySQL\MySQL Server 5.1\bin\');
    xArquivoBat.Add('mysqldump.exe -u '+ FUsuario + ' -p'+FSenha +' --databases '+     
                            FNomeBancoDados
    xArquivoBat.Add('pause');
    xArquivoBat.SaveToFile('BackupMySQL.bat');
    WinExec('BackupMySQL.bat', SW_NORMAL);
   Finally
    FreeAndNil(xArquivoBat);
   End;
end;
end.

Para testar o exemplo, podemos em qualquer outro formulário criar uma interface e passar os dados para as propriedades da classe. Veja um exemplo no clique de um TSpeedButton.


procedure TFrmBackupMySQL.SpeedButton1Click(Sender: TObject);
Var
BackupMySQL : TBackupMySQL;
begin
   Try
      BackupMySQL := TBackupMySQL.Create;
      BackupMySQL.Usuario := EdtUsuario.Text;
      BackupMySQL.Senha := EdtSenha.Text;
      BackupMySQL.NomeArquivo := EdtNomeArquivo.Text;
      BackupMySQL.PastaBackup := EdtPastaDestino.Text;
      BackupMySQL.NomeBancoDados := EdtNomeBancoDados.Text;
      BackupMySQL.ExecutarBackup;
   Finally
      FreeAndNil(BackupMySQL);
   End;
end;

Ao testarmos o exemplo, o mesmo irá criar um arquivo .bat junto com o exe, e executar o mesmo. Note que usei comandos para montar este arquivo do MS-DOS, como o comando pause por exemplo, que pausa o arquivo até que seja pressionado alguma tecla.