Commit MetaInfo

Revisão36c8f26603c4e23585dfd8f9d6b4dfb921e7a072 (tree)
Hora2020-02-02 15:03:35
Autoryamat0jp <terukohietori@gmai...>
Commiteryamat0jp

Mensagem de Log

依然調べたのを忘れてしまい
再調査の結果ではRT_ICONの定義されているユニット名がわかりませんでした。

Mudança Sumário

Diff

--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -394,6 +394,7 @@ object WebModule1: TWebModule1
394394 '/bootstrap/4.2.1/css/bootstrap.min.css" integrity="sha384-GJzZqF' +
395395 'Gwb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS" cros' +
396396 'sorigin="anonymous">'
397+ '<link rel=icon href=<#uri>/src?name=favicon64.ico>'
397398 '</head>'
398399 '<body>'
399400
@@ -468,6 +469,8 @@ object WebModule1: TWebModule1
468469 '<p><a href="<#uri>/help">'#20351#12356#26041#26696#20869
469470 '</a>'
470471 '<p><a href=<#uri>/search>'#26908#32034'</a>'
472+ '<p align="center">'#12522#12531#12463#12501#12522#12540
473+ #9'<p align="center"><img src=<#uri>/src?name=BBS_bn.jpg>'
471474 '<p>PR '#12522#12531#12463'<br>'
472475
473476 '<p><a href="https://www.amazon.co.jp/%E9%AB%98%E6%A0%A1%E5%8D%92' +
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -308,8 +308,8 @@ begin
308308 s := '';
309309 result := Format
310310 ('<li class="page-item%s"><a class=page-link href="%s?db=%d&num=%d">%s</a></li>',
311- [s, Request.ScriptName + tagstr, FDTable1.FieldByName('dbnum')
312- .AsInteger, Data[0].VInteger, t]);
311+ [s, Request.ScriptName + tagstr, FDTable1.FieldByName('dbnum').AsInteger,
312+ Data[0].VInteger, t]);
313313 end;
314314
315315 function TWebModule1.hash(str: string): string;
@@ -1029,7 +1029,13 @@ begin
10291029 begin
10301030 s := Request.QueryFields.Values['name'];
10311031 Response.ContentType := 'image/jpeg';
1032- if Locate('name', s) = true then
1032+ if s = 'BBS_bn.jpg' then
1033+ Response.ContentStream := TResourceStream.Create(HInstance, 'JpgImage_1',
1034+ RT_RCDATA)
1035+ else if s = 'favicon64.ico' then
1036+ Response.ContentStream := TResourceStream.Create(HInstance,
1037+ 'Icon_1', RT_ICON)
1038+ else if Locate('name', s) = true then
10331039 begin
10341040 s := FieldByName('source').AsString;
10351041 p := TNetEncoding.Base64.DecodeStringToBytes(s);
--- a/newbbs.dpr
+++ b/newbbs.dpr
@@ -5,6 +5,8 @@ program newbbs;
55
66
77
8+{$R *.dres}
9+
810 uses
911 Vcl.Forms,
1012 Web.WebReq,
--- a/newbbs.dproj
+++ b/newbbs.dproj
@@ -89,6 +89,14 @@
8989 <FormType>dfm</FormType>
9090 <DesignClass>TWebModule</DesignClass>
9191 </DCCReference>
92+ <RcItem Include="BBS_bn.jpg">
93+ <ResourceType>RCDATA</ResourceType>
94+ <ResourceId>JpgImage_1</ResourceId>
95+ </RcItem>
96+ <RcItem Include="favicon64.ico">
97+ <ResourceType>ICON</ResourceType>
98+ <ResourceId>Icon_1</ResourceId>
99+ </RcItem>
92100 <BuildConfiguration Include="Release">
93101 <Key>Cfg_2</Key>
94102 <CfgParent>Base</CfgParent>
@@ -111,16 +119,28 @@
111119 </Source>
112120 </Delphi.Personality>
113121 <Deployment Version="3">
114- <DeployFile LocalName="Win32\Release\newbbs.exe" Configuration="Release" Class="ProjectOutput"/>
115122 <DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput">
116123 <Platform Name="Win32">
117124 <RemoteName>newbbs.exe</RemoteName>
118125 <Overwrite>true</Overwrite>
119126 </Platform>
120127 </DeployFile>
121- <DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput"/>
122- <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile"/>
128+ <DeployFile LocalName="BBS_bn.jpg" Configuration="Debug" Class="ProjectFile">
129+ <Platform Name="Win32">
130+ <RemoteDir>.\</RemoteDir>
131+ <Overwrite>true</Overwrite>
132+ </Platform>
133+ </DeployFile>
123134 <DeployFile LocalName="sprites.png" Configuration="Debug" Class="ProjectFile"/>
135+ <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile"/>
136+ <DeployFile LocalName="favicon64.ico" Configuration="Debug" Class="ProjectFile">
137+ <Platform Name="Win32">
138+ <RemoteDir>.\</RemoteDir>
139+ <Overwrite>true</Overwrite>
140+ </Platform>
141+ </DeployFile>
142+ <DeployFile LocalName="Win32\Release\newbbs.exe" Configuration="Release" Class="ProjectOutput"/>
143+ <DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput"/>
124144 <DeployClass Name="Android_SplashImage470">
125145 <Platform Name="Android">
126146 <RemoteDir>res\drawable-normal</RemoteDir>
@@ -497,7 +517,7 @@
497517 <Operation>1</Operation>
498518 </Platform>
499519 </DeployClass>
500- <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
520+ <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
501521 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
502522 <ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
503523 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
@@ -506,7 +526,7 @@
506526 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
507527 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
508528 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
509- <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
529+ <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
510530 </Deployment>
511531 <Platforms>
512532 <Platform value="Win32">True</Platform>
--- a/newbbsResource.rc
+++ b/newbbsResource.rc
@@ -1 +1,2 @@
1-PngImage_1 RCDATA "sprites.png"
1+JpgImage_1 RCDATA "BBS_bn.jpg"
2+Icon_1 ICON "favicon64.ico"
Show on old repository browser