Skip to content

Commit d2be1db

Browse files
resistancelionresistancelion
committed
added: Delphi 10.3 Rio support
1 parent e6cb7b4 commit d2be1db

22 files changed

+2640
-645
lines changed

‎Source/ConverterBackup/php4DelphiR2010.dproj

Lines changed: 122 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,122 @@
1+
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{DB360964-FCA5-4943-AD27-13C4B2BC0549}</ProjectGuid>
4+
<MainSource>php4DelphiR2010.dpk</MainSource>
5+
<Config Condition="'$(Config)'==''">Debug</Config>
6+
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
7+
<ProjectVersion>12.0</ProjectVersion>
8+
</PropertyGroup>
9+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
10+
<Base>true</Base>
11+
</PropertyGroup>
12+
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
13+
<Cfg_1>true</Cfg_1>
14+
<CfgParent>Base</CfgParent>
15+
<Base>true</Base>
16+
</PropertyGroup>
17+
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
18+
<Cfg_2>true</Cfg_2>
19+
<CfgParent>Base</CfgParent>
20+
<Base>true</Base>
21+
</PropertyGroup>
22+
<PropertyGroup Condition="'$(Base)'!=''">
23+
<DCC_DependencyCheckOutputName>..\..\..\..\..\..\Public\Documents\RAD Studio\6.0\Bpl\php4DelphiR2010.bpl</DCC_DependencyCheckOutputName>
24+
<DCC_ImageBase>00400000</DCC_ImageBase>
25+
<GenPackage>true</GenPackage>
26+
<DCC_Platform>x86</DCC_Platform>
27+
<DCC_Description>php4Delphi (run-rime)</DCC_Description>
28+
<RuntimeOnlyPackage>true</RuntimeOnlyPackage>
29+
<DCC_E>false</DCC_E>
30+
<DCC_S>false</DCC_S>
31+
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
32+
<GenDll>true</GenDll>
33+
<DCC_F>false</DCC_F>
34+
<DCC_K>false</DCC_K>
35+
<DCC_N>false</DCC_N>
36+
</PropertyGroup>
37+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
38+
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
39+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
40+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
41+
<DCC_DebugInformation>false</DCC_DebugInformation>
42+
</PropertyGroup>
43+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
44+
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
45+
</PropertyGroup>
46+
<ItemGroup>
47+
<DelphiCompile Include="php4DelphiR2010.dpk">
48+
<MainSource>MainSource</MainSource>
49+
</DelphiCompile>
50+
<DCCReference Include="php4delphi.dcr"/>
51+
<DCCReference Include="rtl.dcp"/>
52+
<DCCReference Include="vcl.dcp"/>
53+
<DCCReference Include="ZENDAPI.pas"/>
54+
<DCCReference Include="DelphiFunctions.pas"/>
55+
<DCCReference Include="php4delphi.pas"/>
56+
<DCCReference Include="PHPAPI.pas"/>
57+
<DCCReference Include="phpModules.pas"/>
58+
<DCCReference Include="PHPLibrary.pas"/>
59+
<DCCReference Include="PHPFunctions.pas"/>
60+
<DCCReference Include="PHPTypes.pas"/>
61+
<DCCReference Include="ZENDTypes.pas"/>
62+
<DCCReference Include="phpClass.pas"/>
63+
<DCCReference Include="PHPCommon.pas"/>
64+
<DCCReference Include="php4delphi.dcr"/>
65+
<BuildConfiguration Include="Base">
66+
<Key>Base</Key>
67+
</BuildConfiguration>
68+
<BuildConfiguration Include="Debug">
69+
<Key>Cfg_2</Key>
70+
<CfgParent>Base</CfgParent>
71+
</BuildConfiguration>
72+
<BuildConfiguration Include="Release">
73+
<Key>Cfg_1</Key>
74+
<CfgParent>Base</CfgParent>
75+
</BuildConfiguration>
76+
</ItemGroup>
77+
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
78+
<ProjectExtensions>
79+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
80+
<Borland.ProjectType>Package</Borland.ProjectType>
81+
<BorlandProject>
82+
<Delphi.Personality>
83+
<Source>
84+
<Source Name="MainSource">php4DelphiR2010.dpk</Source>
85+
</Source>
86+
<Parameters>
87+
<Parameters Name="UseLauncher">False</Parameters>
88+
<Parameters Name="LoadAllSymbols">True</Parameters>
89+
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
90+
</Parameters>
91+
<VersionInfo>
92+
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
93+
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
94+
<VersionInfo Name="MajorVer">1</VersionInfo>
95+
<VersionInfo Name="MinorVer">0</VersionInfo>
96+
<VersionInfo Name="Release">0</VersionInfo>
97+
<VersionInfo Name="Build">0</VersionInfo>
98+
<VersionInfo Name="Debug">False</VersionInfo>
99+
<VersionInfo Name="PreRelease">False</VersionInfo>
100+
<VersionInfo Name="Special">False</VersionInfo>
101+
<VersionInfo Name="Private">False</VersionInfo>
102+
<VersionInfo Name="DLL">False</VersionInfo>
103+
<VersionInfo Name="Locale">1058</VersionInfo>
104+
<VersionInfo Name="CodePage">1251</VersionInfo>
105+
</VersionInfo>
106+
<VersionInfoKeys>
107+
<VersionInfoKeys Name="CompanyName"/>
108+
<VersionInfoKeys Name="FileDescription"/>
109+
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
110+
<VersionInfoKeys Name="InternalName"/>
111+
<VersionInfoKeys Name="LegalCopyright"/>
112+
<VersionInfoKeys Name="LegalTrademarks"/>
113+
<VersionInfoKeys Name="OriginalFilename"/>
114+
<VersionInfoKeys Name="ProductName"/>
115+
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
116+
<VersionInfoKeys Name="Comments"/>
117+
</VersionInfoKeys>
118+
</Delphi.Personality>
119+
</BorlandProject>
120+
<ProjectFileVersion>12</ProjectFileVersion>
121+
</ProjectExtensions>
122+
</Project>

