Revisão | 36c8f26603c4e23585dfd8f9d6b4dfb921e7a072 (tree) |
---|---|
Hora | 2020-02-02 15:03:35 |
Autor | yamat0jp <terukohietori@gmai...> |
Commiter | yamat0jp |
依然調べたのを忘れてしまい
再調査の結果ではRT_ICONの定義されているユニット名がわかりませんでした。
@@ -394,6 +394,7 @@ object WebModule1: TWebModule1 | ||
394 | 394 | '/bootstrap/4.2.1/css/bootstrap.min.css" integrity="sha384-GJzZqF' + |
395 | 395 | 'Gwb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS" cros' + |
396 | 396 | 'sorigin="anonymous">' |
397 | + '<link rel=icon href=<#uri>/src?name=favicon64.ico>' | |
397 | 398 | '</head>' |
398 | 399 | '<body>' |
399 | 400 |
@@ -468,6 +469,8 @@ object WebModule1: TWebModule1 | ||
468 | 469 | '<p><a href="<#uri>/help">'#20351#12356#26041#26696#20869 |
469 | 470 | '</a>' |
470 | 471 | '<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>' | |
471 | 474 | '<p>PR '#12522#12531#12463'<br>' |
472 | 475 | |
473 | 476 | '<p><a href="https://www.amazon.co.jp/%E9%AB%98%E6%A0%A1%E5%8D%92' + |
@@ -308,8 +308,8 @@ begin | ||
308 | 308 | s := ''; |
309 | 309 | result := Format |
310 | 310 | ('<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]); | |
313 | 313 | end; |
314 | 314 | |
315 | 315 | function TWebModule1.hash(str: string): string; |
@@ -1029,7 +1029,13 @@ begin | ||
1029 | 1029 | begin |
1030 | 1030 | s := Request.QueryFields.Values['name']; |
1031 | 1031 | 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 | |
1033 | 1039 | begin |
1034 | 1040 | s := FieldByName('source').AsString; |
1035 | 1041 | p := TNetEncoding.Base64.DecodeStringToBytes(s); |
@@ -5,6 +5,8 @@ program newbbs; | ||
5 | 5 | |
6 | 6 | |
7 | 7 | |
8 | +{$R *.dres} | |
9 | + | |
8 | 10 | uses |
9 | 11 | Vcl.Forms, |
10 | 12 | Web.WebReq, |
@@ -89,6 +89,14 @@ | ||
89 | 89 | <FormType>dfm</FormType> |
90 | 90 | <DesignClass>TWebModule</DesignClass> |
91 | 91 | </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> | |
92 | 100 | <BuildConfiguration Include="Release"> |
93 | 101 | <Key>Cfg_2</Key> |
94 | 102 | <CfgParent>Base</CfgParent> |
@@ -111,16 +119,28 @@ | ||
111 | 119 | </Source> |
112 | 120 | </Delphi.Personality> |
113 | 121 | <Deployment Version="3"> |
114 | - <DeployFile LocalName="Win32\Release\newbbs.exe" Configuration="Release" Class="ProjectOutput"/> | |
115 | 122 | <DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput"> |
116 | 123 | <Platform Name="Win32"> |
117 | 124 | <RemoteName>newbbs.exe</RemoteName> |
118 | 125 | <Overwrite>true</Overwrite> |
119 | 126 | </Platform> |
120 | 127 | </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> | |
123 | 134 | <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"/> | |
124 | 144 | <DeployClass Name="Android_SplashImage470"> |
125 | 145 | <Platform Name="Android"> |
126 | 146 | <RemoteDir>res\drawable-normal</RemoteDir> |
@@ -497,7 +517,7 @@ | ||
497 | 517 | <Operation>1</Operation> |
498 | 518 | </Platform> |
499 | 519 | </DeployClass> |
500 | - <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/> | |
520 | + <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/> | |
501 | 521 | <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/> |
502 | 522 | <ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/> |
503 | 523 | <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/> |
@@ -506,7 +526,7 @@ | ||
506 | 526 | <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/> |
507 | 527 | <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/> |
508 | 528 | <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/> |
509 | - <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/> | |
529 | + <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/> | |
510 | 530 | </Deployment> |
511 | 531 | <Platforms> |
512 | 532 | <Platform value="Win32">True</Platform> |
@@ -1 +1,2 @@ | ||
1 | -PngImage_1 RCDATA "sprites.png" | |
1 | +JpgImage_1 RCDATA "BBS_bn.jpg" | |
2 | +Icon_1 ICON "favicon64.ico" |