'/bootstrap/4.2.1/css/bootstrap.min.css" integrity="sha384-GJzZqF' +
'Gwb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS" cros' +
'sorigin="anonymous">'
+ '<link rel=icon href=<#uri>/src?name=favicon64.ico>'
'</head>'
'<body>'
'<p><a href="<#uri>/help">'#20351#12356#26041#26696#20869
'</a>'
'<p><a href=<#uri>/search>'#26908#32034'</a>'
+ '<p align="center">'#12522#12531#12463#12501#12522#12540
+ #9'<p align="center"><img src=<#uri>/src?name=BBS_bn.jpg>'
'<p>PR '#12522#12531#12463'<br>'
'<p><a href="https://www.amazon.co.jp/%E9%AB%98%E6%A0%A1%E5%8D%92' +
s := '';
result := Format
('<li class="page-item%s"><a class=page-link href="%s?db=%d&num=%d">%s</a></li>',
- [s, Request.ScriptName + tagstr, FDTable1.FieldByName('dbnum')
- .AsInteger, Data[0].VInteger, t]);
+ [s, Request.ScriptName + tagstr, FDTable1.FieldByName('dbnum').AsInteger,
+ Data[0].VInteger, t]);
end;
function TWebModule1.hash(str: string): string;
begin
s := Request.QueryFields.Values['name'];
Response.ContentType := 'image/jpeg';
- if Locate('name', s) = true then
+ if s = 'BBS_bn.jpg' then
+ Response.ContentStream := TResourceStream.Create(HInstance, 'JpgImage_1',
+ RT_RCDATA)
+ else if s = 'favicon64.ico' then
+ Response.ContentStream := TResourceStream.Create(HInstance,
+ 'Icon_1', RT_ICON)
+ else if Locate('name', s) = true then
begin
s := FieldByName('source').AsString;
p := TNetEncoding.Base64.DecodeStringToBytes(s);
<FormType>dfm</FormType>
<DesignClass>TWebModule</DesignClass>
</DCCReference>
+ <RcItem Include="BBS_bn.jpg">
+ <ResourceType>RCDATA</ResourceType>
+ <ResourceId>JpgImage_1</ResourceId>
+ </RcItem>
+ <RcItem Include="favicon64.ico">
+ <ResourceType>ICON</ResourceType>
+ <ResourceId>Icon_1</ResourceId>
+ </RcItem>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</Source>
</Delphi.Personality>
<Deployment Version="3">
- <DeployFile LocalName="Win32\Release\newbbs.exe" Configuration="Release" Class="ProjectOutput"/>
<DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>newbbs.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
- <DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput"/>
- <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile"/>
+ <DeployFile LocalName="BBS_bn.jpg" Configuration="Debug" Class="ProjectFile">
+ <Platform Name="Win32">
+ <RemoteDir>.\</RemoteDir>
+ <Overwrite>true</Overwrite>
+ </Platform>
+ </DeployFile>
<DeployFile LocalName="sprites.png" Configuration="Debug" Class="ProjectFile"/>
+ <DeployFile LocalName="sprites.png" Configuration="Release" Class="ProjectFile"/>
+ <DeployFile LocalName="favicon64.ico" Configuration="Debug" Class="ProjectFile">
+ <Platform Name="Win32">
+ <RemoteDir>.\</RemoteDir>
+ <Overwrite>true</Overwrite>
+ </Platform>
+ </DeployFile>
+ <DeployFile LocalName="Win32\Release\newbbs.exe" Configuration="Release" Class="ProjectOutput"/>
+ <DeployFile LocalName="Win32\Debug\newbbs.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
- <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+ <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
- <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+ <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>