‎Source/ConverterBackup/php4DelphiR2010.dproj.2007

Lines changed: 120 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,120 @@
1+
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{DB360964-FCA5-4943-AD27-13C4B2BC0549}</ProjectGuid>
4+
<MainSource>php4DelphiR2010.dpk</MainSource>
5+
<Config Condition="'$(Config)'==''">Debug</Config>
6+
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
7+
</PropertyGroup>
8+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
9+
<Base>true</Base>
10+
</PropertyGroup>
11+
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
12+
<Cfg_1>true</Cfg_1>
13+
<CfgParent>Base</CfgParent>
14+
<Base>true</Base>
15+
</PropertyGroup>
16+
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
17+
<Cfg_2>true</Cfg_2>
18+
<CfgParent>Base</CfgParent>
19+
<Base>true</Base>
20+
</PropertyGroup>
21+
<PropertyGroup Condition="'$(Base)'!=''">
22+
<DCC_DependencyCheckOutputName>..\..\..\..\..\..\Public\Documents\RAD Studio\6.0\Bpl\php4DelphiR2010.bpl</DCC_DependencyCheckOutputName>
23+
<DCC_ImageBase>00400000</DCC_ImageBase>
24+
<GenPackage>true</GenPackage>
25+
<DCC_Platform>x86</DCC_Platform>
26+
<DCC_Description>php4Delphi (run-rime)</DCC_Description>
27+
<RuntimeOnlyPackage>true</RuntimeOnlyPackage>
28+
<DCC_E>false</DCC_E>
29+
<DCC_S>false</DCC_S>
30+
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
31+
<GenDll>true</GenDll>
32+
<DCC_F>false</DCC_F>
33+
<DCC_K>false</DCC_K>
34+
<DCC_N>false</DCC_N>
35+
</PropertyGroup>
36+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
37+
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
38+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
39+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
40+
<DCC_DebugInformation>false</DCC_DebugInformation>
41+
</PropertyGroup>
42+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
43+
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
44+
</PropertyGroup>
45+
<ItemGroup>
46+
<DelphiCompile Include="php4DelphiR2010.dpk">
47+
<MainSource>MainSource</MainSource>
48+
</DelphiCompile>
49+
<DCCReference Include="php4delphi.dcr"/>
50+
<DCCReference Include="rtl.dcp"/>
51+
<DCCReference Include="vcl.dcp"/>
52+
<DCCReference Include="ZENDAPI.pas"/>
53+
<DCCReference Include="DelphiFunctions.pas"/>
54+
<DCCReference Include="php4delphi.pas"/>
55+
<DCCReference Include="PHPAPI.pas"/>
56+
<DCCReference Include="phpModules.pas"/>
57+
<DCCReference Include="PHPLibrary.pas"/>
58+
<DCCReference Include="PHPFunctions.pas"/>
59+
<DCCReference Include="PHPTypes.pas"/>
60+
<DCCReference Include="ZENDTypes.pas"/>
61+
<DCCReference Include="phpClass.pas"/>
62+
<DCCReference Include="PHPCommon.pas"/>
63+
<BuildConfiguration Include="Base">
64+
<Key>Base</Key>
65+
</BuildConfiguration>
66+
<BuildConfiguration Include="Debug">
67+
<Key>Cfg_2</Key>
68+
<CfgParent>Base</CfgParent>
69+
</BuildConfiguration>
70+
<BuildConfiguration Include="Release">
71+
<Key>Cfg_1</Key>
72+
<CfgParent>Base</CfgParent>
73+
</BuildConfiguration>
74+
</ItemGroup>
75+
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
76+
<ProjectExtensions>
77+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
78+
<Borland.ProjectType>Package</Borland.ProjectType>
79+
<BorlandProject>
80+
<Delphi.Personality>
81+
<Source>
82+
<Source Name="MainSource">php4DelphiR2010.dpk</Source>
83+
</Source>
84+
<Parameters>
85+
<Parameters Name="UseLauncher">False</Parameters>
86+
<Parameters Name="LoadAllSymbols">True</Parameters>
87+
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
88+
</Parameters>
89+
<VersionInfo>
90+
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
91+
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
92+
<VersionInfo Name="MajorVer">1</VersionInfo>
93+
<VersionInfo Name="MinorVer">0</VersionInfo>
94+
<VersionInfo Name="Release">0</VersionInfo>
95+
<VersionInfo Name="Build">0</VersionInfo>
96+
<VersionInfo Name="Debug">False</VersionInfo>
97+
<VersionInfo Name="PreRelease">False</VersionInfo>
98+
<VersionInfo Name="Special">False</VersionInfo>
99+
<VersionInfo Name="Private">False</VersionInfo>
100+
<VersionInfo Name="DLL">False</VersionInfo>
101+
<VersionInfo Name="Locale">1058</VersionInfo>
102+
<VersionInfo Name="CodePage">1251</VersionInfo>
103+
</VersionInfo>
104+
<VersionInfoKeys>
105+
<VersionInfoKeys Name="CompanyName"/>
106+
<VersionInfoKeys Name="FileDescription"/>
107+
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
108+
<VersionInfoKeys Name="InternalName"/>
109+
<VersionInfoKeys Name="LegalCopyright"/>
110+
<VersionInfoKeys Name="LegalTrademarks"/>
111+
<VersionInfoKeys Name="OriginalFilename"/>
112+
<VersionInfoKeys Name="ProductName"/>
113+
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
114+
<VersionInfoKeys Name="Comments"/>
115+
</VersionInfoKeys>
116+
</Delphi.Personality>
117+
</BorlandProject>
118+
<ProjectFileVersion>12</ProjectFileVersion>
119+
</ProjectExtensions>
120+
</Project>

