Anselmo, não sei como você fez em delphi, mas o código abaixo também é uma solução.
procedure TFrm_Backup.RunDosInMemo(DosApp:String;AMemo:TMemo) ; const ReadBuffer = 2400; var Security : TSecurityAttributes; ReadPipe,WritePipe : THandle; start : TStartUpInfo; ProcessInfo : TProcessInformation; Buffer : Pchar; BytesRead : DWord; Apprunning : DWord; begin With Security do begin nlength := SizeOf(TSecurityAttributes) ; binherithandle := true; lpsecuritydescriptor := nil; end; if Createpipe (ReadPipe, WritePipe, @Security, 0) then begin Buffer := AllocMem(ReadBuffer + 1) ; FillChar(Start,Sizeof(Start),#0) ; start.cb := SizeOf(start) ; start.hStdOutput := WritePipe; start.hStdInput := ReadPipe; start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; start.wShowWindow := SW_HIDE; if CreateProcess(nil, PChar(DosApp), @Security, @Security, true, NORMAL_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then begin repeat Apprunning := WaitForSingleObject (ProcessInfo.hProcess,100) ; Application.ProcessMessages; until (Apprunning <> WAIT_TIMEOUT) ; Repeat BytesRead := 0; ReadFile(ReadPipe,Buffer[0], ReadBuffer,BytesRead,nil) ; Buffer[BytesRead]:= #0; OemToAnsi(Buffer,Buffer) ; AMemo.Text := AMemo.text + String(Buffer) ; until (BytesRead < ReadBuffer) ; end; FreeMem(Buffer) ; CloseHandle(ProcessInfo.hProcess) ; CloseHandle(ProcessInfo.hThread) ; CloseHandle(ReadPipe) ; CloseHandle(WritePipe) ; end; end; Em 9 de maio de 2013 15:54, Anselmo Silva <anselmo....@gmail.com> escreveu: > > Em 9 de maio de 2013 15:37, Matheus de Oliveira <matioli.math...@gmail.com > > escreveu: > > Pesquise sobre como exportar variáveis de ambiente pelo Delphi (talvez o >> Execute aceite passar novas variáveis ou alguma outra). Outra alternativa é >> criar um arquivo batch (.bat) > > > O execute até aceita enviar o comando de SET LC_ALL junto da chamada do > dump, mas, mesmo assim o verbose retorna em inglês. Não tenho interesse em > fazer um bat pois teria que mudar a estrutura da implementação, já que > teria de colocar o password nele, etc... Mesmo assim obrigado pelas dicas. > > >
_______________________________________________ pgbr-geral mailing list pgbr-geral@listas.postgresql.org.br https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
