26 ソース1 program Project1; { $APPTYPE CONSOLE} uses SysUtils, Unit1 in 'Unit1.pas' {DataModule1: TDataModule}; var i,n:integer; p1,p2,p3:string; strSQL:string; begin // パラメータ取得 n:=ParamCount; if n > 0 then begin for i:=1 to n do begin if i = 1 then begin p1 := ParamStr(i); end; if i = 2 then begin p2 := ParamStr(i); end; if i = 3 then begin p3 := ParamStr(i); end; end; end; {TODO -oUser -cConsole Main : この下にコードを記述してください} //RPG プログラムキック datamodule1 := TDataModule1.Create(nil); try unit1.DataModule1.AS4001.Userid := 'USERID'; unit1.DataModule1.AS4001.PWD := 'PASWRD'; unit1.DataModule1.AS4001.Connect; unit1.DataModule1.Call4001.libraryname := 'LIB'; unit1.DataModule1.Call4001.ProgramName := 'PG001C'; unit1.DataModule1.call4001.Value[0] := p1; unit1.DataModule1.call4001.Value[1] := p2; unit1.DataModule1.call4001.Value[2] := p3; unit1.DataModule1.call4001.Execute; finally datamodule1.Free; end; unit1.DataModule1.con.Close; end.