ActiveDelphi

[Marc-br]

Boa noite.

Eu fiz um programa que assina PDF e não tem interface.
Voce roda o executavel passando os parametros e ele assina o PDF.

Por exemplo:
voce dispara uma linha de comando no MSDOS
nome_programa.exe parametro1, p2, p3, p4, p5, p6, p7, p8, p9
dai assina o PDF

Mas se informar algum parametro errado, gostaria que retornasse o erro no MS-DOS apos o disparo da linha de comando.

Como fazer isso ?

Segue o codigo do projeto .DPR

program Prj_AssinarPDF;

uses
Vcl.Forms,
F_Principal in 'F_Principal.pas' {Frm_Principal};

{$R *.res}
var p1, p2, p3, p4, p5, p6, p7, p8, p9:string;
begin
Application.Initialize;
Application.Title := 'Assinador de PDF';
//Application.MainFormOnTaskbar := True;
Application.CreateForm(TFrm_Principal, Frm_Principal);
p1 := ParamStr(1);
p2 := ParamStr(2);
p3 := ParamStr(3);
p4 := ParamStr(4);
p5 := ParamStr(5);
p6 := ParamStr(6);
p7 := ParamStr(7);
p8 := ParamStr(;
p9 := ParamStr(9);
Frm_Principal.AssinaPDF(p1, p2, p3, p4, p5, p6, p7, p8, p9);
Frm_Principal.Free;
//Application.Run;
end.

[joemil]

WriteLn ou Console.WriteLn nao funciona?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[johnny-walker]

Tente dessa forma que você pode você conseguir um método que retorna a mensagem de erro que você quer. Assim é possível dar a mensagem de erro na aplicação, deixando a mensagem de erro na aplicação.

Outra forma seria com WM_COPYDATA que com esse tipo de mensagem você pode comunicar com outra aplicação, desde que a outra aplicação esteja preparada para receber a mensagem.


https://stackoverflow.com/questions/9119999/getting-output-from-a-shell-dos-app-into-a-delphi-app



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[Marc-br]