From 93d8116c9c281a8164614fc145d2c8d3265527b2 Mon Sep 17 00:00:00 2001 From: yamat0jp Date: Wed, 15 Jan 2020 13:53:10 +0900 Subject: [PATCH] =?utf8?q?=E3=83=AA=E3=83=9D=E3=82=B8=E3=83=88=E3=83=AA?= =?utf8?q?=E7=AE=A1=E7=90=86=E3=81=AB=E5=A4=B1=E6=95=97=E3=81=97=E3=81=BE?= =?utf8?q?=E3=81=97=E3=81=9F=E3=80=80CGI=E3=81=AF=E5=AE=8C=E6=88=90?= =?utf8?q?=E3=81=97=E3=81=9F=E3=81=AE=E3=81=A7=E3=82=B3=E3=83=9F=E3=83=83?= =?utf8?q?=E3=83=88=E3=81=97=E3=81=BE=E3=81=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Unit1.dfm | 47 +++++++++++++---------------------------------- Unit1.pas | 11 ++++------- WebModuleUnit1.pas | 24 ++++++++++-------------- newbbs.dproj | 6 +++--- newbbsResource.rc | 1 + 5 files changed, 31 insertions(+), 58 deletions(-) create mode 100644 newbbsResource.rc diff --git a/Unit1.dfm b/Unit1.dfm index 7fca0d8..623992d 100644 --- a/Unit1.dfm +++ b/Unit1.dfm @@ -23,13 +23,11 @@ object DataModule1: TDataModule1 end object FDConnection1: TFDConnection Params.Strings = ( + 'Database=kainushi' + 'User_Name=masasi' 'Password=kainushi' 'CharacterSet=utf8' - 'User_Name=masasi' - 'Database=kainushi' - 'Server=localhost' 'DriverID=MySQL') - Connected = True Left = 144 Top = 24 end @@ -103,9 +101,10 @@ object DataModule1: TDataModule1 Origin = 'TITLE2' Size = 320 end - object FDTable3MENTE: TBooleanField - FieldName = 'MENTE' - Origin = 'MENTE' + object FDTable3mente: TBooleanField + FieldKind = fkCalculated + FieldName = 'mente' + Calculated = True end object FDTable3INFO: TIntegerField FieldName = 'INFO' @@ -124,11 +123,6 @@ object DataModule1: TDataModule1 Size = 300 end end - object FDGUIxWaitCursor1: TFDGUIxWaitCursor - Provider = 'Forms' - Left = 48 - Top = 24 - end object DataSource1: TDataSource DataSet = FDTable1 Left = 32 @@ -165,28 +159,6 @@ object DataModule1: TDataModule1 BlobType = ftWideMemo end end - object FDTable5: TFDTable - IndexFieldNames = 'ID' - Connection = FDConnection1 - UpdateOptions.UpdateTableName = 'images' - TableName = 'images' - Left = 224 - Top = 144 - object FDTable5ID: TIntegerField - FieldName = 'ID' - Origin = 'ID' - Required = True - end - object FDTable5NAME: TWideStringField - FieldName = 'NAME' - Origin = 'NAME' - FixedChar = True - end - object FDTable5SOURCE: TBlobField - FieldName = 'SOURCE' - Origin = 'SOURCE' - end - end object FDQuery1: TFDQuery Connection = FDConnection1 SQL.Strings = ( @@ -195,4 +167,11 @@ object DataModule1: TDataModule1 Left = 136 Top = 152 end + object FDTable5: TFDTable + Connection = FDConnection1 + UpdateOptions.UpdateTableName = 'IMAGES' + TableName = 'IMAGES' + Left = 224 + Top = 152 + end end diff --git a/Unit1.pas b/Unit1.pas index 05ab3ba..617a4c9 100644 --- a/Unit1.pas +++ b/Unit1.pas @@ -10,7 +10,8 @@ uses FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet, FireDAC.Phys.IB, FireDAC.Phys.IBLiteDef, FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef, - FireDAC.Phys.IBDef, Data.FMTBcd, Data.DBXInterBase, Data.SqlExpr; + FireDAC.Phys.IBDef, Data.FMTBcd, Data.DBXInterBase, Data.SqlExpr, + FireDAC.Phys.FB, FireDAC.Phys.FBDef; type TDataModule1 = class(TDataModule) @@ -18,7 +19,6 @@ type FDConnection1: TFDConnection; FDTable2: TFDTable; FDTable3: TFDTable; - FDGUIxWaitCursor1: TFDGUIxWaitCursor; DataSource1: TDataSource; FDTable1DBNUM: TIntegerField; FDTable4: TFDTable; @@ -35,19 +35,16 @@ type FDTable2DATE: TDateField; FDTable3TITLE: TWideStringField; FDTable3TITLE2: TWideStringField; - FDTable3MENTE: TBooleanField; FDTable3INFO: TIntegerField; FDTable3COUNT: TIntegerField; FDTable4ID: TIntegerField; FDTable2PASS: TWideStringField; - FDTable5: TFDTable; - FDTable5ID: TIntegerField; - FDTable5NAME: TWideStringField; - FDTable5SOURCE: TBlobField; FDTable1DATABASE: TWideStringField; FDTable3password: TWideStringField; FDTable3ng: TWideStringField; FDQuery1: TFDQuery; + FDTable3mente: TBooleanField; + FDTable5: TFDTable; private { Private éŒ¾ } public diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas index 0c7b25e..eda18c2 100644 --- a/WebModuleUnit1.pas +++ b/WebModuleUnit1.pas @@ -129,7 +129,7 @@ implementation { %CLASSGROUP 'Vcl.Controls.TControl' } -uses Unit1, IdHashSHA, IdGlobal, IdHash, IdHashMessageDigest; +uses Unit1, IdHashSHA, IdGlobal, IdHash, IdHashMessageDigest, Jpeg, Graphics; {$R *.dfm} @@ -548,7 +548,7 @@ begin else if TagString = 'css' then ReplaceText := css2.Content else if TagString = 'dbnum' then - Replacetext := Request.QueryFields.Values['dbnum']; + ReplaceText := Request.QueryFields.Values['dbnum']; end; procedure TWebModule1.setLastArticle; @@ -607,7 +607,7 @@ begin begin FDQuery1.Open; FDTable1.First; - while (FDQuery1.Eof = false)and(FDTable1.Eof = false) do + while (FDQuery1.Eof = false) and (FDTable1.Eof = false) do begin if FDTable1.FieldByName('dbnum').AsInteger = FDQuery1.FieldByName ('dbnum').AsInteger then @@ -872,14 +872,17 @@ procedure TWebModule1.WebModule1imgAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var s: string; - res: TResourceStream; + res: TStream; begin with DataModule1.FDTable5 do begin s := Request.ContentFields.Values['name']; Response.ContentType := 'image/jpeg'; if Locate('name', s) = true then - Response.ContentStream := CreateBlobStream(FieldByName('source'), bmRead) + begin + res := CreateBlobStream(FieldByName('source'), bmRead); + Response.ContentStream := res; + end else if s = 'sprites.png' then begin Response.ContentType := 'image/png'; @@ -1169,7 +1172,6 @@ end; procedure TWebModule1.WebModuleCreate(Sender: TObject); var i: Integer; - a: Variant; s: string; begin with DataModule1 do @@ -1182,16 +1184,10 @@ begin FDTable3.CreateTable; if FDTable4.Exists = false then FDTable4.CreateTable; - if FDTable5.Exists = false then - FDTable5.CreateTable; FDTable1.Open; FDTable2.Open; FDTable3.Open; FDTable4.Open; - FDTable5.Open; - FDTable1.Refresh; - FDTable3.Refresh; - FDTable5.Refresh; end; if DataModule1.FDTable1.Bof and DataModule1.FDTable1.Eof then begin @@ -1201,12 +1197,12 @@ begin end; if DataModule1.FDTable3.Bof and DataModule1.FDTable3.Eof then begin - a := DataModule1.FDTable1.Lookup('database', 'info', 'dbnum'); + i := DataModule1.FDTable1.Lookup('database', 'info', 'dbnum'); s := 'ˆ¢•Û,”nŽ­,Ž€‚Ë'; DataModule1.FDTable3.AppendRecord (['‚Æ‚é‚ˁ`‚Ǎ†', '

‚Æ‚é‚ˁ`‚Ǎ†

', - false, a, 30, hash(hash('admin')), s]); + false, i, 30, hash(hash('admin')), s]); end; end; diff --git a/newbbs.dproj b/newbbs.dproj index 105f856..2972fcf 100644 --- a/newbbs.dproj +++ b/newbbs.dproj @@ -5,7 +5,7 @@ VCL newbbs.dpr True - Debug + Release Win32 3 Application @@ -135,14 +135,14 @@ true - + newbbs.exe true - + newbbs.exe true diff --git a/newbbsResource.rc b/newbbsResource.rc new file mode 100644 index 0000000..a5f7fb6 --- /dev/null +++ b/newbbsResource.rc @@ -0,0 +1 @@ +PngImage_1 RCDATA "sprites.png" -- 2.11.0