From f20e5135edb6dd0d3c4a1c7bc887b62e761191f0 Mon Sep 17 00:00:00 2001 From: zako Date: Sat, 7 Feb 2015 01:46:14 +0900 Subject: [PATCH] =?utf8?q?=E3=83=BB=E6=9D=BF=E4=B8=80=E8=A6=A7=E6=9B=B4?= =?utf8?q?=E6=96=B0=E3=81=AE=E5=87=A6=E7=90=86=E3=83=A1=E3=83=83=E3=82=BB?= =?utf8?q?=E3=83=BC=E3=82=B8=E3=82=92=E8=BF=BD=E5=8A=A0=20=E3=83=BB?= =?utf8?q?=E3=83=80=E3=82=A6=E3=83=B3=E3=83=AD=E3=83=BC=E3=83=89=E3=83=87?= =?utf8?q?=E3=83=BC=E3=82=BF=E3=81=AE=E5=B1=95=E9=96=8B=E5=87=A6=E7=90=86?= =?utf8?q?=E3=81=A7=E4=B8=8D=E6=AD=A3=E3=81=AE=E5=8F=AF=E8=83=BD=E6=80=A7?= =?utf8?q?=E3=81=AE=E3=81=82=E3=82=8B=E3=82=B3=E3=83=BC=E3=83=89=E3=82=92?= =?utf8?q?=E8=A6=8B=E7=9B=B4=E3=81=97?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- GikoSystem.pas | 17 ++++++++++------- NewBoard.pas | 6 ++++-- gikoNavi.res | Bin 4316 -> 4316 bytes 3 files changed, 14 insertions(+), 9 deletions(-) diff --git a/GikoSystem.pas b/GikoSystem.pas index 3118e3c..6bc52ac 100644 --- a/GikoSystem.pas +++ b/GikoSystem.pas @@ -1558,7 +1558,7 @@ begin cnt := ResStream.Read(buf, BUF_SIZE); if cnt > 0 then GZipStream.Write(buf, BUF_SIZE); - until cnt = 0; + until cnt <= 0; finally GZipStream.Free; end; @@ -1569,19 +1569,22 @@ begin cnt := ResStream.Read(buf, BUF_SIZE); if cnt > 0 then TextStream.Write(buf, BUF_SIZE); - until cnt = 0; + until cnt <= 0; end; //NULL•¶Žš‚ð"*"‚É‚·‚é s := TextStream.DataString; i := Length(s); - ln := i; - while (i > 0) and (s[i] = #0) do - Dec(i); - Delete(s, i + 1, ln - i); + if (i > 0) then begin + ln := i; + while (i > 0) and (s[i] = #0) do + Dec(i); + if (ln > i) then + Delete(s, i + 1, ln - i); + end; i := Pos(#0, s); - while i <> 0 do begin + while i > 0 do begin s[i] := '*'; i := Pos(#0, s); end; diff --git a/NewBoard.pas b/NewBoard.pas index c18140e..214bbdd 100644 --- a/NewBoard.pas +++ b/NewBoard.pas @@ -145,8 +145,10 @@ begin finally IdAntiFreeze.Active := False; end; - Result.FContent := GikoSys.GzipDecompress(Stream, Indy.Response.ContentEncoding); MessageMemo.Lines.Add('ƒ_ƒEƒ“ƒ[ƒh‚ªŠ®—¹‚µ‚Ü‚µ‚½'); + MessageMemo.Lines.Add('ƒf[ƒ^‚ð“WŠJ‚µ‚Ü‚·F' + IntToStr(Stream.Size) + 'Byte^' + Indy.Response.ContentEncoding); + Result.FContent := GikoSys.GzipDecompress(Stream, Indy.Response.ContentEncoding); + MessageMemo.Lines.Add('ƒf[ƒ^“WŠJ‚ªŠ®—¹‚µ‚Ü‚µ‚½'); except on E: EIdConnectException do begin MessageMemo.Lines.Add(''); @@ -159,7 +161,7 @@ begin if FAbort then MessageMemo.Lines.Add('ƒ_ƒEƒ“ƒ[ƒh‚ð’†’f‚µ‚Ü‚µ‚½') else begin - MessageMemo.Lines.Add('ƒ_ƒEƒ“ƒ[ƒh‚ªŽ¸”s‚µ‚Ü‚µ‚½'); + MessageMemo.Lines.Add('”ˆꗗ‚̎擾‚ÉŽ¸”s‚µ‚Ü‚µ‚½'); MessageMemo.Lines.Add('ResponseCode: ' + IntToStr(Indy.ResponseCode)); MessageMemo.Lines.Add('Message: ' + E.Message); MessageMemo.Lines.Add('------------------------'); diff --git a/gikoNavi.res b/gikoNavi.res index 33612fe79ac79bc61af14fa562d1096df44980f8..70518393a6fa647b03d65d06580560ebc94d9045 100644 GIT binary patch delta 46 vcmcbkct>%=3toPA21bThW(Ec*J^4HDZ(c(NJq80HwqP)0Fx>o~?=B+%8gC1j delta 46 vcmcbkct>%=3toOV21bS$W<~}mJ^4HDZ(aiiJqAM{wqP)0FxdQ`?=B+%8XXIj -- 2.11.0