‎Source/DelphiFunctions.pas

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -16,6 +16,7 @@
1616

1717
interface
1818
uses
19+
Dialogs,
1920
SysUtils, Classes,
2021
ZendTypes, ZendAPI, PHPTypes, PHPAPI, typinfo;
2122

‎Source/Demos Delphi 2009 (WideString support)/php4Applications/Delphi/Project1.dpr

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,9 @@ program Project1;
22

33
uses
44
Forms,
5-
Unit1 in 'Unit1.pas' {Form1};
5+
Unit1 in 'Unit1.pas' {Form1},
6+
php4AppIntf in '..\..\..\php4AppIntf.pas',
7+
ZendTypes in '..\..\..\ZendTypes.pas';
68

79
{$R *.RES}
810

‎Source/Demos Delphi 2009 (WideString support)/php4Applications/Delphi/Unit1.pas

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,8 @@ interface
1515

1616
uses
1717
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
18-
StdCtrls, PHP4AppIntf;
18+
StdCtrls,
19+
php4AppIntf;
1920

2021
type
2122
TForm1 = class(TForm)

‎Source/Demos/psvPHP/console/phpcon.dpr

Lines changed: 9 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -15,14 +15,15 @@ program phpcon;
1515

1616
uses
1717
SysUtils,
18-
VCL.Dialogs,
18+
Dialogs,
1919
php4delphi,
2020
zendAPI,
2121
ZENDTypes;
2222

2323
var
2424
php : TpsvPHP;
2525
Engine : TPHPEngine;
26+
ft : Byte = 0;
2627

2728
procedure gui_message(ht: integer; return_value: pzval;
2829
return_value_ptr: pzval; this_ptr: pzval; return_value_used: integer;
@@ -55,9 +56,13 @@ begin
5556
php := TpsvPHP.Create(nil);
5657
if ParamCount = 1 then
5758
begin
58-
php.FileName := zend_ustr(ParamStr(1));
59-
write(php.Execute);
60-
end
59+
php.FileName := zend_ustr(ParamStr(1));
60+
if FileExists(ParamStr(1)) then
61+
ft := 1;
62+
end;
63+
64+
if ft = 1 then
65+
write(php.Execute)
6166
else
6267
begin
6368
writeLn(Format('Usage: %s <filename.php>', [ParamStr(0)]));

0 commit comments

Comments
 (0)