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, bmRegExp,
23 // TSetLayeredWindowAttributes = function(wnd: HWND; crKey: DWORD; bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;
24 //
\8f\91\82«
\8d\9e\82Ý
\96ß
\82è
\92l
\83^
\83C
\83v
25 TGikoResultType = (grtOK, grtCookie, grtCheck, grtError);
27 TEditorForm = class(TForm)
30 PostMessage: TMenuItem;
31 SaveMessage: TMenuItem;
34 StatusBar: TStatusBar;
35 EditorPage: TPageControl;
37 PreviewTab: TTabSheet;
45 ToolBarImageList: TImageList;
46 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 CalcCapacityAction: TAction;
117 LocalRule: TMenuItem;
120 LocalRuleBrowse: TMenuItem;
121 ToolButton4: TToolButton;
122 ToolButton6: TToolButton;
123 SaveNameMailAction: TAction;
124 ToolButton7: TToolButton;
125 BeLogInOutEAction: TAction;
126 UpdateSambaAction: TAction;
129 InputAssistAction: TAction;
130 InputAssistPopupMenu: TPopupMenu;
132 ApplicationEvents1: TApplicationEvents;
133 ToolButton8: TToolButton;
134 ToolButton9: TToolButton;
135 ShowInputAssistForm: TAction;
136 ReleaseCookieAction: TAction;
139 procedure EditorPageChange(Sender: TObject);
140 procedure FormCreate(Sender: TObject);
141 procedure BrowserStatusTextChange(Sender: TObject;
142 const Text: WideString);
143 procedure FormClose(Sender: TObject; var Action: TCloseAction);
144 procedure FormDestroy(Sender: TObject);
145 procedure SendActionExecute(Sender: TObject);
146 procedure SaveActionExecute(Sender: TObject);
147 procedure AbortActionExecute(Sender: TObject);
148 procedure CloseActionExecute(Sender: TObject);
149 procedure UndoActionExecute(Sender: TObject);
150 procedure CutActionExecute(Sender: TObject);
151 procedure CopyActionExecute(Sender: TObject);
152 procedure PasteActionExecute(Sender: TObject);
153 procedure SendActionUpdate(Sender: TObject);
154 procedure SaveActionUpdate(Sender: TObject);
155 procedure CloseActionUpdate(Sender: TObject);
156 procedure UndoActionUpdate(Sender: TObject);
157 procedure CutActionUpdate(Sender: TObject);
158 procedure CopyActionUpdate(Sender: TObject);
159 procedure PasteActionUpdate(Sender: TObject);
160 procedure TopActionExecute(Sender: TObject);
161 procedure TopActionUpdate(Sender: TObject);
162 procedure SageCheckBoxClick(Sender: TObject);
163 procedure MailComboBoxChange(Sender: TObject);
164 procedure TransActionExecute(Sender: TObject);
165 procedure TransActionUpdate(Sender: TObject);
166 procedure IdLogDebugReceive(ASender: TIdConnectionIntercept;
168 procedure IdLogDebugSend(ASender: TIdConnectionIntercept;
170 procedure SelectAllActionExecute(Sender: TObject);
171 procedure StatusBarResize(Sender: TObject);
172 procedure Timer1Timer(Sender: TObject);
173 procedure FormActivate(Sender: TObject);
174 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
175 procedure QuotePasteActionExecute(Sender: TObject);
176 procedure SpaceToNBSPActionExecute(Sender: TObject);
177 procedure AmpToCharRefActionExecute(Sender: TObject);
178 procedure BoardTopClick(Sender: TObject);
179 procedure GetSETTINGTXTActionExecute(Sender: TObject);
180 procedure GetTitlePictureActionUpdate(Sender: TObject);
181 procedure GetTitlePictureActionExecute(Sender: TObject);
182 procedure GetHeadTXTActionExecute(Sender: TObject);
183 procedure CalcCapacityActionExecute(Sender: TObject);
184 procedure LocalRuleClick(Sender: TObject);
185 procedure FormDeactivate(Sender: TObject);
186 procedure LocalRuleBrowseClick(Sender: TObject);
187 procedure SaveNameMailActionExecute(Sender: TObject);
188 procedure BeLogInOutEActionExecute(Sender: TObject);
189 procedure BeLogInOutEActionUpdate(Sender: TObject);
190 procedure UpdateSambaActionUpdate(Sender: TObject);
191 procedure UpdateSambaActionExecute(Sender: TObject);
192 procedure InputAssistActionExecute(Sender: TObject);
193 procedure ApplicationEvents1Message(var Msg: tagMSG;
194 var Handled: Boolean);
195 procedure ShowInputAssistFormExecute(Sender: TObject);
196 procedure ReleaseCookieActionExecute(Sender: TObject);
197 procedure GetSETTINGTXTActionUpdate(Sender: TObject);
198 procedure GetHeadTXTActionUpdate(Sender: TObject);
200 FThreadItem: TThreadItem;
202 FNameComboEdit: THandle;
203 FMailComboEdit: THandle;
206 FStatusCode: Integer;
207 FDebugStrReceive: string;
208 FDebugStrSend: string;
209 FSambaTime: TDateTime;
212 FGestures : TMouseGesture;
213 FInputAssistKey: String; ///<
\93ü
\97Í
\83A
\83V
\83X
\83g
\82Ì
\83L
\81[
214 FResistWords: TStringList; ///<
\93ü
\97Í
\83A
\83V
\83X
\83g
\82Ì
\8e«
\8f\91\82©
\82ç
\82Ì
\8c\9f\8dõ
\8c\8b\89Ê
216 function RepHtml(s: string): string;
217 function Check: Boolean;
218 procedure SetNameList(sName, sMail: string);
219 // procedure Send(SendType: TGikoSendType; SPID: string; PON: string; FirstWriting: Boolean);
220 // procedure Send(SPID: string; PON: string; FirstWriting: Boolean);
221 procedure Send(ACOOKIE: string; SPID: string; PON: string; FirstWriting: Boolean);
223 function GetActiveControlHandle: THandle;
224 // function GetSendData: string;
225 // procedure GetSendData(Source: TStringStream);
226 procedure GetSendData(Source: TStringStream);
227 procedure SaveSendFile;
228 procedure SetContent(Content: string; ABrowser: TWebBrowser);
229 function GetResultType(ResponseText: string): TGikoResultType;
230 //Samba
\82Ì
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
231 procedure ReadSambaTime(const AHost: string);
232 //Samba
\82É
\8e\9e\8aÔ
\82ð
\8f\91\82«
\8d\9e\82Þ
233 procedure WriteSambaTime(const AHost: string; ATime: TDateTime);
234 //Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
235 function ReadSettingTime(const AHost: string): Integer;
236 //Samba
\82É
\88ø
\82Á
\82©
\82©
\82é
\82©
\8c\9f\8d¸
\82·
\82é
237 function CheckSambaTime(const AHost: string; ATime: TDateTime): Boolean;
238 //Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\8f\91\82«
\8d\9e\82Þ
239 procedure SetSamba24(AURL: string);
240 //Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\8dX
\90V
\82·
\82é
241 procedure UpdateSamba(const AHost: String; value: Integer);
242 ///
\88ø
\97p
\95\84\82Ì
\8eæ
\93¾
243 function GetOEIndentChar : string;
244 ///
\96{
\95¶
\82Ì
\8eæ
\93¾
245 function GetBody : string;
246 //IdHttp
\82Ì
\8f\89\8aú
\89»
247 procedure InitIdHTTP(http: TIdHTTP);
248 procedure ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
249 function GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
250 procedure ShowTitlePicture();
251 function GetFusianaName(body: TStringList; ABoard: TBoard): String;
252 //!
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\8aJ
\8en
253 procedure OnGestureStart(Sender: TObject);
254 //!
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\92\86
255 procedure OnGestureMove(Sender: TObject);
256 //!
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\8fI
\97¹
257 procedure OnGestureEnd(Sender: TObject);
258 //HEAD.TXT
\8e©
\93®
\95\
\8e¦
259 procedure ShowBoardHead(ABoard: TBoard; AMemo: TMemo);
260 //LocalFusianaTrapAlart
261 function LFusianaGet(s: String): Boolean;
262 // Cookie
\82Ì
\8eæ
\93¾
263 procedure GetCookie(Rawtext: String; ABoard: TBoard);
264 //!
\93ü
\97Í
\83A
\83V
\83X
\83g
\82Ì
\83|
\83b
\83v
\83A
\83b
\83v
\83\81\83j
\83\85\81[
\82Ì
\83N
\83\8a\83b
\83N
\83C
\83x
\83\93\83g
265 procedure InputAssistMenuClick(Sender: TObject);
266 //! TMemo
\82Ì
\83J
\81[
\83\
\83\8b\88Ê
\92u
\82É
\95¶
\8e\9a\97ñ
\91}
\93ü
267 procedure InsertText(Memo: TMemo; Text: String);
269 procedure CreateParams(var Params: TCreateParams); override;
273 procedure SetThreadItem(Item: TThreadItem);
274 procedure SetBoard(Item: TBoard);
275 property BBSID: string read FBBSID write FBBSID;
281 Giko, ItemDownload, MojuUtils, IdGlobal, GikoMessage, Imm,
282 InputAssistDataModule, InputAssist;
284 CAPTION_NAME_NEW: string = '
\83M
\83R
\83i
\83r
\83X
\83\8c\97§
\82Ä
\83G
\83f
\83B
\83^';
285 CAPTION_NAME_RES: string = '
\83M
\83R
\83i
\83r
\83\8c\83X
\83G
\83f
\83B
\83^';
287 //
\83G
\83f
\83B
\83b
\83g
\83E
\83B
\83\93\83h
\83E
\82ð
\89E
\89º
\82É
\82¸
\82ç
\82µ
\82Ä
\8aJ
\82
\88Ú
\93®
\97Ê
291 //DAX
\82³
\82ñ±Ø¶ÞÄ!(
\81L
\81¤
\81M)
292 READCGI_ERR = '-ERR';
293 READCGI_INCR = '-INCR';
295 READCGI_PARTIAL = '+PARTIAL';
296 READCGI_ERR_FOUND_KAKO = '-ERR
\89ß
\8b\8e\83\8d\83O
\91q
\8cÉ
\82Å
\94
\8c©';
297 READCGI_ERR_NOT_HTML = '-ERR html
\89»
\91Ò
\82¿';
298 READCGI_ERR_NOT_FOUND = '-ERR
\82»
\82ñ
\82È
\94Âor
\83X
\83\8c\83b
\83h
\82È
\82¢
\82Å
\82·
\81B';
299 READCGI_ERR_ABONE = '-ERR
\82Ç
\82±
\82©
\82Å
\82 \82Ú
\81[
\82ñ
\82ª
\82 \82Á
\82½
\82Ý
\82½
\82¢
\82Å
\82·
\81B';
300 READCGI_ERR_TIMEOUT = '-ERR
\8ew
\92è
\8e\9e\8aÔ
\82ª
\89ß
\82¬
\82Ü
\82µ
\82½
\81B';
301 READCGI_ERR_CANTUSE = '-ERR
\82à
\82¤
\81@
\82Â
\82©
\82¦
\82Ü
\82¹
\82ñ';
302 RES2CH_TRUE = '<!-- 2ch_X:true -->';
303 RES2CH_FALSE = '<!-- 2ch_X:false -->';
304 RES2CH_ERROR = '<!-- 2ch_X:error -->';
305 RES2CH_CHECK = '<!-- 2ch_X:check -->';
306 RES2CH_COOKIE = '<!-- 2ch_X:cookie -->';
309 BBS2CH_NAME: string = '
\82Q
\82¿
\82á
\82ñ
\82Ë
\82é';
310 BBS2CH_LOG_FOLDER: string = '2ch';
311 EXTERNAL_LOG_FOLDER: string = 'exboard';
313 FOLDER_INI_FILENAME: string = 'Folder.ini';
314 FOLDER_INDEX_FILENAME: string = 'Folder.idx';
315 SUBJECT_FILENAME: string = 'subject.txt';
316 PATH_DELIM: string = '\';
321 StartPos, EndPos: Integer;
326 {constructor TEditorForm.Create(AOwner: TComponent; Item: TBoard);
328 inherited Create(AOwner);
331 procedure TEditorForm.CreateParams(var Params: TCreateParams);
334 if FormStyle in [fsNormal, fsStayOnTop] then
335 if BorderStyle in [bsSingle, bsSizeable] then begin
336 Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
337 Params.WndParent := 0;
341 {procedure TEditorForm.CreateParams(var Params: TCreateParams);
343 inherited CreateParams(Params);
344 Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
347 procedure TEditorForm.FormCreate(Sender: TObject);
349 wp: TWindowPlacement;
354 Browser.Navigate('about:blank');
355 TitlePictureBrowser.Navigate('about:blank');
359 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\88Ê
\92u
\90Ý
\92è
360 wp.length := sizeof(wp);
361 wp.rcNormalPosition.Top := GikoSys.Setting.EditWindowTop;
362 wp.rcNormalPosition.Left := GikoSys.Setting.EditWindowLeft;
364 wp.rcNormalPosition.Bottom := GikoSys.Setting.EditWindowTop + GikoSys.Setting.EditWindowHeight;
365 wp.rcNormalPosition.Right := GikoSys.Setting.EditWindowLeft + GikoSys.Setting.EditWindowWidth;
366 wp.showCmd := SW_HIDE;
367 SetWindowPlacement(Handle, @wp);
369 if GikoSys.Setting.EditWindowMax then
370 WindowState := wsMaximized;
372 //
\83E
\83B
\83\93\83h
\83E
\82ª
\89æ
\96Ê
\8aO
\82È
\82ç
\89æ
\96Ê
\93à
\82É
\88Ú
\93®
\82·
\82é
373 if (Left + Width) > Screen.Width then
374 // Left := Screen.Width - Width;
376 if (Top + Height) > Screen.Height then
377 // Top := Screen.Height - Height;
384 //
\8c»
\8dÝ
\82Ì
\83E
\83B
\83\93\83h
\83E
\82Ì
\88Ê
\92u
\82ð
\95Û
\91¶
385 GikoSys.Setting.EditWindowTop := Top + WINDOWMOVE_V; //
\8e\9f\82É
\8aJ
\82
\83E
\83B
\83\93\83h
\83E
\82Í
386 GikoSys.Setting.EditWindowLeft := Left + WINDOWMOVE_H; //
\81@
\81@
\81@
\89E
\8eÎ
\82ß
\89º
\82É
\82¸
\82ç
\82·
387 //
\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·
388 if GikoSys.Setting.EditWindowHeight < 144 then
390 if GikoSys.Setting.EditWindowWidth < 144 then
393 EditorPage.ActivePage := EditorTab;
394 FNameComboEdit := GetWindow(NameComboBox.Handle, GW_CHILD);
395 FMailComboEdit := GetWindow(MailComboBox.Handle, GW_CHILD);
396 NameComboBox.Items.Assign(GikoSys.Setting.NameList);
397 MailComboBox.Items.Assign(GikoSys.Setting.MailList);
402 hUser32 := LoadLibrary('User32.dll');
404 TransAction.Enabled := true
406 TransAction.Enabled := false;
408 TransAction.Enabled := false;
411 FreeLibrary(hUser32);
414 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\83X
\83e
\83C
\8fó
\91Ô
415 if GikoSys.Setting.EditWindowStay then begin //
\83X
\83e
\83C
\8fó
\91Ô
416 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
417 TopAction.Checked := true;
418 TopToolButton.Down := true;
419 end else begin //
\83X
\83e
\83C
\82µ
\82È
\82¢
420 SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
421 TopAction.Checked := false;
422 TopToolButton.Down := false;
425 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\94¼
\93§
\96¾
\8fó
\91Ô
426 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Ô
428 TransAction.Checked := true;
429 TransToolButton.Down := true;
430 end else begin //
\95s
\93§
\96¾
432 TransAction.Checked := false;
433 TransToolButton.Down := false;
435 //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
436 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked;
438 SpaceToNBSPAction.Checked := GikoSys.Setting.SpaceToNBSP;
439 AmpToCharRefAction.Checked := GikoSys.Setting.AmpToCharRef;
441 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
444 BoardtopTab.TabVisible := ini.Readbool('EditorForm', 'BoardTopTab', False);
445 BoardTop.Checked := BoardtopTab.TabVisible;
446 RocalRuleTab.TabVisible := ini.ReadBool('EditorForm', 'LocalRuleTab', False);
447 LocalRule.Checked := RocalRuleTab.TabVisible;
451 //
\83L
\81[
\90Ý
\92è
\82Ì
\93Ç
\82Ý
\8d\9e\82Ý
452 GikoSys.LoadKeySetting(ActionList, GikoSys.GetEditorKeyFileName);
453 //
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\82Ì
\83C
\83\93\83X
\83g
\81[
\83\8b
454 if GikoSys.Setting.GestureEnabled then begin
456 FGestures := TMouseGesture.Create;
457 GikoSys.Setting.Gestures.ClearGesture;
459 GikoSys.Setting.Gestures.LoadGesture(
460 GikoSys.Setting.GetGestureFileName, ActionList );
461 MouseGesture.OnGestureStart := OnGestureStart;
462 MouseGesture.OnGestureMove := OnGestureMove;
463 MouseGesture.OnGestureEnd := OnGestureEnd;
464 MouseGesture.SetHook( Handle );
466 SaveNameMailAction.Checked := True;
469 procedure TEditorForm.SetBoard(Item: TBoard);
472 Caption := CAPTION_NAME_NEW + ' - [' + Item.Title + ']';
473 NameComboBox.Text := FBoard.KotehanName;
474 MailComboBox.Text := FBoard.KotehanMail;
475 SageCheckBox.Checked := AnsiPos('sage', MailComboBox.Text) <> 0;
476 TitlePanel.Visible := True;
477 SetSamba24(FBoard.URL);
478 ShowBoardInformation(FBoard, BoardInformationMemo);
482 procedure TEditorForm.SetThreadItem(Item: TThreadItem);
485 Caption := CAPTION_NAME_RES + ' - [' + FThreadItem.Title + ']';
486 NameComboBox.Text := FThreadItem.ParentBoard.KotehanName;
487 MailComboBox.Text := FThreadItem.ParentBoard.KotehanMail;
488 SageCheckBox.Checked := AnsiPos('sage', MailComboBox.Text) <> 0;
489 TitlePanel.Visible := False;
490 SetSamba24(FThreadItem.ParentBoard.URL);
491 ShowBoardInformation(FThreadItem.ParentBoard, BoardInformationMemo);
495 function TEditorForm.GetBody : string;
504 body := BodyEdit.Text;
505 if AmpToCharRefAction.Checked then
506 // &
\82Ì
\92u
\8a·
\82Í
\88ê
\94Ô
\8dÅ
\8f\89\82É
\82â
\82é
\82±
\82Æ
507 body := CustomStringReplace( body, '&', '&' );
508 if SpaceToNBSPAction.Checked then begin
510 tail := p + Length( body );
512 while p < tail do begin
519 tmp := tmp + ' ';
520 until (len mod TAB_LENGTH) = 0;
525 tmp := tmp + p^; Inc( p );
531 tmp := tmp + ' ';
537 //
\8eÀ
\91Ì
\8eQ
\8fÆ
\82Í 1
\95¶
\8e\9a\95ª
542 while p < tail do begin
543 if p^ in ['a'..'z', 'A'..'Z', '0'..'9', '#'] then begin
545 end else if p^ = ';' then begin
557 if p^ in kYofKanji then begin
558 tmp := tmp + p^; Inc( p );
559 tmp := tmp + p^; Inc( p );
562 tmp := tmp + p^; Inc( p );
574 procedure TEditorForm.SetFont;
576 BodyEdit.Font.Name := GikoSys.Setting.EditorFontName;
577 BodyEdit.Font.Size := GikoSys.Setting.EditorFontSize;
578 BodyEdit.Font.Color := GikoSys.Setting.EditorFontColor;
579 BodyEdit.Color := GikoSys.Setting.EditorBackColor;
582 procedure TEditorForm.Preview;
595 if FThreadItem = nil then begin
597 Title := RepHtml(TitleEdit.Text);
599 No := IntToStr(FThreadItem.Count + 1);
600 Title := RepHtml(FThreadItem.Title);
604 Namae := RepHtml(NameComboBox.Text);
605 Mail := RepHtml(MailComboBox.Text);
606 Body := RepHtml(body);
607 Body := StringReplace(Body, #13#10, '<br>', [rfReplaceAll]);
608 DateTime := FormatDateTime('yyyy/mm/dd(aaa) hh:nn', now);
610 if Trim(Namae) = '' then
611 Namae := '
\96¼
\96³
\82µ
\82³
\82ñ';
613 s := '<HTML><HEAD>' + #13#10
614 + '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">' + #13#10
615 + '<TITLE>' + title + '</TITLE>' + #13#10
616 // + '<STYLE><!--BODY{font-size : 9pt;font-family : "
\82l
\82r
\82o
\83S
\83V
\83b
\83N";}--></STYLE>' + #13#10
618 + '<BODY text="#000000" bgcolor="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' + #13#10
619 + '<FONT COLOR="#FF0000">' + title + '</FONT>' + #13#10
621 posTrip := AnsiPos( '#', Namae );
624 tripOrigin := Copy( Namae, posTrip + 1, Length( Namae ) );
626 Copy( Namae, 1, posTrip - 1 ) + '</B>
\81\9f' +
627 get_2ch_trip( PChar( tripOrigin ) ) + '<B>';
630 s := s + '<DT>' + No + '
\81F <FONT color="forestgreen"><B>' + Namae + '</B></FONT>
\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10
632 s := s + '<DT>' + No + '
\81F <A href="mailto:' + Mail + '"><B>' + Namae + '</B></A> [' + Mail + ']
\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10;
633 s := s + '</BODY></HTML>';
634 SetContent(s, Browser);
637 function TEditorForm.RepHtml(s: string): string;
639 // s := StringReplace(s, '&', '&', [rfReplaceAll]);
640 s := CustomStringReplace(s, '<', '<');
641 s := CustomStringReplace(s, '>', '>');
642 // s := StringReplace(s, ' ', ' ', [rfReplaceAll]); //
\8ed
\97l
\95Ï
\8dX
\82É
\82æ
\82è
\8eg
\97p
\95s
\89Â
643 s := CustomStringReplace(s, '"', '"');
647 procedure TEditorForm.EditorPageChange(Sender: TObject);
651 if FThreadItem = nil then
654 tmpBoard := FThreadItem.ParentBoard;
656 if tmpBoard = nil then Exit;
658 if EditorPage.ActivePage = PreviewTab then begin
660 end else if EditorPage.ActivePage = RocalRuleTab then begin
661 if not FileExists(tmpBoard.GETHEADTXTFileName) then begin
662 LocalEdit.Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\96¢
\8eæ
\93¾';
665 ShowBoardHead(tmpBoard, LocalEdit);
667 Browser.Navigate('about:blank');
671 procedure TEditorForm.BrowserStatusTextChange(Sender: TObject;
672 const Text: WideString);
674 if EditorPage.ActivePage = PreviewTab then begin
675 StatusBar.Panels[0].Text := Text;
677 StatusBar.Panels[0].Text := '';
681 function TEditorForm.Check: Boolean;
688 if FThreadItem = nil then
691 Board := FThreadItem.ParentBoard;
693 if (not GikoSys.Setting.UseMachineTime) and
694 ((Board.LastGetTime = 0) or
695 (Board.LastGetTime = ZERO_DATE)) then begin
696 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
697 + '
\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¢';
698 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
700 end else if BodyEdit.Text = '' then begin
701 Msg := '
\96{
\95¶
\82ª
\93ü
\97Í
\82³
\82ê
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B';
702 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
704 end else if (FBoard <> nil) and (Trim(TitleEdit.Text) = '') then begin
705 Msg := '
\83^
\83C
\83g
\83\8b\82ª
\93ü
\97Í
\82³
\82ê
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B';
706 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
709 if (not GikoSys.Dolib.Connected) and (AnsiPos('
\81\9c', NameComboBox.Text) <> 0) then begin
710 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
711 + '
\82±
\82Ì
\82Ü
\82Ü
\91\97\90M
\82µ
\82Ä
\82à
\82æ
\82ë
\82µ
\82¢
\82Å
\82·
\82©
\81H';
712 rc := MsgBox(Handle, Msg, '
\8am
\94F', MB_YESNO or MB_ICONQUESTION);
713 Result := (rc = IDYES);
718 procedure TEditorForm.FormClose(Sender: TObject; var Action: TCloseAction);
723 procedure TEditorForm.FormDestroy(Sender: TObject);
725 wp: TWindowPlacement;
727 //
\8dÅ
\91å
\89»
\81E
\83E
\83B
\83\93\83h
\83E
\88Ê
\92u
\95Û
\91¶
728 wp.length := sizeof(wp);
729 GetWindowPlacement(Handle, @wp);
731 GikoSys.Setting.EditWindowTop := wp.rcNormalPosition.Top;
732 GikoSys.Setting.EditWindowLeft := wp.rcNormalPosition.Left;
733 GikoSys.Setting.EditWindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
734 GikoSys.Setting.EditWindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
735 GikoSys.Setting.EditWindowMax := WindowState = wsMaximized;
736 //GikoSys.Setting.EditWindowStay := FormStyle = fsStayOnTop; //
\83X
\83e
\83C
\8fó
\91Ô
\82Ì
\95Û
\91¶
737 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked; //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
743 procedure TEditorForm.SetNameList(sName, sMail: string);
745 if SaveNameMailAction.Checked then begin
746 if Trim(sName) <> '' then begin
747 if GikoSys.Setting.NameList.IndexOf(sName) = -1 then
748 GikoSys.Setting.NameList.Insert(0, sName);
750 if Trim(sMail) <> '' then begin
751 if GikoSys.Setting.MailList.IndexOf(sMail) = -1 then
752 GikoSys.Setting.MailList.Insert(0, sMail);
757 function TEditorForm.GetActiveControlHandle: THandle;
759 if EditorPage.ActivePage = EditorTab then begin
760 if ActiveControl = NameComboBox then
761 Result := FNameComboEdit
762 else if ActiveControl = MailComboBox then
763 Result := FMailComboEdit
764 else if ActiveControl = BodyEdit then
765 Result := BodyEdit.Handle
766 else if ActiveControl = TitleEdit then
767 Result := TitleEdit.Handle
770 end else if Editorpage.ActivePage = BoardInformationTab then begin
771 if ActiveControl = BoardInformationMemo then
772 Result := BoardInformationMemo.Handle
775 end else if Editorpage.ActivePage = RocalRuleTab then begin
776 if ActiveCOntrol = LocalEdit then
777 Result := LocalEdit.Handle
784 procedure TEditorForm.SetContent(Content: string; ABrowser: TWebBrowser);
788 if ABrowser.Document <> nil then begin
789 doc := Idispatch( olevariant(ABrowser.ControlInterface).Document) as IHTMLDocument2;
792 doc.charset := 'Shift_JIS';
797 procedure TEditorForm.InitIdHTTP(http: TIdHTTP);
800 http.ProxyParams.BasicAuthentication := False;
801 if GikoSys.Setting.WriteProxy then begin
802 http.ProxyParams.ProxyServer := GikoSys.Setting.WriteProxyAddress;
803 http.ProxyParams.ProxyPort := GikoSys.Setting.WriteProxyPort;
804 http.ProxyParams.ProxyUsername := GikoSys.Setting.WriteProxyUserID;
805 http.ProxyParams.ProxyPassword := GikoSys.Setting.WriteProxyPassword;
806 if GikoSys.Setting.ReadProxyUserID <> '' then
807 http.ProxyParams.BasicAuthentication := True;
809 http.ProxyParams.ProxyServer := '';
810 http.ProxyParams.ProxyPort := 80;
811 http.ProxyParams.ProxyUsername := '';
812 http.ProxyParams.ProxyPassword := '';
814 Indy.Request.UserAgent := GikoSys.GetUserAgent;
815 Indy.Request.AcceptEncoding := '';
818 procedure TEditorForm.Send(ACOOKIE: string; SPID: string; PON: string; FirstWriting: Boolean);
820 TextStream: TStringStream;
821 Source: TStringStream;
822 ResponseText: string;
825 State: TGikoDownloadState;
826 ResultType: TGikoResultType;
831 //fusianasan
\83g
\83\89\83b
\83v by
\92è
\8aú
\95Ö
836 tmpRawheader: string;
837 {Protocol,Host, Path, Document, Port, Bookmark : String;}
841 Namae := RepHtml(NameComboBox.Text);
842 if FThreadItem = nil then
845 Board := FThreadItem.ParentBoard;
850 if FThreadItem = nil then begin
851 URL := FBoard.GetSendURL;
852 RefURL := GikoSys.UrlToServer(FBoard.URL) + 'test/bbs.cgi';
854 URL := FThreadItem.GetSendURL;
855 RefURL := FThreadItem.URL;
857 // Indy.Request.UserAgent := GikoSys.GetUserAgent;
858 Indy.Request.Referer := RefURL;
859 // Indy.Request.AcceptEncoding := '';
862 if ACOOKIE <> '' then
865 Cookie := Cookie + 'SPID=' + SPID + '; ';
867 Cookie := Cookie + 'PON=' + PON + '; ';
869 //
\83z
\83X
\83g
\82ª2ch
\82Å
\81ABe
\82ÉLogin
\82µ
\82Ä
\82¢
\82ê
\82ÎBE
\82Ì
\83f
\81[
\83^
\82ð
\91\97\82é
870 //GikoSys.ParseURI( URL, Protocol,Host, Path, Document, Port, Bookmark );
871 //if GikoSys.Is2chHost(Host) and GikoSys.Setting.BeLogin then
872 if (Board.Is2ch) then begin
873 //
\8cÅ
\92è
\82Ì
\83N
\83b
\83L
\81[
\82ª
\82 \82ê
\82Î
\90H
\82í
\82¹
\82é
874 if Length(GikoSys.Setting.FixedCookie) > 0 then begin
875 //
\83z
\83X
\83g
\82ª2ch
\82Ì
\8fê
\8d\87\81C
\8cÅ
\92è
\82Ì
\83N
\83b
\83L
\81[
\82ð
\90H
\82í
\82¹
\82é
876 Cookie := Cookie + GikoSys.Setting.FixedCookie + '; ';
878 if (GikoSys.Setting.BeLogin) then begin
879 Cookie := Cookie + 'MDMD=' + GikoSys.Setting.BeCode + '; '
880 + 'DMDM=' + GikoSys.Setting.BeUserID + '; ';
885 Cookie := 'Cookie: ' + Cookie + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text;
887 sysMenu := GetSystemMenu( Handle, false );
888 EnableMenuItem( sysMenu, SC_CLOSE, MF_GRAYED );
890 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
893 Indy.Request.CustomHeaders.Clear;
894 // Indy.Request.CacheControl := 'no-cache';
895 Indy.Request.CustomHeaders.Add('Pragma: no-cache');
896 Indy.Request.AcceptLanguage := 'ja';
897 Indy.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';
898 Indy.Request.ContentType := 'application/x-www-form-urlencoded';
899 Indy.Request.CustomHeaders.Add(Cookie);
900 TextStream := TStringStream.Create('');
901 Source := TStringStream.Create('');
904 FDebugStrReceive := '';
907 IdAntiFreeze.Active := True;
909 Indy.Post(URL, Source, TextStream);
911 IdAntiFreeze.Active := False;
913 ResponseText := TextStream.DataString;
915 ResultType := GetResultType(ResponseText);
917 //MsgResult
\8f\89\8aú
\89»
919 //
\83t
\83V
\83A
\83i
\83g
\83\89\83b
\83v
\8cx
\8d\90(LocalMode) by
\92è
\8aú
\95Ö
920 if GikoSys.Setting.LocalTrapAtt then begin
921 if LFusianaGet(Namae) then begin
924 '
\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 +
925 '
\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 +
926 '
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
928 MB_YESNO or MB_ICONQUESTION);
929 if MsgResult = IDNO then begin
933 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
938 if ((Namae = '
\8eR
\8dè
\8fÂ') or (Namae = 'fusianasan')) then begin
941 '
\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 +
942 '
\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 +
943 '
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
945 MB_YESNO or MB_ICONQUESTION);
946 if MsgResult = IDNO then begin
950 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
957 if GikoSys.Setting.RemoteTrapAtt then begin
958 if FThreadItem = nil then
961 ABoard := FThreadItem.ParentBoard;
963 if ABoard = nil then Exit;
965 if FileExists(ABoard.GetSETTINGTXTFileName) then begin
966 body := TStringList.Create;
968 body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
969 Remote := GetFusianaName(body, ABoard);
975 //Setting.txt
\82ª
\82È
\82©
\82Á
\82½
\82ç
\8eæ
\93¾
976 //
\8eI
\82É
\95\89\89×
\82ª
\82©
\82©
\82è
\82»
\82¤...
977 if not FileExists(ABoard.GetSETTINGTXTFileName) then begin
978 //GetSETTINGTXTAction
\82ð
\8cÄ
\82Ñ
\8fo
\82·
\82ÆIndy
\82ª
\8f\89\8aú
\89»
\82³
\82ê
\82é
\82Ì
\82Å
\81A
979 //
\82±
\82±
\82ÅCookie
\82ð
\95Û
\91¶
\82µ
\82È
\82
\82Ä
\82Í
\82¢
\82¯
\82È
\82¢
980 tmpRawheader := Indy.Response.RawHeaders.Text;
981 GetSETTINGTXTAction.Execute;
982 body := TStringList.Create;
984 if FileExists(ABoard.GetSETTINGTXTFileName) then begin
985 body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
986 Remote := GetFusianaName(body, ABoard);
993 if Remote = 'fusianasan' then begin
996 '
\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 +
997 '
\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 +
998 '
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
1000 MB_YESNO or MB_ICONQUESTION);
1001 if MsgResult = IDNO then begin
1005 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
1006 DrawMenuBar(Handle);
1012 if ResultType = grtOK then begin
1013 if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then
1014 WriteSambaTime(FHost, Now());
1015 State := gdsComplete;
1016 end else if ResultType = grtCookie then begin
1017 //
\83\8b\81[
\83v
\96h
\8e~
1018 if not FirstWriting then
1019 raise Exception.Create('');
1020 MsgResult := MsgBox(
1022 '
\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 +
1023 '
\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 +
1024 '
\91S
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
1026 MB_YESNO or MB_ICONQUESTION);
1027 if MsgResult = IDYES then begin
1028 if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin
1029 GetCookie(tmpRawheader, Board);
1031 GetCookie(Indy.Response.RawHeaders.Text, Board);
1033 if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
1034 raise Exception.Create('');
1035 //
\82à
\82¤
\88ê
\89ñ
\82±
\82Ì
\83\81\83\
\83b
\83h
1036 Send(Board.Cookie, Board.SPID, Board.PON, False);
1042 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
1043 DrawMenuBar(Handle);
1046 end else if ResultType = grtCheck then begin
1047 //
\83\8b\81[
\83v
\96h
\8e~
1048 if not FirstWriting then
1049 raise Exception.Create('');
1051 MsgResult := MsgBox(
1053 '
\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 +
1054 '
\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 +
1055 '
\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 +
1056 '
\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 +
1058 '
\91S
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
1060 MB_YESNO or MB_ICONQUESTION);
1062 if MsgResult = IDYES then begin
1063 if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin
1064 GetCookie(tmpRawheader, Board);
1066 GetCookie(Indy.Response.RawHeaders.Text, Board);
1069 if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
1070 raise Exception.Create('');
1071 Send(Board.Cookie, Board.SPID, Board.PON, False);
1074 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
1075 DrawMenuBar(Handle);
1082 if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then
1083 WriteSambaTime(FHost, Now());
1085 raise Exception.Create('');
1089 on E: EIdConnectException do begin
1091 ResponseText := '<html><body>'
1092 + '<div>
\90Ú
\91±
\82ª
\8e¸
\94s
\82µ
\82Ü
\82µ
\82½<br>'
1093 + '
\89ñ
\90ü
\82â
\83v
\83\8d\83L
\83V
\82Ì
\8fó
\91Ô
\82ð
\92²
\82×
\82Ä
\82
\82¾
\82³
\82¢<br></div>'
1094 + '<br><br><div>' + E.Message + '</div>'
1097 on E: Exception do begin
1100 FDebugStrReceive := AnsiReplaceText(FDebugStrReceive, '<', '<');
1101 FDebugStrReceive := AnsiReplaceText(FDebugStrReceive, '>', '>');
1102 FDebugStrSend := AnsiReplaceText(FDebugStrSend, '<', '<');
1103 FDebugStrSend := AnsiReplaceText(FDebugStrSend, '>', '>');
1105 ResponseText := '<html><body>' + TextStream.DataString;
1106 ResponseText := AnsiReplaceText(ResponseText, '</body>', '');
1107 ResponseText := AnsiReplaceText(ResponseText, '</html>', '');
1108 ResponseText := ResponseText + '<hr><div align="left"><pre>';
1109 ResponseText := ResponseText + '<b>
\82±
\82±
\82©
\82ç
\83M
\83R
\83i
\83r
\82Ì
\8fî
\95ñ</b>'#13#10;
1110 ResponseText := ResponseText + #13#10'
\81\9c\91\97\90M'#13#10;
1111 ResponseText := ResponseText + FDebugStrSend;
1112 ResponseText := ResponseText + #13#10'
\81\9c\8eó
\90M'#13#10;
1113 ResponseText := ResponseText + FDebugStrReceive;
1114 ResponseText := ResponseText + '</pre></div></body></html>';
1117 FStatusCode := Indy.ResponseCode;
1123 //sysMenu := GetSystemMenu( Handle, true );
1124 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
1125 DrawMenuBar(Handle);
1128 //
\94ñ
\8cö
\8e®
\83M
\83R
\83i
\83r
\94Â
\82È
\82Ç
\82Ì2ch
\8cÝ
\8a·
\83X
\83N
\83\8a\83v
\83g
\97p
1129 //2ch
\88È
\8aO
\82Å
\82©
\82ÂResponceCode
\82ª302Found
\82Å
\8f\91\82«
\8d\9e\82Ý
\8a®
\97¹
1130 //if (not Board.Is2ch) and (FStatusCode = 302) then begin
1131 if FStatusCode = 302 then begin
1132 GikoForm.PlaySound('ResEnd');
1134 if FThreadItem = nil then
1135 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
1137 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
1141 if State = gdsComplete then begin
1142 GikoForm.PlaySound('ResEnd');
1144 if FThreadItem = nil then
1145 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
1147 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
1149 end else if State = gdsError then begin
1150 if FThreadItem = nil then
1151 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
1153 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
1155 EditorPage.ActivePage := PreviewTab;
1156 SetContent(ResponseText, Browser);
1157 end else if State = gdsAbort then begin
1158 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiSAD);
1162 function TEditorForm.GetResultType(ResponseText: string): TGikoResultType;
1164 if AnsiPos('
\8f\91\82«
\82±
\82Ý
\82ª
\8fI
\82í
\82è
\82Ü
\82µ
\82½', ResponseText) <> 0 then
1166 else if (AnsiPos('
\83N
\83b
\83L
\81[
\82ª
\82È
\82¢
\82©
\8aú
\8cÀ
\90Ø
\82ê
\82Å
\82·', ResponseText) > 0) or
1167 (AnsiPos('<title>
\83N
\83b
\83L
\81[
\8am
\94F
\81I</title>', ResponseText) > 0) or
1168 (AnsiPos('<title>
\81¡
\83N
\83b
\83L
\81[
\8am
\94F
\81I
\81¡</title>', ResponseText) > 0) or
1169 //(AnsiPos('
\83N
\83b
\83L
\81[
\8am
\94F', ResponseText) > 0) or
1170 (AnsiPos(RES2CH_COOKIE, ResponseText) > 0) then
1172 else if (AnsiPos('<font size=+2 color=#FF0000>
\8f\91\82«
\8d\9e\82Ý
\83`
\83F
\83b
\83N
\81I </font>', ResponseText) > 0) or
1173 (AnsiPos('<title>
\81¡
\8f\91\82«
\8d\9e\82Ý
\8am
\94F
\82µ
\82Ü
\82·
\81¡</title>', ResponseText) > 0) or
1174 (AnsiPos('<title>
\93\8a\8de
\8am
\94F</title>', ResponseText) > 0) or
1175 (AnsiPos('<b>
\8f\91\82«
\82±
\82Ý
\8am
\94F</b>', ResponseText) > 0) or
1176 (AnsiPos('="../test/subbbs.cgi">', ResponseText) > 0) or
1177 (AnsiPos(RES2CH_FALSE, ResponseText) > 0) then
1179 else if (AnsiPos('
\81E
\93\8a\8de
\8eÒ
\82Í
\81A
\8cf
\8e¦
\94Â
\89^
\89c
\8eÒ
\82É
\91Î
\82µ
\82Ä
\81A
\92\98\8dì
\8eÒ
\90l
\8ai
\8c \82ð
\88ê
\90Ø
\8ds
\8eg
\82µ
\82È
\82¢
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ü
\82·
\81B<br>', ResponseText) > 0) or
1180 (AnsiPos('
\81i
\92\98\8dì
\8c \96@
\91æ21
\8fð
\82È
\82¢
\82µ
\91æ28
\8fð
\82É
\8bK
\92è
\82³
\82ê
\82é
\8c \97\98\82à
\8aÜ
\82Þ
\81j
\82»
\82Ì
\91¼
\82Ì
\8c \97\98\82É
\82Â
\82«
\81A', ResponseText) > 0) then
1187 procedure TEditorForm.GetSendData(Source: TStringStream);
1196 if FThreadItem = nil then
1199 Board := FThreadItem.ParentBoard;
1201 if GikoSys.Setting.UseMachineTime then begin
1202 if GikoSys.Setting.TimeAdjust then
1203 Adjust := Gikosys.Setting.TimeAdjustSec
1205 Adjust := GikoSys.Setting.TimeAdjustSec * -1;
1206 SendTime := GikoSys.DateTimeToInt(Now) - (9 * 60 * 60) + Adjust
1208 if (Board.LastGetTime = 0) or (Board.LastGetTime = ZERO_DATE) then
1209 SendTime := GikoSys.DateTimeToInt(Now)
1211 SendTime := GikoSys.DateTimeToInt(Board.LastGetTime);
1216 SessionID := GikoSys.Dolib.SessionID;
1217 if SessionID <> '' then
1218 s := 'sid=' + HttpEncode(SessionID) + '&'
1221 s := s + 'subject=&'
1222 + 'FROM=' + HttpEncode(NameComboBox.Text) + '&'
1223 + 'mail=' + HttpEncode(MailComboBox.Text) + '&'
1224 + 'MESSAGE=' + HttpEncode(body) + '&'
1225 + 'bbs=' + Board.BBSID + '&'
1226 + 'time=' + IntToStr(SendTime) + '&';
1228 if FThreadItem = nil then begin
1229 s := s + 'subject=' + HttpEncode(TitleEdit.Text) + '&';
1230 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;
1232 s := s + 'key=' + ChangeFileExt(FThreadItem.FileName, '') + '&';
1233 s := s + 'submit=' + HttpEncode('
\8f\91\82«
\8d\9e\82Þ') + #13#10;
1235 Source.WriteString(s);
1238 procedure TEditorForm.SaveSendFile;
1243 ini := TMemIniFile.Create(GikoSys.GetSentFileName);
1245 sDate := IntToStr(GikoSys.DateTimeToInt(Now));
1247 ini.WriteString(sDate, 'Name', NameComboBox.Text);
1248 ini.WriteString(sDate, 'EMail', MailComboBox.Text);
1249 ini.WriteString(sDate, 'Body', HttpEncode(BodyEdit.Text));
1250 ini.WriteInteger(sDate, 'Status', FStatusCode);
1251 ini.WriteDateTime(sDate, 'Date', Now);
1252 if FThreadItem = nil then begin
1253 ini.WriteString(sDate, 'Title', MojuUtils.Sanitize(TitleEdit.Text));
1254 ini.WriteString(sDate, 'BBS', FBoard.BBSID);
1255 ini.WriteInteger(sDate, 'NewThread', 1);
1257 ini.WriteString(sDate, 'Title', FThreadItem.Title);
1258 ini.WriteString(sDate, 'BBS', FThreadItem.ParentBoard.BBSID);
1259 ini.WriteString(sDate, 'Key', ChangeFileExt(FThreadItem.FileName, ''));
1268 procedure TEditorForm.SendActionExecute(Sender: TObject);
1273 state : TGikoDownloadState;
1280 SendAction.Enabled := False;
1281 Application.ProcessMessages;
1282 if not Check then Exit;
1284 if FThreadItem = nil then
1287 Board := FThreadItem.ParentBoard;
1289 if FThreadItem = nil then begin
1290 rc := GikoUtil.MsgBox(Handle,
1291 '
\81u' + Board.Title + '
\81v
\94Â
\82É
\90V
\82µ
\82¢
\83X
\83\8c\83b
\83h
\97§
\82Ä
\82Ü
\82·'#13#10#13#10
1292 + '
\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
1293 + '
\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
1294 + '
\81u
\82Í
\82¢
\81v
\82ð
\89\9f\82·
\82Æ
\91\97\90M
\82µ
\82Ü
\82·',
1296 MB_ICONQUESTION or MB_YESNO);
1297 if rc <> ID_YES then
1301 SetNameList(NameComboBox.Text, MailComboBox.Text);
1302 if (KotehanCheckBox.Enabled) and (KotehanCheckBox.Checked) then begin
1303 Board.KotehanName := NameComboBox.Text;
1304 Board.KotehanMail := MailComboBox.Text;
1307 if Board.IsBoardPlugInAvailable then begin
1310 if FThreadItem = nil then begin
1311 //
\83X
\83\8c\97§
\82Ä
1312 state := TGikoDownloadState( Board.BoardPlugIn.CreateThread(
1313 DWORD( Board ), TitleEdit.Text, NameComboBox.Text, MailComboBox.Text, body ) );
1315 if state = gdsComplete then begin
1316 GikoForm.PlaySound('ResEnd');
1318 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK);
1321 end else if State = gdsError then begin
1322 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmSureError), nil, gmiNG);
1323 end else if State = gdsAbort then begin
1324 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiNG);
1328 state := TGikoDownloadState( FThreadItem.ParentBoard.BoardPlugIn.WriteThread(
1329 DWORD( FThreadItem ), NameComboBox.Text, MailComboBox.Text, body ) );
1331 if state = gdsComplete then begin
1332 GikoForm.PlaySound('ResEnd');
1334 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
1337 end else if State = gdsError then begin
1338 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmResError), nil, gmiOK);
1339 end else if State = gdsAbort then begin
1340 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiOK);
1344 if not Timer1.Enabled then begin
1345 if CompareDateTime(Board.Expires ,Now) <= 0 then begin
1350 Send(Board.Cookie, Board.SPID, Board.PON, True);
1352 if not CheckSambaTime(FHost, Now()) then begin
1353 rc := GikoUtil.MsgBox(Handle,
1354 '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
1355 + '
\91\97\90M
\82ð
\92\86\8e~
\82µ
\82Ü
\82·
\82©
\81H' + #13#10
1356 + '(
\81u
\82¢
\82¢
\82¦
\81v
\82¾
\82Æ
\91\97\90M
\82µ
\82Ü
\82·)', 'Samba24
\8cx
\8d\90',
1357 MB_YESNO or MB_ICONQUESTION);
1358 if rc = IDYES then begin
1362 if rc = IDNO then begin
1363 rc2 := GikoUtil.MsgBox(Handle,
1364 '
\96{
\93\96\82É
\91\97\90M
\82µ
\82Ü
\82·
\82©
\81H',
1365 'Sumba24
\8cx
\8d\90',
1366 MB_YESNO or MB_ICONQUESTION);
1367 if rc2 = IDNO then begin
1373 if CompareDateTime(Board.Expires ,Now) <= 0 then begin
1378 Send(Board.Cookie, Board.SPID, Board.PON, True);
1383 if Timer1.Enabled then
1384 ReadSambaTime(FHost);
1388 procedure TEditorForm.SaveActionExecute(Sender: TObject);
1393 procedure TEditorForm.CloseActionExecute(Sender: TObject);
1398 procedure TEditorForm.UndoActionExecute(Sender: TObject);
1400 SendMessage(GetActiveControlHandle, WM_UNDO, 0, 0);
1403 procedure TEditorForm.CutActionExecute(Sender: TObject);
1405 SendMessage(GetActiveControlHandle, WM_CUT, 0, 0);
1408 procedure TEditorForm.CopyActionExecute(Sender: TObject);
1410 SendMessage(GetActiveControlHandle, WM_COPY, 0, 0);
1413 procedure TEditorForm.PasteActionExecute(Sender: TObject);
1415 SendMessage(GetActiveControlHandle, WM_PASTE, 0, 0);
1418 procedure TEditorForm.SelectAllActionExecute(Sender: TObject);
1420 SendMessage(GetActiveControlHandle, EM_SETSEL, 0, GetWindowTextLength(GetActiveControlHandle));
1423 procedure TEditorForm.TopActionExecute(Sender: TObject); //
\83E
\83B
\83\93\83h
\83E
\8dÅ
\91O
\96Ê(Stay)
\83{
\83^
\83\93\82Ì
\8f\88\97\9d
1425 if not (fsShowing in Self.FormState) then begin
1426 if TopAction.Checked then begin //
\83X
\83e
\83C
\8fó
\91Ô
\82É
\90Ý
\92è
1427 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
1428 GikoSys.Setting.EditWindowStay := true;
1429 end else begin //
\83X
\83e
\83C
\8fó
\91Ô
\89ð
\8f\9c
1430 SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
1431 GikoSys.Setting.EditWindowStay := false;
1433 //
\83X
\83e
\83C
\8fó
\91Ô
\82Ì
\95Û
\91¶
1434 //GikoSys.Setting.EditWindowStay := FormStyle = fsStayOnTop;
1438 procedure TEditorForm.AbortActionExecute(Sender: TObject);
1443 procedure TEditorForm.SendActionUpdate(Sender: TObject);
1445 SendAction.Enabled := not FWork;
1448 procedure TEditorForm.SaveActionUpdate(Sender: TObject);
1450 SaveAction.Enabled := False;
1453 procedure TEditorForm.CloseActionUpdate(Sender: TObject);
1455 CloseAction.Enabled := not FWork;
1458 procedure TEditorForm.UndoActionUpdate(Sender: TObject);
1460 UndoAction.Enabled := (GetActiveControlHandle <> 0)
1461 and (SendMessage(GetActiveControlHandle, EM_CANUNDO, 0, 0) <> 0)
1465 procedure TEditorForm.CutActionUpdate(Sender: TObject);
1467 Selection: TSelection;
1470 AHandle := GetActiveControlHandle;
1471 SendMessage(AHandle, EM_GETSEL, Longint(@Selection.StartPos), Longint(@Selection.EndPos));
1472 CutAction.Enabled := (AHandle <> 0)
1473 and ((Selection.EndPos - Selection.StartPos) <> 0)
1477 procedure TEditorForm.CopyActionUpdate(Sender: TObject);
1479 Selection: TSelection;
1482 AHandle := GetActiveControlHandle;
1483 SendMessage(AHandle, EM_GETSEL, Longint(@Selection.StartPos), Longint(@Selection.EndPos));
1484 CopyAction.Enabled := (AHandle <> 0)
1485 and ((Selection.EndPos - Selection.StartPos) <> 0)
1489 procedure TEditorForm.PasteActionUpdate(Sender: TObject);
1491 PasteAction.Enabled := (GetActiveControlHandle <> 0)
1492 and (Clipboard.HasFormat(CF_TEXT))
1496 procedure TEditorForm.TopActionUpdate(Sender: TObject);
1498 TopAction.Enabled := not FWork;
1501 procedure TEditorForm.SageCheckBoxClick(Sender: TObject);
1503 if SageCheckBox.Checked then begin
1504 if AnsiPos('sage', MailComboBox.Text) = 0 then
1505 MailComboBox.Text := 'sage' + MailComboBox.Text;
1507 if AnsiPos('sage', MailComboBox.Text) <> 0 then
1508 MailComboBox.Text := StringReplace(MailComboBox.Text, 'sage', '', [rfReplaceAll]);
1512 procedure TEditorForm.MailComboBoxChange(Sender: TObject);
1514 if AnsiPos('sage', MailComboBox.Text) = 0 then
1515 SageCheckBox.Checked := False
1517 SageCheckBox.Checked := True;
1520 procedure TEditorForm.IdLogDebugReceive(ASender: TIdConnectionIntercept;
1523 StringStream: TStringStream;
1525 StringStream := TStringStream.Create('');
1527 StringStream.CopyFrom(AStream, AStream.Size);
1528 FDebugStrReceive := FDebugStrReceive + StringStream.DataString;
1534 procedure TEditorForm.IdLogDebugSend(ASender: TIdConnectionIntercept;
1537 StringStream: TStringStream;
1539 StringStream := TStringStream.Create('');
1541 StringStream.CopyFrom(AStream, AStream.Size);
1542 FDebugStrSend := FDebugStrSend + StringStream.DataString;
1548 procedure TEditorForm.TransActionExecute(Sender: TObject);
1550 AlphaBlend := TransAction.Checked;
1551 //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
1552 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked;
1555 procedure TEditorForm.TransActionUpdate(Sender: TObject);
1557 TransAction.Enabled := not FWork;
1559 //StatusBar
\82ÌPanels[0]
\82Ì
\95\9d\82ð
\89Â
\95Ï
\81B
\8ec
\82è
\82ð
\8cÅ
\92è
\82É
\82·
\82é
1560 procedure TEditorForm.StatusBarResize(Sender: TObject);
1562 StatusBar.Panels[0].Width := StatusBar.Width
1563 - StatusBar.Panels[1].Width - StatusBar.Panels[2].Width;
1567 procedure TEditorForm.Timer1Timer(Sender: TObject);
1569 if FSambaTime = ZERO_DATE then
1570 StatusBar.Panels[1].Text := '
\8f\89\8f\91'
1572 FNow := IncMilliSecond(FNow, 500);
1573 StatusBar.Panels[1].Text := Format('%8.0f
\95b
\8co
\89ß', [SecondSpan(FNow, FSambaTime)]);
1577 //Samba.ini
\82Ì
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1578 procedure TEditorForm.ReadSambaTime(const AHost: string);
1583 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
1584 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1586 //
\95¶
\8e\9a\97ñ
\82Å
\93Ç
\82Ý
\8eæ
\82Á
\82Ä
\81A
\95Ï
\8a·
\8aÖ
\90\94\82ÅTDateTime
\82Ö
1587 tmp := ini.ReadString('Send', AHost, DateTimeToStr(ZERO_DATE));
1588 FSambaTime := ConvertDateTimeString(tmp);
1592 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
1593 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
1595 //Samba.ini
\82É
\8dÅ
\8fI
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\8f\91\82«
\8d\9e\82Þ
1596 procedure TEditorForm.WriteSambaTime(const AHost: string; ATime: TDateTime);
1600 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1602 ini.WriteDateTime('Send', AHost, ATime);
1608 //
\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
1609 function TEditorForm.CheckSambaTime(const AHost: string; ATime: TDateTime): Boolean;
1612 SettingTime: Integer;
1614 SettingTime := ReadSettingTime(AHost);
1615 ReadSambaTime(AHost);
1616 pastsec := SecondSpan(ATime, FSambaTime);
1617 if pastsec > SettingTime then
1622 //AHost
\81i
\8eI
\96¼
\81j
\82ÌSamba
\82Ì
\8bK
\92è
\92l
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1623 function TEditorForm.ReadSettingTime(const AHost: string): Integer;
1627 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1629 Result := ini.ReadInteger('Setting', AHost, 0);
1630 //
\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
1631 if Result = 0 then begin
1632 ini.WriteInteger('Setting', AHost, 0);
1635 //StatusBar
\82É
\82±
\82Ì
\8eI
\82Ì
\8bK
\92è
\92l
\82ð
\95\
\8e¦
\82·
\82é
1636 StatusBar.Panels[2].Text := 'Samba24
\8bK
\92è
\92l' + IntToStr(Result);
1641 //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Þ
1642 procedure TEditorForm.FormActivate(Sender: TObject);
1644 if ( Timer1.Enabled ) and ( FThreadItem <> nil )then
1645 ReadSambaTime(FHost);
1646 if GikoSys.Setting.GestureEnabled then begin
1647 GikoSys.Setting.Gestures.ClearGesture;
1648 GikoSys.Setting.Gestures.LoadGesture(
1649 GikoSys.Setting.GetGestureFileName, ActionList );
1650 MouseGesture.UnHook;
1651 MouseGesture.OnGestureStart := OnGestureStart;
1652 MouseGesture.OnGestureMove := OnGestureMove;
1653 MouseGesture.OnGestureEnd := OnGestureEnd;
1654 MouseGesture.SetHook( Handle );
1657 //Samba24
\91Î
\8dô
\82ð
\8eg
\82¤
\82©
\82Ç
\82¤
\82©
\8c\88\82ß
\82é
\8aÖ
\90\94
1658 //ReadSambaTime
\82ð
\8cÄ
\82Ñ
\8fo
\82·
\82ÆTimer
\82ªOn
\82É
\82È
\82é
1659 procedure TEditorForm.SetSamba24(AURL: string);
1661 Protocol, Host, Path, Document, Port, Bookmark : string;
1663 //Samba24
\91Î
\8dô
\82ð
\82µ
\82È
\82¢
\82È
\82ç
\8fI
\97¹
1664 if not GikoSys.Setting.UseSamba then
1666 //Host
\82ÌURL
\82É'.2ch.'
\82©'.bbspink.'
\82ª
\8aÜ
\82Ü
\82ê
\82Ä
\82¢
\82½
\82çSamba24
\91Î
\8dô
\82ð
\82·
\82é
1667 GikoSys.ParseURI( AURL, Protocol,Host, Path, Document, Port, Bookmark );
1668 if GikoSys.Is2chHost(Host) then begin
1669 Host := Copy(Host, 1, AnsiPos('.', Host) - 1);
1670 FHost := Host; //FHost=
\8eI
\96¼
1671 ReadSambaTime(FHost); //
\88È
\91O
\82Ì
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1672 ReadSettingTime(FHost); //Samba
\82Ì
\90Ý
\92è
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1675 procedure TEditorForm.FormCloseQuery(Sender: TObject;
1676 var CanClose: Boolean);
1678 CanClose := not FWork;
1681 function TEditorForm.GetOEIndentChar : string;
1684 Identities : string;
1687 DEFAULT_CHAR = '> ';
1688 OE_MAIL_PATH = '\Software\Microsoft\Outlook Express\5.0\Mail';
1689 INDENT_CHAR = 'Indent Char';
1692 Result := DEFAULT_CHAR;
1693 regKey := TRegistry.Create;
1696 regKey.RootKey := HKEY_CURRENT_USER;
1697 if not regKey.OpenKey( 'Identities', False ) then
1699 Identities := regKey.ReadString( 'Default User ID' );
1700 if Identities = '' then
1702 if not regKey.OpenKey( Identities + OE_MAIL_PATH, False ) then
1704 IndentChar := regKey.ReadInteger( INDENT_CHAR );
1705 Result := Char( IndentChar ) + ' ';
1714 procedure TEditorForm.QuotePasteActionExecute(Sender: TObject);
1721 quote := GetOEIndentChar;
1722 s := TStringList.Create;
1724 s.Text := Clipboard.AsText;
1726 for i := s.Count - 1 downto 0 do
1727 s[ i ] := quote + s[ i ];
1729 BodyEdit.SelText := s.Text;
1736 procedure TEditorForm.SpaceToNBSPActionExecute(Sender: TObject);
1738 GikoSys.Setting.SpaceToNBSP := SpaceToNBSPAction.Checked;
1739 if EditorPage.ActivePage = PreviewTab then
1743 procedure TEditorForm.AmpToCharRefActionExecute(Sender: TObject);
1745 GikoSys.Setting.AmpToCharRef := AmpToCharRefAction.Checked;
1746 if EditorPage.ActivePage = PreviewTab then
1750 procedure TEditorForm.BoardTopClick(Sender: TObject);
1754 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
1756 BoardtopTab.TabVisible := BoardTop.Checked;
1757 ini.WriteBool('EditorForm', 'BoardTopTab', BoardtopTab.TabVisible);
1764 procedure TEditorForm.GetSETTINGTXTActionExecute(Sender: TObject);
1766 URL, RefURL: string;
1767 settingBody: TStringList;
1778 if FThreadItem = nil then
1781 tmpBoard := FThreadItem.ParentBoard;
1783 if tmpBoard = nil then Exit;
1785 RefURL := tmpBoard.URL;
1786 if RefURL[Length(RefURL)] <> '/' then
1787 URL := RefURL + '/' + 'SETTING.TXT'
1789 URL := RefURL + 'SETTING.TXT';
1791 Indy.Request.LastModified := tmpBoard.SETTINGTXTTime;
1792 Indy.Request.Referer := RefURL;
1793 Screen.Cursor := crHourGlass;
1794 settingBody := TStringList.Create;
1796 StatusBar.Panels[0].Text := 'SETTING.TXT
\83_
\83E
\83\93\83\8d\81[
\83h
\92\86';
1798 IdAntiFreeze.Active := True;
1800 settingBody.Text := Indy.Get(URL);
1802 IdAntiFreeze.Active := False;
1804 if( Indy.ResponseCode = 200 ) then begin
1805 settingBody.SaveToFile(tmpBoard.GetSETTINGTXTFileName);
1806 tmpBoard.SETTINGTXTTime := Indy.Response.LastModified;
1807 tmpBoard.IsSETTINGTXT := true;
1808 tmpBoard.TitlePictureURL := GetTitlePictureURL(settingBody, tmpBoard);
1809 tmpBoard.Modified := true;
1810 StatusBar.Panels[0].Text := 'SETTING.TXT
\8eæ
\93¾
\8a®
\97¹(' + IntToStr(Indy.ResponseCode) + ')';
1813 on E: EIdException do begin
1814 if( AnsiPos('304', E.Message) > 0 ) then
1815 StatusBar.Panels[0].Text := 'SETTING.TXT
\8dX
\90V
\96³
\82µ(' + IntToStr(Indy.ResponseCode) + ')'
1817 StatusBar.Panels[0].Text := 'SETTING.TXT
\8eæ
\93¾
\83G
\83\89\81[(' + IntToStr(Indy.ResponseCode) + ')';
1822 Screen.Cursor := crDefault;
1825 ShowBoardInformation(tmpBoard, BoardInformationMemo);
1830 procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
1835 AMemo.Lines.Add('[SETTING.TXT]');
1836 if ABoard.IsSETTINGTXT then begin
1837 if FileExists(ABoard.GetSETTINGTXTFileName) then begin
1838 AMemo.Lines.Add(DateTimeToStr(ABoard.SETTINGTXTTime) + '
\8dX
\90V');
1839 body := TStringList.Create;
1841 body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
1842 AMemo.Lines.AddStrings(body);
1847 ABoard.IsSETTINGTXT := false;
1848 ABoard.SETTINGTXTTime := ZERO_DATE;
1849 AMemo.Lines.Add('Local
\82É
\95Û
\91¶
\82³
\82ê
\82½SETTING.TXT
\82ª
\8c©
\82Â
\82©
\82è
\82Ü
\82¹
\82ñ');
1850 AMemo.Lines.Add('
\83\81\83j
\83\85\81[
\82æ
\82è
\8dÄ
\8eæ
\93¾
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B');
1853 AMemo.Lines.Add('SETTING.TXT
\82ð
\8eæ
\93¾
\82µ
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B');
1854 AMemo.Lines.Add('
\83\81\83j
\83\85\81[
\82æ
\82è
\8eæ
\93¾
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B');
1857 function TEditorForm.GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
1858 //BBS_TITLE_PICTURE=
1865 for i := 0 to body.Count - 1 do begin
1866 if (AnsiPos('BBS_TITLE_PICTURE=', body[i]) > 0) or
1867 (AnsiPos('BBS_FIGUREHEAD=', body[i]) > 0) then begin
1869 Delete(tmp, 1, AnsiPos('=', tmp));
1870 if AnsiPos('../', tmp) > 0 then begin
1871 tmp := CustomStringReplace(tmp, '../', GikoSys.UrlToServer(ABoard.URL));
1879 procedure TEditorForm.GetTitlePictureActionUpdate(Sender: TObject);
1881 if FThreadItem = nil then
1882 GetTitlePictureAction.Enabled := FBoard.IsSETTINGTXT
1884 GetTitlePictureAction.Enabled := FThreadItem.ParentBoard.IsSETTINGTXT;
1886 if GetTitlePictureAction.Enabled Then begin
1887 //
\8eÀ
\8ds
\92\86\82Í
\8eÀ
\8ds
\95s
\89Â
1888 GetTitlePictureAction.Enabled := not FWork;
1892 procedure TEditorForm.GetTitlePictureActionExecute(Sender: TObject);
1894 memStream: TMemoryStream;
1903 memStream := TMemoryStream.Create;
1905 if FThreadItem = nil then
1908 tmpBoard := FThreadItem.ParentBoard;
1910 Indy.Request.Referer := tmpBoard.URL;
1911 if tmpBoard.TitlePictureURL <> '' then begin
1912 StatusBar.Panels[0].Text := '
\94Â
\83g
\83b
\83v
\89æ
\91\9c\83_
\83E
\83\93\83\8d\81[
\83h
\92\86';
1913 Screen.Cursor := crHourGlass;
1915 IdAntiFreeze.Active := True;
1917 Indy.Get(tmpBoard.TitlePictureURL, memStream);
1919 IdAntiFreeze.Active := False;
1921 if Indy.ResponseCode = 200 then begin
1922 memStream.SaveToFile(tmpBoard.GetTitlePictureFileName);
1924 tmpBoard.Modified := true;
1930 Screen.Cursor := crDefault;
1931 StatusBar.Panels[0].Text := '
\94Â
\83g
\83b
\83v
\89æ
\91\9c (' + IntToStr(Indy.ResponseCode) + ')';
1937 procedure TEditorForm.ShowTitlePicture();
1942 if FThreadItem = nil then
1945 tmpBoard := FThreadItem.ParentBoard;
1947 if FileExists(tmpBoard.GetTitlePictureFileName) then begin
1948 TitlePictureBrowser.Navigate(tmpBoard.GetTitlePictureFileName);
1950 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';
1951 SetContent(s, TitlePictureBrowser);
1955 function TEditorForm.GetFusianaName(body: TStringList; ABoard: TBoard): String;
1960 for i := 0 to body.Count - 1 do begin
1961 if (AnsiPos('BBS_NONAME_NAME=', body[i]) > 0) then begin
1963 Delete(tmp, 1, AnsiPos('=', tmp));
1970 procedure TEditorForm.GetHeadTXTActionExecute(Sender: TObject);
1972 URL, RefURL: string;
1973 settingBody: TStringList;
1981 if FThreadItem = nil then
1984 tmpBoard := FThreadItem.ParentBoard;
1986 if tmpBoard = nil then Exit;
1988 RefURL := tmpBoard.URL;
1989 if RefURL[Length(RefURL)] <> '/' then
1990 URL := RefURL + '/' + 'head.txt'
1992 URL := RefURL + 'head.txt';
1994 if FileExists(tmpBoard.GETHEADTXTFileName) then
1995 Indy.Request.LastModified := tmpBoard.HEADTXTTime
1997 Indy.Request.LastModified := ZERO_DATE;
1999 Indy.Request.Referer := RefURL;
2000 Screen.Cursor := crHourGlass;
2001 settingBody := TStringList.Create;
2003 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';
2005 IdAntiFreeze.Active := True;
2007 settingBody.Text := Indy.Get(URL);
2009 IdAntiFreeze.Active := False;
2011 if( Indy.ResponseCode = 200 ) then begin
2012 settingBody.Insert(0, '<HTML lang="ja"><HEAD>');
2013 settingBody.Insert(1, '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">');
2014 settingBody.Insert(2, '<TITLE>' + tmpBoard.Title + '</TITLE>');
2015 settingBody.Insert(3, '<base href="' + RefURL + '"></HEAD><BODY>');
2016 settingBody.Add('</BODY></HTML>');
2017 settingBody.SaveToFile(tmpBoard.GETHEADTXTFileName);
2018 tmpBoard.HEADTXTTime := Indy.Response.LastModified;
2019 tmpBoard.IsHEADTXT := true;
2020 tmpBoard.Modified := true;
2021 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8eæ
\93¾
\8a®
\97¹(' + IntToStr(Indy.ResponseCode) + ')';
2024 on E: EIdException do begin
2025 if( AnsiPos('304', E.Message) > 0 ) then
2026 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8dX
\90V
\96³
\82µ(' + IntToStr(Indy.ResponseCode) + ')'
2028 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8eæ
\93¾
\83G
\83\89\81[(' + IntToStr(Indy.ResponseCode) + ')';
2033 Screen.Cursor := crDefault;
2036 if tmpBoard.IsHEADTXT then begin
2037 ShowBoardHead(tmpboard, LocalEdit);
2043 procedure TEditorForm.CalcCapacityActionExecute(Sender: TObject);
2049 //
\82Ç
\82¤
\82à
\81A
\89ü
\8ds
\95ª
\82¸
\82ê
\82Ä
\82½
\82Á
\82Û
\82¢
\82¯
\82Ç
\81A
\96{
\93\96\82©
\82æ
\82
\95ª
\82©
\82ç
\82È
\82¢
\81B
2050 if FThreadItem = nil then
2053 Board := FThreadItem.ParentBoard;
2055 if Board.BoardPlugIn <> nil then
2056 body := CustomStringReplace(body, #13#10, '<br>')
2058 body := CustomStringReplace(body, #13#10, ' <br> ');
2059 StatusBar.Panels[0].Text := '
\97e
\97Ê:' + IntToStr(Length(body)) + ' byte';
2062 procedure TEditorForm.LocalRuleClick(Sender: TObject);
2066 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
2068 RocalRuleTab.TabVisible := LocalRule.Checked;
2069 ini.WriteBool('EditorForm', 'LocalRuleTab', RocalRuleTab.TabVisible);
2075 procedure TEditorForm.FormDeactivate(Sender: TObject);
2077 if GikoSys.Setting.GestureEnabled then begin
2078 MouseGesture.UnHook;
2079 //MouseGesture.SetHook( GikoForm.Handle );
2084 procedure TEditorForm.OnGestureStart(Sender: TObject);
2089 procedure TEditorForm.OnGestureMove(Sender: TObject);
2095 s := MouseGesture.GetGestureStr;
2097 Action := GikoSys.Setting.Gestures.GetGestureAction(s);
2098 if Action <> nil then
2099 ActStr := '
\81i' + Action.Caption + '
\81j';
2100 s := '
\83W
\83F
\83X
\83`
\83\83\81[: ' + s + ActStr;
2101 StatusBar.Panels[0].Text := s;
2104 procedure TEditorForm.OnGestureEnd(Sender: TObject);
2109 s := MouseGesture.GetGestureStr;
2110 Action := GikoSys.Setting.Gestures.GetGestureAction(s);
2111 if Action <> nil then
2113 StatusBar.Panels[0].Text := '';
2116 procedure TEditorForm.ShowBoardHead(ABoard: TBoard; AMemo: TMemo);
2118 wDoc, WTex, le: OLEVariant;
2121 //http://www.campus.ne.jp/~ishigami/CREATION/TECHNIC/WEBAP-2.htm
2122 WebBrowser1.Navigate(ABoard.GETHEADTXTFileName,le,le,le,le);
2123 //
\83\8c\83^
\83\8a\83\93\83O
\82ª
\92x
\82·
\82¬
\82ÄTXT
\82É
\88Ú
\82¹
\82È
\82¢
\81B
\82Ê
\82é
\82Ûorz
2124 //
\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
2125 //
\82±
\82ê
\82Å
\82¢
\82¯
\82Ü
\82µ
\82½
\81B
\82 \82è
\82ª
\82Æ
\82¤
\82²
\82´
\82¢
\82Ü
\82µ
\82½
\81B
2126 while (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) and
2127 (WebBrowser1.ReadyState <> READYSTATE_INTERACTIVE) do begin
2128 Application.ProcessMessages;
2130 wDoc := WebBrowser1.Document;
2131 wTex := wDoc.body.createTextRange;
2132 LocalEdit.Text := wTex.text;
2135 procedure TEditorForm.LocalRuleBrowseClick(Sender: TObject);
2140 if FThreadItem = nil then
2143 ABoard := FThreadItem.ParentBoard;
2145 if ABoard = nil then Exit;
2147 URL := ABoard.GETHEADTXTFileName;
2148 GikoSys.OpenBrowser(URL, gbtAuto);
2151 procedure TEditorForm.SaveNameMailActionExecute(Sender: TObject);
2153 SaveNameMailAction.Checked := not SaveNameMailAction.Checked;
2154 KotehanCheckBox.Enabled := SaveNameMailAction.Checked;
2157 function TEditorForm.LFusianaGet(s: String): Boolean;
2161 i := AnsiPos('fusianasan', s);
2162 if (i > 0) then Result := True else Result := False;
2165 procedure TEditorForm.BeLogInOutEActionExecute(Sender: TObject);
2167 GikoSys.Setting.BeLogin := not GikoSys.Setting.BeLogin;
2170 procedure TEditorForm.BeLogInOutEActionUpdate(Sender: TObject);
2172 if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin
2173 if (GikoSys.Setting.BeLogin) then BeLogInOutEAction.Checked := true
2174 else BeLogInOutEAction.Checked := false;
2175 BeLogInOutEAction.Enabled := true
2177 BeLogInOutEAction.Enabled := false;
2180 // Cookie
\82Ì
\8eæ
\93¾
2181 procedure TEditorForm.GetCookie(Rawtext: String; ABoard: TBoard);
2183 COOKIE_MARK = 'Set-Cookie:';
2186 EXPIRES_MARK = 'expires=';
2192 ABoard.Cookie := '';
2193 while (AnsiPos(COOKIE_MARK, Rawtext) > 0 ) do begin
2195 tmp := Copy(Rawtext, AnsiPos(COOKIE_MARK, Rawtext) + Length(COOKIE_MARK), Length(Rawtext));
2196 Delete(Rawtext, 1, AnsiPos('Set-Cookie', Rawtext)+ Length(COOKIE_MARK));
2197 //Cookie
\82ð
\90Ø
\82è
\8fo
\82·
2198 val := Trim(GikoSys.GetTokenIndex(tmp, ';', 0));
2199 if( AnsiPos(VAL_SPID, val) > 0 ) then begin
2200 ABoard.SPID := Copy(val, AnsiPos(VAL_SPID, val) + Length(VAL_SPID), Length(val));
2201 end else if( AnsiPos(VAL_PON, val) > 0 ) then begin
2202 ABoard.PON := Copy(val, AnsiPos(VAL_PON, val) + Length(VAL_PON), Length(val));
2204 ABoard.Cookie := ABoard.Cookie + val + '; ';
2206 //expires
\82ð
\90Ø
\82è
\8fo
\82·
2207 val := Trim(GikoSys.GetTokenIndex(tmp, ';', 1));
2208 if( AnsiPos(EXPIRES_MARK, val) > 0) then begin
2209 Delete(val, 1, AnsiPos(EXPIRES_MARK, val) + Length(EXPIRES_MARK) - 1);
2210 ABoard.Expires := GMTToLocalDateTime(val);
2215 //! Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\8dX
\90V
\82·
\82é
2216 procedure TEditorForm.UpdateSamba(const AHost: String; value: Integer);
2220 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
2222 ini.WriteInteger('Setting', AHost, value);
2229 //!
\83T
\83\93\83o
\8dX
\90V
\82Ì
\83A
\83N
\83V
\83\87\83\93\82ÌUpdate
\83C
\83x
\83\93\83g
\81@
\8aÈ
\92P
\82Ì
\82½
\82ß
\83^
\83C
\83}
\81[
\82Æ
\93¯
\82¶
\82É
\82µ
\82Ä
\82¨
\82
2230 procedure TEditorForm.UpdateSambaActionUpdate(Sender: TObject);
2232 UpdateSambaAction.Enabled := Timer1.Enabled;
2235 //!
\83T
\83\93\83o
\8dX
\90V
\83A
\83N
\83V
\83\87\83\93
2236 procedure TEditorForm.UpdateSambaActionExecute(Sender: TObject);
2241 if InputQuery('Samba24
\90Ý
\92è
\92l
\8dX
\90V', '
\90V
\82µ
\82¢
\90Ý
\92è
\92l
\82ð
\93ü
\97Í
\82µ
\82Ä
\82
\82¾
\82³
\82¢', input) then begin
2242 input := ZenToHan(input);
2243 if GikoSys.IsNumeric(input) then begin
2244 UpdateSamba(FHost, StrToInt(input));
2245 //
\91S
\82Ä
\82Ì
\83t
\83H
\81[
\83\80\82©
\82ç
\81A
\93¯
\82¶
\83z
\83X
\83g
\82Ì
\83G
\83f
\83B
\83^
\82É
\93Ç
\82Ý
\8d\9e\82Ý
\8ew
\8e¦
2246 for i := 0 to Screen.FormCount - 1 do begin
2247 if Screen.Forms[i] is TEditorForm then begin
2248 if FHost = TEditorForm(Screen.Forms[i]).FHost then begin
2249 TEditorForm(Screen.Forms[i]).ReadSettingTime(FHost);
2254 ShowMessage('
\90\94\92l
\82ð
\93ü
\97Í
\82µ
\82Ä
\82
\82¾
\82³
\82¢');
2255 UpdateSambaActionExecute(Sender);
2260 procedure TEditorForm.InputAssistActionExecute(Sender: TObject);
2266 TextWidth, ItemWidth, tmpWidth: Integer;
2268 if FInputAssistKey = '' then Exit;
2270 InputAssistPopupMenu.Items.Clear;
2272 if (FResistWords = nil) then begin
2273 FResistWords := TStringList.Create;
2278 if (GetKeyState( VK_SHIFT ) < 0) then begin
2279 //
\83V
\83t
\83g
\82ª
\89\9f\82³
\82ê
\82Ä
\82¢
\82ê
\82Î
\81A
\83L
\81[
\82Å
\8en
\82Ü
\82é
\83J
\83e
\83S
\83\8a
2281 InputAssistDM.GetStartWithCategoryResistWords(
2282 FInputAssistKey, FResistWords);
2284 //
\83V
\83t
\83g
\82ª
\96³
\82¢
\82Ì
\82Å
\81A
\83L
\81[
\82Å
\8en
\82Ü
\82é
\83L
\81[
2286 InputAssistDM.GetStartWithKeyResistWords(
2287 FInputAssistKey, FResistWords);
2289 Bitmap := TBitmap.Create;
2291 Bitmap.Canvas.Font.Assign(BodyEdit.Font);
2292 //
\83}
\81[
\83W
\83\935px
2293 TextWidth := Bitmap.Canvas.TextWidth(FInputAssistKey) + 5;
2295 for i := 0 to count - 1 do begin
2296 item := TMenuItem.Create(nil);
2297 item.Break := mbNone;
2298 item.Caption := FResistWords[i];
2300 item.OnClick := InputAssistMenuClick;
2301 InputAssistPopupMenu.Items.Add(item);
2303 tmpWidth := Bitmap.Canvas.TextWidth(Item.Caption);
2304 if (tmpWidth > ItemWidth) then begin
2305 ItemWidth := tmpWidth;
2312 if (count > 0) then begin
2314 point.X := point.X + Self.Left + (Self.Width - BodyEdit.Width) div 2;
2315 point.Y := point.Y + Self.Top + (Self.Height - Self.ClientHeight);
2317 if Screen.DesktopWidth >
2318 (point.X + TextWidth + ItemWidth) then begin
2319 InputAssistPopupMenu.Popup(
2320 point.X + TextWidth,
2321 point.Y + EditorPage.Top + EditorPage.TabHeight + BodyEdit.Top);
2323 InputAssistPopupMenu.Popup(
2324 point.X - TextWidth - ItemWidth,
2325 point.Y + EditorPage.Top + EditorPage.TabHeight + BodyEdit.Top);
2330 procedure TEditorForm.InputAssistMenuClick(Sender: TObject);
2335 if not (Sender is TMenuItem) then Exit;
2337 if (FResistWords <> nil) then begin
2340 TResistWord(FResistWords.Objects[TMenuItem(Sender).Tag]).GetText;
2344 IMC := ImmGetContext(BodyEdit.Handle); //
\83R
\83\93\83e
\83L
\83X
\83g
\8eæ
\93¾
2346 ImmNotifyIME(IMC, NI_COMPOSITIONSTR, CPS_CANCEL, 0);
2348 ImmReleaseContext(BodyEdit.Handle, IMC); //
\83R
\83\93\83e
\83L
\83X
\83g
\89ð
\95ú
2352 FInputAssistKey := '';
2354 InsertText(BodyEdit, text);
2357 //! TMemo
\82Ì
\83J
\81[
\83\
\83\8b\88Ê
\92u
\82É
\95¶
\8e\9a\97ñ
\91}
\93ü
2358 procedure TEditorForm.InsertText(Memo: TMemo; Text: String);
2360 line, sel, pos: Integer;
2361 left, right : String;
2363 Memo.Lines.BeginUpdate;
2364 line := SendMessage(Memo.Handle,EM_LINEFROMCHAR,-1,0); //
\8ds
2365 sel := Memo.SelStart;
2366 pos := sel - SendMessage(Memo.Handle, EM_LINEINDEX, -1, 0); //
\8c\85
2367 if (pos > 0) then begin
2368 left := Copy(Memo.Lines[line], 0, pos);
2372 right := Copy(Memo.Lines[line], pos + 1, Length(Memo.Lines[line]));
2373 Memo.Lines.Strings[line] := left + Text + right;
2374 Memo.Lines.EndUpdate;
2375 //
\81@
\83L
\83\83\83\8c\83b
\83g
\82Ì
\88Ê
\92u
\82ð
\8dX
\90V
\82·
\82é
2376 Memo.SelStart := sel + Length(text);
2377 //
\83L
\83\83\83\8c\83b
\83g
\82Ì
\88Ê
\92u
\82Ü
\82Å
\83X
\83N
\83\8d\81[
\83\8b
2378 Memo.Perform(EM_SCROLLCARET, 0, 0);
2382 procedure TEditorForm.ApplicationEvents1Message(var Msg: tagMSG;
2383 var Handled: Boolean);
2390 if (Self.Active) then begin
2392 //
\83L
\81[
\89\9f\89º
\82Ì
\82Ý
\8eó
\82¯
\8eæ
\82é
2395 //
\83^
\83u
\82ª
\81h
\95Ò
\8fW
\81h
\82ÅCtrl
\83L
\81[
\82ª
\89\9f\82³
\82ê
\82Ä
\82¢
\82é
\82Ì
\82ð
\8am
\94F
\82·
\82é
2396 if (EditorPage.ActivePageIndex = 0)
2397 and (GetKeyState( VK_CONTROL ) < 0) then begin
2398 wmMsg.Msg := Msg.message;
2399 wmMsg.CharCode := Word(Msg.wParam);
2400 wmMsg.KeyData := Msg.lParam;
2401 if (wmMsg.CharCode = 229) and (wmMsg.KeyData = 3735553) then begin
2402 IMC := ImmGetContext(BodyEdit.Handle); //
\83R
\83\93\83e
\83L
\83X
\83g
\8eæ
\93¾
2403 Len := ImmGetCompositionString(IMC, GCS_COMPSTR, nil, 0); //
\82Ü
\82¸
\92·
\82³
\82ð
\8eæ
\93¾
2404 if (Len > 0) then begin
2405 SetLength(Str, Len + 1); //Buffer
\82Ì
\83\81\83\82\83\8a\82ð
\90Ý
\92è
2406 ImmGetCompositionString(IMC, GCS_COMPSTR, PChar(Str), Len + 1); //
\82Ü
\82¸
\92·
\82³
\82ð
\8eæ
\93¾
2407 SetLength(Str, Len);
2408 FInputAssistKey := Str;
2409 InputAssistActionExecute(nil);
2412 ImmReleaseContext(BodyEdit.Handle, IMC); //
\83R
\83\93\83e
\83L
\83X
\83g
\89ð
\95ú
2421 procedure TEditorForm.ShowInputAssistFormExecute(Sender: TObject);
2423 form : TInputAssistForm;
2425 form := TInputAssistForm.Create(nil);
2427 if TopAction.Checked then begin //
\83X
\83e
\83C
\8fó
\91Ô
\82É
\90Ý
\92è
2428 SetWindowPos(form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
2430 form.SetUpFromEditor;
2431 if (form.ShowModal = mrOk) then begin
2432 InsertText(BodyEdit, form.GetInsertText);
2438 //! Cookie
\8fî
\95ñ
\8dí
\8f\9c
2439 procedure TEditorForm.ReleaseCookieActionExecute(Sender: TObject);
2443 //
\83X
\83\8c\83b
\83h
\82ª
\96³
\82¢
\81@
\83X
\83\8c\97§
\82Ä
\82Ì
\82Æ
\82«
\82ÍFBoard
\82ð
\92¼
\90Ú
\8eg
\82¤
2444 if FThreadItem = nil then begin
2447 Board := FThreadItem.ParentBoard;
2450 //
\83N
\83b
\83L
\81[
\82Ì
\8fî
\95ñ
\82ð
\8eÌ
\82Ä
\82é
2454 // 0
\82É
\8aª
\82«
\96ß
\82·
2457 //!
\94Â
\8fî
\95ñ
\8eæ
\93¾Update
\83C
\83x
\83\93\83g
2458 procedure TEditorForm.GetSETTINGTXTActionUpdate(Sender: TObject);
2460 //
\8eÀ
\8ds
\92\86\82Í
\8eÀ
\8ds
\95s
\89Â
2461 GetSETTINGTXTAction.Enabled := not FWork;
2463 //!
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8eæ
\93¾Update
\83C
\83x
\83\93\83g
2464 procedure TEditorForm.GetHeadTXTActionUpdate(Sender: TObject);
2466 //
\8eÀ
\8ds
\92\86\82Í
\8eÀ
\8ds
\95s
\89Â
2467 GetSETTINGTXTAction.Enabled := not FWork;