6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, Menus, OleCtrls, Registry,
15 ActiveX, {HTTPApp,} YofUtils, Trip, IniFiles, StrUtils,
16 GikoSystem, GikoUtil, ImgList, Clipbrd, BoardGroup,
17 IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
18 IdTCPConnection, IdTCPClient, IdHTTP, ActnList, StdActns, IdIntercept,
19 IdLogBase, IdLogDebug, IdException, DateUtils, MojuUtils, bmRegExp;
22 // TSetLayeredWindowAttributes = function(wnd: HWND; crKey: DWORD; bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;
23 //
\8f\91\82«
\8d\9e\82Ý
\96ß
\82è
\92l
\83^
\83C
\83v
24 TGikoResultType = (grtOK, grtCookie, grtCheck, grtError);
26 TEditorForm = class(TForm)
29 PostMessage: TMenuItem;
30 SaveMessage: TMenuItem;
33 StatusBar: TStatusBar;
34 EditorPage: TPageControl;
36 PreviewTab: TTabSheet;
44 ToolBarImageList: TImageList;
45 HotToobarImageList: TImageList;
47 NameBasePanel: TPanel;
50 NameComboBox: TComboBox;
51 MailComboBox: TComboBox;
53 SendToolButton: TToolButton;
54 OutBoxToolButton: TToolButton;
55 ToolButton5: TToolButton;
56 UndoToolButton: TToolButton;
57 CutToolButton: TToolButton;
58 CopyToolButton: TToolButton;
59 PasteToolButton: TToolButton;
60 ToolButton3: TToolButton;
61 TransToolButton: TToolButton;
62 TopToolButton: TToolButton;
64 IdAntiFreeze: TIdAntiFreeze;
65 ToolButton1: TToolButton;
66 ToolButton2: TToolButton;
67 ActionList: TActionList;
81 SageCheckBox: TCheckBox;
82 IdLogDebug: TIdLogDebug;
85 KotehanCheckBox: TCheckBox;
89 SelectAllAction: TAction;
91 SelectAll1: TMenuItem;
93 QuotePasteAction: TAction;
94 QuotePasteMenuItem: TMenuItem;
96 SpaceToNBSPAction: TAction;
97 AmpToCharRefAction: TAction;
98 SpaceTabnbsp1: TMenuItem;
100 BoardInformationTab: TTabSheet;
101 BoardtopTab: TTabSheet;
102 TitlePictureBrowser: TWebBrowser;
104 BoardInformationMemo: TMemo;
105 GetSETTINGTXTAction: TAction;
107 SETTINGTXT2: TMenuItem;
108 GetTitlePictureAction: TAction;
110 GetHeadTXTAction: TAction;
112 RocalRuleTab: TTabSheet;
113 WebBrowser1: TWebBrowser;
114 LocalEdit: TRichEdit;
115 CalcCapasityAction: TAction;
120 procedure EditorPageChange(Sender: TObject);
121 procedure FormCreate(Sender: TObject);
122 procedure BrowserStatusTextChange(Sender: TObject;
123 const Text: WideString);
124 procedure FormClose(Sender: TObject; var Action: TCloseAction);
125 procedure FormDestroy(Sender: TObject);
126 procedure SendActionExecute(Sender: TObject);
127 procedure SaveActionExecute(Sender: TObject);
128 procedure AbortActionExecute(Sender: TObject);
129 procedure CloseActionExecute(Sender: TObject);
130 procedure UndoActionExecute(Sender: TObject);
131 procedure CutActionExecute(Sender: TObject);
132 procedure CopyActionExecute(Sender: TObject);
133 procedure PasteActionExecute(Sender: TObject);
134 procedure SendActionUpdate(Sender: TObject);
135 procedure SaveActionUpdate(Sender: TObject);
136 procedure CloseActionUpdate(Sender: TObject);
137 procedure UndoActionUpdate(Sender: TObject);
138 procedure CutActionUpdate(Sender: TObject);
139 procedure CopyActionUpdate(Sender: TObject);
140 procedure PasteActionUpdate(Sender: TObject);
141 procedure TopActionExecute(Sender: TObject);
142 procedure TopActionUpdate(Sender: TObject);
143 procedure SageCheckBoxClick(Sender: TObject);
144 procedure MailComboBoxChange(Sender: TObject);
145 procedure TransActionExecute(Sender: TObject);
146 procedure TransActionUpdate(Sender: TObject);
147 procedure IdLogDebugReceive(ASender: TIdConnectionIntercept;
149 procedure IdLogDebugSend(ASender: TIdConnectionIntercept;
151 procedure SelectAllActionExecute(Sender: TObject);
152 procedure StatusBarResize(Sender: TObject);
153 procedure Timer1Timer(Sender: TObject);
154 procedure FormActivate(Sender: TObject);
155 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
156 procedure QuotePasteActionExecute(Sender: TObject);
157 procedure SpaceToNBSPActionExecute(Sender: TObject);
158 procedure AmpToCharRefActionExecute(Sender: TObject);
159 procedure BoardTopClick(Sender: TObject);
160 procedure GetSETTINGTXTActionExecute(Sender: TObject);
161 procedure GetTitlePictureActionUpdate(Sender: TObject);
162 procedure GetTitlePictureActionExecute(Sender: TObject);
163 procedure GetHeadTXTActionExecute(Sender: TObject);
164 procedure CalcCapasityActionExecute(Sender: TObject);
165 procedure RuleClick(Sender: TObject);
167 FThreadItem: TThreadItem;
169 FNameComboEdit: THandle;
170 FMailComboEdit: THandle;
173 FStatusCode: Integer;
174 FDebugStrReceive: string;
175 FDebugStrSend: string;
176 FSambaTime: TDateTime;
180 function RepHtml(s: string): string;
181 function Check: Boolean;
182 procedure SetNameList(sName, sMail: string);
183 // procedure Send(SendType: TGikoSendType; SPID: string; PON: string; FirstWriting: Boolean);
184 procedure Send(SPID: string; PON: string; FirstWriting: Boolean);
186 function GetActiveControlHandle: THandle;
187 // function GetSendData: string;
188 // procedure GetSendData(Source: TStringStream);
189 procedure GetSendData(Source: TStringStream);
190 procedure SaveSendFile;
191 procedure SetContent(Content: string; ABrowser: TWebBrowser);
192 function GetSPID(CookieLine: string): string;
193 function GetPON(CookieLine: string): string;
194 function GetResultType(ResponseText: string): TGikoResultType;
195 procedure ReadSambaTime(const AHost: string);
196 procedure WriteSambaTime(const AHost: string; ATime: TDateTime);
197 function ReadSettingTime(const AHost: string): Integer;
198 function CheckSambaTime(const AHost: string; ATime: TDateTime): Boolean;
199 procedure SetSamba24(AURL: string);
200 ///
\88ø
\97p
\95\84\82Ì
\8eæ
\93¾
201 function GetOEIndentChar : string;
202 ///
\96{
\95¶
\82Ì
\8eæ
\93¾
203 function GetBody : string;
204 //IdHttp
\82Ì
\8f\89\8aú
\89»
205 procedure InitIdHTTP(http: TIdHTTP);
206 procedure ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
207 function GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
208 procedure ShowTitlePicture();
209 function GetFusianaName(body: TStringList; ABoard: TBoard): String;
211 procedure CreateParams(var Params: TCreateParams); override;
215 procedure SetThreadItem(Item: TThreadItem);
216 procedure SetBoard(Item: TBoard);
217 property BBSID: string read FBBSID write FBBSID;
226 CAPTION_NAME_NEW: string = '
\83M
\83R
\83i
\83r
\83X
\83\8c\97§
\82Ä
\83G
\83f
\83B
\83^';
227 CAPTION_NAME_RES: string = '
\83M
\83R
\83i
\83r
\83\8c\83X
\83G
\83f
\83B
\83^';
229 //
\83G
\83f
\83B
\83b
\83g
\83E
\83B
\83\93\83h
\83E
\82ð
\89E
\89º
\82É
\82¸
\82ç
\82µ
\82Ä
\8aJ
\82
\88Ú
\93®
\97Ê
233 //DAX
\82³
\82ñ±Ø¶ÞÄ!(
\81L
\81¤
\81M)
234 READCGI_ERR = '-ERR';
235 READCGI_INCR = '-INCR';
237 READCGI_PARTIAL = '+PARTIAL';
238 READCGI_ERR_FOUND_KAKO = '-ERR
\89ß
\8b\8e\83\8d\83O
\91q
\8cÉ
\82Å
\94
\8c©';
239 READCGI_ERR_NOT_HTML = '-ERR html
\89»
\91Ò
\82¿';
240 READCGI_ERR_NOT_FOUND = '-ERR
\82»
\82ñ
\82È
\94Âor
\83X
\83\8c\83b
\83h
\82È
\82¢
\82Å
\82·
\81B';
241 READCGI_ERR_ABONE = '-ERR
\82Ç
\82±
\82©
\82Å
\82 \82Ú
\81[
\82ñ
\82ª
\82 \82Á
\82½
\82Ý
\82½
\82¢
\82Å
\82·
\81B';
242 READCGI_ERR_TIMEOUT = '-ERR
\8ew
\92è
\8e\9e\8aÔ
\82ª
\89ß
\82¬
\82Ü
\82µ
\82½
\81B';
243 READCGI_ERR_CANTUSE = '-ERR
\82à
\82¤
\81@
\82Â
\82©
\82¦
\82Ü
\82¹
\82ñ';
244 RES2CH_TRUE = '<!-- 2ch_X:true -->';
245 RES2CH_FALSE = '<!-- 2ch_X:false -->';
246 RES2CH_ERROR = '<!-- 2ch_X:error -->';
247 RES2CH_CHECK = '<!-- 2ch_X:check -->';
248 RES2CH_COOKIE = '<!-- 2ch_X:cookie -->';
251 BBS2CH_NAME: string = '
\82Q
\82¿
\82á
\82ñ
\82Ë
\82é';
252 BBS2CH_LOG_FOLDER: string = '2ch';
253 EXTERNAL_LOG_FOLDER: string = 'exboard';
255 FOLDER_INI_FILENAME: string = 'Folder.ini';
256 FOLDER_INDEX_FILENAME: string = 'Folder.idx';
257 SUBJECT_FILENAME: string = 'subject.txt';
258 PATH_DELIM: string = '\';
263 StartPos, EndPos: Integer;
268 {constructor TEditorForm.Create(AOwner: TComponent; Item: TBoard);
270 inherited Create(AOwner);
273 procedure TEditorForm.CreateParams(var Params: TCreateParams);
276 if FormStyle in [fsNormal, fsStayOnTop] then
277 if BorderStyle in [bsSingle, bsSizeable] then begin
278 Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
279 Params.WndParent := 0;
283 {procedure TEditorForm.CreateParams(var Params: TCreateParams);
285 inherited CreateParams(Params);
286 Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
289 procedure TEditorForm.FormCreate(Sender: TObject);
291 wp: TWindowPlacement;
296 Browser.Navigate('about:blank');
297 TitlePictureBrowser.Navigate('about:blank');
301 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\88Ê
\92u
\90Ý
\92è
302 wp.length := sizeof(wp);
303 wp.rcNormalPosition.Top := GikoSys.Setting.EditWindowTop;
304 wp.rcNormalPosition.Left := GikoSys.Setting.EditWindowLeft;
306 wp.rcNormalPosition.Bottom := GikoSys.Setting.EditWindowTop + GikoSys.Setting.EditWindowHeight;
307 wp.rcNormalPosition.Right := GikoSys.Setting.EditWindowLeft + GikoSys.Setting.EditWindowWidth;
308 wp.showCmd := SW_HIDE;
309 SetWindowPlacement(Handle, @wp);
311 if GikoSys.Setting.EditWindowMax then
312 WindowState := wsMaximized;
314 //
\83E
\83B
\83\93\83h
\83E
\82ª
\89æ
\96Ê
\8aO
\82È
\82ç
\89æ
\96Ê
\93à
\82É
\88Ú
\93®
\82·
\82é
315 if (Left + Width) > Screen.Width then
316 // Left := Screen.Width - Width;
318 if (Top + Height) > Screen.Height then
319 // Top := Screen.Height - Height;
326 //
\8c»
\8dÝ
\82Ì
\83E
\83B
\83\93\83h
\83E
\82Ì
\88Ê
\92u
\82ð
\95Û
\91¶
327 GikoSys.Setting.EditWindowTop := Top + WINDOWMOVE_V; //
\8e\9f\82É
\8aJ
\82
\83E
\83B
\83\93\83h
\83E
\82Í
328 GikoSys.Setting.EditWindowLeft := Left + WINDOWMOVE_H; //
\81@
\81@
\81@
\89E
\8eÎ
\82ß
\89º
\82É
\82¸
\82ç
\82·
329 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\95\9d\82Æ
\8d\82\82³
\82ª
\8f¬
\82³
\82·
\82¬
\82¢
\82ê
\82Î
\8c³
\82É
\96ß
\82·
330 if GikoSys.Setting.EditWindowHeight < 144 then
332 if GikoSys.Setting.EditWindowWidth < 144 then
335 EditorPage.ActivePage := EditorTab;
336 FNameComboEdit := GetWindow(NameComboBox.Handle, GW_CHILD);
337 FMailComboEdit := GetWindow(MailComboBox.Handle, GW_CHILD);
338 NameComboBox.Items.Assign(GikoSys.Setting.NameList);
339 MailComboBox.Items.Assign(GikoSys.Setting.MailList);
344 hUser32 := LoadLibrary('User32.dll');
346 TransAction.Enabled := true
348 TransAction.Enabled := false;
350 TransAction.Enabled := false;
353 FreeLibrary(hUser32);
356 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\83X
\83e
\83C
\8fó
\91Ô
357 if GikoSys.Setting.EditWindowStay then begin //
\83X
\83e
\83C
\8fó
\91Ô
358 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
359 TopAction.Checked := true;
360 TopToolButton.Down := true;
361 end else begin //
\83X
\83e
\83C
\82µ
\82È
\82¢
362 SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
363 TopAction.Checked := false;
364 TopToolButton.Down := false;
367 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\94¼
\93§
\96¾
\8fó
\91Ô
368 if(GikoSys.Setting.EditWindowTranslucent) and (TransAction.Enabled) then begin //
\94¼
\93§
\96¾
\81i
\83g
\83\89\83\93\83X
\83\8b\81[
\83Z
\83\93\83g
\81j
\8fó
\91Ô
370 TransAction.Checked := true;
371 TransToolButton.Down := true;
372 end else begin //
\95s
\93§
\96¾
374 TransAction.Checked := false;
375 TransToolButton.Down := false;
377 //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
378 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked;
380 SpaceToNBSPAction.Checked := GikoSys.Setting.SpaceToNBSP;
381 AmpToCharRefAction.Checked := GikoSys.Setting.AmpToCharRef;
383 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
386 BoardtopTab.TabVisible := ini.Readbool('EditorForm', 'BoardTopTab', False);
387 BoardTop.Checked := BoardtopTab.TabVisible;
388 RocalRuleTab.TabVisible := ini.Readbool('EditorForm', 'RocalRureTab', False);
389 HeadTXT1.Checked := RocalRuleTab.TabVisible;
396 procedure TEditorForm.SetBoard(Item: TBoard);
399 Caption := CAPTION_NAME_NEW + ' - [' + Item.Title + ']';
400 NameComboBox.Text := FBoard.KotehanName;
401 MailComboBox.Text := FBoard.KotehanMail;
402 SageCheckBox.Checked := AnsiPos('sage', MailComboBox.Text) <> 0;
403 TitlePanel.Visible := True;
404 SetSamba24(FBoard.URL);
405 ShowBoardInformation(FBoard, BoardInformationMemo);
409 procedure TEditorForm.SetThreadItem(Item: TThreadItem);
412 Caption := CAPTION_NAME_RES + ' - [' + FThreadItem.Title + ']';
413 NameComboBox.Text := FThreadItem.ParentBoard.KotehanName;
414 MailComboBox.Text := FThreadItem.ParentBoard.KotehanMail;
415 SageCheckBox.Checked := AnsiPos('sage', MailComboBox.Text) <> 0;
416 TitlePanel.Visible := False;
417 SetSamba24(FThreadItem.ParentBoard.URL);
418 ShowBoardInformation(FThreadItem.ParentBoard, BoardInformationMemo);
422 function TEditorForm.GetBody : string;
431 body := BodyEdit.Text;
432 if AmpToCharRefAction.Checked then
433 // &
\82Ì
\92u
\8a·
\82Í
\88ê
\94Ô
\8dÅ
\8f\89\82É
\82â
\82é
\82±
\82Æ
434 body := CustomStringReplace( body, '&', '&' );
435 if SpaceToNBSPAction.Checked then begin
437 tail := p + Length( body );
439 while p < tail do begin
446 tmp := tmp + ' ';
447 until (len mod TAB_LENGTH) = 0;
452 tmp := tmp + p^; Inc( p );
458 tmp := tmp + ' ';
464 //
\8eÀ
\91Ì
\8eQ
\8fÆ
\82Í 1
\95¶
\8e\9a\95ª
469 while p < tail do begin
470 if p^ in ['a'..'z', 'A'..'Z', '0'..'9', '#'] then begin
472 end else if p^ = ';' then begin
484 if p^ in kYofKanji then begin
485 tmp := tmp + p^; Inc( p );
486 tmp := tmp + p^; Inc( p );
489 tmp := tmp + p^; Inc( p );
501 procedure TEditorForm.SetFont;
503 BodyEdit.Font.Name := GikoSys.Setting.EditorFontName;
504 BodyEdit.Font.Size := GikoSys.Setting.EditorFontSize;
505 BodyEdit.Font.Color := GikoSys.Setting.EditorFontColor;
506 BodyEdit.Color := GikoSys.Setting.EditorBackColor;
509 procedure TEditorForm.Preview;
522 if FThreadItem = nil then begin
524 Title := RepHtml(TitleEdit.Text);
526 No := IntToStr(FThreadItem.Count + 1);
527 Title := RepHtml(FThreadItem.Title);
531 Namae := RepHtml(NameComboBox.Text);
532 Mail := RepHtml(MailComboBox.Text);
533 Body := RepHtml(body);
534 Body := StringReplace(Body, #13#10, '<br>', [rfReplaceAll]);
535 DateTime := FormatDateTime('yyyy/mm/dd(aaa) hh:nn', now);
537 if Trim(Namae) = '' then
538 Namae := '
\96¼
\96³
\82µ
\82³
\82ñ';
540 s := '<HTML><HEAD>' + #13#10
541 + '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">' + #13#10
542 + '<TITLE>' + title + '</TITLE>' + #13#10
543 // + '<STYLE><!--BODY{font-size : 9pt;font-family : "
\82l
\82r
\82o
\83S
\83V
\83b
\83N";}--></STYLE>' + #13#10
545 + '<BODY text="#000000" bgcolor="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' + #13#10
546 + '<FONT COLOR="#FF0000">' + title + '</FONT>' + #13#10
548 posTrip := AnsiPos( '#', Namae );
551 tripOrigin := Copy( Namae, posTrip + 1, Length( Namae ) );
553 Copy( Namae, 1, posTrip - 1 ) + '</B>
\81\9f' +
554 get_2ch_trip( PChar( tripOrigin ) ) + '<B>';
557 s := s + '<DT>' + No + '
\81F <FONT color="forestgreen"><B>' + Namae + '</B></FONT>
\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10
559 s := s + '<DT>' + No + '
\81F <A href="mailto:' + Mail + '"><B>' + Namae + '</B></A> [' + Mail + ']
\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10;
560 s := s + '</BODY></HTML>';
561 SetContent(s, Browser);
564 function TEditorForm.RepHtml(s: string): string;
566 // s := StringReplace(s, '&', '&', [rfReplaceAll]);
567 s := StringReplace(s, '<', '<', [rfReplaceAll]);
568 s := StringReplace(s, '>', '>', [rfReplaceAll]);
569 // s := StringReplace(s, ' ', ' ', [rfReplaceAll]); //
\8ed
\97l
\95Ï
\8dX
\82É
\82æ
\82è
\8eg
\97p
\95s
\89Â
570 s := StringReplace(s, '"', '"', [rfReplaceAll]);
574 procedure TEditorForm.EditorPageChange(Sender: TObject);
576 if EditorPage.ActivePage = PreviewTab then begin
579 Browser.Navigate('about:blank');
583 procedure TEditorForm.BrowserStatusTextChange(Sender: TObject;
584 const Text: WideString);
586 if EditorPage.ActivePage = PreviewTab then begin
587 StatusBar.Panels[0].Text := Text;
589 StatusBar.Panels[0].Text := '';
593 function TEditorForm.Check: Boolean;
600 if FThreadItem = nil then
603 Board := FThreadItem.ParentBoard;
605 if (not GikoSys.Setting.UseMachineTime) and
606 ((Board.LastGetTime = 0) or
607 (Board.LastGetTime = ZERO_DATE)) then begin
608 Msg := '
\83T
\81[
\83o
\82Ì
\8e\9e\8d\8f\82ª
\95ª
\82©
\82ç
\82È
\82¢
\82½
\82ß
\81A
\91\97\90M
\8fo
\97\88\82Ü
\82¹
\82ñ'#13#10
609 + '
\83X
\83\8c\83b
\83h
\82ð
\8dX
\90V
\81i
\8eæ
\93¾
\81j
\8cã
\81A15
\95b
\91Ò
\82Á
\82Ä
\82©
\82ç
\91\97\90M
\82µ
\82Ä
\82
\82¾
\82³
\82¢';
610 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
612 end else if BodyEdit.Text = '' then begin
613 Msg := '
\96{
\95¶
\82ª
\93ü
\97Í
\82³
\82ê
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B';
614 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
616 end else if (FBoard <> nil) and (Trim(TitleEdit.Text) = '') then begin
617 Msg := '
\83^
\83C
\83g
\83\8b\82ª
\93ü
\97Í
\82³
\82ê
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B';
618 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
621 if (not GikoSys.Dolib.Connected) and (AnsiPos('
\81\9c', NameComboBox.Text) <> 0) then begin
622 Msg := '
\83\8d\83O
\83C
\83\93\82µ
\82Ä
\82¢
\82È
\82¢
\82Ì
\82Å
\81\9c\82Ì
\8b@
\94\
\82Í
\97\98\97p
\8fo
\97\88\82Ü
\82¹
\82ñ
\81B'#13#10
623 + '
\82±
\82Ì
\82Ü
\82Ü
\91\97\90M
\82µ
\82Ä
\82à
\82æ
\82ë
\82µ
\82¢
\82Å
\82·
\82©
\81H';
624 rc := MsgBox(Handle, Msg, '
\8am
\94F', MB_YESNO or MB_ICONQUESTION);
625 Result := (rc = IDYES);
630 procedure TEditorForm.FormClose(Sender: TObject; var Action: TCloseAction);
635 procedure TEditorForm.FormDestroy(Sender: TObject);
637 wp: TWindowPlacement;
639 //
\8dÅ
\91å
\89»
\81E
\83E
\83B
\83\93\83h
\83E
\88Ê
\92u
\95Û
\91¶
640 wp.length := sizeof(wp);
641 GetWindowPlacement(Handle, @wp);
643 GikoSys.Setting.EditWindowTop := wp.rcNormalPosition.Top;
644 GikoSys.Setting.EditWindowLeft := wp.rcNormalPosition.Left;
645 GikoSys.Setting.EditWindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
646 GikoSys.Setting.EditWindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
647 GikoSys.Setting.EditWindowMax := WindowState = wsMaximized;
648 //GikoSys.Setting.EditWindowStay := FormStyle = fsStayOnTop; //
\83X
\83e
\83C
\8fó
\91Ô
\82Ì
\95Û
\91¶
649 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked; //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
653 procedure TEditorForm.SetNameList(sName, sMail: string);
655 if Trim(sName) <> '' then begin
656 if GikoSys.Setting.NameList.IndexOf(sName) = -1 then
657 GikoSys.Setting.NameList.Insert(0, sName);
659 if Trim(sMail) <> '' then begin
660 if GikoSys.Setting.MailList.IndexOf(sMail) = -1 then
661 GikoSys.Setting.MailList.Insert(0, sMail);
665 function TEditorForm.GetActiveControlHandle: THandle;
667 if EditorPage.ActivePage = EditorTab then begin
668 if ActiveControl = NameComboBox then
669 Result := FNameComboEdit
670 else if ActiveControl = MailComboBox then
671 Result := FMailComboEdit
672 else if ActiveControl = BodyEdit then
673 Result := BodyEdit.Handle
674 else if ActiveControl = TitleEdit then
675 Result := TitleEdit.Handle
678 end else if Editorpage.ActivePage = BoardInformationTab then begin
679 if ActiveControl = BoardInformationMemo then
680 Result := BoardInformationMemo.Handle
687 procedure TEditorForm.SetContent(Content: string; ABrowser: TWebBrowser);
691 if ABrowser.Document <> nil then begin
692 doc := Idispatch( olevariant(ABrowser.ControlInterface).Document) as IHTMLDocument2;
695 doc.charset := 'Shift_JIS';
700 procedure TEditorForm.InitIdHTTP(http: TIdHTTP);
703 http.ProxyParams.BasicAuthentication := False;
704 if GikoSys.Setting.WriteProxy then begin
705 http.ProxyParams.ProxyServer := GikoSys.Setting.WriteProxyAddress;
706 http.ProxyParams.ProxyPort := GikoSys.Setting.WriteProxyPort;
707 http.ProxyParams.ProxyUsername := GikoSys.Setting.WriteProxyUserID;
708 http.ProxyParams.ProxyPassword := GikoSys.Setting.WriteProxyPassword;
709 if GikoSys.Setting.ReadProxyUserID <> '' then
710 http.ProxyParams.BasicAuthentication := True;
712 http.ProxyParams.ProxyServer := '';
713 http.ProxyParams.ProxyPort := 80;
714 http.ProxyParams.ProxyUsername := '';
715 http.ProxyParams.ProxyPassword := '';
717 Indy.Request.UserAgent := GikoSys.GetUserAgent;
718 Indy.Request.AcceptEncoding := '';
721 procedure TEditorForm.Send(SPID: string; PON: string; FirstWriting: Boolean);
723 TextStream: TStringStream;
724 Source: TStringStream;
725 ResponseText: string;
728 State: TGikoDownloadState;
729 ResultType: TGikoResultType;
734 //fusianasan
\83g
\83\89\83b
\83v by
\92è
\8aú
\95Ö
736 // SettingTxt: String;
741 // SettingBody: TStringList;
746 Namae := RepHtml(NameComboBox.Text);
747 if FThreadItem = nil then
750 Board := FThreadItem.ParentBoard;
754 if FThreadItem = nil then begin
755 URL := FBoard.GetSendURL;
756 RefURL := GikoSys.UrlToServer(FBoard.URL) + 'test/bbs.cgi';
758 URL := FThreadItem.GetSendURL;
759 RefURL := FThreadItem.URL;
761 // Indy.Request.UserAgent := GikoSys.GetUserAgent;
762 Indy.Request.Referer := RefURL;
763 // Indy.Request.AcceptEncoding := '';
767 Cookie := Cookie + 'SPID=' + SPID + '; ';
769 Cookie := Cookie + 'PON=' + PON + '; ';
770 Cookie := 'Cookie: ' + Cookie + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text;
772 sysMenu := GetSystemMenu( Handle, false );
773 EnableMenuItem( sysMenu, SC_CLOSE, MF_GRAYED );
775 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
778 Indy.Request.CustomHeaders.Clear;
779 // Indy.Request.CacheControl := 'no-cache';
780 Indy.Request.CustomHeaders.Add('Pragma: no-cache');
781 Indy.Request.AcceptLanguage := 'ja';
782 Indy.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';
783 Indy.Request.ContentType := 'application/x-www-form-urlencoded';
784 Indy.Request.CustomHeaders.Add(Cookie);
785 TextStream := TStringStream.Create('');
786 Source := TStringStream.Create('');
789 FDebugStrReceive := '';
792 Indy.Post(URL, Source, TextStream);
793 ResponseText := TextStream.DataString;
795 ResultType := GetResultType(ResponseText);
797 //MsgResult
\8f\89\8aú
\89»
799 //
\83t
\83V
\83A
\83i
\83g
\83\89\83b
\83v
\8cx
\8d\90(LocalMode) by
\92è
\8aú
\95Ö
800 if ((Namae = '
\8eR
\8dè
\8fÂ') or (Namae = 'fusianasan')) and (FirstWriting) then begin
803 '
\83\8a\83\82\81[
\83g
\83z
\83X
\83g
\82ð
\95\
\8e¦
\82·
\82é
\8b@
\94\
\82ª
\8eg
\82í
\82ê
\82Ä
\82¢
\82Ü
\82·' + #13#10 +
804 '
\82à
\82µ
\82à
\8aÔ
\88á
\82Á
\82Ä
\82±
\82Ì
\95û
\96@
\82Å
\83z
\83X
\83g
\82ª
\95\
\8e¦
\82³
\82ê
\82½
\82Æ
\82µ
\82Ä
\82à
\81A
\8e©
\8cÈ
\90Ó
\94C
\82È
\82Ì
\82Å
\8dí
\8f\9c\88Ë
\97\8a\82É
\82Í
\89\9e\82¶
\82Ü
\82¹
\82ñ
\81B' + #13#10#13#10 +
805 '
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
807 MB_YESNO or MB_ICONQUESTION);
808 if MsgResult = IDNO then begin
812 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
818 if ResultType = grtOK then begin
819 WriteSambaTime(FHost, Now());
820 State := gdsComplete;
821 end else if ResultType = grtCookie then begin
822 //
\83\8b\81[
\83v
\96h
\8e~
823 if not FirstWriting then
824 raise Exception.Create('');
827 '
\81E
\93\8a\8de
\82³
\82ê
\82½
\93à
\97e
\82Í
\83R
\83s
\81[
\81A
\95Û
\91¶
\81A
\88ø
\97p
\81A
\93]
\8dÚ
\93\99\82³
\82ê
\82é
\8fê
\8d\87\82ª
\82 \82è
\82Ü
\82·
\81B' + #13#10 +
828 '
\81E
\93\8a\8de
\82É
\8aÖ
\82µ
\82Ä
\94
\90¶
\82·
\82é
\90Ó
\94C
\82Í
\91S
\82Ä
\93\8a\8de
\8eÒ
\82É
\8bA
\82µ
\82Ü
\82·
\81B' + #13#10#13#10 +
829 '
\91S
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
831 MB_YESNO or MB_ICONQUESTION);
832 if MsgResult = IDYES then begin
833 Board.SPID := GetSPID(Indy.Response.RawHeaders.Values['Set-Cookie']);
834 Board.PON := GetPON(Indy.Response.RawHeaders.Values['Set-Cookie']);
835 if (Board.SPID = '') and (Board.PON = '') then
836 raise Exception.Create('');
837 //
\82à
\82¤
\88ê
\89ñ
\82±
\82Ì
\83\81\83\
\83b
\83h
838 Send(Board.SPID, Board.PON, False);
844 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
848 end else if ResultType = grtCheck then begin
850 //
\83\8b\81[
\83v
\96h
\8e~
851 if not FirstWriting then
852 raise Exception.Create('');
856 '
\8f\91\82«
\8d\9e\82Ý
\82É
\8aÖ
\82µ
\82Ä
\82Í
\97l
\81X
\82È
\83\8d\83O
\8fî
\95ñ
\82ª
\8bL
\98^
\82³
\82ê
\82Ä
\82¢
\82Ü
\82·
\81B' + #13#10 +
857 '
\93\8a\8de
\82É
\8aÖ
\82µ
\82Ä
\94
\90¶
\82·
\82é
\90Ó
\94C
\82Í
\91S
\82Ä
\93\8a\8de
\8eÒ
\82É
\8bA
\82µ
\82Ü
\82·
\81B' + #13#10 +
858 '
\8cö
\8f\98\97Ç
\91
\82É
\94½
\82µ
\82½
\82è
\81A
\91¼
\90l
\82É
\96À
\98f
\82ð
\82©
\82¯
\82é
\8f\91\82«
\8d\9e\82Ý
\82Í
\8dT
\82¦
\82Ä
\89º
\82³
\82¢
\81B' + #13#10 +
859 '
\93\8a\8de
\82³
\82ê
\82½
\93à
\97e
\82Í
\83R
\83s
\81[
\81E
\95Û
\91¶
\81E
\88ø
\97p
\81E
\93]
\8dÚ
\93\99\82³
\82ê
\82é
\8fê
\8d\87\82ª
\82 \82è
\82Ü
\82·
\81B' + #13#10 +
861 '
\91S
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
863 MB_YESNO or MB_ICONQUESTION);
865 if MsgResult = IDYES then begin
866 Board.SPID := GetSPID(Indy.Response.RawHeaders.Values['Set-Cookie']);
867 Board.PON := GetPON(Indy.Response.RawHeaders.Values['Set-Cookie']);
868 if (Board.SPID = '') and (Board.PON = '') then
869 raise Exception.Create('');
870 Send(Board.SPID, Board.PON, False);
873 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
881 WriteSambaTime(FHost, Now());
883 raise Exception.Create('');
887 on E: EIdConnectException do begin
889 ResponseText := '<html><body>'
890 + '<div>
\90Ú
\91±
\82ª
\8e¸
\94s
\82µ
\82Ü
\82µ
\82½<br>'
891 + '
\89ñ
\90ü
\82â
\83v
\83\8d\83L
\83V
\82Ì
\8fó
\91Ô
\82ð
\92²
\82×
\82Ä
\82
\82¾
\82³
\82¢<br></div>'
892 + '<br><br><div>' + E.Message + '</div>'
895 on E: Exception do begin
898 FDebugStrReceive := AnsiReplaceText(FDebugStrReceive, '<', '<');
899 FDebugStrReceive := AnsiReplaceText(FDebugStrReceive, '>', '>');
900 FDebugStrSend := AnsiReplaceText(FDebugStrSend, '<', '<');
901 FDebugStrSend := AnsiReplaceText(FDebugStrSend, '>', '>');
903 ResponseText := '<html><body>' + TextStream.DataString;
904 ResponseText := AnsiReplaceText(ResponseText, '</body>', '');
905 ResponseText := AnsiReplaceText(ResponseText, '</html>', '');
906 ResponseText := ResponseText + '<hr><div align="left"><pre>';
907 ResponseText := ResponseText + '<b>
\82±
\82±
\82©
\82ç
\83M
\83R
\83i
\83r
\82Ì
\8fî
\95ñ</b>'#13#10;
908 ResponseText := ResponseText + #13#10'
\81\9c\91\97\90M'#13#10;
909 ResponseText := ResponseText + FDebugStrSend;
910 ResponseText := ResponseText + #13#10'
\81\9c\8eó
\90M'#13#10;
911 ResponseText := ResponseText + FDebugStrReceive;
912 ResponseText := ResponseText + '</pre></div></body></html>';
915 FStatusCode := Indy.ResponseCode;
921 //sysMenu := GetSystemMenu( Handle, true );
922 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
926 //
\94ñ
\8cö
\8e®
\83M
\83R
\83i
\83r
\94Â
\82È
\82Ç
\82Ì
\83X
\83N
\83\8a\83v
\83g
\97p
927 //ResponceCode
\82ª302Found
\82Å
\8f\91\82«
\8d\9e\82Ý
\8a®
\97¹
928 if FStatusCode = 302 then begin
929 GikoForm.PlaySound('ResEnd');
931 if FThreadItem = nil then
932 GikoForm.AddMessageList(FBoard.Title + ' [
\90V
\83X
\83\8c\91\97\90M
\8fI
\97¹]', nil, gmiOK)
934 GikoForm.AddMessageList(FThreadItem.Title + ' [
\83\8c\83X
\91\97\90M
\8fI
\97¹]', nil, gmiOK);
938 if State = gdsComplete then begin
939 GikoForm.PlaySound('ResEnd');
941 if FThreadItem = nil then
942 GikoForm.AddMessageList(FBoard.Title + ' [
\90V
\83X
\83\8c\91\97\90M
\8fI
\97¹]', nil, gmiOK)
944 GikoForm.AddMessageList(FThreadItem.Title + ' [
\83\8c\83X
\91\97\90M
\8fI
\97¹]', nil, gmiOK);
946 end else if State = gdsError then begin
947 if FThreadItem = nil then
948 GikoForm.AddMessageList(FBoard.Title + ' [
\90V
\83X
\83\8c\91\97\90M
\8e¸
\94s]', nil, gmiNG)
950 GikoForm.AddMessageList(FThreadItem.Title + ' [
\83\8c\83X
\91\97\90M
\8e¸
\94s]', nil, gmiNG);
951 EditorPage.ActivePage := PreviewTab;
952 SetContent(ResponseText, Browser);
953 end else if State = gdsAbort then begin
954 GikoForm.AddMessageList(FThreadItem.Title + ' [
\92\86\92f]', nil, gmiSAD);
958 function TEditorForm.GetResultType(ResponseText: string): TGikoResultType;
960 if AnsiPos('
\8f\91\82«
\82±
\82Ý
\82ª
\8fI
\82í
\82è
\82Ü
\82µ
\82½', ResponseText) <> 0 then
962 else if (AnsiPos('
\83N
\83b
\83L
\81[
\82ª
\82È
\82¢
\82©
\8aú
\8cÀ
\90Ø
\82ê
\82Å
\82·', ResponseText) > 0) or
963 (AnsiPos('<title>
\83N
\83b
\83L
\81[
\8am
\94F
\81I</title>', ResponseText) > 0) or
964 (AnsiPos('<title>
\81¡
\83N
\83b
\83L
\81[
\8am
\94F
\81I
\81¡</title>', ResponseText) > 0) or
965 //(AnsiPos('
\83N
\83b
\83L
\81[
\8am
\94F', ResponseText) > 0) or
966 (AnsiPos(RES2CH_COOKIE, ResponseText) > 0) then
968 else if (AnsiPos('<font size=+2 color=#FF0000>
\8f\91\82«
\8d\9e\82Ý
\83`
\83F
\83b
\83N
\81I </font>', ResponseText) > 0) or
969 (AnsiPos('<title>
\81¡
\8f\91\82«
\8d\9e\82Ý
\8am
\94F
\82µ
\82Ü
\82·
\81¡</title>', ResponseText) > 0) or
970 (AnsiPos('<title>
\93\8a\8de
\8am
\94F</title>', ResponseText) > 0) or
971 (AnsiPos('<b>
\8f\91\82«
\82±
\82Ý
\8am
\94F</b>', ResponseText) > 0) or
972 (AnsiPos('="../test/subbbs.cgi">', ResponseText) > 0) or
973 (AnsiPos(RES2CH_FALSE, ResponseText) > 0) then
980 procedure TEditorForm.GetSendData(Source: TStringStream);
989 if FThreadItem = nil then
992 Board := FThreadItem.ParentBoard;
994 if GikoSys.Setting.UseMachineTime then begin
995 if GikoSys.Setting.TimeAdjust then
996 Adjust := Gikosys.Setting.TimeAdjustSec
998 Adjust := GikoSys.Setting.TimeAdjustSec * -1;
999 SendTime := GikoSys.DateTimeToInt(Now) - (9 * 60 * 60) + Adjust
1001 if (Board.LastGetTime = 0) or (Board.LastGetTime = ZERO_DATE) then
1002 SendTime := GikoSys.DateTimeToInt(Now)
1004 SendTime := GikoSys.DateTimeToInt(Board.LastGetTime);
1009 SessionID := GikoSys.Dolib.SessionID;
1010 if SessionID <> '' then
1011 s := 'sid=' + HttpEncode(SessionID) + '&'
1014 s := s + 'subject=&'
1015 + 'FROM=' + HttpEncode(NameComboBox.Text) + '&'
1016 + 'mail=' + HttpEncode(MailComboBox.Text) + '&'
1017 + 'MESSAGE=' + HttpEncode(body) + '&'
1018 + 'bbs=' + Board.BBSID + '&'
1019 + 'time=' + IntToStr(SendTime) + '&';
1020 if FThreadItem = nil then begin
1021 s := s + 'subject=' + HttpEncode(TitleEdit.Text) + '&';
1022 s := s + 'submit=' + HttpEncode('
\91S
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Þ') + #13#10;
1024 s := s + 'key=' + ChangeFileExt(FThreadItem.FileName, '') + '&';
1025 s := s + 'submit=' + HttpEncode('
\8f\91\82«
\8d\9e\82Þ') + #13#10;
1027 Source.WriteString(s);
1030 procedure TEditorForm.SaveSendFile;
1035 ini := TMemIniFile.Create(GikoSys.GetSentFileName);
1037 sDate := IntToStr(GikoSys.DateTimeToInt(Now));
1039 ini.WriteString(sDate, 'Name', NameComboBox.Text);
1040 ini.WriteString(sDate, 'EMail', MailComboBox.Text);
1041 ini.WriteString(sDate, 'Body', HttpEncode(BodyEdit.Text));
1042 ini.WriteInteger(sDate, 'Status', FStatusCode);
1043 ini.WriteDateTime(sDate, 'Date', Now);
1044 if FThreadItem = nil then begin
1045 ini.WriteString(sDate, 'Title', TitleEdit.Text);
1046 ini.WriteString(sDate, 'BBS', FBoard.BBSID);
1047 ini.WriteInteger(sDate, 'NewThread', 1);
1049 ini.WriteString(sDate, 'Title', FThreadItem.Title);
1050 ini.WriteString(sDate, 'BBS', FThreadItem.ParentBoard.BBSID);
1051 ini.WriteString(sDate, 'Key', ChangeFileExt(FThreadItem.FileName, ''));
1060 procedure TEditorForm.SendActionExecute(Sender: TObject);
1064 state : TGikoDownloadState;
1071 SendAction.Enabled := False;
1072 Application.ProcessMessages;
1073 if not Check then Exit;
1075 if FThreadItem = nil then
1078 Board := FThreadItem.ParentBoard;
1080 if FThreadItem = nil then begin
1081 rc := GikoUtil.MsgBox(Handle,
1082 '
\81u' + Board.Title + '
\81v
\94Â
\82É
\90V
\82µ
\82¢
\83X
\83\8c\83b
\83h
\97§
\82Ä
\82Ü
\82·'#13#10#13#10
1083 + '
\81E
\94Â
\82Ì
\83\8b\81[
\83\8b\82ð
\8eç
\82Á
\82½
\8f\91\82«
\8d\9e\82Ý
\82Å
\82 \82é
\82±
\82Æ
\82ð
\8am
\94F
\82µ
\82Ü
\82µ
\82½
\82©
\81H'#13#10
1084 + '
\81E
\91¼
\82É
\93¯
\82¶
\82æ
\82¤
\82È
\83X
\83\8c\83b
\83h
\82ª
\96³
\82©
\82Á
\82½
\82±
\82Æ
\82ð
\8am
\94F
\82µ
\82Ü
\82µ
\82½
\82©
\81H'#13#10#13#10
1085 + '
\81u
\82Í
\82¢
\81v
\82ð
\89\9f\82·
\82Æ
\91\97\90M
\82µ
\82Ü
\82·',
1087 MB_ICONQUESTION or MB_YESNO);
1088 if rc <> ID_YES then
1092 SetNameList(NameComboBox.Text, MailComboBox.Text);
1093 if KotehanCheckBox.Checked then begin
1094 Board.KotehanName := NameComboBox.Text;
1095 Board.KotehanMail := MailComboBox.Text;
1098 if Board.IsBoardPlugInAvailable then begin
1101 if FThreadItem = nil then begin
1102 //
\83X
\83\8c\97§
\82Ä
1103 state := TGikoDownloadState( Board.BoardPlugIn.CreateThread(
1104 DWORD( Board ), TitleEdit.Text, NameComboBox.Text, MailComboBox.Text, body ) );
1106 if state = gdsComplete then begin
1107 GikoForm.PlaySound('ResEnd');
1109 GikoForm.AddMessageList(FBoard.Title + ' [
\90V
\83X
\83\8c\91\97\90M
\8fI
\97¹]', nil, gmiOK);
1112 end else if State = gdsError then begin
1113 GikoForm.AddMessageList(FBoard.Title + ' [
\90V
\83X
\83\8c\91\97\90M
\8e¸
\94s]', nil, gmiNG);
1114 end else if State = gdsAbort then begin
1115 GikoForm.AddMessageList(FThreadItem.Title + ' [
\92\86\92f]', nil, gmiSAD);
1119 state := TGikoDownloadState( FThreadItem.BoardPlugIn.WriteThread(
1120 DWORD( FThreadItem ), NameComboBox.Text, MailComboBox.Text, body ) );
1122 if state = gdsComplete then begin
1123 GikoForm.PlaySound('ResEnd');
1125 GikoForm.AddMessageList(FThreadItem.Title + ' [
\83\8c\83X
\91\97\90M
\8fI
\97¹]', nil, gmiOK);
1128 end else if State = gdsError then begin
1129 GikoForm.AddMessageList(FThreadItem.Title + ' [
\83\8c\83X
\91\97\90M
\8e¸
\94s]', nil, gmiNG);
1130 end else if State = gdsAbort then begin
1131 GikoForm.AddMessageList(FThreadItem.Title + ' [
\92\86\92f]', nil, gmiSAD);
1135 if not Timer1.Enabled then
1136 Send(Board.SPID, Board.PON, True)
1138 if not CheckSambaTime(FHost, Now()) then begin
1139 rc := GikoUtil.MsgBox(Handle,
1140 'Samba24
\82Ì
\8bK
\92è
\92l
\96¢
\96\9e\82Ì
\95b
\90\94\82µ
\82©
\8co
\89ß
\82µ
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B'#13#10
1141 + '
\91\97\90M
\82ð
\92\86\8e~
\82µ
\82Ü
\82·
\82©
\81H' + #13#10
1142 + '(
\81u
\82¢
\82¢
\82¦
\81v
\82¾
\82Æ
\91\97\90M
\82µ
\82Ü
\82·)', 'Samba24
\8cx
\8d\90',
1143 MB_YESNO or MB_ICONQUESTION);
1144 if rc = IDYES then begin
1149 Send(Board.SPID, Board.PON, True);
1154 if Timer1.Enabled then
1155 ReadSambaTime(FHost);
1159 procedure TEditorForm.SaveActionExecute(Sender: TObject);
1164 procedure TEditorForm.CloseActionExecute(Sender: TObject);
1169 procedure TEditorForm.UndoActionExecute(Sender: TObject);
1171 SendMessage(GetActiveControlHandle, WM_UNDO, 0, 0);
1174 procedure TEditorForm.CutActionExecute(Sender: TObject);
1176 SendMessage(GetActiveControlHandle, WM_CUT, 0, 0);
1179 procedure TEditorForm.CopyActionExecute(Sender: TObject);
1181 SendMessage(GetActiveControlHandle, WM_COPY, 0, 0);
1184 procedure TEditorForm.PasteActionExecute(Sender: TObject);
1186 SendMessage(GetActiveControlHandle, WM_PASTE, 0, 0);
1189 procedure TEditorForm.SelectAllActionExecute(Sender: TObject);
1191 SendMessage(GetActiveControlHandle, EM_SETSEL, 0, GetWindowTextLength(GetActiveControlHandle));
1194 procedure TEditorForm.TopActionExecute(Sender: TObject); //
\83E
\83B
\83\93\83h
\83E
\8dÅ
\91O
\96Ê(Stay)
\83{
\83^
\83\93\82Ì
\8f\88\97\9d
1196 if not (fsShowing in Self.FormState) then begin
1197 if TopAction.Checked then begin //
\83X
\83e
\83C
\8fó
\91Ô
\82É
\90Ý
\92è
1198 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
1199 GikoSys.Setting.EditWindowStay := true;
1200 end else begin //
\83X
\83e
\83C
\8fó
\91Ô
\89ð
\8f\9c
1201 SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
1202 GikoSys.Setting.EditWindowStay := false;
1204 //
\83X
\83e
\83C
\8fó
\91Ô
\82Ì
\95Û
\91¶
1205 //GikoSys.Setting.EditWindowStay := FormStyle = fsStayOnTop;
1209 procedure TEditorForm.AbortActionExecute(Sender: TObject);
1214 procedure TEditorForm.SendActionUpdate(Sender: TObject);
1216 SendAction.Enabled := not FWork;
1219 procedure TEditorForm.SaveActionUpdate(Sender: TObject);
1221 SaveAction.Enabled := False;
1224 procedure TEditorForm.CloseActionUpdate(Sender: TObject);
1226 CloseAction.Enabled := not FWork;
1229 procedure TEditorForm.UndoActionUpdate(Sender: TObject);
1231 UndoAction.Enabled := (GetActiveControlHandle <> 0)
1232 and (SendMessage(GetActiveControlHandle, EM_CANUNDO, 0, 0) <> 0)
1236 procedure TEditorForm.CutActionUpdate(Sender: TObject);
1238 Selection: TSelection;
1241 AHandle := GetActiveControlHandle;
1242 SendMessage(AHandle, EM_GETSEL, Longint(@Selection.StartPos), Longint(@Selection.EndPos));
1243 CutAction.Enabled := (AHandle <> 0)
1244 and ((Selection.EndPos - Selection.StartPos) <> 0)
1248 procedure TEditorForm.CopyActionUpdate(Sender: TObject);
1250 Selection: TSelection;
1253 AHandle := GetActiveControlHandle;
1254 SendMessage(AHandle, EM_GETSEL, Longint(@Selection.StartPos), Longint(@Selection.EndPos));
1255 CopyAction.Enabled := (AHandle <> 0)
1256 and ((Selection.EndPos - Selection.StartPos) <> 0)
1260 procedure TEditorForm.PasteActionUpdate(Sender: TObject);
1262 PasteAction.Enabled := (GetActiveControlHandle <> 0)
1263 and (Clipboard.HasFormat(CF_TEXT))
1267 procedure TEditorForm.TopActionUpdate(Sender: TObject);
1269 TopAction.Enabled := not FWork;
1272 procedure TEditorForm.SageCheckBoxClick(Sender: TObject);
1274 if SageCheckBox.Checked then begin
1275 if AnsiPos('sage', MailComboBox.Text) = 0 then
1276 MailComboBox.Text := 'sage' + MailComboBox.Text;
1278 if AnsiPos('sage', MailComboBox.Text) <> 0 then
1279 MailComboBox.Text := StringReplace(MailComboBox.Text, 'sage', '', [rfReplaceAll]);
1283 procedure TEditorForm.MailComboBoxChange(Sender: TObject);
1285 if AnsiPos('sage', MailComboBox.Text) = 0 then
1286 SageCheckBox.Checked := False
1288 SageCheckBox.Checked := True;
1292 function TEditorForm.GetSPID(CookieLine: string): string;
1300 s := Trim(GikoSys.GetTokenIndex(CookieLine, ';', i));
1304 if Pos('SPID=', s) = 1 then begin
1305 Result := Trim(Copy(s, 6, Length(s)));
1313 function TEditorForm.GetPON(CookieLine: string): string;
1321 s := Trim(GikoSys.GetTokenIndex(CookieLine, ';', i));
1325 if Pos('PON=', s) = 1 then begin
1326 Result := Trim(Copy(s, 5, Length(s)));
1334 procedure TEditorForm.IdLogDebugReceive(ASender: TIdConnectionIntercept;
1337 StringStream: TStringStream;
1339 StringStream := TStringStream.Create('');
1341 StringStream.CopyFrom(AStream, AStream.Size);
1342 FDebugStrReceive := FDebugStrReceive + StringStream.DataString;
1348 procedure TEditorForm.IdLogDebugSend(ASender: TIdConnectionIntercept;
1351 StringStream: TStringStream;
1353 StringStream := TStringStream.Create('');
1355 StringStream.CopyFrom(AStream, AStream.Size);
1356 FDebugStrSend := FDebugStrSend + StringStream.DataString;
1362 procedure TEditorForm.TransActionExecute(Sender: TObject);
1364 AlphaBlend := TransAction.Checked;
1365 //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
1366 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked;
1369 procedure TEditorForm.TransActionUpdate(Sender: TObject);
1371 TransAction.Enabled := not FWork;
1373 //StatusBar
\82ÌPanels[0]
\82Ì
\95\9d\82ð
\89Â
\95Ï
\81B
\8ec
\82è
\82ð
\8cÅ
\92è
\82É
\82·
\82é
1374 procedure TEditorForm.StatusBarResize(Sender: TObject);
1376 StatusBar.Panels[0].Width := StatusBar.Width
1377 - StatusBar.Panels[1].Width - StatusBar.Panels[2].Width;
1381 procedure TEditorForm.Timer1Timer(Sender: TObject);
1383 if FSambaTime = ZERO_DATE then
1384 StatusBar.Panels[1].Text := '
\8f\89\8f\91'
1386 FNow := IncMilliSecond(FNow, 500);
1387 StatusBar.Panels[1].Text := Format('%8.0f
\95b
\8co
\89ß', [SecondSpan(FNow, FSambaTime)]);
1391 //Samba.ini
\82Ì
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1392 procedure TEditorForm.ReadSambaTime(const AHost: string);
1397 Timer1.Enabled := false; //
\8co
\89ß
\95b
\90\94\95\
\8e¦Timer
\82ðOff
\82É
\82·
\82é
\81i
\82±
\82ê
\82ªON
\82Ì
\82Æ
\82«Samba24
\91Î
\8dôOn
\81j
1398 FNow := Now(); //
\8c»
\8dÝ
\8e\9e\8aÔ
\82ð
\8eæ
\93¾
\81iTimer
\95\
\8e¦
\97p
\82Å
\81ACheck
\82·
\82é
\82Æ
\82«
\82Í
\8dÄ
\82ÑNow()
\82ð
\8cÄ
\82Ô
\81j
1399 Timer1.Enabled := true; //
\8co
\89ß
\95b
\90\94\95\
\8e¦Timer
\82ðOn
\82É
\82·
\82é
\81i
\82±
\82ê
\82ªON
\82Ì
\82Æ
\82«Samba24
\91Î
\8dôOn
\81j
1400 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1402 //
\95¶
\8e\9a\97ñ
\82Å
\93Ç
\82Ý
\8eæ
\82Á
\82Ä
\81A
\95Ï
\8a·
\8aÖ
\90\94\82ÅTDateTime
\82Ö
1403 tmp := ini.ReadString('Send', AHost, DateTimeToStr(ZERO_DATE));
1404 FSambaTime := ConvertDateTimeString(tmp);
1409 //Samba.ini
\82É
\8dÅ
\8fI
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\8f\91\82«
\8d\9e\82Þ
1410 procedure TEditorForm.WriteSambaTime(const AHost: string; ATime: TDateTime);
1414 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1416 ini.WriteDateTime('Send', AHost, ATime);
1422 //
\8dÅ
\8fI
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82Æ
\8c»
\8dÝ
\8e\9e\82ð
\94ä
\8ar
\82·
\82é
\81i
\90^
\81F
\8bK
\92è
\92l
\88È
\8fã
\81@
\8bU
\81F
\8bK
\92è
\92l
\96¢
\96\9e\81j
1423 function TEditorForm.CheckSambaTime(const AHost: string; ATime: TDateTime): Boolean;
1426 SettingTime: Integer;
1428 SettingTime := ReadSettingTime(AHost);
1429 ReadSambaTime(AHost);
1430 pastsec := SecondSpan(ATime, FSambaTime);
1431 if pastsec > SettingTime then
1436 //AHost
\81i
\8eI
\96¼
\81j
\82ÌSamba
\82Ì
\8bK
\92è
\92l
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1437 function TEditorForm.ReadSettingTime(const AHost: string): Integer;
1441 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1443 Result := ini.ReadInteger('Setting', AHost, 0);
1444 //
\8bK
\92è
\92l
\82ª
\82O
\82Ì
\82Æ
\82«
\81A
\82à
\82µ
\82
\82Í
\90Ý
\92è
\82³
\82ê
\82Ä
\82¢
\82È
\82¢
\82Æ
\82«
\82Í
\81A
\83t
\83@
\83C
\83\8b\82É
\8f\91\82«
\82½
\82·
\81B
1445 if Result = 0 then begin
1446 ini.WriteInteger('Setting', AHost, 0);
1453 //Form
\82ªActive
\82É
\82È
\82Á
\82½
\82ç
\8dÅ
\8fI
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1454 procedure TEditorForm.FormActivate(Sender: TObject);
1456 if ( Timer1.Enabled ) and ( FThreadItem <> nil )then
1457 ReadSambaTime(FHost);
1459 //Samba24
\91Î
\8dô
\82ð
\8eg
\82¤
\82©
\82Ç
\82¤
\82©
\8c\88\82ß
\82é
\8aÖ
\90\94
1460 //ReadSambaTime
\82ð
\8cÄ
\82Ñ
\8fo
\82·
\82ÆTimer
\82ªOn
\82É
\82È
\82é
1461 procedure TEditorForm.SetSamba24(AURL: string);
1463 Protocol, Host, Path, Document, Port, Bookmark : string;
1465 //Samba24
\91Î
\8dô
\82ð
\82µ
\82È
\82¢
\82È
\82ç
\8fI
\97¹
1466 if not GikoSys.Setting.UseSamba then
1468 //Host
\82ÌURL
\82É'.2ch.'
\82©'.bbspink.'
\82ª
\8aÜ
\82Ü
\82ê
\82Ä
\82¢
\82½
\82çSamba24
\91Î
\8dô
\82ð
\82·
\82é
1469 GikoSys.ParseURI( AURL, Protocol,Host, Path, Document, Port, Bookmark );
1470 if GikoSys.Is2chHost(Host) then begin
1471 Host := Copy(Host, 1, AnsiPos('.', Host) - 1);
1472 FHost := Host; //FHost=
\8eI
\96¼
1473 ReadSambaTime(FHost); //
\88È
\91O
\82Ì
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1474 //StatusBar
\82É
\82±
\82Ì
\8eI
\82Ì
\8bK
\92è
\92l
\82ð
\95\
\8e¦
\82·
\82é
1475 StatusBar.Panels[2].Text := 'Samba24
\8bK
\92è
\92l' + IntToStr(ReadSettingTime(FHost));
1478 procedure TEditorForm.FormCloseQuery(Sender: TObject;
1479 var CanClose: Boolean);
1481 CanClose := not FWork;
1484 function TEditorForm.GetOEIndentChar : string;
1487 Identities : string;
1490 DEFAULT_CHAR = '> ';
1491 OE_MAIL_PATH = '\Software\Microsoft\Outlook Express\5.0\Mail';
1492 INDENT_CHAR = 'Indent Char';
1495 Result := DEFAULT_CHAR;
1496 regKey := TRegistry.Create;
1499 regKey.RootKey := HKEY_CURRENT_USER;
1500 if not regKey.OpenKey( 'Identities', False ) then
1502 Identities := regKey.ReadString( 'Default User ID' );
1503 if Identities = '' then
1505 if not regKey.OpenKey( Identities + OE_MAIL_PATH, False ) then
1507 IndentChar := regKey.ReadInteger( INDENT_CHAR );
1508 Result := Char( IndentChar ) + ' ';
1517 procedure TEditorForm.QuotePasteActionExecute(Sender: TObject);
1524 quote := GetOEIndentChar;
1525 s := TStringList.Create;
1527 s.Text := Clipboard.AsText;
1529 for i := s.Count - 1 downto 0 do
1530 s[ i ] := quote + s[ i ];
1532 BodyEdit.SelText := s.Text;
1539 procedure TEditorForm.SpaceToNBSPActionExecute(Sender: TObject);
1541 GikoSys.Setting.SpaceToNBSP := SpaceToNBSPAction.Checked;
1542 if EditorPage.ActivePage = PreviewTab then
1546 procedure TEditorForm.AmpToCharRefActionExecute(Sender: TObject);
1548 GikoSys.Setting.AmpToCharRef := AmpToCharRefAction.Checked;
1549 if EditorPage.ActivePage = PreviewTab then
1553 procedure TEditorForm.BoardTopClick(Sender: TObject);
1557 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
1559 BoardtopTab.TabVisible := BoardTop.Checked;
1560 ini.WriteBool('EditorForm', 'BoardTopTab', BoardtopTab.TabVisible);
1567 procedure TEditorForm.GetSETTINGTXTActionExecute(Sender: TObject);
1569 URL, RefURL: string;
1570 settingBody: TStringList;
1574 if FThreadItem = nil then
1577 tmpBoard := FThreadItem.ParentBoard;
1579 if tmpBoard = nil then Exit;
1581 RefURL := tmpBoard.URL;
1582 if RefURL[Length(RefURL)] <> '/' then
1583 URL := RefURL + '/' + 'SETTING.TXT'
1585 URL := RefURL + 'SETTING.TXT';
1587 Indy.Request.LastModified := tmpBoard.SETTINGTXTTime;
1588 Indy.Request.Referer := RefURL;
1589 Screen.Cursor := crHourGlass;
1590 settingBody := TStringList.Create;
1592 StatusBar.Panels[0].Text := 'SETTING.TXT
\83_
\83E
\83\93\83\8d\81[
\83h
\92\86';
1594 settingBody.Text := Indy.Get(URL);
1595 if( Indy.ResponseCode = 200 ) then begin
1596 settingBody.SaveToFile(tmpBoard.GetSETTINGTXTFileName);
1597 tmpBoard.SETTINGTXTTime := Indy.Response.LastModified;
1598 tmpBoard.IsSETTINGTXT := true;
1599 tmpBoard.TitlePictureURL := GetTitlePictureURL(settingBody, tmpBoard);
1600 tmpBoard.Modified := true;
1601 StatusBar.Panels[0].Text := 'SETTING.TXT
\8eæ
\93¾
\8a®
\97¹(' + IntToStr(Indy.ResponseCode) + ')';
1604 on E: EIdException do begin
1605 if( AnsiPos('304', E.Message) > 0 ) then
1606 StatusBar.Panels[0].Text := 'SETTING.TXT
\8dX
\90V
\96³
\82µ(' + IntToStr(Indy.ResponseCode) + ')'
1608 StatusBar.Panels[0].Text := 'SETTING.TXT
\8eæ
\93¾
\83G
\83\89\81[(' + IntToStr(Indy.ResponseCode) + ')';
1613 Screen.Cursor := crDefault;
1615 ShowBoardInformation(tmpBoard, BoardInformationMemo);
1618 procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
1623 AMemo.Lines.Add('[SETTING.TXT]');
1624 if ABoard.IsSETTINGTXT then begin
1625 if FileExists(ABoard.GetSETTINGTXTFileName) then begin
1626 AMemo.Lines.Add(DateTimeToStr(ABoard.SETTINGTXTTime) + '
\8dX
\90V');
1627 body := TStringList.Create;
1629 body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
1630 AMemo.Lines.AddStrings(body);
1635 ABoard.IsSETTINGTXT := false;
1636 ABoard.SETTINGTXTTime := ZERO_DATE;
1637 AMemo.Lines.Add('Local
\82É
\95Û
\91¶
\82³
\82ê
\82½SETTING.TXT
\82ª
\8c©
\82Â
\82©
\82è
\82Ü
\82¹
\82ñ');
1638 AMemo.Lines.Add('
\83\81\83j
\83\85\81[
\82æ
\82è
\8dÄ
\8eæ
\93¾
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B');
1641 AMemo.Lines.Add('SETTING.TXT
\82ð
\8eæ
\93¾
\82µ
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B');
1642 AMemo.Lines.Add('
\83\81\83j
\83\85\81[
\82æ
\82è
\8eæ
\93¾
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B');
1645 function TEditorForm.GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
1646 //BBS_TITLE_PICTURE=
1653 for i := 0 to body.Count - 1 do begin
1654 if (AnsiPos('BBS_TITLE_PICTURE=', body[i]) > 0) or
1655 (AnsiPos('BBS_FIGUREHEAD=', body[i]) > 0) then begin
1657 Delete(tmp, 1, AnsiPos('=', tmp));
1658 if AnsiPos('../', tmp) > 0 then begin
1659 tmp := CustomStringReplace(tmp, '../', GikoSys.UrlToServer(ABoard.URL));
1667 procedure TEditorForm.GetTitlePictureActionUpdate(Sender: TObject);
1669 if FThreadItem = nil then
1670 GetTitlePictureAction.Enabled := FBoard.IsSETTINGTXT
1672 GetTitlePictureAction.Enabled := FThreadItem.ParentBoard.IsSETTINGTXT;
1676 procedure TEditorForm.GetTitlePictureActionExecute(Sender: TObject);
1678 memStream: TMemoryStream;
1682 memStream := TMemoryStream.Create;
1684 if FThreadItem = nil then
1687 tmpBoard := FThreadItem.ParentBoard;
1689 Indy.Request.Referer := tmpBoard.URL;
1690 if tmpBoard.TitlePictureURL <> '' then begin
1691 StatusBar.Panels[0].Text := '
\94Â
\83g
\83b
\83v
\89æ
\91\9c\83_
\83E
\83\93\83\8d\81[
\83h
\92\86';
1692 Screen.Cursor := crHourGlass;
1694 Indy.Get(tmpBoard.TitlePictureURL, memStream);
1695 if Indy.ResponseCode = 200 then begin
1696 memStream.SaveToFile(tmpBoard.GetTitlePictureFileName);
1698 tmpBoard.Modified := true;
1704 Screen.Cursor := crDefault;
1705 StatusBar.Panels[0].Text := '
\94Â
\83g
\83b
\83v
\89æ
\91\9c (' + IntToStr(Indy.ResponseCode) + ')';
1710 procedure TEditorForm.ShowTitlePicture();
1715 if FThreadItem = nil then
1718 tmpBoard := FThreadItem.ParentBoard;
1720 if FileExists(tmpBoard.GetTitlePictureFileName) then begin
1721 TitlePictureBrowser.Navigate(tmpBoard.GetTitlePictureFileName);
1723 s := '
\94Â
\83g
\83b
\83v
\89æ
\91\9c\96¢
\8eæ
\93¾
\82Å
\82·
\81B<br>
\83\81\83j
\83\85\81[
\82æ
\82è
\8eæ
\93¾
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B';
1724 SetContent(s, TitlePictureBrowser);
1728 function TEditorForm.GetFusianaName(body: TStringList; ABoard: TBoard): String;
1733 for i := 0 to body.Count - 1 do begin
1734 if (AnsiPos('BBS_NONAME_NAME=', body[i]) > 0) then begin
1736 Delete(tmp, 1, AnsiPos('=', tmp));
1743 procedure TEditorForm.GetHeadTXTActionExecute(Sender: TObject);
1745 URL, RefURL: string;
1746 settingBody: TStringList;
1748 wDoc, WTex, le: OLEVariant;
1751 if FThreadItem = nil then
1754 tmpBoard := FThreadItem.ParentBoard;
1756 if tmpBoard = nil then Exit;
1758 RefURL := tmpBoard.URL;
1759 if RefURL[Length(RefURL)] <> '/' then
1760 URL := RefURL + '/' + 'head.txt'
1762 URL := RefURL + 'head.txt';
1764 if FileExists(tmpBoard.GETHEADTXTFileName) then
1765 Indy.Request.LastModified := tmpBoard.HEADTXTTime
1767 Indy.Request.LastModified := ZERO_DATE;
1769 Indy.Request.Referer := RefURL;
1770 Screen.Cursor := crHourGlass;
1771 settingBody := TStringList.Create;
1773 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b(head.txt)
\83_
\83E
\83\93\83\8d\81[
\83h
\92\86';
1775 settingBody.Text := Indy.Get(URL);
1776 if( Indy.ResponseCode = 200 ) then begin
1777 settingBody.Insert(0, '<HTML lang="ja"><HEAD>');
1778 settingBody.Insert(1, '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">');
1779 settingBody.Insert(2, '<TITLE>' + tmpBoard.Title + '</TITLE>');
1780 settingBody.Insert(3, '<base href="' + RefURL + '"></HEAD><BODY>');
1781 settingBody.Add('</BODY></HTML>');
1782 settingBody.SaveToFile(tmpBoard.GETHEADTXTFileName);
1783 tmpBoard.HEADTXTTime := Indy.Response.LastModified;
1784 tmpBoard.IsHEADTXT := true;
1785 tmpBoard.Modified := true;
1786 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8eæ
\93¾
\8a®
\97¹(' + IntToStr(Indy.ResponseCode) + ')';
1789 on E: EIdException do begin
1790 if( AnsiPos('304', E.Message) > 0 ) then
1791 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8dX
\90V
\96³
\82µ(' + IntToStr(Indy.ResponseCode) + ')'
1793 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8eæ
\93¾
\83G
\83\89\81[(' + IntToStr(Indy.ResponseCode) + ')';
1798 Screen.Cursor := crDefault;
1800 if tmpBoard.IsHEADTXT then begin
1802 //http://www.campus.ne.jp/~ishigami/CREATION/TECHNIC/WEBAP-2.htm
1803 WebBrowser1.Navigate(tmpBoard.GETHEADTXTFileName,le,le,le,le);
1804 //
\83\8c\83^
\83\8a\83\93\83O
\82ª
\92x
\82·
\82¬
\82ÄTXT
\82É
\88Ú
\82¹
\82È
\82¢
\81B
\82Ê
\82é
\82Ûorz
1805 //
\89º
\82Ì
\82æ
\82¤
\82É
\82¿
\82á
\82ñ
\82Æ
\93Ç
\82Ý
\8d\9e\82Ý
\82ª
\8fI
\82í
\82Á
\82Ä
\82¢
\82é
\82©
\81A
\83`
\83F
\83b
\83N
\82·
\82ê
\82Î
\82¢
\82¢
\82ñ
\82¾
\82æ
\81B
1806 //
\82±
\82ê
\82Å
\82¢
\82¯
\82Ü
\82µ
\82½
\81B
\82 \82è
\82ª
\82Æ
\82¤
\82²
\82´
\82¢
\82Ü
\82µ
\82½
\81B
1807 while (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) and
1808 (WebBrowser1.ReadyState <> READYSTATE_INTERACTIVE) do begin
1809 Application.ProcessMessages;
1811 wDoc := WebBrowser1.Document;
1812 wTex := wDoc.body.createTextRange;
1813 LocalEdit.Text := wTex.text;
1818 procedure TEditorForm.CalcCapasityActionExecute(Sender: TObject);
1823 StatusBar.Panels[0].Text := '
\97e
\97Ê:' + IntToStr(Length(body)) + ' byte';
1826 procedure TEditorForm.RuleClick(Sender: TObject);
1830 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
1832 RocalRuleTab.TabVisible := Rule.Checked;
1833 ini.WriteBool('EditorForm', 'LocalRuleTab', RocalRuleTab.TabVisible);