37 lines
578 B
Plaintext
37 lines
578 B
Plaintext
program KvCttSchw;
|
|
|
|
//{$APPTYPE CONSOLE}
|
|
|
|
{$R *.res}
|
|
|
|
uses
|
|
System.SysUtils,
|
|
superobject,
|
|
ProcessHwp in 'ProcessHwp.pas';
|
|
|
|
var
|
|
O: ISuperObject;
|
|
sPath: String;
|
|
begin
|
|
try
|
|
{ TODO -oUser -cConsole Main : Insert code here }
|
|
|
|
try
|
|
sPath := ParamStr(1);
|
|
if not LoadJsonObjFromFile(O, sPath) then
|
|
exit;
|
|
DeleteFile(sPath);
|
|
|
|
if not FileExists(O.S['Src']) then
|
|
exit;
|
|
|
|
FilterHwp(O.S['Src'], O.S['Dest']);
|
|
except
|
|
exit;
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
Writeln(E.ClassName, ': ', E.Message);
|
|
end;
|
|
end.
|