2008-03-09 20:36:27 +00:00
|
|
|
program X2XMLDataBindingCmdLine;
|
|
|
|
|
|
|
|
uses
|
2008-03-09 20:46:16 +00:00
|
|
|
madExcept,
|
|
|
|
madLinkDisAsm,
|
|
|
|
madListHardware,
|
|
|
|
madListProcesses,
|
|
|
|
madListModules,
|
2008-03-09 20:36:27 +00:00
|
|
|
ActiveX,
|
|
|
|
SysUtils,
|
|
|
|
DelphiXMLDataBindingGenerator in 'Units\DelphiXMLDataBindingGenerator.pas',
|
|
|
|
XMLDataBindingGenerator in 'Units\XMLDataBindingGenerator.pas',
|
2008-03-09 20:46:16 +00:00
|
|
|
XMLDataBindingHelpers in 'Units\XMLDataBindingHelpers.pas';
|
2008-03-09 20:36:27 +00:00
|
|
|
|
|
|
|
begin
|
|
|
|
CoInitialize(nil);
|
|
|
|
|
|
|
|
with TDelphiXMLDataBindingGenerator.Create() do
|
|
|
|
try
|
|
|
|
OutputType := otSingle;
|
|
|
|
OutputPath := ParamStr(2);
|
|
|
|
|
|
|
|
Execute(ParamStr(1));
|
|
|
|
finally
|
|
|
|
Free();
|
|
|
|
end;
|
|
|
|
end.
|
|
|
|
|