• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

ギコナビ


Commit MetaInfo

Revision098dd0ae26b49e6f22c1fd775c3fa4c5e4199d10 (tree)
Time2011-03-04 00:17:39
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

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

Change Summary

Incremental Difference

--- a/Belib.pas
+++ b/Belib.pas
@@ -215,7 +215,6 @@ begin
215215 MakeError(FSession, ERROR_INVALID_DATA)
216216 else begin
217217 body := Buf;
218- body := EUCtoSJIS(body); // 2byte•¶Žš‚Ì•”•ª‚ÍŽg‚í‚È‚¢‚¯‚Ç”O‚Ì‚½‚ß
219218 FSession.FDMDM := Copy(body, Pos('"DMDM=', body) + 6, Length(body));
220219 FSession.FDMDM := Copy(FSession.FDMDM, 1, Pos(';', FSession.FDMDM) - 1);
221220 FSession.FMDMD := Copy(body, Pos('"MDMD=', body) + 6, Length(body));
--- a/Editor.pas
+++ b/Editor.pas
@@ -22,7 +22,7 @@ uses
2222 type
2323 // TSetLayeredWindowAttributes = function(wnd: HWND; crKey: DWORD; bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;
2424 //‘‚«ž‚Ý–ß‚è’lƒ^ƒCƒv
25- TGikoResultType = (grtOK, grtCookie, grtCheck, grtError, grtNinpou, grtNinpouErr, grtSuiton);
25+ TGikoResultType = (grtOK, grtCookie, grtCheck, grtError, grtBouken, grtBoukenErr);
2626
2727 TEditorForm = class(TForm)
2828 MainMenu: TMainMenu;
@@ -220,7 +220,6 @@ type
220220 FInputAssistKey: String; ///< “ü—̓AƒVƒXƒg‚̃L[
221221 FResistWords: TStringList; ///< “ü—̓AƒVƒXƒg‚ÌŽ«‘‚©‚ç‚ÌŒŸõŒ‹‰Ê
222222 FSambaTimer: TSambaTimer; ///< Samba‘΍ô‚̃^ƒCƒ}[
223- FCookieDomain: string; ///< ”E–@’ŸƒhƒƒCƒ“
224223 procedure Preview;
225224 function Check: Boolean;
226225 procedure SetNameList(sName, sMail: string);
@@ -785,7 +784,7 @@ begin
785784 Indy.Request.AcceptLanguage := 'ja';
786785 Indy.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';
787786 Indy.Request.ContentType := 'application/x-www-form-urlencoded';
788- Indy.Request.CustomHeaders.Add(getHeaderStr(ACOOKIE, SPID, PON, GikoSys.GetBouken(URL, FCookieDomain), Board));
787+ Indy.Request.CustomHeaders.Add(getHeaderStr(ACOOKIE, SPID, PON, GikoSys.GetBoukenCookie(URL), Board));
789788 TextStream := TStringStream.Create('');
790789 Source := TStringStream.Create('');
791790 try
@@ -888,40 +887,23 @@ begin
888887 CancelSend( Board, SysMenu );
889888 Exit;
890889 end;
891- end else if ResultType = grtNinpou then begin
890+ end else if ResultType = grtBouken then begin
892891 MsgBox( Handle,
893- '‹M•û‚Ì”E–@’Ÿ‚ðì¬’†‚Å‚·Bˆø‚«•Ô‚·‚È‚ç‚¢‚Ü‚¾B(‚Q•ª‚Ù‚Ç‚©‚©‚è‚Ü‚·)' + #13#10
892+ '‹M•û‚Ì–`Œ¯‚̏‘‚ðì¬’†‚Å‚·Bˆø‚«•Ô‚·‚È‚ç‚¢‚Ü‚¾B(‚Q•ª‚Ù‚Ç‚©‚©‚è‚Ü‚·)' + #13#10
894893 , 'Šm”F',
895- MB_OK or MB_ICONINFORMATION);
896- if (GikoSys.Setting.UseSamba) and (FSambaTimer.Enabled) then
897- begin
898- FSambaTimer.WriteSambaTime(Now());
899- end;
894+ MB_OK or MB_ICONQUESTION);
900895 Board.PON := '';
901896 Board.SPID := '';
902897 Board.Cookie := '';
903898 GetCookie(Indy.CookieManager, Board);
904899 Exit;
905- end else if ResultType = grtSuiton then begin
906- MsgBox( Handle,
907- '‹M•û‚Ì”E–@’Ÿ‚͏Ă©‚ê‚Ü‚µ‚½B' + #13#10 +
908- '”E–@’Ÿ‚ðíœ‚µ‚Ü‚µ‚½AÄ‘—M‚µ‚Ä‚­‚¾‚³‚¢B'
909- , 'Šm”F',
910- MB_OK or MB_ICONINFORMATION);
911- // ”E–@’ŸŠª•¨‚ðÁ‚·
912- GikoSys.DelBoukenCookie(FCookieDomain);
913- GikoSys.Setting.WriteBoukenSettingFile;
914- Board.PON := '';
915- Board.SPID := '';
916- Board.Cookie := '';
917- Exit;
918900 end else begin
919901 if (GikoSys.Setting.UseSamba) and (FSambaTimer.Enabled) then
920902 begin
921903 FSambaTimer.WriteSambaTime(Now());
922904 end;
923- // ”E–@’ŸŠª•¨ƒGƒ‰[‚ÍCookie‚ðXV‚·‚é
924- if ResultType = grtNinpouErr then begin
905+ // –`Œ¯‚̏‘ƒGƒ‰[‚ÍCookie‚ðXV‚·‚é
906+ if ResultType = grtBoukenErr then begin
925907 GetCookie(Indy.CookieManager, Board);
926908 end;
927909 State := gdsError;
@@ -999,17 +981,13 @@ function TEditorForm.GetResultType(ResponseText: string): TGikoResultType;
999981 begin
1000982 if AnsiPos('‘‚«‚±‚Ý‚ªI‚í‚è‚Ü‚µ‚½', ResponseText) <> 0 then
1001983 Result := grtOK
1002- else if ( (AnsiPos('<b>‚悤‚±‚»F‹M•û‚Ì”E–@’Ÿ‚ðì¬‚µ‚Ü‚·B‚Q•ªŒã‚ɍēx‘‚«ž‚Þ‚©A‚¨‹A‚è‚­‚¾‚³‚¢', ResponseText) > 0) or
1003- (AnsiPos('‚d‚q‚q‚n‚qF‹M•û‚Ì–`Œ¯‚̏‘‚ðì¬’†‚Å‚·', ResponseText) > 0) )
984+ else if (AnsiPos('‚d‚q‚q‚n‚qF‹M•û‚Ì–`Œ¯‚̏‘‚ðì¬’†‚Å‚·', ResponseText) > 0)
1004985 and (AnsiPos(RES2CH_COOKIE, ResponseText) > 0) then
1005- Result := grtNinpou
986+ Result := grtBouken
1006987 else if ( (AnsiPos('‚d‚q‚q‚n‚qFCs‚ª‘«‚è‚Ü‚¹‚ñ', ResponseText) > 0) or // ƒGƒ‰[ˆµ‚¢
1007988 (AnsiPos('‚d‚q‚q‚n‚qFLv‚ª‘«‚è‚È‚­‚ăXƒŒƒbƒh—§‚Ä', ResponseText) > 0) ) // ƒGƒ‰[ˆµ‚¢
1008989 and (AnsiPos(RES2CH_COOKIE, ResponseText) > 0) then
1009- Result := grtNinpouErr
1010- else if( AnsiPos('<b>‚â‚ç‚ꂽ‚Å‚²‚´‚éFLv=0 <br>‚³‚ÄŽ©—Í‚Å•œŠˆ‚Å‚«‚é‚©‚È?', ResponseText) > 0)
1011- and (AnsiPos(RES2CH_COOKIE, ResponseText) > 0) then
1012- Result := grtSuiton
990+ Result := grtBoukenErr
1013991 else if ( AnsiPos('ƒNƒbƒL[‚ª‚È‚¢‚©ŠúŒÀØ‚ê‚Å‚·', ResponseText) > 0) or
1014992 (AnsiPos('<title>ƒNƒbƒL[Šm”FI</title>', ResponseText) > 0) or
1015993 (AnsiPos('<title>¡ƒNƒbƒL[Šm”FI¡</title>', ResponseText) > 0) or
@@ -1942,8 +1920,6 @@ begin
19421920 curCookies := TStringList.Create;
19431921 curCookies.Delimiter := ';';
19441922 curCookies.DelimitedText := ABoard.Cookie;
1945- curCookies.Sort;
1946- curCookies.Duplicates := dupIgnore;
19471923 ABoard.Cookie := '';
19481924 try
19491925 for i := 0 to CookieMng.CookieCollection.Count - 1 do begin
@@ -1955,17 +1931,14 @@ begin
19551931 ABoard.SPID := Cookie.Value;
19561932 ABoard.Expires := GMTToLocalDateTime(Cookie.Expires);
19571933 end else if ( Cookie.CookieName = VAL_HAP ) then begin
1958- // HAPíœ—p‚ÌCookie‚ª”z•z‚³‚ê‚é‚̂ŁA—LŒøŠúŒÀ‚ðƒ`ƒFƒbƒN‚·‚é
1959- if CompareDateTime(GMTToLocalDateTime(Cookie.Expires) ,Now) > 0 then begin
1960- GikoSys.SetBoukenCookie(Cookie.Value, Cookie.Domain);
1961- // –`Œ¯‚̏‘‚Ì•Û‘¶
1962- GikoSys.Setting.WriteBoukenSettingFile;
1963- end;
1934+ GikoSys.SetBoukenCookie(Cookie.Value, Cookie.Domain);
1935+ // –`Œ¯‚̏‘‚Ì•Û‘¶
1936+ GikoSys.Setting.WriteBoukenSettingFile;
19641937 end else begin
19651938 if Length( curCookies.Values[ Cookie.CookieName ] ) > 0 then begin
19661939 // Šù‘¶’l‚Ì•t‚¯‘Ö‚¦
19671940 curCookies[curCookies.IndexOfName(Cookie.CookieName)] :=
1968- Cookie.ClientCookie;
1941+ Cookie.Value;
19691942 end else begin
19701943 // ’ljÁ
19711944 curCookies.Add(Cookie.ClientCookie);
@@ -1973,8 +1946,8 @@ begin
19731946 end;
19741947 end;
19751948 for i := 0 to curCookies.Count - 1 do begin
1976- if (curCookies[i] <> '') then begin
1977- ABoard.Cookie := ABoard.Cookie + curCookies[i] + '; ';
1949+ if (curCookies.Strings[i] <> '') then begin
1950+ ABoard.Cookie := ABoard.Cookie + curCookies.Strings[i] + '; ';
19781951 end;
19791952 end;
19801953 finally
@@ -2515,7 +2488,7 @@ begin
25152488 Result := 'Cookie: ' + Result + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text;
25162489
25172490 if HAP <> '' then
2518- Result := Result + '; HAP=' + HAP + '; ';
2491+ Result := Result + #13#10'Cookie: HAP=' + HAP + '; ';
25192492
25202493 end;
25212494
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -265,8 +265,6 @@ type
265265 procedure DelBoukenCookie(ADomain: String);
266266 //! –`Œ¯‚̏‘Domainˆê——Žæ“¾
267267 procedure GetBoukenDomain(var ADomain: TStringList);
268- //! –`Œ¯‚̏‘ƒhƒƒCƒ“–¼CookieŽæ“¾
269- function GetBouken(AURL: String; var Domain: String): String;
270268 end;
271269
272270 var
@@ -3499,19 +3497,7 @@ begin
34993497 end;
35003498 end;
35013499 end;
3502-function TGikoSys.GetBouken(AURL: String; var Domain: String): String;
3503-var
3504- Protocol, Host, Path, Document, Port,Bookmark : String;
3505- Cookie : String;
3506-begin
3507- Domain := '';
3508- Cookie := '';
3509- GikoSys.ParseURI(AURL, Protocol, Host, Path, Document, Port,Bookmark);
3510- if ( Length(Host) > 0 ) then begin
3511- Setting.GetBouken(Host, Domain, Cookie);
3512- Result := Cookie;
3513- end;
3514-end;
3500+
35153501
35163502 initialization
35173503 GikoSys := TGikoSys.Create;
--- a/Option.dfm
+++ b/Option.dfm
@@ -253,7 +253,7 @@ object OptionDialog: TOptionDialog
253253 Top = 43
254254 Width = 417
255255 Height = 20
256- ItemHeight = 0
256+ ItemHeight = 12
257257 TabOrder = 0
258258 Text = 'BoardURLComboBox'
259259 end
@@ -1689,7 +1689,7 @@ object OptionDialog: TOptionDialog
16891689 Top = 256
16901690 Width = 477
16911691 Height = 81
1692- Caption = #24525#27861#24086
1692+ Caption = #20882#38522#12398#26360
16931693 TabOrder = 2
16941694 object Label25: TLabel
16951695 Left = 40
--- a/Option.pas
+++ b/Option.pas
@@ -1725,7 +1725,7 @@ procedure TOptionDialog.BoukenDelButtonClick(Sender: TObject);
17251725 begin
17261726 if ( BoukenComboBox.Items.IndexOf( BoukenComboBox.Text ) <> -1 ) then begin
17271727 if MsgBox(Self.Handle, BoukenComboBox.Text + ' ‚ðíœ‚µ‚Ü‚·B'#13#10 +
1728- 'íœ‚·‚é‚Æ•œŒ³‚Å‚«‚Ü‚¹‚ñB‚æ‚낵‚¢‚Å‚·‚©H', '”E–@’Ÿ@ƒhƒƒCƒ“íœ', MB_YESNO or MB_ICONQUESTION) = IDYES then begin
1728+ 'íœ‚·‚é‚Æ•œŒ³‚Å‚«‚Ü‚¹‚ñB‚æ‚낵‚¢‚Å‚·‚©H', '–`Œ¯‚̏‘@ƒhƒƒCƒ“íœ', MB_YESNO or MB_ICONQUESTION) = IDYES then begin
17291729 GikoSys.DelBoukenCookie(BoukenComboBox.Text);
17301730 GikoSys.Setting.WriteBoukenSettingFile;
17311731 BoukenComboBox.Items.Delete(BoukenComboBox.ItemIndex);
--- a/Setting.pas
+++ b/Setting.pas
@@ -550,7 +550,6 @@ type
550550 function GetExtprevieFileName: String;
551551 function GetBoukenCookie(AHostName: String): String;
552552 procedure SetBoukenCookie(ACookieValue, AHostName: String);
553- procedure GetBouken(AHostName: String; var Domain:String; var Cookie:String);
554553 {
555554 \brief ƒŠƒ“ƒN—š—ð‚Ì•ÛŽƒTƒCƒY‚Ìsetter
556555 \param AVal Ý’è‚·‚éƒTƒCƒY( >0)
@@ -2504,19 +2503,5 @@ begin
25042503 FBoukenCookieList.Add(AHostName + '=' + ACookieValue);
25052504 end;
25062505 end;
2507-procedure TSetting.GetBouken(AHostName: String; var Domain:String; var Cookie:String);
2508-var
2509- i : Integer;
2510-begin
2511- Cookie := '';
2512- for i := 0 to FBoukenCookieList.Count - 1 do begin
2513- if ( AnsiPos(FBoukenCookieList.Names[i], AHostName) > 0 ) then begin
2514- Domain := FBoukenCookieList.Names[i];
2515- Cookie := FBoukenCookieList.Values[FBoukenCookieList.Names[i]];
2516- Break;
2517- end;
2518- end;
2519-end;
2520-
25212506 end.
25222507
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/gikoSetup.iss
+++ b/readme/gikoSetup.iss
@@ -9,12 +9,12 @@ DefaultDirName={pf}\gikonavi
99 VersionInfoDescription=ƒMƒRƒiƒrƒZƒbƒgƒAƒbƒvƒvƒƒOƒ‰ƒ€
1010 DefaultGroupName=ƒMƒRƒiƒr
1111 ; Ž©•ª‚̊‹«‚ɍ‡‚킹‚Ä‚­‚¾‚³‚¢
12-SourceDir=G:\Release62
12+SourceDir=G:\Release61
1313 OutputDir=G:\InnoSetup\Output
1414 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
1515 ; ƒMƒRƒiƒr‚̃o[ƒWƒ‡ƒ“‚É‚ ‚킹‚Ä‚­‚¾‚³‚¢
16-VersionInfoVersion=1.62.1.813
17-OutputBaseFilename=gikoNavi_b62_setup
16+VersionInfoVersion=1.61.1.801
17+OutputBaseFilename=gikoNavi_b61_setup
1818
1919
2020
--- a/readme/gikoUSetup.iss
+++ b/readme/gikoUSetup.iss
@@ -14,12 +14,12 @@ DefaultDirName={pf}\gikonavi
1414 VersionInfoDescription=ƒMƒRƒiƒrƒZƒbƒgƒAƒbƒvƒvƒƒOƒ‰ƒ€
1515 DefaultGroupName=ƒMƒRƒiƒr
1616 ; Ž©•ª‚̊‹«‚ɍ‡‚킹‚Ä‚­‚¾‚³‚¢
17-SourceDir=G:\Release
17+SourceDir=G:\Release61
1818 OutputDir=G:\InnoSetup\Output
1919 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
2020 ; ƒMƒRƒiƒr‚̃o[ƒWƒ‡ƒ“‚É‚ ‚킹‚Ä‚­‚¾‚³‚¢
21-VersionInfoVersion=1.62.1.813
22-OutputBaseFilename=gikoNavi_b62_usetup
21+VersionInfoVersion=1.61.1.801
22+OutputBaseFilename=gikoNavi_b61_usetup
2323 CreateUninstallRegKey=no
2424
2525 [Tasks]
--- a/readme/language.ini
+++ b/readme/language.ini
@@ -12,6 +12,4 @@ Error=[
1212 NewRes=[VƒŒƒX‘—MI—¹‚µ‚Ü‚·‚½(M¥ƒÖ¥L)]
1313 NewSure=[VƒXƒŒ‘—MI—¹‚µ‚Ü‚·‚½(M¥ƒÖ¥L)]
1414 ResError=[ƒŒƒX‘—MŽ¸”s(L¥ƒÖ¥`)]
15-SureError=[VƒXƒŒ‘—MŽ¸”s(L¥ƒÖ¥`)]
16-BELogout=BEƒƒOƒAƒEƒg‚µ‚Ü‚·‚½
17-BELogin=BEƒƒOƒCƒ“‚µ‚Ü‚·‚½ -
15+SureError= [VƒXƒŒ‘—MŽ¸”s(L¥ƒÖ¥`)]
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -121,13 +121,9 @@ LICENSE
121121 ------------------------------
122122 —š—ð
123123 ------------------------------
124-2011/03/06
124+200X/XX/XX
125125 Version ÊÞÀ62
126- ƒŒƒXƒGƒfƒBƒ^‚ł̃gƒŠƒbƒv‚̃vƒŒƒrƒ…[‚Ì•s‹ï‡C³
127- ƒŒƒXƒ|ƒbƒvƒAƒbƒv‚ŁA•¡”ƒ‚ƒjƒ^ŠÂ‹«‚ŁA‰E’[‚Ő؂ê‚é•s‹ï‡‚̏C³
128- ”E–@’Ÿ‘Ήž
129- BEƒƒOƒCƒ“‚ɑΉž
130-
126+
131127 2009/10/18
132128 Version ÊÞÀ61
133129 ‚µ‚½‚ç‚ÎJBBS‚ŃXƒŒƒbƒh‚ðŒš‚Ä‚é‚±‚Æ‚ª‚Å‚«‚È‚¢•s‹ï‡‚̏C³