Dll in Delphi: Aggiunta gestione della quantità

Author: reddevlab

.gitignore

@@ -2,3 +2,4 @@ __history/
 Win32/
 *.skincfg
 bin/
+TestDllPas/TestDllPas.identcache

TestDllPas/ImplItfCppOrdine.pas

@@ -25,16 +25,20 @@     TImplCppRiga = class(TObject, ICppRiga)
     public
         function GetCodice: PWideChar; stdcall;
         function GetDescrizione: PWideChar; stdcall;
+        function GetQta(): Integer; stdcall;
     protected
         // Property per i test
         m_cod: AnsiString;
         m_des: AnsiString;
+        m_qta: Integer;
 
         m_refCount: Integer;
         constructor Create(const codice: AnsiString; const descrizione: AnsiString);
+        function generaQta(): Integer;
         function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall;
         function _AddRef: Integer; stdcall;
         function _Release: Integer; stdcall;
+
     end;
 
 
@@ -45,27 +49,28 @@     TImplCppRiga = class(TObject, ICppRiga)
       @Date: 28/04/2019
       ----------------------------------------------------------------* }
 
-
     TImplCppOrdine = class(TObject, ICppOrdine)
     public
-
         m_cppRiga: TImplCppRiga;
 
-        constructor Create();
-        destructor Destroy(); override;
         function GetNumeroOrdine: Integer; stdcall;
         function GetRiga(const index: Integer): { ICppRiga } Pointer; stdcall;
         function ContaRighe(): Integer; stdcall;
+
+        constructor Create();
+        destructor Destroy(); override;
     protected
         // Property private di mockup per i test
         m_numeroOrdine: Integer;
         m_lstRighe: TList;
 
         m_refCount: Integer;
         procedure creaDatiMockup();
+
         function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall;
         function _AddRef: Integer; stdcall;
         function _Release: Integer; stdcall;
+
     end;
 
 implementation
@@ -121,15 +126,14 @@ function TImplCppOrdine.GetNumeroOrdine: Integer;
 
 function TImplCppOrdine.GetRiga(const index: Integer): { ICppRiga } Pointer;
 var
-    kk: Integer;
+    rg: TImplCppRiga;
 begin
-    if index > m_lstRighe.Count then
-        result := nil
-    else
+    result := nil;
+    if index <= m_lstRighe.Count then
     begin
-        // scorro alla ricerca della riga richiesta
-        for kk := 0 to index do
-            result := m_cppRiga;
+        // ritorno la struttura cercata
+        rg := m_lstRighe.Items[index];
+        result := Pointer(ICppRiga(rg));
     end;
 end;
 
@@ -163,6 +167,14 @@ constructor TImplCppRiga.Create(const codice, descrizione: AnsiString);
 begin
     m_cod := codice;
     m_des := descrizione;
+    m_qta := generaQta();
+end;
+
+function TImplCppRiga.generaQta: Integer;
+begin
+    result := Random(5);
+    if result = 0 then
+        result := 1;
 end;
 
 function TImplCppRiga.GetCodice: PWideChar;
@@ -181,6 +193,11 @@ function TImplCppRiga.GetDescrizione: PWideChar;
     result := buff;
 end;
 
+function TImplCppRiga.GetQta: Integer;
+begin
+    result := m_qta;
+end;
+
 function TImplCppRiga.QueryInterface(const IID: TGUID; out Obj): HRESULT;
 begin
     Pointer(Obj) := self;

TestDllPas/ItfCppOrdine.pas

@@ -13,6 +13,7 @@ interface
     ICppRiga = interface
         function GetCodice(): PWideChar; stdcall;
         function GetDescrizione(): PWideChar; stdcall;
+        function GetQta(): Integer; stdcall;
     end;
 
 

TestDllPas/TestDllPas.dproj

@@ -5,7 +5,7 @@
         <FrameworkType>None</FrameworkType>
         <MainSource>TestDllPas.dpr</MainSource>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Library</AppType>
@@ -44,15 +44,22 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_Alignment>0</DCC_Alignment>
         <Manifest_File>None</Manifest_File>
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
         <GenDll>true</GenDll>
         <VerInfo_Locale>1040</VerInfo_Locale>
         <SanitizedProjectName>TestDllPas</SanitizedProjectName>
         <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
-        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_ExeOutput>..\TestAppCpp\bin</DCC_ExeOutput>
         <DCC_E>false</DCC_E>
         <DCC_N>false</DCC_N>
         <DCC_S>false</DCC_S>
