This commit is contained in:
tminkenberrg 2024-10-11 17:38:28 +02:00
commit 5e9ac89dcd
191 changed files with 4167 additions and 0 deletions

17
DBKonverter.dpr Normal file
View 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
View 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
View 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

Binary file not shown.

BIN
DBKonverter.res Normal file

Binary file not shown.

10
DBKonverter.stat Normal file
View 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
View 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
View 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

Binary file not shown.

BIN
Win32/Debug/DBKonverter.exe Normal file

Binary file not shown.

18
Win32/Debug/README.txt Normal file
View 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.

Binary file not shown.

BIN
Win32/Debug/Unit1.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZAdoToken.dcu Normal file

Binary file not shown.

BIN
Win32/Debug/ZBase64.dcu Normal file

Binary file not shown.

BIN
Win32/Debug/ZClasses.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZConnection.dcu Normal file

Binary file not shown.

BIN
Win32/Debug/ZDataset.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcASA.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcAdo.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcCache.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcDbLib.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcIntfs.dcu Normal file

Binary file not shown.

BIN
Win32/Debug/ZDbcLogging.dcu Normal file

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcMySql.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcODBCCon.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcOleDB.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcOracle.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcPooled.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcProxy.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Win32/Debug/ZDbcSqLite.dcu Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show more