diff --git a/Units/DelphiXMLDataBindingGenerator.pas b/Units/DelphiXMLDataBindingGenerator.pas index dd4f233..1da1eb2 100644 --- a/Units/DelphiXMLDataBindingGenerator.pas +++ b/Units/DelphiXMLDataBindingGenerator.pas @@ -382,7 +382,7 @@ begin ' doc := NewXMLDocument;'#13#10 + ' doc.LoadFromStream(AStream);'#13#10 + ' Result := GetOfferte(doc);', - ' doc: IXMLDocument'); + ' doc: IXMLDocument;'); WriteFunction(interfaceItem.TranslatedName, 'New%0:s', diff --git a/X2XMLDataBindingCmdLine.bdsproj b/X2XMLDataBindingCmdLine.bdsproj index 034279f..6de5816 100644 --- a/X2XMLDataBindingCmdLine.bdsproj +++ b/X2XMLDataBindingCmdLine.bdsproj @@ -125,7 +125,7 @@ vcl;rtl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;dsnapcon;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;CLXIB;ibxpress;VCLIB;teeui;teedb;tee;dss;vclactnband;vclshlctrls;dclOfficeXP;Indy70;cxLibraryVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxsbD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxPageControlVCLD7;cxGridVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;cxVerticalGridVCLD7;cxSpreadSheetVCLD7;dxNavBarD7;cxWebD7;cxWebPascalScriptD7;cxWebSnapD7;cxWebTeeChartD7;dxMasterViewD7;dxmdsD7;dxdbtrD7;dxtrmdD7;dxorgcD7;dxdborD7;dxFlowChartD7;dxLayoutControlD7;dxLayoutControlcxEditAdaptersD7;dxPSCoreD7;dxPSTeeChartD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSdxOCLnkD7;dxPSdxMVLnkD7;dxPSdxLCLnkD7;dxPSdxFCLnkD7;dxPSdxDBTVLnkD7;dxPSdxDBOCLnkD7;dxPSDBTeeChartD7;dxPScxCommonD7;dxPScxTLLnkD7;dxPScxSSLnkD7;dxPScxPCProdD7;dxPScxGridLnkD7;dxPScxExtCommonD7;dxPScxVGridLnkD7;fo_d7;xtx_d7;Rave50CLX;Rave50VCL;pngimaged7;dxGDIPlusD7;UnRegDxPNG - + madExcept False diff --git a/X2XMLDataBindingCmdLine.cfg b/X2XMLDataBindingCmdLine.cfg index 8a733fd..cfeaedd 100644 --- a/X2XMLDataBindingCmdLine.cfg +++ b/X2XMLDataBindingCmdLine.cfg @@ -35,6 +35,7 @@ -N0"Lib" -LE"C:\Documents and Settings\PsychoMark\My Documents\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\PsychoMark\My Documents\Borland Studio Projects\Bpl" +-DmadExcept -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST diff --git a/X2XMLDataBindingCmdLine.dpr b/X2XMLDataBindingCmdLine.dpr index 217299a..2ac3810 100644 --- a/X2XMLDataBindingCmdLine.dpr +++ b/X2XMLDataBindingCmdLine.dpr @@ -1,12 +1,16 @@ program X2XMLDataBindingCmdLine; uses + madExcept, + madLinkDisAsm, + madListHardware, + madListProcesses, + madListModules, ActiveX, SysUtils, DelphiXMLDataBindingGenerator in 'Units\DelphiXMLDataBindingGenerator.pas', XMLDataBindingGenerator in 'Units\XMLDataBindingGenerator.pas', - XMLDataBindingHelpers in 'Units\XMLDataBindingHelpers.pas', - xml_Offerte in 'F:\XTxXSD\Output\xml_Offerte.pas'; + XMLDataBindingHelpers in 'Units\XMLDataBindingHelpers.pas'; begin CoInitialize(nil);