Prideti projektai Library_proj ir DLL_Loader

maysaa · Feb 18, 2013 · ee64560 · ee64560
1 parent 60505c1
commit ee64560
Show file tree

Hide file tree

Showing 11 changed files with 648 additions and 0 deletions.
diff --git a/VLib/Info/skaityk.txt b/VLib/Info/skaityk.txt
@@ -0,0 +1,51 @@
+46008281120 as/k
+
+36205301333 as/k
+
+44308240558 as/k
+
+44605150869 as/k
+
+37508300765
+
+36602110839
+
+36002080571
+
+36102011479
+
+43701070738
+
+35609080959
+
+36009060515
+
+45606010570
+
+37506160131
+
+36105240834
+
+45805121646
+
+44510020252
+
+
+
+154162626  įmonės kodas
+
+171295543
+
+Uždavinys butu toks :
+
+
+
+kreipiasi  http://www.vmi.lt/lt/?itemId=1003741 negavus atsakymo reikia patikrinti http://www.vmi.lt/lt/?itemId=1003740
+
+                                             Čia yra dėl 6 % lengvatos                                gali jis būti 21% mokėtojas yra ir tada iš čia gražinti atsakymą
+
+
+
+Gražinti registracijos data  pateikimo data
+
+Galiojimo  data ir jei baigia galioti tada pabaigos data 
diff --git a/VLib/Library_proj/DLL_Loader/DLL_Loader.dpr b/VLib/Library_proj/DLL_Loader/DLL_Loader.dpr
@@ -0,0 +1,15 @@
+program DLL_Loader;
+
+uses
+FastMM4,
+  Vcl.Forms,
+  Unit2 in 'Unit2.pas' {Form2};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TForm2, Form2);
+  Application.Run;
+end.
diff --git a/VLib/Library_proj/DLL_Loader/DLL_Loader.dproj b/VLib/Library_proj/DLL_Loader/DLL_Loader.dproj
@@ -0,0 +1,146 @@
+	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{FB25C806-46C8-4D17-B337-F1F927B0CEFB}</ProjectGuid>
+			<ProjectVersion>13.4</ProjectVersion>
+			<FrameworkType>VCL</FrameworkType>
+			<MainSource>DLL_Loader.dpr</MainSource>
+			<Base>True</Base>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+			<Platform Condition="'$(Platform)'==''">Win32</Platform>
+			<TargetedPlatforms>1</TargetedPlatforms>
+			<AppType>Application</AppType>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+			<Base_Win64>true</Base_Win64>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+			<Base_Win32>true</Base_Win32>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+			<Cfg_1>true</Cfg_1>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+			<Cfg_1_Win32>true</Cfg_1_Win32>
+			<CfgParent>Cfg_1</CfgParent>
+			<Cfg_1>true</Cfg_1>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+			<Cfg_2>true</Cfg_2>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_UsePackage>AnyDAC_PhysADS_D16;AnyDAC_Comp_D16;DBXInterBaseDriver;DataSnapServer;DataSnapCommon;DbxCommonDriver;dbxcds;AnyDAC_PhysTDBX_D16;CustomIPTransport;dsnap;AnyDAC_PhysSQLITE_D16;IndyCore;IPIndyImpl;bindcompfmx;dbrtl;bindcomp;inetdb;xmlrtl;ibxpress;bindengine;soaprtl;DBXInformixDriver;DBXFirebirdDriver;inet;AnyDAC_PhysMSAcc_D16;DBXSybaseASADriver;AnyDAC_GUIxForms_D16;dbexpress;fmx;AnyDAC_PhysPg_D16;AnyDAC_PhysDb2_D16;IndySystem;AnyDAC_Phys_D16;DataSnapClient;DataSnapProviderClient;AnyDAC_PhysMSSQL_D16;DBXOracleDriver;AnyDAC_PhysOracle_D16;fmxase;AnyDAC_PhysMySQL_D16;inetdbxpress;AnyDAC_PhysODBC_D16;rtl;DbxClientDriver;AnyDAC_PhysASA_D16;IndyProtocols;DBXMySQLDriver;AnyDAC_ComI_D16;fmxobj;AnyDAC_PhysIB_D16;fmxdae;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
+			<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+			<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+			<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+			<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+			<DCC_E>false</DCC_E>
+			<DCC_N>false</DCC_N>
+			<DCC_S>false</DCC_S>
+			<DCC_F>false</DCC_F>
+			<DCC_K>false</DCC_K>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base_Win64)'!=''">
+			<DCC_UsePackage>cxPageControlD16;dxComnD16;dxPSCoreD16;dcldxSkinsCoreD16;cxSpreadSheetD16;dxSkinHighContrastD16;dxSkinLiquidSkyD16;dxSkinSilverD16;vclimg;dxSkinOffice2010SilverD16;dxSkinOffice2010BlackD16;vcldb;dxRibbonD16;cxVerticalGridD16;dxSkinLilianD16;dxThemeD16;dxSkinBlueD16;cxTreeListdxBarPopupMenuD16;dxSkinOffice2010BlueD16;dxGDIPlusD16;dxPSdxDBTVLnkD16;dxSkinTheAsphaltWorldD16;dxSkinSevenD16;cxTreeListD16;cxLibraryD16;dxPSdxDBOCLnkD16;dxPScxSchedulerLnkD16;dxSkinPumpkinD16;dxBarExtItemsD16;dxLayoutControlD16;dxDockingD16;dxSkinXmas2008BlueD16;dxSkinMcSkinD16;cxPivotGridD16;dxPSTeeChartD16;cxEditorsD16;dxPScxCommonD16;DBXOdbcDriver;dxPSLnksD16;dxBarExtDBItemsD16;dxSkinsCoreD16;dxmdsD16;vclactnband;bindcompvcl;dxSkinSummer2008D16;dxTabbedMDID16;vclie;dxPSdxLCLnkD16;dxSkinSharpPlusD16;dxSkinBlackD16;dsnapcon;vclx;dxSkinsdxBarPainterD16;dxPScxTLLnkD16;cxSchedulerD16;dxSkinValentineD16;dxSkinWhiteprintD16;cxPageControldxBarPopupMenuD16;dxSkinOffice2007SilverD16;dxPSdxFCLnkD16;cxBarEditItemD16;TeeDB;dxNavBarD16;dxSkinSpringTimeD16;vclib;dxSkinOffice2007BlueD16;dxPSDBTeeChartD16;dxSkinsdxNavBarPainterD16;cxPivotGridOLAPD16;dxSpellCheckerD16;dxdbtrD16;DBXSybaseASEDriver;dxBarDBNavD16;dxSkinGlassOceansD16;dxSkinStardustD16;dxCoreD16;dxorgcD16;vcldsnap;dxSkinDarkSideD16;dxSkinscxPCPainterD16;dxPScxExtCommonD16;DBXDb2Driver;dxdborD16;vcl;dxSkinscxSchedulerPainterD16;dxPSdxOCLnkD16;dxPScxSSLnkD16;DBXMSSQLDriver;dxSkinCoffeeD16;dxSkinDarkRoomD16;dxPScxVGridLnkD16;dxPScxPivotGridLnkD16;webdsnap;dxBarD16;dxSkinDevExpressStyleD16;dxPScxPCProdD16;dxSkiniMaginaryD16;dxSkinOffice2007BlackD16;adortl;dxPScxGridLnkD16;dxSkinLondonLiquidSkyD16;dxPsPrVwAdvD16;dxSkinOffice2007GreenD16;dxSkinSharpD16;Tee;dxSkinSevenClassicD16;dxSkinsdxDLPainterD16;dxSkinBlueprintD16;dxPSPrVwRibbonD16;TeeUI;dxSkinMoneyTwinsD16;dxSkinDevExpressDarkStyleD16;dxSkinCaramelD16;vcltouch;websnap;dxSkinFoggyD16;VclSmp;dxFlowChartD16;dxSkinsdxRibbonPainterD16;DataSnapConnectors;dxSkinVS2010D16;cxGridD16;dxSkinOffice2007PinkD16;$(DCC_UsePackage)</DCC_UsePackage>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base_Win32)'!=''">
+			<DCC_UsePackage>cxPageControlD16;dxComnD16;dxPSCoreD16;dcldxSkinsCoreD16;cxSpreadSheetD16;dxSkinHighContrastD16;dxSkinLiquidSkyD16;dxSkinSilverD16;DIHtmlParser_DXE2;vclimg;fmi;dxSkinOffice2010SilverD16;dxSkinOffice2010BlackD16;vcldb;cxPivotGridChartD16;dxRibbonD16;cxVerticalGridD16;dxSkinLilianD16;dxThemeD16;dxSkinBlueD16;cxSchedulerGridD16;cxTreeListdxBarPopupMenuD16;dxSkinOffice2010BlueD16;dxGDIPlusD16;CloudService;dxPSdxDBTVLnkD16;FmxTeeUI;dxSkinTheAsphaltWorldD16;dxSkinSevenD16;cxTreeListD16;cxLibraryD16;dxPSdxDBOCLnkD16;dxPScxSchedulerLnkD16;dxSkinPumpkinD16;dxBarExtItemsD16;dxLayoutControlD16;dxDockingD16;vcldbx;dxSkinXmas2008BlueD16;dxSkinMcSkinD16;cxPivotGridD16;dxPSTeeChartD16;cxEditorsD16;EmbeddedWebBrowser_XE2;dxPScxCommonD16;DBXOdbcDriver;dxPSLnksD16;dxBarExtDBItemsD16;dxSkinsCoreD16;dxmdsD16;frxDB16;intrawebdb_120_160;fs16;FMXTee;vclactnband;bindcompvcl;dxSkinSummer2008D16;dxTabbedMDID16;vclie;dxPSdxLCLnkD16;dxSkinSharpPlusD16;dxSkinBlackD16;dsnapcon;vclx;dxSkinsdxBarPainterD16;dxPScxTLLnkD16;cxSchedulerD16;dxSkinValentineD16;dxSkinWhiteprintD16;cxPageControldxBarPopupMenuD16;dxSkinOffice2007SilverD16;dxPSdxFCLnkD16;cxBarEditItemD16;TeeDB;dxNavBarD16;dxSkinSpringTimeD16;Rave100VCL;vclib;inetdbbde;dxSkinOffice2007BlueD16;dxPSDBTeeChartD16;dxSkinsdxNavBarPainterD16;cxPivotGridOLAPD16;dxSpellCheckerD16;dxdbtrD16;DBXSybaseASEDriver;dxBarDBNavD16;dxSkinGlassOceansD16;dxSkinStardustD16;dxCoreD16;dxorgcD16;vcldsnap;dxSkinDarkSideD16;dxSkinscxPCPainterD16;dxPScxExtCommonD16;DBXDb2Driver;Intraweb_120_160;vclribbon;frxe16;dxdborD16;vcl;dxSkinscxSchedulerPainterD16;dxPSdxOCLnkD16;dxPScxSSLnkD16;DBXMSSQLDriver;CodeSiteExpressPkg;dxSkinCoffeeD16;dxSkinDarkRoomD16;dxPScxVGridLnkD16;dxPScxPivotGridLnkD16;webdsnap;dxBarD16;dxSkinDevExpressStyleD16;dxPScxPCProdD16;dxtrmdD16;dxSkiniMaginaryD16;dxSkinOffice2007BlackD16;adortl;dxPScxGridLnkD16;dxSkinLondonLiquidSkyD16;frx16;dxPsPrVwAdvD16;dxSkinOffice2007GreenD16;dxSkinSharpD16;Tee;dxSkinSevenClassicD16;svnui;dxSkinsdxDLPainterD16;dxSkinBlueprintD16;dxPSPrVwRibbonD16;TeeUI;dxSkinMoneyTwinsD16;dxSkinDevExpressDarkStyleD16;dxSkinCaramelD16;vcltouch;websnap;dxSkinFoggyD16;VclSmp;fsDB16;dxFlowChartD16;dxSkinsdxRibbonPainterD16;DataSnapConnectors;dxSkinVS2010D16;cxGridD16;dxSkinOffice2007PinkD16;svn;bdertl;$(DCC_UsePackage)</DCC_UsePackage>
+			<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+			<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+			<VerInfo_Locale>1033</VerInfo_Locale>
+			<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+			<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_1)'!=''">
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+			<DCC_Optimize>false</DCC_Optimize>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+			<DCC_RemoteDebug>true</DCC_RemoteDebug>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+			<DCC_RemoteDebug>false</DCC_RemoteDebug>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_2)'!=''">
+			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_DebugInformation>false</DCC_DebugInformation>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="$(MainSource)">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="Unit2.pas">
+				<Form>Form2</Form>
+			</DCCReference>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_2</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_1</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType/>
+			<BorlandProject>
+				<Delphi.Personality>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1063</VersionInfo>
+						<VersionInfo Name="CodePage">1257</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DLL_Loader.dpr</Source>
+					</Source>
+				</Delphi.Personality>
+				<Deployment/>
+				<Platforms>
+					<Platform value="Win64">False</Platform>
+					<Platform value="Win32">True</Platform>
+				</Platforms>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+		<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+		<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+	</Project>
diff --git a/VLib/Library_proj/DLL_Loader/DLL_Loader.res b/VLib/Library_proj/DLL_Loader/DLL_Loader.res
diff --git a/VLib/Library_proj/DLL_Loader/Unit2.dfm b/VLib/Library_proj/DLL_Loader/Unit2.dfm
@@ -0,0 +1,25 @@
+object Form2: TForm2
+  Left = 0
+  Top = 0
+  Caption = 'Form2'
+  ClientHeight = 243
+  ClientWidth = 472
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Button1: TButton
+    Left = 144
+    Top = 48
+    Width = 75
+    Height = 25
+    Caption = 'Button1'
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+end
diff --git a/VLib/Library_proj/DLL_Loader/Unit2.pas b/VLib/Library_proj/DLL_Loader/Unit2.pas
@@ -0,0 +1,87 @@
+unit Unit2;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
+
+type
+  TContractor = record // Ūkininkai, kuriems taikomas kompensacinio PVM tarifas
+    Name: WideString; // vardas, pavarde
+    Code: WideString; // Kodas:
+
+    { Duomenys apie įregistravimą }
+    LicenceNo: WideString; // Pažym. nr.
+    StartDate: WideString; // Reg. data
+    StartLicenceDate: WideString; // Data nuo kada taikomas komp. PVM tarifas
+
+    { Duomenys apie išregistravimą }
+    EndDate: WideString; // Išreg. data
+    EndLicenceDate: WideString; // Pažym. negalioja nuo
+
+    InfoNotes: WideString; // Paskelbimo negaliojančiu "VŽ" priede pranešimai
+    EndCause: WideString; // Išreg. priežastis
+    Notes: WideString; // Pastabos
+  end;
+
+type
+  TContractorVAT = record // PVM mokėtojai
+    Name: WideString; // vardas, pavarde;
+    VATCode: WideString; // PVM kodas:
+    StartDate: WideString; // Įregistravimo PVM mokėtojų data:
+    EndDate: WideString; // Išregistravimo iš PVM mokėtojų registro data:
+  end;
+
+type
+
+  TGetInfo = function(ANumber: WideString; out AContractor: TContractor;
+    out AContractorVAT: TContractorVAT): Boolean;
+
+type
+  TForm2 = class(TForm)
+    Button1: TButton;
+    procedure Button1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm2.Button1Click(Sender: TObject);
+var
+  dllHandle: cardinal;
+  GetInfo: TGetInfo;
+  resContractor: TContractor;
+  resContractorVAT: TContractorVAT;
+begin
+  dllHandle := LoadLibrary
+    ('d:\DEV\ADS\trunk\VLib\Library_proj\Win32\Debug\VLib.dll');
+  if dllHandle <> 0 then
+  begin
+    @GetInfo := GetProcAddress(dllHandle, 'GetData');
+    if Assigned(GetInfo) then
+    begin
+       GetInfo('123456789',resContractor, resContractorVAT);
+      ShowMessage(resContractor.Name);
+      ShowMessage(resContractorVAT.Name);
+    end
+    else
+      ShowMessage('"GetData" function not found');
+    FreeLibrary(dllHandle);
+  end
+  else
+  begin
+    ShowMessage('VLib.dll not found / not loaded');
+  end;
+end;
+
+end.
diff --git a/VLib/Library_proj/MainFRM.dfm b/VLib/Library_proj/MainFRM.dfm
@@ -0,0 +1,16 @@
+object frmMain: TfrmMain
+  Left = 0
+  Top = 0
+  Caption = 'Main'
+  ClientHeight = 114
+  ClientWidth = 271
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+end