・板一覧更新の処理メッセージを追加

[gikonavigoeson/gikonavi.git] / NewBoard.pas

diff --git a/NewBoard.pas b/NewBoard.pas
index c18140e..214bbdd 100644 (file)
--- 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('\83_\83E\83\93\83\8d\81[\83h\82ª\8a®\97¹\82µ\82Ü\82µ\82½');
+                       MessageMemo.Lines.Add('\83f\81[\83^\82ð\93W\8aJ\82µ\82Ü\82·\81F' + IntToStr(Stream.Size) + 'Byte\81^' + Indy.Response.ContentEncoding);
+                       Result.FContent := GikoSys.GzipDecompress(Stream, Indy.Response.ContentEncoding);
+                       MessageMemo.Lines.Add('\83f\81[\83^\93W\8aJ\82ª\8a®\97¹\82µ\82Ü\82µ\82½');
                except
                        on E: EIdConnectException do begin
                                MessageMemo.Lines.Add('');
@@ -159,7 +161,7 @@ begin
                                if FAbort then
                                        MessageMemo.Lines.Add('\83_\83E\83\93\83\8d\81[\83h\82ð\92\86\92f\82µ\82Ü\82µ\82½')
                                else begin
-                                       MessageMemo.Lines.Add('\83_\83E\83\93\83\8d\81[\83h\82ª\8e¸\94s\82µ\82Ü\82µ\82½');
+                                       MessageMemo.Lines.Add('\94Â\88ê\97\97\82Ì\8eæ\93¾\82É\8e¸\94s\82µ\82Ü\82µ\82½');
                                        MessageMemo.Lines.Add('ResponseCode: ' + IntToStr(Indy.ResponseCode));
                                        MessageMemo.Lines.Add('Message: ' + E.Message);
                                        MessageMemo.Lines.Add('------------------------');