Jump to content
Fórum Script Brasil
  • 0

Como Criar Uma Rotina De Backup/restore Do Sistema?


Livio Neiva
 Share

Question

Procedimentos a serem executados:

Crie uma opção no menu principal: Ferramentas -> Backup/Restore.

Crie a tela a seguir com o Name = FrmBkpRst, contendo os objetos:

RadioGroup (Standard) – use as propriedades Caption e Items

DriveComboBox e DirectoryListBox (Win 3.1), 02 SpeedButton

Animate (Win 32) – Visible = False, CommonAvi = aviCopyFile

Digite os comandos abaixo no evento OnClick do botão Confirma:

procedure TFrmBkpRst.spdConfirmarClick(Sender: TObject);

begin

if MessageDlg('Antes de confirmar a operação, feche o banco de dados' +#13 +#13 +

'Deseja efetuar' + RadioGroup1.Items[RadioGroup1.ItemIndex]+'?',mtConfirmation,

[mbYes,mbNo],0)=mrNo then

Abort;

Try

Animate1.Visible := True;

Animate1.Active := True;

if RadioGroup1.ItemIndex =0 then

Begin

FrmMenuPrin.Compactar;

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb',DirectoryListBox1.Directory);

end;

if RadioGroup1.ItemIndex =1 then

begin

Dm.Conexao.Connected := False;

Copia(DirectoryListBox1.Directory+'\Banco.mdb',ExtractFilePath(Application.ExeName));

dm.Conexao.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='

+ExtractFilePath(Application.ExeName)+'\Banco.mdb;Persist Security info=False;JetOLEDB:Database Passoword=Senha';

Dm.Conexao.Connected := True;

end;

Finally

Animate1.Visible := False;

Animate1.Active:=False;

MessageDlg('Operação concluída.',mtinformation,[mbOK],0);

end;

end;

Faça referência à unit UFunProGeral na cláusula Uses da unit da tela FrmBkpRst:

Crie uma procedure denominada Copia, na unit UFunProGeral, conforme mostrada a seguir:

Procedure Copia(Origem,Destino:String);

Var

FileOpInfo : TSHFileOpStruct; ERRO-> menssag( [Error] UfunProGeral.pas(37): Undeclared identifier: 'TSHFileOpStruct' )

Begin

With FileOpInfo Do

Begin

Wnd := Application.Handle;

wFunc := FO_COPY;

pFrom := Pchar(Origem+#0+#0);

pTo := Pchar(Destino);

fFlags := FOF_WANTMAPPINGHANDLE;

END;

SHFileOperation (FileOpInfo);

ShFreeNameMappings(GlobalHandle(FileOpInfo.hNameMappings));

end;

FileOpInfo : TSHFileOpStruct; ERRO

menssagem de erro quando eu compilo!!!

( [Error] UfunProGeral.pas(37): Undeclared identifier: 'TSHFileOpStruct' )

Agradeço a atenção de todos

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0
Opa

não tenho certeza, se ninguém responder amanhã no serviço eu corrijo,

mas tente colocar em uses ShellAPI

abraçox

ô grande amigo churc, o problema resolveu sim, mais apareceu outro!!!

O programa compila, mas o comando Ferramentas -> Backup/Restore

fica inativo.

Fico sem possibilidade de testalo, para saber se realmente ele faz o backup ou restore

do sistema como faço para resolver isso.

Agradeço muito sua atenção!!!

Link to comment
Share on other sites

  • 0
Estou fazendo esse mesmo sistema.

Mas o meu está dando erro na linha

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb', DirectoryListBox1.Directory);

Está dando erro no ExtractFilePath

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb', DirectoryListBox1.Directory);

É isso mesmo ??? voce inverteu o comando

Copia(DirectoryListBox1.Directory+'\Banco.mdb',ExtractFilePath(Application.ExeName));

OBS: Está dando erro no ExtractFilePath porque voce não colocou Uses ShellApi

abraço

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...