emerson lopes escreveu:
Caro Sebastian/Santiago,
Agradeço a ajuda! Ja estou providenciando a leitura na documentação e a
procura pelo google. No entanto, peço a você, santiago, caso tenha um
tepinho hoje, que dê uma olhada e me envie o exemplo.
um abraço,
Emerson Lopes
Em 05/06/07, *Santiago* <[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>> escreveu:
meu caro, dias atras vi na internet justamente isso que vc está
procurando....eu acho que baixei o programa mas deve estar em
casa...da uma procurada por DELPHI + BACKUP + Postgres no google...
Caso nao encontre me avise....qq coisa procuro a noite em casa...
Santiago
-----Mensagem original-----
*De:* [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
[mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>] *Em nome
de *emerson lopes
*Enviada em:* terça-feira, 5 de junho de 2007 11:01
*Para:* [email protected]
<mailto:[email protected]>
*Assunto:* [pgbr-geral] Backup
Senhores,
Bom dia, Alguem poderia me ajudar com relação a fazer um script
no DELPHI para efetuar Backup no Postgre?
Agradeço,
Emerson
_______________________________________________
pgbr-geral mailing list
[email protected]
<mailto:[email protected]>
https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
<https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral>
Voce pode executar a funcao abaixo passando o pg_dump como parametro.
Executar um programa e aguardar sua finalização antes de continuar
function ExecAndWait(const FileName, Params: string;
const WindowState: Word): boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
{ Coloca o nome do arquivo entre aspas. Isto é necessário devido aos
espaços contidos em nomes longos }
CmdLine := '"' + Filename + '"' + Params;
FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;
Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
{ Aguarda até ser finalizado }
if Result then begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
{ Libera os Handles }
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;
- Exemplo de uso:
ExecAndWait("C:\Arquivos de programas\pgAdmin III\1.6\pg_dump.exe" -i -h
localhost -p 5432 -U postgres -F t -b -v -f "TAR.backup" bd, '', SW_HIDE);
OBS:
SW_HIDE
Janela Escondida
SW_SHOWNORMAL
Janela em modo normal
SW_MAXIMIZE
Janela maximizada
SW_MINIMIZE
Janela minimizada
_______________________________________________
pgbr-geral mailing list
[email protected]
https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
