From 937daf6543a404309d3d01e3429674358a075b18 Mon Sep 17 00:00:00 2001 From: genyakun Date: Sat, 27 May 2006 14:00:13 +0000 Subject: [PATCH] =?utf8?q?1.52.0.653=20=E5=A4=89=E6=9B=B4=E7=82=B9=20?= =?utf8?q?=E3=83=BB2ch=E3=81=AE=E4=BB=95=E6=A7=98=E5=A4=89=E6=9B=B4(?= =?utf8?q?=E7=A2=BA=E8=AA=8D=E7=94=BB=E9=9D=A2=E9=96=A2=E9=80=A3)=E3=81=AB?= =?utf8?q?=E5=AF=BE=E3=81=99=E3=82=8B=E7=B7=8A=E6=80=A5=E6=9A=AB=E5=AE=9A?= =?utf8?q?=E5=87=A6=E7=BD=AE?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Editor.dfm | 14 ++-- Editor.pas | 218 ++++++++++++++++++++++++++++++----------------------------- gikoNavi.res | Bin 4292 -> 4292 bytes 3 files changed, 119 insertions(+), 113 deletions(-) diff --git a/Editor.dfm b/Editor.dfm index b67f20e..e91f591 100644 --- a/Editor.dfm +++ b/Editor.dfm @@ -1,6 +1,6 @@ object EditorForm: TEditorForm - Left = 432 - Top = 258 + Left = 306 + Top = 172 Width = 640 Height = 449 HorzScrollBar.Visible = False @@ -482,7 +482,7 @@ object EditorForm: TEditorForm Left = 72 Top = 124 Bitmap = { - 494C01010C000E00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 + 494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000004000000001002000000000000040 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 @@ -1014,13 +1014,14 @@ object EditorForm: TEditorForm FFF3000FFFFFF0CFFF010007FFFFF08700000003FFFFF08700010003FFF7F887 0003003FC1F7FE8F0003003FC3FBFE3F00038FFFC7FBFF7F0003FC00CBFBFE3F 0003C400DCF7FEBF0003CC00FF0FFC9F0003D400FFFFFDDF0003F800FFFFFDDF - FFFFFC00FFFFFDDFFFFFFC00FFFFFFFF} + FFFFFC00FFFFFDDFFFFFFC00FFFFFFFF00000000000000000000000000000000 + 000000000000} end object HotToobarImageList: TImageList Left = 104 Top = 124 Bitmap = { - 494C01010C000E00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 + 494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000004000000001002000000000000040 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 @@ -1552,7 +1553,8 @@ object EditorForm: TEditorForm FFF3000FFFFFF0CFFF010007FFFFF08700000003FFFFF08700010003FFE7F887 0003003FC1F3FE8F0003003FC3FBFE3F00038FFFC7FBFF7F0003FC00CBFBFE3F 0003C400DCF3FEBF0003CC00FF07FC9F0003D400FFFFFDDF0003F800FFFFFDDF - FFFFFC00FFFFFDDFFFFFFC00FFFFFFFF} + FFFFFC00FFFFFDDFFFFFFC00FFFFFFFF00000000000000000000000000000000 + 000000000000} end object Indy: TIdHTTP Intercept = IdLogDebug diff --git a/Editor.pas b/Editor.pas index 38d8356..a58d32d 100644 --- a/Editor.pas +++ b/Editor.pas @@ -947,35 +947,35 @@ begin if ABoard = nil then Exit; - if FileExists(ABoard.GetSETTINGTXTFileName) then begin - body := TStringList.Create; - try - body.LoadFromFile(ABoard.GetSETTINGTXTFileName); - Remote := GetFusianaName(body, ABoard); - finally - body.Free; - end; - end; - - //Setting.txt‚ª‚È‚©‚Á‚½‚çŽæ“¾ - //ŽI‚É•‰‰×‚ª‚©‚©‚è‚»‚¤‚Å•|‚¢EEE - if not FileExists(ABoard.GetSETTINGTXTFileName) then begin - //GetSETTINGTXTAction‚ðŒÄ‚яo‚·‚ÆIndy‚ª‰Šú‰»‚³‚ê‚é‚̂ŁA - //‚±‚±‚ÅCookie‚ð•Û‘¶‚µ‚È‚­‚Ä‚Í‚¢‚¯‚È‚¢ - tmpRawheader := Indy.Response.RawHeaders.Text; - GetSETTINGTXTAction.Execute; - body := TStringList.Create; - try - if FileExists(ABoard.GetSETTINGTXTFileName) then begin - body.LoadFromFile(ABoard.GetSETTINGTXTFileName); - Remote := GetFusianaName(body, ABoard); - end; - finally - body.Free; - end; + if FileExists(ABoard.GetSETTINGTXTFileName) then begin + body := TStringList.Create; + try + body.LoadFromFile(ABoard.GetSETTINGTXTFileName); + Remote := GetFusianaName(body, ABoard); + finally + body.Free; + end; + end; + + //Setting.txt‚ª‚È‚©‚Á‚½‚çŽæ“¾ + //ŽI‚É•‰‰×‚ª‚©‚©‚è‚»‚¤... + if not FileExists(ABoard.GetSETTINGTXTFileName) then begin + //GetSETTINGTXTAction‚ðŒÄ‚яo‚·‚ÆIndy‚ª‰Šú‰»‚³‚ê‚é‚̂ŁA + //‚±‚±‚ÅCookie‚ð•Û‘¶‚µ‚È‚­‚Ä‚Í‚¢‚¯‚È‚¢ + tmpRawheader := Indy.Response.RawHeaders.Text; + GetSETTINGTXTAction.Execute; + body := TStringList.Create; + try + if FileExists(ABoard.GetSETTINGTXTFileName) then begin + body.LoadFromFile(ABoard.GetSETTINGTXTFileName); + Remote := GetFusianaName(body, ABoard); + end; + finally + body.Free; + end; end; - if Remote = 'fusianasan' then begin + if Remote = 'fusianasan' then begin MsgResult := MsgBox( Handle, 'ƒŠƒ‚[ƒgƒzƒXƒg‚ð•\Ž¦‚·‚é‹@”\‚ªŽg‚í‚ê‚Ä‚¢‚Ü‚·' + #13#10 + @@ -991,83 +991,83 @@ begin DrawMenuBar(Handle); Exit; end; - end; - end; + end; + end; - if ResultType = grtOK then begin - if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then - WriteSambaTime(FHost, Now()); - State := gdsComplete; - end else if ResultType = grtCookie then begin - //ƒ‹[ƒv–hŽ~ - if not FirstWriting then - raise Exception.Create(''); - MsgResult := MsgBox( - Handle, - 'E“Še‚³‚ꂽ“à—e‚̓Rƒs[A•Û‘¶Aˆø—pA“]Ú“™‚³‚ê‚éê‡‚ª‚ ‚è‚Ü‚·B' + #13#10 + - 'E“Še‚ÉŠÖ‚µ‚Ä”­¶‚·‚éÓ”C‚Í‘S‚Ä“ŠeŽÒ‚É‹A‚µ‚Ü‚·B' + #13#10#13#10 + - '‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Ý‚Ü‚·‚©H', - 'î•ñ', - MB_YESNO or MB_ICONQUESTION); - if MsgResult = IDYES then begin - if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin - GetCookie(tmpRawheader, Board); - end else begin - GetCookie(Indy.Response.RawHeaders.Text, Board); - end; - if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then - raise Exception.Create(''); - //‚à‚¤ˆê‰ñ‚±‚̃ƒ\ƒbƒh - Send(Board.Cookie, Board.SPID, Board.PON, False); - Exit; - end else begin - Board.SPID := ''; - Board.PON := ''; - FWork := false; - EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED); - DrawMenuBar(Handle); - Exit; - end; - end else if ResultType = grtCheck then begin - // - //ƒ‹[ƒv–hŽ~ - if not FirstWriting then - raise Exception.Create(''); - - MsgResult := MsgBox( - Handle, - '‘‚«ž‚Ý‚ÉŠÖ‚µ‚Ä‚Í—lX‚ȃƒOî•ñ‚ª‹L˜^‚³‚ê‚Ä‚¢‚Ü‚·B' + #13#10 + - '“Še‚ÉŠÖ‚µ‚Ä”­¶‚·‚éÓ”C‚Í‘S‚Ä“ŠeŽÒ‚É‹A‚µ‚Ü‚·B' + #13#10 + - 'Œö˜—Ç‘­‚É”½‚µ‚½‚èA‘¼l‚É–À˜f‚ð‚©‚¯‚鏑‚«ž‚݂͍T‚¦‚ĉº‚³‚¢B' + #13#10 + - '“Še‚³‚ꂽ“à—e‚̓Rƒs[E•Û‘¶Eˆø—pE“]Ú“™‚³‚ê‚éê‡‚ª‚ ‚è‚Ü‚·B' + #13#10 + - #13#10 + - '‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Ý‚Ü‚·‚©H', - 'Šm”F', - MB_YESNO or MB_ICONQUESTION); - - if MsgResult = IDYES then begin - if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin - GetCookie(tmpRawheader, Board); + if ResultType = grtOK then begin + if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then + WriteSambaTime(FHost, Now()); + State := gdsComplete; + end else if ResultType = grtCookie then begin + //ƒ‹[ƒv–hŽ~ + if not FirstWriting then + raise Exception.Create(''); + MsgResult := MsgBox( + Handle, + 'E“Še‚³‚ꂽ“à—e‚̓Rƒs[A•Û‘¶Aˆø—pA“]Ú“™‚³‚ê‚éê‡‚ª‚ ‚è‚Ü‚·B' + #13#10 + + 'E“Še‚ÉŠÖ‚µ‚Ä”­¶‚·‚éÓ”C‚Í‘S‚Ä“ŠeŽÒ‚É‹A‚µ‚Ü‚·B' + #13#10#13#10 + + '‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Ý‚Ü‚·‚©H', + 'î•ñ', + MB_YESNO or MB_ICONQUESTION); + if MsgResult = IDYES then begin + if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin + GetCookie(tmpRawheader, Board); + end else begin + GetCookie(Indy.Response.RawHeaders.Text, Board); + end; + if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then + raise Exception.Create(''); + //‚à‚¤ˆê‰ñ‚±‚̃ƒ\ƒbƒh + Send(Board.Cookie, Board.SPID, Board.PON, False); + Exit; + end else begin + Board.SPID := ''; + Board.PON := ''; + FWork := False; + EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED); + DrawMenuBar(Handle); + Exit; + end; + end else if ResultType = grtCheck then begin + //ƒ‹[ƒv–hŽ~ + if not FirstWriting then + raise Exception.Create(''); + + MsgResult := MsgBox( + Handle, + '‘‚«ž‚Ý‚ÉŠÖ‚µ‚Ä‚Í—lX‚ȃƒOî•ñ‚ª‹L˜^‚³‚ê‚Ä‚¢‚Ü‚·B' + #13#10 + + '“Še‚ÉŠÖ‚µ‚Ä”­¶‚·‚éÓ”C‚Í‘S‚Ä“ŠeŽÒ‚É‹A‚µ‚Ü‚·B' + #13#10 + + 'Œö˜—Ç‘­‚É”½‚µ‚½‚èA‘¼l‚É–À˜f‚ð‚©‚¯‚鏑‚«ž‚݂͍T‚¦‚ĉº‚³‚¢B' + #13#10 + + '“Še‚³‚ꂽ“à—e‚̓Rƒs[E•Û‘¶Eˆø—pE“]Ú“™‚³‚ê‚éê‡‚ª‚ ‚è‚Ü‚·B' + #13#10 + + #13#10 + + '‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Ý‚Ü‚·‚©H', + 'Šm”F', + MB_YESNO or MB_ICONQUESTION); + + if MsgResult = IDYES then begin + if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin + GetCookie(tmpRawheader, Board); end else begin GetCookie(Indy.Response.RawHeaders.Text, Board); - end; - if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then - raise Exception.Create(''); - Send(Board.Cookie, Board.SPID, Board.PON, False); - Exit; - end else begin - EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED); - DrawMenuBar(Handle); - Board.SPID := ''; - Board.PON := ''; - FWork := false; - Exit; + end; + + if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then + raise Exception.Create(''); + Send(Board.Cookie, Board.SPID, Board.PON, False); + Exit; + end else begin + EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED); + DrawMenuBar(Handle); + Board.SPID := ''; + Board.PON := ''; + FWork := false; + Exit; end; end else begin - if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then - WriteSambaTime(FHost, Now()); - State := gdsError; - raise Exception.Create(''); + if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then + WriteSambaTime(FHost, Now()); + State := gdsError; + raise Exception.Create(''); end; except @@ -1110,8 +1110,9 @@ begin DrawMenuBar(Handle); end; FWork := false; - //”ñŒöŽ®ƒMƒRƒiƒr”‚Ȃǂ̃XƒNƒŠƒvƒg—p - //ResponceCode‚ª302Found‚ŏ‘‚«ž‚ÝŠ®—¹ + //”ñŒöŽ®ƒMƒRƒiƒr”‚ȂǂÌ2chŒÝŠ·ƒXƒNƒŠƒvƒg—p + //2chˆÈŠO‚Å‚©‚ÂResponceCode‚ª302Found‚ŏ‘‚«ž‚ÝŠ®—¹ + //if (not Board.Is2ch) and (FStatusCode = 302) then begin if FStatusCode = 302 then begin GikoForm.PlaySound('ResEnd'); SaveSendFile; @@ -1202,12 +1203,15 @@ begin s := 'sid=' + HttpEncode(SessionID) + '&' else s := ''; - s := s + 'subject=&' - + 'FROM=' + HttpEncode(NameComboBox.Text) + '&' - + 'mail=' + HttpEncode(MailComboBox.Text) + '&' - + 'MESSAGE=' + HttpEncode(body) + '&' - + 'bbs=' + Board.BBSID + '&' - + 'time=' + IntToStr(SendTime) + '&'; + s := s + 'subject=&' + + 'FROM=' + HttpEncode(NameComboBox.Text) + '&' + + 'mail=' + HttpEncode(MailComboBox.Text) + '&' + + 'MESSAGE=' + HttpEncode(body) + '&' + + 'bbs=' + Board.BBSID + '&' + + 'time=' + IntToStr(SendTime) + '&' //; + //2005/05/27 2chŽd—l•ÏXŽb’菈’u + //‚½‚¾‚µAŠm”Fƒ_ƒCƒAƒƒO‚ªo‚È‚¢‚Æ‚¢‚¤–â‘è—L‚èB + + 'hana=mogera&'; if FThreadItem = nil then begin s := s + 'subject=' + HttpEncode(TitleEdit.Text) + '&'; s := s + 'submit=' + HttpEncode('‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Þ') + #13#10; diff --git a/gikoNavi.res b/gikoNavi.res index d332f5e826c8d5f64f840db09cd20f78f5125b62..54dff90ad377590bc03ff07dc5b7e519ea9b9bbe 100644 GIT binary patch delta 28 kcmX@2ctml-8(z*{CI$u*21bV7$zOT@G8%9G%y*Fy0FPV>8UO$Q delta 28 kcmX@2ctml-8(z*HCI$u*21bUS$zOT@G8%3E%y*Fy0FO2b7XSbN -- 2.11.0