OSDN Git Service

人柱のチェックで、正規リリースのインストーラをダウンロードする不具合を修正
authorh677 <h677>
Sun, 8 Feb 2009 15:38:23 +0000 (15:38 +0000)
committerh677 <h677>
Sun, 8 Feb 2009 15:38:23 +0000 (15:38 +0000)
UpdateCheck.pas

index 6385a01..b2b7469 100644 (file)
@@ -80,7 +80,7 @@ const
        CHECK_URL = 'http://gikonavi.sourceforge.jp/updater/latest.txt';
 {$ENDIF}
 var
-    value : string;
+    value, url : string;
        ResStream: TMemoryStream;
     downResult, current, newest: TStringList;
     newgiko: Boolean;
@@ -129,8 +129,10 @@ begin
                         newgiko := false;
                         // night build\82Í\81A\83r\83\8b\83h\94Ô\8d\86\82¾\82¯\82Å\94»\92è\82·\82é
                         if (nightbuild) then begin
+                            url := downResult.Values[ 'n_url' ];
                             newgiko := StrToInt(current[3]) < StrToInt(newest[3]);
                         end else begin
+                            url := downResult.Values[ 'url' ];
                             newgiko := ( StrToInt(current[1]) < StrToInt(newest[1]) ) or
                                         ( (StrToInt(current[1]) = StrToInt(newest[1]))) and
                                             ((StrToInt(current[2]) < StrToInt(newest[2])) );
@@ -138,9 +140,8 @@ begin
                         if (newgiko) then begin
                             if GikoUtil.MsgBox(Handle, '\90V\82µ\82¢\83M\83R\83i\83r\82ª\82 \82è\82Ü\82·\81B\83_\83E\83\93\83\8d\81[\83h\82µ\82Ü\82·\82©\81H', '\8dX\90V\8am\94F',
                                 MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) = ID_YES then begin
-
-                                ResultMemo.Lines.Add('\90V\82µ\82¢\83M\83R\83i\83r\82ª\82 \82è\82Ü\82·\81B\83_\83E\83\93\83\8d\81[\83h\82ð\8aJ\8en\82µ\82Ü\82·\81B' + downResult.Values[ 'url' ]);
-                                DonwloadUpdate(Trim(downResult.Values[ 'url' ]));
+                                ResultMemo.Lines.Add('\90V\82µ\82¢\83M\83R\83i\83r\82ª\82 \82è\82Ü\82·\81B\83_\83E\83\93\83\8d\81[\83h\82ð\8aJ\8en\82µ\82Ü\82·\81B' + url);
+                                DonwloadUpdate(Trim(url));
                                 Result := True;
                             end;
                         end else begin