Init
This commit is contained in:
commit
5e9ac89dcd
191 changed files with 4167 additions and 0 deletions
17
DBKonverter.dpr
Normal file
17
DBKonverter.dpr
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
program DBKonverter;
|
||||
|
||||
uses
|
||||
Vcl.Forms,
|
||||
Unit1 in 'Unit1.pas' {main},
|
||||
Vcl.Themes,
|
||||
Vcl.Styles,
|
||||
Str_Tool_UTF in '..\Str_Tool\Str_Tool_UTF.pas';
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.CreateForm(Tmain, main);
|
||||
Application.Run;
|
||||
end.
|
||||
570
DBKonverter.dproj
Normal file
570
DBKonverter.dproj
Normal file
|
|
@ -0,0 +1,570 @@
|
|||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EDDA6659-A9ED-4795-BC3A-3BEDE04605E9}</ProjectGuid>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<MainSource>DBKonverter.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)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<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="'$(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="('$(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_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>
|
||||
<DCC_UsePackage>RESTComponents;FireDACIBDriver;FireDACCommon;RESTBackendComponents;soapserver;CloudService;FireDACCommonDriver;inet;FireDAC;FireDACSqliteDriver;soaprtl;soapmidas;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
|
||||
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
<SanitizedProjectName>DBKonverter</SanitizedProjectName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_UsePackage>DBXSqliteDriver;ZComponent;DBXInterBaseDriver;vclactnband;ZCore;vclFireDAC;TM;tethering;svnui;JvGlobus;FireDACADSDriver;QRBarcode;frxe25;JvPluginSystem;JvMM;vcltouch;JvBands;vcldb;bindcompfmx;svn;JvJans;JvNet;inetdb;JvAppFrm;FmxTeeUI;JvDotNetCtrls;fmx;fmxdae;frxDB25;CPortLib;frxTee25;JvWizards;dbexpress;IndyCore;OnGuardDR;PCSC;vclx;ZParseSql;JvPageComps;dsnap;IcsVclD102Run;bdertl;JvDB;VCLRESTComponents;JclDeveloperTools;IcsFmxD102Run;vclie;l4000_package;bindengine;DBXMySQLDriver;JvCmp;FireDACMySQLDriver;JvHMI;FireDACCommonODBC;IndyIPCommon;bindcompdbx;JvCustom;vcl;IndyIPServer;Datamatrix;JvXPCtrls;IndySystem;dsnapcon;FireDACMSAccDriver;fmxFireDAC;vclimg;ZDbc;TeeDB;Jcl;JvCore;JvCrypt;FireDACPgDriver;FMXTee;DbxCommonDriver;JvDlgs;JvRuntimeDesign;JvManagedThreads;Tee;AsyncProDR;xmlrtl;frx25;fmxobj;vclwinx;JvTimeFramework;rtl;IPDA018;DbxClientDriver;CamRemoteD103;CustomIPTransport;vcldsnap;JvSystem;JvStdCtrls;bindcomp;appanalytics;ZPlain;IndyIPClient;SelectLine;bindcompvcl;vcldbx;TeeUI;JvDocking;dbxcds;VclSmp;JvPascalInterpreter;adortl;JclVcl;dsnapxml;dbrtl;IndyProtocols;inetdbxpress;IcsCommonD102Run;JvControls;JvPrintPreview;OnGuardFMXDR;JclContainers;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_UsePackage>DBXSqliteDriver;DBXInterBaseDriver;vclactnband;ZCore;vclFireDAC;tethering;FireDACADSDriver;vcltouch;vcldb;bindcompfmx;inetdb;FmxTeeUI;fmx;fmxdae;CPortLib;dbexpress;IndyCore;OnGuardDR;vclx;dsnap;IcsVclD102Run;VCLRESTComponents;IcsFmxD102Run;vclie;bindengine;DBXMySQLDriver;FireDACMySQLDriver;FireDACCommonODBC;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;IndySystem;dsnapcon;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDACPgDriver;FMXTee;DbxCommonDriver;Tee;AsyncProDR;xmlrtl;fmxobj;vclwinx;rtl;DbxClientDriver;CamRemoteD103;CustomIPTransport;vcldsnap;bindcomp;appanalytics;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;dsnapxml;dbrtl;IndyProtocols;inetdbxpress;IcsCommonD102Run;OnGuardFMXDR;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
||||
<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>
|
||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
||||
<AppEnableHighDPI>true</AppEnableHighDPI>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
||||
<AppEnableHighDPI>true</AppEnableHighDPI>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="Unit1.pas">
|
||||
<Form>main</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Str_Tool\Str_Tool_UTF.pas"/>
|
||||
<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>Application</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">DBKonverter.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\19.0\Bpl\PCSC_COMP.bpl">PCSC_COMP</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k250.bpl">Embarcadero C++Builder-Package für Office 2000-Server</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\bcbofficexp250.bpl">Embarcadero C++Builder-Package für Office XP-Server</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment Version="3">
|
||||
<DeployFile LocalName="Win32\Debug\DBKonverter.exe" Configuration="Debug" Class="ProjectOutput">
|
||||
<Platform Name="Win32">
|
||||
<RemoteName>DBKonverter.exe</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClassesDexFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\mips</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidServiceOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashImageDef">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStyles">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon72">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon96">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage426">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-small</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage470">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage640">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-large</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DebugSymbols">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyFramework">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.framework</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.dll;.bpl</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.bpl</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectAndroidManifest">
|
||||
<Platform Name="Android">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice32">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements">
|
||||
<Platform Name="iOSDevice32">
|
||||
<RemoteDir>..\</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<RemoteDir>..\</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>..\</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Linux64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectUWPManifest">
|
||||
<Platform Name="Win32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo150">
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo44">
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
||||
</Project>
|
||||
10
DBKonverter.dproj.local
Normal file
10
DBKonverter.dproj.local
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.dfm=D:\Projekte\DBKonverter\Unit1.dfm</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.616,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Project46.dproj=D:\Projekte\DBKonverter\DBKonverter.dproj</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas=D:\Projekte\DBKonverter\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.301,=C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas</Transaction>
|
||||
<Transaction>2024.10.11 14:38:12.467,=D:\Projekte\Str_Tool\Str_Tool_UTF.pas</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
BIN
DBKonverter.identcache
Normal file
BIN
DBKonverter.identcache
Normal file
Binary file not shown.
BIN
DBKonverter.res
Normal file
BIN
DBKonverter.res
Normal file
Binary file not shown.
10
DBKonverter.stat
Normal file
10
DBKonverter.stat
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
[Stats]
|
||||
EditorSecs=765
|
||||
DesignerSecs=91
|
||||
InspectorSecs=263
|
||||
CompileSecs=41164
|
||||
OtherSecs=249
|
||||
StartTime=19.12.2023 17:20:49
|
||||
RealKeys=0
|
||||
EffectiveKeys=0
|
||||
DebugSecs=1359
|
||||
140
Unit1.dfm
Normal file
140
Unit1.dfm
Normal file
|
|
@ -0,0 +1,140 @@
|
|||
object main: Tmain
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'DBKonverter'
|
||||
ClientHeight = 641
|
||||
ClientWidth = 1153
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object sfl: TLabel
|
||||
Left = 155
|
||||
Top = 21
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 133
|
||||
Height = 25
|
||||
Caption = 'Quelldatei w'#228'hlen'
|
||||
TabOrder = 0
|
||||
OnClick = BitBtn1Click
|
||||
end
|
||||
object JvDBGrid1: TJvDBGrid
|
||||
Left = 0
|
||||
Top = 47
|
||||
Width = 1153
|
||||
Height = 524
|
||||
DataSource = DS
|
||||
TabOrder = 1
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -11
|
||||
TitleFont.Name = 'Tahoma'
|
||||
TitleFont.Style = []
|
||||
SelectColumnsDialogStrings.Caption = 'Select columns'
|
||||
SelectColumnsDialogStrings.OK = '&OK'
|
||||
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
||||
EditControls = <>
|
||||
RowsHeight = 17
|
||||
TitleRowHeight = 17
|
||||
end
|
||||
object BitBtn2: TBitBtn
|
||||
Left = 1000
|
||||
Top = 16
|
||||
Width = 136
|
||||
Height = 25
|
||||
Caption = 'Konvertieren'
|
||||
Enabled = False
|
||||
TabOrder = 2
|
||||
OnClick = BitBtn2Click
|
||||
end
|
||||
object ST: TStatusBar
|
||||
Left = 0
|
||||
Top = 609
|
||||
Width = 1153
|
||||
Height = 32
|
||||
Panels = <
|
||||
item
|
||||
Width = 300
|
||||
end
|
||||
item
|
||||
Width = 300
|
||||
end
|
||||
item
|
||||
Width = 300
|
||||
end
|
||||
item
|
||||
Width = 300
|
||||
end>
|
||||
end
|
||||
object JvDBNavigator1: TJvDBNavigator
|
||||
Left = 5
|
||||
Top = 577
|
||||
Width = 1140
|
||||
Height = 25
|
||||
DataSource = DS
|
||||
TabOrder = 4
|
||||
end
|
||||
object OD: TOpenDialog
|
||||
DefaultExt = 'db'
|
||||
Filter = 'Paradox Dateien|*.db'
|
||||
Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
|
||||
Left = 20
|
||||
Top = 56
|
||||
end
|
||||
object T1: TTable
|
||||
TableType = ttParadox
|
||||
Left = 56
|
||||
Top = 56
|
||||
end
|
||||
object DS: TDataSource
|
||||
DataSet = T1
|
||||
Left = 92
|
||||
Top = 56
|
||||
end
|
||||
object ZDB: TZConnection
|
||||
ControlsCodePage = cCP_UTF16
|
||||
Catalog = 'AUFTRAX'
|
||||
Properties.Strings = (
|
||||
'RawStringEncoding=DB_CP')
|
||||
HostName = ''
|
||||
Port = 0
|
||||
Database =
|
||||
'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' +
|
||||
'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' +
|
||||
'="";Server SPN=""'
|
||||
User = 'sa'
|
||||
Password = 'Elfio2004'
|
||||
Protocol = 'ado'
|
||||
Left = 1068
|
||||
Top = 60
|
||||
end
|
||||
object ZT1: TZTable
|
||||
Connection = ZDB
|
||||
TableName = 'AUFTRAX.dbo.adrbrief'
|
||||
Left = 1068
|
||||
Top = 108
|
||||
end
|
||||
object ZQ1: TZQuery
|
||||
Connection = ZDB
|
||||
Params = <>
|
||||
Left = 1068
|
||||
Top = 160
|
||||
end
|
||||
object AP: TAppPath
|
||||
Left = 128
|
||||
Top = 56
|
||||
end
|
||||
end
|
||||
190
Unit1.pas
Normal file
190
Unit1.pas
Normal file
|
|
@ -0,0 +1,190 @@
|
|||
UNIT Unit1;
|
||||
|
||||
INTERFACE
|
||||
|
||||
USES
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB,
|
||||
Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid,
|
||||
ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset,
|
||||
ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls,
|
||||
JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF;
|
||||
|
||||
TYPE
|
||||
Tmain = CLASS(TForm)
|
||||
BitBtn1: TBitBtn;
|
||||
OD: TOpenDialog;
|
||||
sfl: TLabel;
|
||||
T1: TTable;
|
||||
DS: TDataSource;
|
||||
JvDBGrid1: TJvDBGrid;
|
||||
ZDB: TZConnection;
|
||||
ZT1: TZTable;
|
||||
BitBtn2: TBitBtn;
|
||||
ZQ1: TZQuery;
|
||||
ST: TStatusBar;
|
||||
JvDBNavigator1: TJvDBNavigator;
|
||||
AP: TAppPath;
|
||||
PROCEDURE BitBtn1Click(Sender: TObject);
|
||||
PROCEDURE BitBtn2Click(Sender: TObject);
|
||||
PROCEDURE FormCreate(Sender: TObject);
|
||||
PRIVATE
|
||||
{ Private-Deklarationen }
|
||||
PUBLIC
|
||||
{ Public-Deklarationen }
|
||||
END;
|
||||
|
||||
VAR
|
||||
main: Tmain;
|
||||
sfile: STRING;
|
||||
Server, User, Password, Catalog: STRING;
|
||||
|
||||
IMPLEMENTATION
|
||||
|
||||
{$R *.dfm}
|
||||
// -----------------------------------------------------------------------------
|
||||
|
||||
PROCEDURE Tmain.BitBtn1Click(Sender: TObject);
|
||||
|
||||
BEGIN
|
||||
IF OD.Execute THEN
|
||||
BEGIN
|
||||
sfile := OD.FileName;
|
||||
sfl.Caption := OD.FileName;
|
||||
T1.Active := False;
|
||||
T1.DatabaseName := ExtractFileDir(OD.FileName);
|
||||
T1.TableName := ExtractFilename(OD.FileName);
|
||||
T1.Active := TRUE;
|
||||
ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datensätze';
|
||||
ST.Refresh;
|
||||
BitBtn2.Enabled := TRUE;
|
||||
END;
|
||||
END;
|
||||
|
||||
// -----------------------------------------------------------------------------
|
||||
|
||||
PROCEDURE Tmain.BitBtn2Click(Sender: TObject);
|
||||
|
||||
VAR
|
||||
i, rc, fc: Integer;
|
||||
fn: STRING;
|
||||
createSQL: TStringList;
|
||||
|
||||
BEGIN
|
||||
FOR fc := 0 TO OD.Files.count - 1 DO
|
||||
BEGIN
|
||||
sfile := OD.Files[fc];
|
||||
sfl.Caption := OD.Files[fc];
|
||||
T1.Active := False;
|
||||
T1.DatabaseName := ExtractFileDir(OD.Files[fc]);
|
||||
T1.TableName := ExtractFilename(OD.Files[fc]);
|
||||
T1.Active := TRUE;
|
||||
ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datensätze';
|
||||
ST.Refresh;
|
||||
fn := ExtractFilename(OD.Files[fc]);
|
||||
fn := Copy(fn, 1, POS('.', fn) - 1);
|
||||
ZQ1.SQL.Clear;
|
||||
ZDB.Connect;
|
||||
ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';');
|
||||
ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';');
|
||||
ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' (');
|
||||
FOR i := 0 TO T1.Fielddefs.count - 1 DO
|
||||
BEGIN
|
||||
IF T1.Fielddefs[i].Datatype = ftString THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' datetime NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,')
|
||||
ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,')
|
||||
ELSE
|
||||
BEGIN
|
||||
ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
|
||||
END;
|
||||
END;
|
||||
ZQ1.SQL[ZQ1.SQL.count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.count - 1], ',');
|
||||
ZQ1.SQL.Add(');');
|
||||
ZQ1.ExecSQL;
|
||||
ZT1.Active := False;
|
||||
ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn);
|
||||
ZT1.Active := TRUE;
|
||||
T1.First;
|
||||
rc := 0;
|
||||
REPEAT
|
||||
inc(rc);
|
||||
ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount);
|
||||
ST.Refresh;
|
||||
ZT1.Append;
|
||||
FOR i := 0 TO T1.Fields.count - 1 DO
|
||||
BEGIN
|
||||
IF T1.Fields[i].value <> NULL THEN
|
||||
BEGIN
|
||||
TRY
|
||||
IF T1.Fielddefs[i].Datatype = ftString THEN
|
||||
ZT1.Fields[i].Text := T1.Fields[i].Text
|
||||
ELSE
|
||||
ZT1.Fields[i].value := T1.Fields[i].value
|
||||
EXCEPT
|
||||
ON e: Exception DO
|
||||
BEGIN
|
||||
ShowMessage(T1.Fielddefs[i].Name);
|
||||
END;
|
||||
END;
|
||||
END;
|
||||
END;
|
||||
TRY
|
||||
ZT1.Post;
|
||||
EXCEPT
|
||||
ON e: Exception DO
|
||||
BEGIN
|
||||
ShowMessage(e.Message);
|
||||
END;
|
||||
END;
|
||||
T1.Next;
|
||||
application.ProcessMessages;
|
||||
UNTIL T1.Eof;;
|
||||
END;
|
||||
MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0);
|
||||
END;
|
||||
|
||||
// -----------------------------------------------------------------------------
|
||||
|
||||
PROCEDURE Tmain.FormCreate(Sender: TObject);
|
||||
|
||||
VAR
|
||||
ini: TIniFile;
|
||||
|
||||
BEGIN
|
||||
ZDB.Connected := False;
|
||||
ini := TIniFile.Create(AP.AppPath + 'config.ini');
|
||||
Server := ini.ReadString('SETTINGS', 'SERVER', '');
|
||||
User := ini.ReadString('SETTINGS', 'USER', '');
|
||||
Password := ini.ReadString('SETTINGS', 'PASSWORD', '');
|
||||
Catalog := ini.ReadString('SETTINGS', 'CATALOG', '');
|
||||
ini.Free;
|
||||
ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""';
|
||||
ZDB.HostName := Server;
|
||||
ZDB.User := User;
|
||||
ZDB.Password := Password;
|
||||
ZDB.Catalog := Catalog;
|
||||
ZDB.Connected := TRUE;
|
||||
ST.Panels[1].Text := 'Server: ' + Server;
|
||||
ST.Panels[2].Text := 'Datenbank: ' + Catalog;
|
||||
ST.Panels[3].Text := 'DB-User: ' + User;
|
||||
ST.Refresh;
|
||||
END;
|
||||
|
||||
// -----------------------------------------------------------------------------
|
||||
|
||||
END.
|
||||
BIN
Win32/Debug/AppPath.dcu
Normal file
BIN
Win32/Debug/AppPath.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/DBKonverter.exe
Normal file
BIN
Win32/Debug/DBKonverter.exe
Normal file
Binary file not shown.
18
Win32/Debug/README.txt
Normal file
18
Win32/Debug/README.txt
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
This file was provided by: https://www.dll-files.com/
|
||||
|
||||
If you downloaded it from somewhere else, please let us know: info@dll-files.com
|
||||
|
||||
DLL-Files.com is owned and operated by Tilf AB, Sweden. The collection of DLL files as a whole (falls under the “collection copyright” laws) are © Copyright Tilf AB
|
||||
|
||||
The individual DLL files are provided free of charge with the understanding that the user is familiar with their use.
|
||||
|
||||
If you need help installing the file, please see:
|
||||
https://www.dll-files.com/support/
|
||||
or ask your question in the forum:
|
||||
https://forum.dll-files.com/
|
||||
|
||||
DISCLAIMER AND LIMITATION OF LIABILITY
|
||||
|
||||
The Following Refers to all Files with the Extension of "dll" or dlls compressed as "zip".
|
||||
|
||||
All files are provided on an as is basis. No guarantees or warranties are given or implied. Downloading files from this site is free of charge and the user assumes all risks of any damages that may occur, including but not limited to loss of data, damages to hardware, or loss of business profits. We do our best to ensure that all files are virus-free using available means. However, all files have not been tested for functionality or contamination. Many have been sent to us by visitors like yourself. Thus, we suggest that you do a virus scan using an up-to-date version of an anti-virus program before use. Please use at your own risk.
|
||||
BIN
Win32/Debug/Str_Tool_UTF.dcu
Normal file
BIN
Win32/Debug/Str_Tool_UTF.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/Unit1.dcu
Normal file
BIN
Win32/Debug/Unit1.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZAbstractConnection.dcu
Normal file
BIN
Win32/Debug/ZAbstractConnection.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZAbstractDataset.dcu
Normal file
BIN
Win32/Debug/ZAbstractDataset.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZAbstractRODataset.dcu
Normal file
BIN
Win32/Debug/ZAbstractRODataset.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZAbstractTable.dcu
Normal file
BIN
Win32/Debug/ZAbstractTable.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZAdoToken.dcu
Normal file
BIN
Win32/Debug/ZAdoToken.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZBase64.dcu
Normal file
BIN
Win32/Debug/ZBase64.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZClasses.dcu
Normal file
BIN
Win32/Debug/ZClasses.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZCollections.dcu
Normal file
BIN
Win32/Debug/ZCollections.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZCompatibility.dcu
Normal file
BIN
Win32/Debug/ZCompatibility.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZConnection.dcu
Normal file
BIN
Win32/Debug/ZConnection.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDataset.dcu
Normal file
BIN
Win32/Debug/ZDataset.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDatasetParam.dcu
Normal file
BIN
Win32/Debug/ZDatasetParam.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDatasetUtils.dcu
Normal file
BIN
Win32/Debug/ZDatasetUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcASA.dcu
Normal file
BIN
Win32/Debug/ZDbcASA.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcASAMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcASAMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcASAResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcASAResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcASAStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcASAStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcASAUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcASAUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcAdo.dcu
Normal file
BIN
Win32/Debug/ZDbcAdo.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcAdoMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcAdoMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcAdoResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcAdoResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcAdoStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcAdoStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcAdoUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcAdoUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcBeginnerStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcBeginnerStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcCache.dcu
Normal file
BIN
Win32/Debug/ZDbcCache.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcCachedResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcCachedResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcConnection.dcu
Normal file
BIN
Win32/Debug/ZDbcConnection.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcDbLib.dcu
Normal file
BIN
Win32/Debug/ZDbcDbLib.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcDbLibMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcDbLibMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcDbLibResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcDbLibResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcDbLibStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcDbLibStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcDbLibUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcDbLibUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcFirebird.dcu
Normal file
BIN
Win32/Debug/ZDbcFirebird.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcFirebirdInterbase.dcu
Normal file
BIN
Win32/Debug/ZDbcFirebirdInterbase.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcFirebirdResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcFirebirdResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcFirebirdStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcFirebirdStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcGenericResolver.dcu
Normal file
BIN
Win32/Debug/ZDbcGenericResolver.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcInterbase6.dcu
Normal file
BIN
Win32/Debug/ZDbcInterbase6.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcInterbase6ResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcInterbase6ResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcInterbase6Statement.dcu
Normal file
BIN
Win32/Debug/ZDbcInterbase6Statement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcInterbase6Utils.dcu
Normal file
BIN
Win32/Debug/ZDbcInterbase6Utils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcIntfs.dcu
Normal file
BIN
Win32/Debug/ZDbcIntfs.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcLogging.dcu
Normal file
BIN
Win32/Debug/ZDbcLogging.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcMySql.dcu
Normal file
BIN
Win32/Debug/ZDbcMySql.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcMySqlMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcMySqlMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcMySqlResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcMySqlResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcMySqlStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcMySqlStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcMySqlUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcMySqlUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcODBCCon.dcu
Normal file
BIN
Win32/Debug/ZDbcODBCCon.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcODBCMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcODBCMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcODBCResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcODBCResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcODBCStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcODBCStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcODBCUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcODBCUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOleDB.dcu
Normal file
BIN
Win32/Debug/ZDbcOleDB.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOleDBMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcOleDBMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOleDBResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcOleDBResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOleDBStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcOleDBStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOleDBUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcOleDBUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOracle.dcu
Normal file
BIN
Win32/Debug/ZDbcOracle.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOracleMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcOracleMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOracleResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcOracleResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOracleStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcOracleStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcOracleUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcOracleUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcPooled.dcu
Normal file
BIN
Win32/Debug/ZDbcPooled.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcPostgreSql.dcu
Normal file
BIN
Win32/Debug/ZDbcPostgreSql.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcPostgreSqlMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcPostgreSqlMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcPostgreSqlResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcPostgreSqlResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcPostgreSqlStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcPostgreSqlStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcPostgreSqlUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcPostgreSqlUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcProperties.dcu
Normal file
BIN
Win32/Debug/ZDbcProperties.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcProxy.dcu
Normal file
BIN
Win32/Debug/ZDbcProxy.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcProxyMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcProxyMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcProxyResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcProxyResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcProxyStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcProxyStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcProxyUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcProxyUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcResultSetMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcResultSetMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSQLAnywhere.dcu
Normal file
BIN
Win32/Debug/ZDbcSQLAnywhere.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSQLAnywhereResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcSQLAnywhereResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSQLAnywhereStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcSQLAnywhereStatement.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSQLAnywhereUtils.dcu
Normal file
BIN
Win32/Debug/ZDbcSQLAnywhereUtils.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSqLite.dcu
Normal file
BIN
Win32/Debug/ZDbcSqLite.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSqLiteMetadata.dcu
Normal file
BIN
Win32/Debug/ZDbcSqLiteMetadata.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSqLiteResultSet.dcu
Normal file
BIN
Win32/Debug/ZDbcSqLiteResultSet.dcu
Normal file
Binary file not shown.
BIN
Win32/Debug/ZDbcSqLiteStatement.dcu
Normal file
BIN
Win32/Debug/ZDbcSqLiteStatement.dcu
Normal file
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Add a link
Reference in a new issue