• R/O
  • HTTP
  • SSH
  • HTTPS

提交

标签
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

修订版860dc895114743de39ec95764c919243dc1649de (tree)
时间2011-10-22 12:39:23
作者cvs2git <cvs2git>
Commitercvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_63_0_817'.

更改概述

差异

--- a/Editor.pas
+++ b/Editor.pas
@@ -928,6 +928,14 @@ begin
928928 raise Exception.Create('');
929929 end;
930930 except
931+ on E: EIdSocketError do begin
932+ State := gdsError;
933+ ResponseText := '<html><body>'
934+ + '<div>Ú‘±‚ªŽ¸”s‚µ‚Ü‚µ‚½<br>'
935+ + '‰ñü‚̏ó‘Ԃ𒲂ׂĂ­‚¾‚³‚¢<br></div>'
936+ + '<br><br><div>' + E.Message + '</div>'
937+ + '</body></html>';
938+ end;
931939 on E: EIdConnectException do begin
932940 State := gdsError;
933941 ResponseText := '<html><body>'
@@ -962,7 +970,9 @@ begin
962970 finally
963971 Source.Free;
964972 TextStream.Free;
965- Indy.CookieManager.CookieCollection.Clear;
973+ if ( Indy.CookieManager <> nil ) then begin
974+ Indy.CookieManager.CookieCollection.Clear;
975+ end;
966976 //sysMenu := GetSystemMenu( Handle, true );
967977 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
968978 DrawMenuBar(Handle);
--- a/Giko.pas
+++ b/Giko.pas
@@ -616,6 +616,7 @@ type
616616 FUpdateExePath: string; ///ƒMƒRƒiƒrXVƒCƒ“ƒXƒg[ƒ‰ƒpƒX
617617 FUpdateExeArgs: string; ///ƒMƒRƒiƒrXVƒCƒ“ƒXƒg[ƒ‰ˆø”
618618 FKokoPopupThreadItem: TThreadItem;
619+ FCwSave: Word; // 8087CW’l•Û‘¶
619620 procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
620621 procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
621622 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
@@ -747,7 +748,7 @@ type
747748 property WorkCount: Integer read FWorkCount write FWorkCount;
748749 property UpdateExePath: string read FUpdateExePath write FUpdateExePath;
749750 property UpdateExeArgs: string read FUpdateExeArgs write FUpdateExeArgs;
750-
751+
751752 procedure SetContent(inThread: TBrowserRecord);
752753 function GetActiveContent(popup :Boolean = false): TThreadItem;
753754 function GetActiveList: TObject;
@@ -929,6 +930,13 @@ begin
929930 Writeln('============================================================');
930931 {$ENDIF}
931932 //try
933+ // ƒ[ƒŠ„—áŠO‚ÌŒ»Ý‚̐ݒè‚ð•Û‘¶‚·‚é
934+ FCwSave := Get8087CW;
935+ if ( AnsiPos('9.0', GikoSys.GetIEVersion()) = 1 ) then begin
936+ // IE 9‚̏ꍇ‚¾‚¯A–³Œøƒrƒbƒg‚𗧂Ăé
937+ Set8087CW(FCwSave or $0004);
938+ end;
939+ Set8087CW(FCwSave or $0004);
932940 Sort.SetSortDate(Now());
933941
934942 FTreeType := gttNone;
@@ -1833,6 +1841,8 @@ begin
18331841 // ƒAƒbƒvƒf[ƒgŽÀs
18341842 GikoSys.CreateProcess(FUpdateExePath, FUpdateExeArgs);
18351843 end;
1844+ // ƒ[ƒŠ„—áŠO‚ðŒ³‚É–ß‚·
1845+ Set8087CW(FCwSave);
18361846 end;
18371847
18381848 // ŠeŠ‚É‚ ‚éƒLƒƒƒrƒlƒbƒgE BBS ƒƒjƒ…[‚ðƒZƒbƒg^XV
@@ -2064,7 +2074,7 @@ begin
20642074
20652075 if FResPopupBrowser <> nil then begin
20662076 if not(Sender is TResPopupBrowser) then begin
2067- if (FResPopupBrowser.Visible) then begin
2077+ if ((doc <> nil) and (FResPopupBrowser.Visible)) then begin
20682078 if ResPopupClearTimer.Interval > 0 then begin
20692079 ResPopupClearTimer.Enabled := True;
20702080 ResPopupClearTimer.Tag := 0;
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -276,7 +276,7 @@ const
276276 ZERO_DATE: Integer = 25569;
277277 BETA_VERSION_NAME_E = 'beta';
278278 BETA_VERSION_NAME_J = 'ÊÞÀ';
279- BETA_VERSION = 62;
279+ BETA_VERSION = 63;
280280 BETA_VERSION_BUILD = ''; //!< debug”Å‚È‚Ç
281281 APP_NAME = 'gikoNavi';
282282 BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';
--- a/Trip.pas
+++ b/Trip.pas
@@ -494,18 +494,18 @@ begin
494494 Result := '???';
495495 end else begin
496496 convpw := '';
497- // ¶ƒL[•ûŽ®
498- if pw[ 0 ] = '#' then begin
499- get_pw_salt(pw, convpw, salt);
500- end;
501497 if (pw[ 0 ] = '#') and (Length(pw) >= 20) then begin
502498 // «—ˆ‚ÌŠg’£—p
503499 Result := '???';
504- end else if Length(convpw) = 0 then begin
505- // ¶ƒL[•ûŽ®ƒGƒ‰[
506- Result := '???';
507- end else if Length(convpw) = 8 then begin
508- Result := Copy( crypt_r( PChar(convpw), salt, s ), 4, 100 );
500+ end else if pw[ 0 ] = '#' then begin
501+ // ¶ƒL[•ûŽ®
502+ get_pw_salt(pw, convpw, salt);
503+ if Length(convpw) = 0 then begin
504+ // ¶ƒL[•ûŽ®ƒGƒ‰[
505+ Result := '???';
506+ end else if Length(convpw) = 8 then begin
507+ Result := Copy( crypt_r( PChar(convpw), salt, s ), 4, 100 );
508+ end
509509 end else begin
510510 // V•ûŽ®
511511 StringHashSHA1(digest, pw);
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -1,4 +1,4 @@
1-¡ƒMƒRƒiƒr Version1.00 ÊÞÀ62 Readme.txt
1+¡ƒMƒRƒiƒr Version1.00 ÊÞÀ63 Readme.txt
22
33
44 ------------------------------
@@ -121,6 +121,9 @@ LICENSE
121121 ------------------------------
122122 —š—ð
123123 ------------------------------
124+20XX/XX/XX
125+ Version ÊÞÀ63
126+
124127 2011/03/06
125128 Version ÊÞÀ62
126129 ƒŒƒXƒGƒfƒBƒ^‚ł̃gƒŠƒbƒv‚̃vƒŒƒrƒ…[‚Ì•s‹ï‡C³