Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit d2be1db

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

File tree

22 files changed

+2640
-645
lines changed

22 files changed

+2640
-645
lines changed
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 Studio6円.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>
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 Studio6円.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)

AltStyle によって変換されたページ (->オリジナル) /