@@ -63,10 +70,10 @@
         <DCC_UsePackage>FireDACPgDriver;DBXInterBaseDriver;DataSnapServer;DataSnapCommon;DbxCommonDriver;dbxcds;CustomIPTransport;dsnap;IndyIPServer;IndyCore;CloudService;FmxTeeUI;FireDACIBDriver;dsnapxml;FireDACDb2Driver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;dbrtl;FireDACCommon;bindcomp;inetdb;xmlrtl;FireDACCommonDriver;bindengine;soaprtl;FMXTee;FireDACMSSQLDriver;DBXInformixDriver;DataSnapServerMidas;DBXFirebirdDriver;inet;FireDACMySQLDriver;soapmidas;DBXSybaseASADriver;RESTComponents;dbexpress;IndyIPClient;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DataSnapClient;DataSnapProviderClient;fmxFireDAC;DBXOracleDriver;fmxase;IndyIPCommon;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;FireDACInfxDriver;FireDACASADriver;rtl;DbxClientDriver;DataSnapNativeClient;IndyProtocols;DBXMySQLDriver;bindcompdbx;FireDACADSDriver;FireDAC;fmxobj;FireDACOracleDriver;fmxdae;FireDACMSAccDriver;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <Debugger_HostApplication>D:\Temp\EsempiXE\CppCallDelphi\TestAppCpp\bin\TestAppCpp.exe</Debugger_HostApplication>
         <DCC_UsePackage>cxSchedulerTreeBrowserRS20;dxPSdxPDFViewerLnkRS20;dxSkinOffice2007SilverRS20;cxGridRS20;dxFireDACServerModeRS20;dxPSdxLCLnkRS20;dxPScxExtCommonRS20;cxPageControlRS20;dxPSdxSpreadSheetLnkRS20;FireDACPgDriver;dxPSdxMapControlLnkRS20;dxSkinVisualStudio2013DarkRS20;DBXInterBaseDriver;DataSnapServer;DataSnapCommon;dxSkinsdxBarPainterRS20;dxSkinSharpRS20;DbxCommonDriver;dxLayoutControlRS20;vclimg;dxSkinSilverRS20;dxSkinsdxNavBarPainterRS20;dbxcds;DatasnapConnectorsFreePascal;dxPSCoreRS20;dxSkinOffice2013LightGrayRS20;vcldb;dxPSTeeChartRS20;dxSkinOffice2013WhiteRS20;dxSkinMcSkinRS20;CustomIPTransport;dsnap;IndyIPServer;dxSkinCoffeeRS20;dxSkinGlassOceansRS20;IndyCore;dxSkinOffice2010SilverRS20;dxComnRS20;CloudService;dxSkinOffice2013DarkGrayRS20;dxFlowChartRS20;FmxTeeUI;FireDACIBDriver;dxDBXServerModeRS20;FMXfrx20;BCEditor.Delphi.XE6.Runtime;dxSkinOffice2007PinkRS20;dxSkinSpringTimeRS20;dxOfficeCoreRS20;dxSkinVisualStudio2013BlueRS20;dxSkiniMaginaryRS20;cxTreeListdxBarPopupMenuRS20;dxPScxGridLnkRS20;dxSkinDevExpressDarkStyleRS20;dxPsPrVwAdvRS20;cxSchedulerGridRS20;dxtrmdRS20;dsnapxml;dxSpreadSheetRS20;FireDACDb2Driver;dxSkinMoneyTwinsRS20;dxSkinOffice2007GreenRS20;dxPScxTLLnkRS20;dxRichEditControlRS20;cxPivotGridOLAPRS20;dxPSdxFCLnkRS20;dxPSdxGaugeControlLnkRS20;bindcompfmx;dxPDFViewerRS20;vcldbx;dxSpreadSheetConditionalFormattingDialogsRS20;FireDACODBCDriver;RESTBackendComponents;dbrtl;FireDACCommon;bindcomp;inetdb;FMXfrxDB20;dxSkinVisualStudio2013LightRS20;DBXOdbcDriver;vclFireDAC;xmlrtl;dxSkinOffice2007BlackRS20;FireDACCommonDriver;bindengine;vclactnband;soaprtl;FMXTee;dxGDIPlusRS20;bindcompvcl;vclie;dxPSRichEditControlLnkRS20;cxVerticalGridRS20;cxSchedulerRS20;dxRibbonCustomizationFormRS20;dxSkinBlackRS20;FireDACMSSQLDriver;DBXInformixDriver;dxSkinSummer2008RS20;Intraweb;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;dxBarRS20;cxDataRS20;dxSkinDarkSideRS20;FireDACMySQLDriver;soapmidas;vclx;dxPScxVGridLnkRS20;dxSkinLondonLiquidSkyRS20;dxCoreRS20;DBXSybaseASADriver;RESTComponents;dxPSPrVwRibbonRS20;dbexpress;dxPSLnksRS20;IndyIPClient;dxSpellCheckerRS20;dxBarExtItemsRS20;dxdbtrRS20;FireDACSqliteDriver;FireDACDSDriver;cxSchedulerRibbonStyleEventEditorRS20;DBXSqliteDriver;fmx;dxSkinVS2010RS20;dxPScxPCProdRS20;IndySystem;dxSkinXmas2008BlueRS20;TeeDB;tethering;inetdbbde;dxTabbedMDIRS20;DataSnapClient;dxmdsRS20;DataSnapProviderClient;DBXSybaseASEDriver;dxdborRS20;dxPSdxDBTVLnkRS20;MetropolisUILiveTile;dxSkinCaramelRS20;dxPScxSchedulerLnkRS20;dxSkinLiquidSkyRS20;dxSkinOffice2016DarkRS20;vcldsnap;dxGaugeControlRS20;dxSpreadSheetReportDesignerRS20;dxSkinDevExpressStyleRS20;fmxFireDAC;cxPivotGridChartRS20;DBXDb2Driver;DBXOracleDriver;dxSkinOffice2010BlueRS20;vclribbon;cxExportRS20;dxServerModeRS20;dxSkinscxSchedulerPainterRS20;dxSkinMetropolisDarkRS20;fmxase;vcl;DBXMSSQLDriver;IndyIPCommon;CodeSiteExpressPkg;dxSkinBlueRS20;dxSkinOffice2010BlackRS20;DataSnapFireDAC;FireDACDBXDriver;dxBarExtDBItemsRS20;dxSkinsdxDLPainterRS20;soapserver;dxPSDBTeeChartRS20;dxHttpIndyRequestRS20;inetdbxpress;dxADOServerModeRS20;dxSkinBlueprintRS20;dxSkinFoggyRS20;dxSkinSharpPlusRS20;FireDACInfxDriver;cxPivotGridRS20;adortl;dxSkinOffice2016ColorfulRS20;dxRibbonRS20;FireDACASADriver;dxSkinHighContrastRS20;dxSkinTheAsphaltWorldRS20;dxBarDBNavRS20;dxSkinscxPCPainterRS20;rtl;DbxClientDriver;dxSkinMetropolisRS20;dxNavBarRS20;dxDockingRS20;Tee;dxSkinOffice2007BlueRS20;dxSkinsdxRibbonPainterRS20;dxSkinValentineRS20;DataSnapNativeClient;svnui;IndyProtocols;DBXMySQLDriver;dxSkinSevenClassicRS20;dxPScxCommonRS20;dxSkinPumpkinRS20;bindcompdbx;TeeUI;dxSkinDarkRoomRS20;FireDACADSDriver;vcltouch;dxSkinStardustRS20;cxEditorsRS20;dxorgcRS20;dxPSdxDBOCLnkRS20;VclSmp;FireDAC;VCLRESTComponents;dxSkinsCoreRS20;DataSnapConnectors;dxSkinSevenRS20;cxLibraryRS20;fmxobj;dxMapControlRS20;svn;dxWizardControlRS20;dxSkinLilianRS20;FireDACOracleDriver;fmxdae;dxSkinWhiteprintRS20;dxPScxPivotGridLnkRS20;bdertl;dxThemeRS20;dxPSdxOCLnkRS20;cxTreeListRS20;dxTileControlRS20;FireDACMSAccDriver;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
@@ -82,7 +89,6 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <Manifest_File>None</Manifest_File>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
     </PropertyGroup>
@@ -92,6 +98,10 @@
         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
         <DCC_DebugInformation>0</DCC_DebugInformation>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+    </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>

TestDllPas/UnitMainDll.pas

@@ -28,13 +28,10 @@ initialization
     g_TImplCppOrdine := nil;
 end;
 
-
 finalization
 
 begin
-
     g_TImplCppOrdine.Free;
 end;
 
 end.
-