Parâmetro Externo

[José Luiz]

Estou desenvolvendo um sistema de emissão de relatórios, com o QuickReport.

O programa abre, emite o relatório e fecha.

Neste programa, estou colocando vários quickreports, e portanto necessito passar um parâmetro externo, para que o programa execute o QuickReport correspondente.

Por exemplo:

Se eu passar o parâmetro 1, vai executar o QuickReport1.

Se eu passar o parâmetro 2, vai executar o QuickReport2 e assim por diante.

Como faço para verificar na abertura do programa, qual foi o parâmetro passado ?

Depois de receber o parâmetro, basta fazer um case para executar o QuickReport desejado.

Espero ter sido claro.

Em Clipper, colocavamos no início do programa a palavra PARAMETERS e relacionavamos os parâmetros esperados, separados por vírgulas.

Como faço no Delphi ?

Obrigado.

[Jhonas]

Passar parametros no delphi

Veja este exemplos:

http://www.devmedia.com.br/articles/viewcomp.asp?comp=7557

http://universodelphi.blogspot.com/2008/01...-parmetros.html

http://scriptbrasil.com.br/forum/index2.ph...p;mode=threaded

abraço

[José Luiz]

Obrigado Jhonas, mas não consegui resolver o meu problema com os exemplos que você forneceu.

Eu desejo Chamar o executável de uma linha de comando, como por exemplo no INICIAR - EXECUTAR.

Coloco então o nome do programa RELATORIO.EXE e o parâmetro que eu desejo passar.

Ex:

RELATORIO.EXE 1

- Vai imprimir o QuickReport1

ou

RELATORIO.EXE 2

- Vai imprimir o QuickReport2

Por essa razão, ao abrir o programa, preciso saber qual foi o parâmetro passado. 1, 2, 3 ...

para então mandar executar o que eu desejo.

Obrigado.

[José Luiz]

Obrigado, encontrei em outro fórum, o que eu precisava. Segue abaixo.

procedure TForm1.FormCreate(Sender: TObject);
var
iInd      : Integer;
sParametro: string;
begin

  for iInd := 1 to ParamCount do begin
    sParametro := upperCase ( ParamStr ( iInd ) );
    if sParametro = 'SAIR' then begin
      ShowMessage ( 'O Aplicativo sera finalizado.' );
      Application.Terminate;
    end;
    ShowMessage ( sParametro );
  end;

end;

[Eder Moraes]

Este exemplo funciona bem, mais ele conta todos os parametros da linha de comando.

EX:

c:\pasta\app.exe /s /f /m

aqui tenho 4 parametros para o applicativo o proprio nome é um param

para fazer a verificação do param para gerar o seu qrep

use a chamada do parametro correspondente.

if ParamStr(1) = '/s' then

if ParamStr(2) = '/f' then

if ParamStr(3) = '/m' then

.

.

e assim por diante, os params pode ser lidos na criação do form principal.

Voce pode usar a contagem do ex que voce pegou para armazenar os valores em uma array para posterior leitura.

da forma que voce citou como o parametro usado é um inteiro voce pode usar o case.

case strtoint(ParamStr(1)) of 
  0: executar...;
  1: ...;
  .
  .
  .
end;

Editado Abril 5, 2009 por Eder Moraes