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,
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;
48 NameBasePanel: TPanel;
51 NameComboBox: TComboBox;
52 MailComboBox: TComboBox;
54 SendToolButton: TToolButton;
55 OutBoxToolButton: TToolButton;
56 ToolButton5: TToolButton;
57 UndoToolButton: TToolButton;
58 CutToolButton: TToolButton;
59 CopyToolButton: TToolButton;
60 PasteToolButton: TToolButton;
61 ToolButton3: TToolButton;
62 TransToolButton: TToolButton;
63 TopToolButton: TToolButton;
65 IdAntiFreeze: TIdAntiFreeze;
66 ToolButton1: TToolButton;
67 ToolButton2: TToolButton;
68 ActionList: TActionList;
82 SageCheckBox: TCheckBox;
83 IdLogDebug: TIdLogDebug;
86 KotehanCheckBox: TCheckBox;
90 SelectAllAction: TAction;
92 SelectAll1: TMenuItem;
94 QuotePasteAction: TAction;
95 QuotePasteMenuItem: TMenuItem;
97 SpaceToNBSPAction: TAction;
98 AmpToCharRefAction: TAction;
99 SpaceTabnbsp1: TMenuItem;
101 BoardInformationTab: TTabSheet;
102 BoardtopTab: TTabSheet;
103 TitlePictureBrowser: TWebBrowser;
105 BoardInformationMemo: TMemo;
106 GetSETTINGTXTAction: TAction;
108 SETTINGTXT2: TMenuItem;
109 GetTitlePictureAction: TAction;
111 GetHeadTXTAction: TAction;
113 RocalRuleTab: TTabSheet;
114 WebBrowser1: TWebBrowser;
115 CalcCapacityAction: TAction;
118 LocalRule: TMenuItem;
121 LocalRuleBrowse: TMenuItem;
122 ToolButton4: TToolButton;
123 ToolButton6: TToolButton;
124 SaveNameMailAction: TAction;
125 ToolButton7: TToolButton;
126 BeLogInOutEAction: TAction;
128 procedure EditorPageChange(Sender: TObject);
129 procedure FormCreate(Sender: TObject);
130 procedure BrowserStatusTextChange(Sender: TObject;
131 const Text: WideString);
132 procedure FormClose(Sender: TObject; var Action: TCloseAction);
133 procedure FormDestroy(Sender: TObject);
134 procedure SendActionExecute(Sender: TObject);
135 procedure SaveActionExecute(Sender: TObject);
136 procedure AbortActionExecute(Sender: TObject);
137 procedure CloseActionExecute(Sender: TObject);
138 procedure UndoActionExecute(Sender: TObject);
139 procedure CutActionExecute(Sender: TObject);
140 procedure CopyActionExecute(Sender: TObject);
141 procedure PasteActionExecute(Sender: TObject);
142 procedure SendActionUpdate(Sender: TObject);
143 procedure SaveActionUpdate(Sender: TObject);
144 procedure CloseActionUpdate(Sender: TObject);
145 procedure UndoActionUpdate(Sender: TObject);
146 procedure CutActionUpdate(Sender: TObject);
147 procedure CopyActionUpdate(Sender: TObject);
148 procedure PasteActionUpdate(Sender: TObject);
149 procedure TopActionExecute(Sender: TObject);
150 procedure TopActionUpdate(Sender: TObject);
151 procedure SageCheckBoxClick(Sender: TObject);
152 procedure MailComboBoxChange(Sender: TObject);
153 procedure TransActionExecute(Sender: TObject);
154 procedure TransActionUpdate(Sender: TObject);
155 procedure IdLogDebugReceive(ASender: TIdConnectionIntercept;
157 procedure IdLogDebugSend(ASender: TIdConnectionIntercept;
159 procedure SelectAllActionExecute(Sender: TObject);
160 procedure StatusBarResize(Sender: TObject);
161 procedure Timer1Timer(Sender: TObject);
162 procedure FormActivate(Sender: TObject);
163 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
164 procedure QuotePasteActionExecute(Sender: TObject);
165 procedure SpaceToNBSPActionExecute(Sender: TObject);
166 procedure AmpToCharRefActionExecute(Sender: TObject);
167 procedure BoardTopClick(Sender: TObject);
168 procedure GetSETTINGTXTActionExecute(Sender: TObject);
169 procedure GetTitlePictureActionUpdate(Sender: TObject);
170 procedure GetTitlePictureActionExecute(Sender: TObject);
171 procedure GetHeadTXTActionExecute(Sender: TObject);
172 procedure CalcCapacityActionExecute(Sender: TObject);
173 procedure LocalRuleClick(Sender: TObject);
174 procedure FormDeactivate(Sender: TObject);
175 procedure LocalRuleBrowseClick(Sender: TObject);
176 procedure SaveNameMailActionExecute(Sender: TObject);
177 procedure BeLogInOutEActionExecute(Sender: TObject);
178 procedure BeLogInOutEActionUpdate(Sender: TObject);
180 FThreadItem: TThreadItem;
182 FNameComboEdit: THandle;
183 FMailComboEdit: THandle;
186 FStatusCode: Integer;
187 FDebugStrReceive: string;
188 FDebugStrSend: string;
189 FSambaTime: TDateTime;
192 FGestures : TGestureModel;
194 function RepHtml(s: string): string;
195 function Check: Boolean;
196 procedure SetNameList(sName, sMail: string);
197 // procedure Send(SendType: TGikoSendType; SPID: string; PON: string; FirstWriting: Boolean);
198 // procedure Send(SPID: string; PON: string; FirstWriting: Boolean);
199 procedure Send(ACOOKIE: string; SPID: string; PON: string; FirstWriting: Boolean);
201 function GetActiveControlHandle: THandle;
202 // function GetSendData: string;
203 // procedure GetSendData(Source: TStringStream);
204 procedure GetSendData(Source: TStringStream);
205 procedure SaveSendFile;
206 procedure SetContent(Content: string; ABrowser: TWebBrowser);
207 function GetResultType(ResponseText: string): TGikoResultType;
209 procedure ReadSambaTime(const AHost: string); overload;
210 procedure WriteSambaTime(const AHost: string; ATime: TDateTime); overload;
211 function ReadSettingTime(const AHost: string): Integer; overload;
212 function CheckSambaTime(const AHost: string; ATime: TDateTime): Boolean; overload;
213 procedure SetSamba24(AURL: string); overload;
215 //Samba
\82Ì
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
216 procedure ReadSambaTime(); overload;
217 //Samba
\82É
\8e\9e\8aÔ
\82ð
\8f\91\82«
\8d\9e\82Þ
218 procedure WriteSambaTime(ATime: TDateTime); overload;
219 //Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
220 function ReadSettingTime(): Integer ; overload;
221 //Samba
\82É
\88ø
\82Á
\82©
\82©
\82é
\82©
\8c\9f\8d¸
\82·
\82é
222 function CheckSambaTime(ATime: TDateTime): Boolean; overload;
223 //Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\8f\91\82«
\8d\9e\82Þ
224 procedure SetSamba24(); overload;
226 ///
\88ø
\97p
\95\84\82Ì
\8eæ
\93¾
227 function GetOEIndentChar : string;
228 ///
\96{
\95¶
\82Ì
\8eæ
\93¾
229 function GetBody : string;
230 //IdHttp
\82Ì
\8f\89\8aú
\89»
231 procedure InitIdHTTP(http: TIdHTTP);
232 procedure ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
233 function GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
234 procedure ShowTitlePicture();
235 function GetFusianaName(body: TStringList; ABoard: TBoard): String;
236 //!
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\8aJ
\8en
237 procedure OnGestureStart(Sender: TObject);
238 //!
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\92\86
239 procedure OnGestureMove(Sender: TObject);
240 //!
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\8fI
\97¹
241 procedure OnGestureEnd(Sender: TObject);
242 //HEAD.TXT
\8e©
\93®
\95\
\8e¦
243 procedure ShowBoardHead(ABoard: TBoard; AMemo: TMemo);
244 //LocalFusianaTrapAlart
245 function LFusianaGet(s: String): Boolean;
246 // Cookie
\82Ì
\8eæ
\93¾
247 procedure GetCookie(Rawtext: String; ABoard: TBoard);
249 procedure CreateParams(var Params: TCreateParams); override;
253 procedure SetThreadItem(Item: TThreadItem);
254 procedure SetBoard(Item: TBoard);
255 property BBSID: string read FBBSID write FBBSID;
262 Giko, ItemDownload, Gesture, IdGlobal;
264 CAPTION_NAME_NEW: string = '
\83M
\83R
\83i
\83r
\83X
\83\8c\97§
\82Ä
\83G
\83f
\83B
\83^';
265 CAPTION_NAME_RES: string = '
\83M
\83R
\83i
\83r
\83\8c\83X
\83G
\83f
\83B
\83^';
267 //
\83G
\83f
\83B
\83b
\83g
\83E
\83B
\83\93\83h
\83E
\82ð
\89E
\89º
\82É
\82¸
\82ç
\82µ
\82Ä
\8aJ
\82
\88Ú
\93®
\97Ê
271 //DAX
\82³
\82ñ±Ø¶ÞÄ!(
\81L
\81¤
\81M)
272 READCGI_ERR = '-ERR';
273 READCGI_INCR = '-INCR';
275 READCGI_PARTIAL = '+PARTIAL';
276 READCGI_ERR_FOUND_KAKO = '-ERR
\89ß
\8b\8e\83\8d\83O
\91q
\8cÉ
\82Å
\94
\8c©';
277 READCGI_ERR_NOT_HTML = '-ERR html
\89»
\91Ò
\82¿';
278 READCGI_ERR_NOT_FOUND = '-ERR
\82»
\82ñ
\82È
\94Âor
\83X
\83\8c\83b
\83h
\82È
\82¢
\82Å
\82·
\81B';
279 READCGI_ERR_ABONE = '-ERR
\82Ç
\82±
\82©
\82Å
\82 \82Ú
\81[
\82ñ
\82ª
\82 \82Á
\82½
\82Ý
\82½
\82¢
\82Å
\82·
\81B';
280 READCGI_ERR_TIMEOUT = '-ERR
\8ew
\92è
\8e\9e\8aÔ
\82ª
\89ß
\82¬
\82Ü
\82µ
\82½
\81B';
281 READCGI_ERR_CANTUSE = '-ERR
\82à
\82¤
\81@
\82Â
\82©
\82¦
\82Ü
\82¹
\82ñ';
282 RES2CH_TRUE = '<!-- 2ch_X:true -->';
283 RES2CH_FALSE = '<!-- 2ch_X:false -->';
284 RES2CH_ERROR = '<!-- 2ch_X:error -->';
285 RES2CH_CHECK = '<!-- 2ch_X:check -->';
286 RES2CH_COOKIE = '<!-- 2ch_X:cookie -->';
289 BBS2CH_NAME: string = '
\82Q
\82¿
\82á
\82ñ
\82Ë
\82é';
290 BBS2CH_LOG_FOLDER: string = '2ch';
291 EXTERNAL_LOG_FOLDER: string = 'exboard';
293 FOLDER_INI_FILENAME: string = 'Folder.ini';
294 FOLDER_INDEX_FILENAME: string = 'Folder.idx';
295 SUBJECT_FILENAME: string = 'subject.txt';
296 PATH_DELIM: string = '\';
301 StartPos, EndPos: Integer;
306 {constructor TEditorForm.Create(AOwner: TComponent; Item: TBoard);
308 inherited Create(AOwner);
311 procedure TEditorForm.CreateParams(var Params: TCreateParams);
314 if FormStyle in [fsNormal, fsStayOnTop] then
315 if BorderStyle in [bsSingle, bsSizeable] then begin
316 Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
317 Params.WndParent := 0;
321 {procedure TEditorForm.CreateParams(var Params: TCreateParams);
323 inherited CreateParams(Params);
324 Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
327 procedure TEditorForm.FormCreate(Sender: TObject);
329 wp: TWindowPlacement;
334 Browser.Navigate('about:blank');
335 TitlePictureBrowser.Navigate('about:blank');
339 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\88Ê
\92u
\90Ý
\92è
340 wp.length := sizeof(wp);
341 wp.rcNormalPosition.Top := GikoSys.Setting.EditWindowTop;
342 wp.rcNormalPosition.Left := GikoSys.Setting.EditWindowLeft;
344 wp.rcNormalPosition.Bottom := GikoSys.Setting.EditWindowTop + GikoSys.Setting.EditWindowHeight;
345 wp.rcNormalPosition.Right := GikoSys.Setting.EditWindowLeft + GikoSys.Setting.EditWindowWidth;
346 wp.showCmd := SW_HIDE;
347 SetWindowPlacement(Handle, @wp);
349 if GikoSys.Setting.EditWindowMax then
350 WindowState := wsMaximized;
352 //
\83E
\83B
\83\93\83h
\83E
\82ª
\89æ
\96Ê
\8aO
\82È
\82ç
\89æ
\96Ê
\93à
\82É
\88Ú
\93®
\82·
\82é
353 if (Left + Width) > Screen.Width then
354 // Left := Screen.Width - Width;
356 if (Top + Height) > Screen.Height then
357 // Top := Screen.Height - Height;
364 //
\8c»
\8dÝ
\82Ì
\83E
\83B
\83\93\83h
\83E
\82Ì
\88Ê
\92u
\82ð
\95Û
\91¶
365 GikoSys.Setting.EditWindowTop := Top + WINDOWMOVE_V; //
\8e\9f\82É
\8aJ
\82
\83E
\83B
\83\93\83h
\83E
\82Í
366 GikoSys.Setting.EditWindowLeft := Left + WINDOWMOVE_H; //
\81@
\81@
\81@
\89E
\8eÎ
\82ß
\89º
\82É
\82¸
\82ç
\82·
367 //
\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·
368 if GikoSys.Setting.EditWindowHeight < 144 then
370 if GikoSys.Setting.EditWindowWidth < 144 then
373 EditorPage.ActivePage := EditorTab;
374 FNameComboEdit := GetWindow(NameComboBox.Handle, GW_CHILD);
375 FMailComboEdit := GetWindow(MailComboBox.Handle, GW_CHILD);
376 NameComboBox.Items.Assign(GikoSys.Setting.NameList);
377 MailComboBox.Items.Assign(GikoSys.Setting.MailList);
382 hUser32 := LoadLibrary('User32.dll');
384 TransAction.Enabled := true
386 TransAction.Enabled := false;
388 TransAction.Enabled := false;
391 FreeLibrary(hUser32);
394 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\83X
\83e
\83C
\8fó
\91Ô
395 if GikoSys.Setting.EditWindowStay then begin //
\83X
\83e
\83C
\8fó
\91Ô
396 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
397 TopAction.Checked := true;
398 TopToolButton.Down := true;
399 end else begin //
\83X
\83e
\83C
\82µ
\82È
\82¢
400 SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
401 TopAction.Checked := false;
402 TopToolButton.Down := false;
405 //
\83E
\83B
\83\93\83h
\83E
\82Ì
\94¼
\93§
\96¾
\8fó
\91Ô
406 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Ô
408 TransAction.Checked := true;
409 TransToolButton.Down := true;
410 end else begin //
\95s
\93§
\96¾
412 TransAction.Checked := false;
413 TransToolButton.Down := false;
415 //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
416 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked;
418 SpaceToNBSPAction.Checked := GikoSys.Setting.SpaceToNBSP;
419 AmpToCharRefAction.Checked := GikoSys.Setting.AmpToCharRef;
421 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
424 BoardtopTab.TabVisible := ini.Readbool('EditorForm', 'BoardTopTab', False);
425 BoardTop.Checked := BoardtopTab.TabVisible;
426 RocalRuleTab.TabVisible := ini.ReadBool('EditorForm', 'LocalRuleTab', False);
427 LocalRule.Checked := RocalRuleTab.TabVisible;
432 //
\83}
\83E
\83X
\83W
\83F
\83X
\83`
\83\83\81[
\82Ì
\83C
\83\93\83X
\83g
\81[
\83\8b
433 if GikoSys.Setting.GestureEnabled then begin
435 FGestures := TGestureModel.Create;
436 FGestures.LoadGesture(
437 GikoSys.Setting.GetGestureFileName, ActionList );
438 MouseGesture.OnGestureStart := OnGestureStart;
439 MouseGesture.OnGestureMove := OnGestureMove;
440 MouseGesture.OnGestureEnd := OnGestureEnd;
441 MouseGesture.SetHook( Handle );
443 SaveNameMailAction.Checked := True;
446 procedure TEditorForm.SetBoard(Item: TBoard);
449 Caption := CAPTION_NAME_NEW + ' - [' + Item.Title + ']';
450 NameComboBox.Text := FBoard.KotehanName;
451 MailComboBox.Text := FBoard.KotehanMail;
452 SageCheckBox.Checked := AnsiPos('sage', MailComboBox.Text) <> 0;
453 TitlePanel.Visible := True;
454 SetSamba24(FBoard.URL);
455 ShowBoardInformation(FBoard, BoardInformationMemo);
459 procedure TEditorForm.SetThreadItem(Item: TThreadItem);
462 Caption := CAPTION_NAME_RES + ' - [' + FThreadItem.Title + ']';
463 NameComboBox.Text := FThreadItem.ParentBoard.KotehanName;
464 MailComboBox.Text := FThreadItem.ParentBoard.KotehanMail;
465 SageCheckBox.Checked := AnsiPos('sage', MailComboBox.Text) <> 0;
466 TitlePanel.Visible := False;
467 SetSamba24(FThreadItem.ParentBoard.URL);
468 ShowBoardInformation(FThreadItem.ParentBoard, BoardInformationMemo);
472 function TEditorForm.GetBody : string;
481 body := BodyEdit.Text;
482 if AmpToCharRefAction.Checked then
483 // &
\82Ì
\92u
\8a·
\82Í
\88ê
\94Ô
\8dÅ
\8f\89\82É
\82â
\82é
\82±
\82Æ
484 body := CustomStringReplace( body, '&', '&' );
485 if SpaceToNBSPAction.Checked then begin
487 tail := p + Length( body );
489 while p < tail do begin
496 tmp := tmp + ' ';
497 until (len mod TAB_LENGTH) = 0;
502 tmp := tmp + p^; Inc( p );
508 tmp := tmp + ' ';
514 //
\8eÀ
\91Ì
\8eQ
\8fÆ
\82Í 1
\95¶
\8e\9a\95ª
519 while p < tail do begin
520 if p^ in ['a'..'z', 'A'..'Z', '0'..'9', '#'] then begin
522 end else if p^ = ';' then begin
534 if p^ in kYofKanji then begin
535 tmp := tmp + p^; Inc( p );
536 tmp := tmp + p^; Inc( p );
539 tmp := tmp + p^; Inc( p );
551 procedure TEditorForm.SetFont;
553 BodyEdit.Font.Name := GikoSys.Setting.EditorFontName;
554 BodyEdit.Font.Size := GikoSys.Setting.EditorFontSize;
555 BodyEdit.Font.Color := GikoSys.Setting.EditorFontColor;
556 BodyEdit.Color := GikoSys.Setting.EditorBackColor;
559 procedure TEditorForm.Preview;
572 if FThreadItem = nil then begin
574 Title := RepHtml(TitleEdit.Text);
576 No := IntToStr(FThreadItem.Count + 1);
577 Title := RepHtml(FThreadItem.Title);
581 Namae := RepHtml(NameComboBox.Text);
582 Mail := RepHtml(MailComboBox.Text);
583 Body := RepHtml(body);
584 Body := StringReplace(Body, #13#10, '<br>', [rfReplaceAll]);
585 DateTime := FormatDateTime('yyyy/mm/dd(aaa) hh:nn', now);
587 if Trim(Namae) = '' then
588 Namae := '
\96¼
\96³
\82µ
\82³
\82ñ';
590 s := '<HTML><HEAD>' + #13#10
591 + '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">' + #13#10
592 + '<TITLE>' + title + '</TITLE>' + #13#10
593 // + '<STYLE><!--BODY{font-size : 9pt;font-family : "
\82l
\82r
\82o
\83S
\83V
\83b
\83N";}--></STYLE>' + #13#10
595 + '<BODY text="#000000" bgcolor="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' + #13#10
596 + '<FONT COLOR="#FF0000">' + title + '</FONT>' + #13#10
598 posTrip := AnsiPos( '#', Namae );
601 tripOrigin := Copy( Namae, posTrip + 1, Length( Namae ) );
603 Copy( Namae, 1, posTrip - 1 ) + '</B>
\81\9f' +
604 get_2ch_trip( PChar( tripOrigin ) ) + '<B>';
607 s := s + '<DT>' + No + '
\81F <FONT color="forestgreen"><B>' + Namae + '</B></FONT>
\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10
609 s := s + '<DT>' + No + '
\81F <A href="mailto:' + Mail + '"><B>' + Namae + '</B></A> [' + Mail + ']
\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10;
610 s := s + '</BODY></HTML>';
611 SetContent(s, Browser);
614 function TEditorForm.RepHtml(s: string): string;
616 // s := StringReplace(s, '&', '&', [rfReplaceAll]);
617 s := StringReplace(s, '<', '<', [rfReplaceAll]);
618 s := StringReplace(s, '>', '>', [rfReplaceAll]);
619 // s := StringReplace(s, ' ', ' ', [rfReplaceAll]); //
\8ed
\97l
\95Ï
\8dX
\82É
\82æ
\82è
\8eg
\97p
\95s
\89Â
620 s := StringReplace(s, '"', '"', [rfReplaceAll]);
624 procedure TEditorForm.EditorPageChange(Sender: TObject);
628 if FThreadItem = nil then
631 tmpBoard := FThreadItem.ParentBoard;
633 if tmpBoard = nil then Exit;
635 if EditorPage.ActivePage = PreviewTab then begin
637 end else if EditorPage.ActivePage = RocalRuleTab then begin
638 if not FileExists(tmpBoard.GETHEADTXTFileName) then begin
639 LocalEdit.Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\96¢
\8eæ
\93¾';
642 ShowBoardHead(tmpBoard, LocalEdit);
644 Browser.Navigate('about:blank');
648 procedure TEditorForm.BrowserStatusTextChange(Sender: TObject;
649 const Text: WideString);
651 if EditorPage.ActivePage = PreviewTab then begin
652 StatusBar.Panels[0].Text := Text;
654 StatusBar.Panels[0].Text := '';
658 function TEditorForm.Check: Boolean;
665 if FThreadItem = nil then
668 Board := FThreadItem.ParentBoard;
670 if (not GikoSys.Setting.UseMachineTime) and
671 ((Board.LastGetTime = 0) or
672 (Board.LastGetTime = ZERO_DATE)) then begin
673 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
674 + '
\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¢';
675 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
677 end else if BodyEdit.Text = '' then begin
678 Msg := '
\96{
\95¶
\82ª
\93ü
\97Í
\82³
\82ê
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B';
679 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
681 end else if (FBoard <> nil) and (Trim(TitleEdit.Text) = '') then begin
682 Msg := '
\83^
\83C
\83g
\83\8b\82ª
\93ü
\97Í
\82³
\82ê
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B';
683 MsgBox(Handle, Msg, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
686 if (not GikoSys.Dolib.Connected) and (AnsiPos('
\81\9c', NameComboBox.Text) <> 0) then begin
687 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
688 + '
\82±
\82Ì
\82Ü
\82Ü
\91\97\90M
\82µ
\82Ä
\82à
\82æ
\82ë
\82µ
\82¢
\82Å
\82·
\82©
\81H';
689 rc := MsgBox(Handle, Msg, '
\8am
\94F', MB_YESNO or MB_ICONQUESTION);
690 Result := (rc = IDYES);
695 procedure TEditorForm.FormClose(Sender: TObject; var Action: TCloseAction);
700 procedure TEditorForm.FormDestroy(Sender: TObject);
702 wp: TWindowPlacement;
704 //
\8dÅ
\91å
\89»
\81E
\83E
\83B
\83\93\83h
\83E
\88Ê
\92u
\95Û
\91¶
705 wp.length := sizeof(wp);
706 GetWindowPlacement(Handle, @wp);
708 GikoSys.Setting.EditWindowTop := wp.rcNormalPosition.Top;
709 GikoSys.Setting.EditWindowLeft := wp.rcNormalPosition.Left;
710 GikoSys.Setting.EditWindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
711 GikoSys.Setting.EditWindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
712 GikoSys.Setting.EditWindowMax := WindowState = wsMaximized;
713 //GikoSys.Setting.EditWindowStay := FormStyle = fsStayOnTop; //
\83X
\83e
\83C
\8fó
\91Ô
\82Ì
\95Û
\91¶
714 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked; //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
720 procedure TEditorForm.SetNameList(sName, sMail: string);
722 if SaveNameMailAction.Checked then begin
723 if Trim(sName) <> '' then begin
724 if GikoSys.Setting.NameList.IndexOf(sName) = -1 then
725 GikoSys.Setting.NameList.Insert(0, sName);
727 if Trim(sMail) <> '' then begin
728 if GikoSys.Setting.MailList.IndexOf(sMail) = -1 then
729 GikoSys.Setting.MailList.Insert(0, sMail);
734 function TEditorForm.GetActiveControlHandle: THandle;
736 if EditorPage.ActivePage = EditorTab then begin
737 if ActiveControl = NameComboBox then
738 Result := FNameComboEdit
739 else if ActiveControl = MailComboBox then
740 Result := FMailComboEdit
741 else if ActiveControl = BodyEdit then
742 Result := BodyEdit.Handle
743 else if ActiveControl = TitleEdit then
744 Result := TitleEdit.Handle
747 end else if Editorpage.ActivePage = BoardInformationTab then begin
748 if ActiveControl = BoardInformationMemo then
749 Result := BoardInformationMemo.Handle
752 end else if Editorpage.ActivePage = RocalRuleTab then begin
753 if ActiveCOntrol = LocalEdit then
754 Result := LocalEdit.Handle
761 procedure TEditorForm.SetContent(Content: string; ABrowser: TWebBrowser);
765 if ABrowser.Document <> nil then begin
766 doc := Idispatch( olevariant(ABrowser.ControlInterface).Document) as IHTMLDocument2;
769 doc.charset := 'Shift_JIS';
774 procedure TEditorForm.InitIdHTTP(http: TIdHTTP);
777 http.ProxyParams.BasicAuthentication := False;
778 if GikoSys.Setting.WriteProxy then begin
779 http.ProxyParams.ProxyServer := GikoSys.Setting.WriteProxyAddress;
780 http.ProxyParams.ProxyPort := GikoSys.Setting.WriteProxyPort;
781 http.ProxyParams.ProxyUsername := GikoSys.Setting.WriteProxyUserID;
782 http.ProxyParams.ProxyPassword := GikoSys.Setting.WriteProxyPassword;
783 if GikoSys.Setting.ReadProxyUserID <> '' then
784 http.ProxyParams.BasicAuthentication := True;
786 http.ProxyParams.ProxyServer := '';
787 http.ProxyParams.ProxyPort := 80;
788 http.ProxyParams.ProxyUsername := '';
789 http.ProxyParams.ProxyPassword := '';
791 Indy.Request.UserAgent := GikoSys.GetUserAgent;
792 Indy.Request.AcceptEncoding := '';
795 procedure TEditorForm.Send(ACOOKIE: string; SPID: string; PON: string; FirstWriting: Boolean);
797 TextStream: TStringStream;
798 Source: TStringStream;
799 ResponseText: string;
802 State: TGikoDownloadState;
803 ResultType: TGikoResultType;
808 //fusianasan
\83g
\83\89\83b
\83v by
\92è
\8aú
\95Ö
813 tmpRawheader: string;
814 {Protocol,Host, Path, Document, Port, Bookmark : String;}
818 Namae := RepHtml(NameComboBox.Text);
819 if FThreadItem = nil then
822 Board := FThreadItem.ParentBoard;
827 if FThreadItem = nil then begin
828 URL := FBoard.GetSendURL;
829 RefURL := GikoSys.UrlToServer(FBoard.URL) + 'test/bbs.cgi';
831 URL := FThreadItem.GetSendURL;
832 RefURL := FThreadItem.URL;
834 // Indy.Request.UserAgent := GikoSys.GetUserAgent;
835 Indy.Request.Referer := RefURL;
836 // Indy.Request.AcceptEncoding := '';
839 if ACOOKIE <> '' then
842 Cookie := Cookie + 'SPID=' + SPID + '; ';
844 Cookie := Cookie + 'PON=' + PON + '; ';
846 //
\83z
\83X
\83g
\82ª2ch
\82Å
\81ABe
\82ÉLogin
\82µ
\82Ä
\82¢
\82ê
\82ÎBE
\82Ì
\83f
\81[
\83^
\82ð
\91\97\82é
847 //GikoSys.ParseURI( URL, Protocol,Host, Path, Document, Port, Bookmark );
848 //if GikoSys.Is2chHost(Host) and GikoSys.Setting.BeLogin then
849 if (Board.Is2ch) and (GikoSys.Setting.BeLogin) then
850 Cookie := Cookie + 'MDMD=' + GikoSys.Setting.BeCode + '; '
851 + 'DMDM=' + GikoSys.Setting.BeUserID + '; ';
852 Cookie := 'Cookie: ' + Cookie + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text;
854 sysMenu := GetSystemMenu( Handle, false );
855 EnableMenuItem( sysMenu, SC_CLOSE, MF_GRAYED );
857 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
860 Indy.Request.CustomHeaders.Clear;
861 // Indy.Request.CacheControl := 'no-cache';
862 Indy.Request.CustomHeaders.Add('Pragma: no-cache');
863 Indy.Request.AcceptLanguage := 'ja';
864 Indy.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';
865 Indy.Request.ContentType := 'application/x-www-form-urlencoded';
866 Indy.Request.CustomHeaders.Add(Cookie);
867 TextStream := TStringStream.Create('');
868 Source := TStringStream.Create('');
871 FDebugStrReceive := '';
874 IdAntiFreeze.Active := True;
876 Indy.Post(URL, Source, TextStream);
878 IdAntiFreeze.Active := False;
880 ResponseText := TextStream.DataString;
882 ResultType := GetResultType(ResponseText);
884 //MsgResult
\8f\89\8aú
\89»
886 //
\83t
\83V
\83A
\83i
\83g
\83\89\83b
\83v
\8cx
\8d\90(LocalMode) by
\92è
\8aú
\95Ö
887 if GikoSys.Setting.LocalTrapAtt then begin
888 if LFusianaGet(Namae) then begin
891 '
\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 +
892 '
\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 +
893 '
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
895 MB_YESNO or MB_ICONQUESTION);
896 if MsgResult = IDNO then begin
900 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
905 if ((Namae = '
\8eR
\8dè
\8fÂ') or (Namae = 'fusianasan')) then begin
908 '
\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 +
909 '
\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 +
910 '
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
912 MB_YESNO or MB_ICONQUESTION);
913 if MsgResult = IDNO then begin
917 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
924 if GikoSys.Setting.RemoteTrapAtt then begin
925 if FThreadItem = nil then
928 ABoard := FThreadItem.ParentBoard;
930 if ABoard = nil then Exit;
932 if FileExists(ABoard.GetSETTINGTXTFileName) then begin
933 body := TStringList.Create;
935 body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
936 Remote := GetFusianaName(body, ABoard);
942 //Setting.txt
\82ª
\82È
\82©
\82Á
\82½
\82ç
\8eæ
\93¾
943 //
\8eI
\82É
\95\89\89×
\82ª
\82©
\82©
\82è
\82»
\82¤
\82Å
\95|
\82¢
\81E
\81E
\81E
944 if not FileExists(ABoard.GetSETTINGTXTFileName) then begin
945 //GetSETTINGTXTAction
\82ð
\8cÄ
\82Ñ
\8fo
\82·
\82ÆIndy
\82ª
\8f\89\8aú
\89»
\82³
\82ê
\82é
\82Ì
\82Å
\81A
946 //
\82±
\82±
\82ÅCookie
\82ð
\95Û
\91¶
\82µ
\82È
\82
\82Ä
\82Í
\82¢
\82¯
\82È
\82¢
947 tmpRawheader := Indy.Response.RawHeaders.Text;
948 GetSETTINGTXTAction.Execute;
949 body := TStringList.Create;
951 body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
952 Remote := GetFusianaName(body, ABoard);
958 if Remote = 'fusianasan' then begin
961 '
\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 +
962 '
\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 +
963 '
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
965 MB_YESNO or MB_ICONQUESTION);
966 if MsgResult = IDNO then begin
970 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
977 if ResultType = grtOK then begin
978 if GikoSys.Setting.UseSamba then
979 WriteSambaTime(FHost, Now());
980 State := gdsComplete;
981 end else if ResultType = grtCookie then begin
982 //
\83\8b\81[
\83v
\96h
\8e~
983 if not FirstWriting then
984 raise Exception.Create('');
987 '
\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 +
988 '
\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 +
989 '
\91S
\90Ó
\94C
\82ð
\95\89\82¤
\82±
\82Æ
\82ð
\8f³
\91ø
\82µ
\82Ä
\8f\91\82«
\8d\9e\82Ý
\82Ü
\82·
\82©
\81H',
991 MB_YESNO or MB_ICONQUESTION);
992 if MsgResult = IDYES then begin
993 if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin
994 GetCookie(tmpRawheader, Board);
996 GetCookie(Indy.Response.RawHeaders.Text, Board);
998 if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
999 raise Exception.Create('');
1000 //
\82à
\82¤
\88ê
\89ñ
\82±
\82Ì
\83\81\83\
\83b
\83h
1001 Send(Board.Cookie, Board.SPID, Board.PON, False);
1007 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
1008 DrawMenuBar(Handle);
1011 end else if ResultType = grtCheck then begin
1013 //
\83\8b\81[
\83v
\96h
\8e~
1014 if not FirstWriting then
1015 raise Exception.Create('');
1017 MsgResult := MsgBox(
1019 '
\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 +
1020 '
\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 +
1021 '
\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 +
1022 '
\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 +
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);
1028 if MsgResult = IDYES then begin
1029 if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin
1030 GetCookie(tmpRawheader, Board);
1032 GetCookie(Indy.Response.RawHeaders.Text, Board);
1034 if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
1035 raise Exception.Create('');
1036 Send(Board.Cookie, Board.SPID, Board.PON, False);
1039 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
1040 DrawMenuBar(Handle);
1047 if GikoSys.Setting.UseSamba then
1048 WriteSambaTime(FHost, Now());
1050 raise Exception.Create('');
1054 on E: EIdConnectException do begin
1056 ResponseText := '<html><body>'
1057 + '<div>
\90Ú
\91±
\82ª
\8e¸
\94s
\82µ
\82Ü
\82µ
\82½<br>'
1058 + '
\89ñ
\90ü
\82â
\83v
\83\8d\83L
\83V
\82Ì
\8fó
\91Ô
\82ð
\92²
\82×
\82Ä
\82
\82¾
\82³
\82¢<br></div>'
1059 + '<br><br><div>' + E.Message + '</div>'
1062 on E: Exception do begin
1065 FDebugStrReceive := AnsiReplaceText(FDebugStrReceive, '<', '<');
1066 FDebugStrReceive := AnsiReplaceText(FDebugStrReceive, '>', '>');
1067 FDebugStrSend := AnsiReplaceText(FDebugStrSend, '<', '<');
1068 FDebugStrSend := AnsiReplaceText(FDebugStrSend, '>', '>');
1070 ResponseText := '<html><body>' + TextStream.DataString;
1071 ResponseText := AnsiReplaceText(ResponseText, '</body>', '');
1072 ResponseText := AnsiReplaceText(ResponseText, '</html>', '');
1073 ResponseText := ResponseText + '<hr><div align="left"><pre>';
1074 ResponseText := ResponseText + '<b>
\82±
\82±
\82©
\82ç
\83M
\83R
\83i
\83r
\82Ì
\8fî
\95ñ</b>'#13#10;
1075 ResponseText := ResponseText + #13#10'
\81\9c\91\97\90M'#13#10;
1076 ResponseText := ResponseText + FDebugStrSend;
1077 ResponseText := ResponseText + #13#10'
\81\9c\8eó
\90M'#13#10;
1078 ResponseText := ResponseText + FDebugStrReceive;
1079 ResponseText := ResponseText + '</pre></div></body></html>';
1082 FStatusCode := Indy.ResponseCode;
1088 //sysMenu := GetSystemMenu( Handle, true );
1089 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
1090 DrawMenuBar(Handle);
1093 //
\94ñ
\8cö
\8e®
\83M
\83R
\83i
\83r
\94Â
\82È
\82Ç
\82Ì
\83X
\83N
\83\8a\83v
\83g
\97p
1094 //ResponceCode
\82ª302Found
\82Å
\8f\91\82«
\8d\9e\82Ý
\8a®
\97¹
1095 if FStatusCode = 302 then begin
1096 GikoForm.PlaySound('ResEnd');
1098 if FThreadItem = nil then
1099 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
1101 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
1105 if State = gdsComplete then begin
1106 GikoForm.PlaySound('ResEnd');
1108 if FThreadItem = nil then
1109 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
1111 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
1113 end else if State = gdsError then begin
1114 if FThreadItem = nil then
1115 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
1117 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
1119 EditorPage.ActivePage := PreviewTab;
1120 SetContent(ResponseText, Browser);
1121 end else if State = gdsAbort then begin
1122 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiSAD);
1126 function TEditorForm.GetResultType(ResponseText: string): TGikoResultType;
1128 if AnsiPos('
\8f\91\82«
\82±
\82Ý
\82ª
\8fI
\82í
\82è
\82Ü
\82µ
\82½', ResponseText) <> 0 then
1130 else if (AnsiPos('
\83N
\83b
\83L
\81[
\82ª
\82È
\82¢
\82©
\8aú
\8cÀ
\90Ø
\82ê
\82Å
\82·', ResponseText) > 0) or
1131 (AnsiPos('<title>
\83N
\83b
\83L
\81[
\8am
\94F
\81I</title>', ResponseText) > 0) or
1132 (AnsiPos('<title>
\81¡
\83N
\83b
\83L
\81[
\8am
\94F
\81I
\81¡</title>', ResponseText) > 0) or
1133 //(AnsiPos('
\83N
\83b
\83L
\81[
\8am
\94F', ResponseText) > 0) or
1134 (AnsiPos(RES2CH_COOKIE, ResponseText) > 0) then
1136 else if (AnsiPos('<font size=+2 color=#FF0000>
\8f\91\82«
\8d\9e\82Ý
\83`
\83F
\83b
\83N
\81I </font>', ResponseText) > 0) or
1137 (AnsiPos('<title>
\81¡
\8f\91\82«
\8d\9e\82Ý
\8am
\94F
\82µ
\82Ü
\82·
\81¡</title>', ResponseText) > 0) or
1138 (AnsiPos('<title>
\93\8a\8de
\8am
\94F</title>', ResponseText) > 0) or
1139 (AnsiPos('<b>
\8f\91\82«
\82±
\82Ý
\8am
\94F</b>', ResponseText) > 0) or
1140 (AnsiPos('="../test/subbbs.cgi">', ResponseText) > 0) or
1141 (AnsiPos(RES2CH_FALSE, ResponseText) > 0) then
1143 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
1144 (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
1151 procedure TEditorForm.GetSendData(Source: TStringStream);
1160 if FThreadItem = nil then
1163 Board := FThreadItem.ParentBoard;
1165 if GikoSys.Setting.UseMachineTime then begin
1166 if GikoSys.Setting.TimeAdjust then
1167 Adjust := Gikosys.Setting.TimeAdjustSec
1169 Adjust := GikoSys.Setting.TimeAdjustSec * -1;
1170 SendTime := GikoSys.DateTimeToInt(Now) - (9 * 60 * 60) + Adjust
1172 if (Board.LastGetTime = 0) or (Board.LastGetTime = ZERO_DATE) then
1173 SendTime := GikoSys.DateTimeToInt(Now)
1175 SendTime := GikoSys.DateTimeToInt(Board.LastGetTime);
1180 SessionID := GikoSys.Dolib.SessionID;
1181 if SessionID <> '' then
1182 s := 'sid=' + HttpEncode(SessionID) + '&'
1185 s := s + 'subject=&'
1186 + 'FROM=' + HttpEncode(NameComboBox.Text) + '&'
1187 + 'mail=' + HttpEncode(MailComboBox.Text) + '&'
1188 + 'MESSAGE=' + HttpEncode(body) + '&'
1189 + 'bbs=' + Board.BBSID + '&'
1190 + 'time=' + IntToStr(SendTime) + '&';
1191 if FThreadItem = nil then begin
1192 s := s + 'subject=' + HttpEncode(TitleEdit.Text) + '&';
1193 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;
1195 s := s + 'key=' + ChangeFileExt(FThreadItem.FileName, '') + '&';
1196 s := s + 'submit=' + HttpEncode('
\8f\91\82«
\8d\9e\82Þ') + #13#10;
1198 Source.WriteString(s);
1201 procedure TEditorForm.SaveSendFile;
1206 ini := TMemIniFile.Create(GikoSys.GetSentFileName);
1208 sDate := IntToStr(GikoSys.DateTimeToInt(Now));
1210 ini.WriteString(sDate, 'Name', NameComboBox.Text);
1211 ini.WriteString(sDate, 'EMail', MailComboBox.Text);
1212 ini.WriteString(sDate, 'Body', HttpEncode(BodyEdit.Text));
1213 ini.WriteInteger(sDate, 'Status', FStatusCode);
1214 ini.WriteDateTime(sDate, 'Date', Now);
1215 if FThreadItem = nil then begin
1216 ini.WriteString(sDate, 'Title', TitleEdit.Text);
1217 ini.WriteString(sDate, 'BBS', FBoard.BBSID);
1218 ini.WriteInteger(sDate, 'NewThread', 1);
1220 ini.WriteString(sDate, 'Title', FThreadItem.Title);
1221 ini.WriteString(sDate, 'BBS', FThreadItem.ParentBoard.BBSID);
1222 ini.WriteString(sDate, 'Key', ChangeFileExt(FThreadItem.FileName, ''));
1231 procedure TEditorForm.SendActionExecute(Sender: TObject);
1236 state : TGikoDownloadState;
1243 SendAction.Enabled := False;
1244 Application.ProcessMessages;
1245 if not Check then Exit;
1247 if FThreadItem = nil then
1250 Board := FThreadItem.ParentBoard;
1252 if FThreadItem = nil then begin
1253 rc := GikoUtil.MsgBox(Handle,
1254 '
\81u' + Board.Title + '
\81v
\94Â
\82É
\90V
\82µ
\82¢
\83X
\83\8c\83b
\83h
\97§
\82Ä
\82Ü
\82·'#13#10#13#10
1255 + '
\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
1256 + '
\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
1257 + '
\81u
\82Í
\82¢
\81v
\82ð
\89\9f\82·
\82Æ
\91\97\90M
\82µ
\82Ü
\82·',
1259 MB_ICONQUESTION or MB_YESNO);
1260 if rc <> ID_YES then
1264 SetNameList(NameComboBox.Text, MailComboBox.Text);
1265 if (KotehanCheckBox.Enabled) and (KotehanCheckBox.Checked) then begin
1266 Board.KotehanName := NameComboBox.Text;
1267 Board.KotehanMail := MailComboBox.Text;
1270 if Board.IsBoardPlugInAvailable then begin
1273 if FThreadItem = nil then begin
1274 //
\83X
\83\8c\97§
\82Ä
1275 state := TGikoDownloadState( Board.BoardPlugIn.CreateThread(
1276 DWORD( Board ), TitleEdit.Text, NameComboBox.Text, MailComboBox.Text, body ) );
1278 if state = gdsComplete then begin
1279 GikoForm.PlaySound('ResEnd');
1281 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK);
1284 end else if State = gdsError then begin
1285 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureError)), nil, gmiNG);
1286 end else if State = gdsAbort then begin
1287 GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiNG);
1291 state := TGikoDownloadState( FThreadItem.ParentBoard.BoardPlugIn.WriteThread(
1292 DWORD( FThreadItem ), NameComboBox.Text, MailComboBox.Text, body ) );
1294 if state = gdsComplete then begin
1295 GikoForm.PlaySound('ResEnd');
1297 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
1300 end else if State = gdsError then begin
1301 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmResError)), nil, gmiOK);
1302 end else if State = gdsAbort then begin
1303 GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);
1307 if not Timer1.Enabled then begin
1308 if CompareDateTime(Board.Expires ,Now) <= 0 then begin
1313 Send(Board.Cookie, Board.SPID, Board.PON, True);
1315 if not CheckSambaTime(FHost, Now()) then begin
1316 rc := GikoUtil.MsgBox(Handle,
1317 '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
1318 + '
\91\97\90M
\82ð
\92\86\8e~
\82µ
\82Ü
\82·
\82©
\81H' + #13#10
1319 + '(
\81u
\82¢
\82¢
\82¦
\81v
\82¾
\82Æ
\91\97\90M
\82µ
\82Ü
\82·)', 'Samba24
\8cx
\8d\90',
1320 MB_YESNO or MB_ICONQUESTION);
1321 if rc = IDYES then begin
1325 if rc = IDNO then begin
1326 rc2 := GikoUtil.MsgBox(Handle,
1327 '
\96{
\93\96\82É
\91\97\90M
\82µ
\82Ü
\82·
\82©
\81H',
1328 'Sumba24
\8cx
\8d\90',
1329 MB_YESNO or MB_ICONQUESTION);
1330 if rc2 = IDNO then begin
1336 if CompareDateTime(Board.Expires ,Now) <= 0 then begin
1341 Send(Board.Cookie, Board.SPID, Board.PON, True);
1346 if Timer1.Enabled then
1347 ReadSambaTime(FHost);
1351 procedure TEditorForm.SaveActionExecute(Sender: TObject);
1356 procedure TEditorForm.CloseActionExecute(Sender: TObject);
1361 procedure TEditorForm.UndoActionExecute(Sender: TObject);
1363 SendMessage(GetActiveControlHandle, WM_UNDO, 0, 0);
1366 procedure TEditorForm.CutActionExecute(Sender: TObject);
1368 SendMessage(GetActiveControlHandle, WM_CUT, 0, 0);
1371 procedure TEditorForm.CopyActionExecute(Sender: TObject);
1373 SendMessage(GetActiveControlHandle, WM_COPY, 0, 0);
1376 procedure TEditorForm.PasteActionExecute(Sender: TObject);
1378 SendMessage(GetActiveControlHandle, WM_PASTE, 0, 0);
1381 procedure TEditorForm.SelectAllActionExecute(Sender: TObject);
1383 SendMessage(GetActiveControlHandle, EM_SETSEL, 0, GetWindowTextLength(GetActiveControlHandle));
1386 procedure TEditorForm.TopActionExecute(Sender: TObject); //
\83E
\83B
\83\93\83h
\83E
\8dÅ
\91O
\96Ê(Stay)
\83{
\83^
\83\93\82Ì
\8f\88\97\9d
1388 if not (fsShowing in Self.FormState) then begin
1389 if TopAction.Checked then begin //
\83X
\83e
\83C
\8fó
\91Ô
\82É
\90Ý
\92è
1390 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
1391 GikoSys.Setting.EditWindowStay := true;
1392 end else begin //
\83X
\83e
\83C
\8fó
\91Ô
\89ð
\8f\9c
1393 SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
1394 GikoSys.Setting.EditWindowStay := false;
1396 //
\83X
\83e
\83C
\8fó
\91Ô
\82Ì
\95Û
\91¶
1397 //GikoSys.Setting.EditWindowStay := FormStyle = fsStayOnTop;
1401 procedure TEditorForm.AbortActionExecute(Sender: TObject);
1406 procedure TEditorForm.SendActionUpdate(Sender: TObject);
1408 SendAction.Enabled := not FWork;
1411 procedure TEditorForm.SaveActionUpdate(Sender: TObject);
1413 SaveAction.Enabled := False;
1416 procedure TEditorForm.CloseActionUpdate(Sender: TObject);
1418 CloseAction.Enabled := not FWork;
1421 procedure TEditorForm.UndoActionUpdate(Sender: TObject);
1423 UndoAction.Enabled := (GetActiveControlHandle <> 0)
1424 and (SendMessage(GetActiveControlHandle, EM_CANUNDO, 0, 0) <> 0)
1428 procedure TEditorForm.CutActionUpdate(Sender: TObject);
1430 Selection: TSelection;
1433 AHandle := GetActiveControlHandle;
1434 SendMessage(AHandle, EM_GETSEL, Longint(@Selection.StartPos), Longint(@Selection.EndPos));
1435 CutAction.Enabled := (AHandle <> 0)
1436 and ((Selection.EndPos - Selection.StartPos) <> 0)
1440 procedure TEditorForm.CopyActionUpdate(Sender: TObject);
1442 Selection: TSelection;
1445 AHandle := GetActiveControlHandle;
1446 SendMessage(AHandle, EM_GETSEL, Longint(@Selection.StartPos), Longint(@Selection.EndPos));
1447 CopyAction.Enabled := (AHandle <> 0)
1448 and ((Selection.EndPos - Selection.StartPos) <> 0)
1452 procedure TEditorForm.PasteActionUpdate(Sender: TObject);
1454 PasteAction.Enabled := (GetActiveControlHandle <> 0)
1455 and (Clipboard.HasFormat(CF_TEXT))
1459 procedure TEditorForm.TopActionUpdate(Sender: TObject);
1461 TopAction.Enabled := not FWork;
1464 procedure TEditorForm.SageCheckBoxClick(Sender: TObject);
1466 if SageCheckBox.Checked then begin
1467 if AnsiPos('sage', MailComboBox.Text) = 0 then
1468 MailComboBox.Text := 'sage' + MailComboBox.Text;
1470 if AnsiPos('sage', MailComboBox.Text) <> 0 then
1471 MailComboBox.Text := StringReplace(MailComboBox.Text, 'sage', '', [rfReplaceAll]);
1475 procedure TEditorForm.MailComboBoxChange(Sender: TObject);
1477 if AnsiPos('sage', MailComboBox.Text) = 0 then
1478 SageCheckBox.Checked := False
1480 SageCheckBox.Checked := True;
1483 procedure TEditorForm.IdLogDebugReceive(ASender: TIdConnectionIntercept;
1486 StringStream: TStringStream;
1488 StringStream := TStringStream.Create('');
1490 StringStream.CopyFrom(AStream, AStream.Size);
1491 FDebugStrReceive := FDebugStrReceive + StringStream.DataString;
1497 procedure TEditorForm.IdLogDebugSend(ASender: TIdConnectionIntercept;
1500 StringStream: TStringStream;
1502 StringStream := TStringStream.Create('');
1504 StringStream.CopyFrom(AStream, AStream.Size);
1505 FDebugStrSend := FDebugStrSend + StringStream.DataString;
1511 procedure TEditorForm.TransActionExecute(Sender: TObject);
1513 AlphaBlend := TransAction.Checked;
1514 //
\94¼
\93§
\96¾
\8fó
\91Ô
\82Ì
\95Û
\91¶
1515 GikoSys.Setting.EditWindowTranslucent := TransAction.Checked;
1518 procedure TEditorForm.TransActionUpdate(Sender: TObject);
1520 TransAction.Enabled := not FWork;
1522 //StatusBar
\82ÌPanels[0]
\82Ì
\95\9d\82ð
\89Â
\95Ï
\81B
\8ec
\82è
\82ð
\8cÅ
\92è
\82É
\82·
\82é
1523 procedure TEditorForm.StatusBarResize(Sender: TObject);
1525 StatusBar.Panels[0].Width := StatusBar.Width
1526 - StatusBar.Panels[1].Width - StatusBar.Panels[2].Width;
1530 procedure TEditorForm.Timer1Timer(Sender: TObject);
1532 if FSambaTime = ZERO_DATE then
1533 StatusBar.Panels[1].Text := '
\8f\89\8f\91'
1535 FNow := IncMilliSecond(FNow, 500);
1536 StatusBar.Panels[1].Text := Format('%8.0f
\95b
\8co
\89ß', [SecondSpan(FNow, FSambaTime)]);
1540 //Samba.ini
\82Ì
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1541 procedure TEditorForm.ReadSambaTime(const AHost: string);
1546 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
1547 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1549 //
\95¶
\8e\9a\97ñ
\82Å
\93Ç
\82Ý
\8eæ
\82Á
\82Ä
\81A
\95Ï
\8a·
\8aÖ
\90\94\82ÅTDateTime
\82Ö
1550 tmp := ini.ReadString('Send', AHost, DateTimeToStr(ZERO_DATE));
1551 FSambaTime := ConvertDateTimeString(tmp);
1555 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
1556 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
1558 //Samba.ini
\82É
\8dÅ
\8fI
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\8f\91\82«
\8d\9e\82Þ
1559 procedure TEditorForm.WriteSambaTime(const AHost: string; ATime: TDateTime);
1563 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1565 ini.WriteDateTime('Send', AHost, ATime);
1571 //
\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
1572 function TEditorForm.CheckSambaTime(const AHost: string; ATime: TDateTime): Boolean;
1575 SettingTime: Integer;
1577 SettingTime := ReadSettingTime(AHost);
1578 ReadSambaTime(AHost);
1579 pastsec := SecondSpan(ATime, FSambaTime);
1580 if pastsec > SettingTime then
1585 //AHost
\81i
\8eI
\96¼
\81j
\82ÌSamba
\82Ì
\8bK
\92è
\92l
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1586 function TEditorForm.ReadSettingTime(const AHost: string): Integer;
1590 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
1592 Result := ini.ReadInteger('Setting', AHost, 0);
1593 //
\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
1594 if Result = 0 then begin
1595 ini.WriteInteger('Setting', AHost, 0);
1602 //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Þ
1603 procedure TEditorForm.FormActivate(Sender: TObject);
1605 if ( Timer1.Enabled ) and ( FThreadItem <> nil )then
1606 ReadSambaTime(FHost);
1607 if GikoSys.Setting.GestureEnabled then begin
1608 MouseGesture.UnHook;
1609 MouseGesture.OnGestureStart := OnGestureStart;
1610 MouseGesture.OnGestureMove := OnGestureMove;
1611 MouseGesture.OnGestureEnd := OnGestureEnd;
1612 MouseGesture.SetHook( Handle );
1615 //Samba24
\91Î
\8dô
\82ð
\8eg
\82¤
\82©
\82Ç
\82¤
\82©
\8c\88\82ß
\82é
\8aÖ
\90\94
1616 //ReadSambaTime
\82ð
\8cÄ
\82Ñ
\8fo
\82·
\82ÆTimer
\82ªOn
\82É
\82È
\82é
1617 procedure TEditorForm.SetSamba24(AURL: string);
1619 Protocol, Host, Path, Document, Port, Bookmark : string;
1621 //Samba24
\91Î
\8dô
\82ð
\82µ
\82È
\82¢
\82È
\82ç
\8fI
\97¹
1622 if not GikoSys.Setting.UseSamba then
1624 //Host
\82ÌURL
\82É'.2ch.'
\82©'.bbspink.'
\82ª
\8aÜ
\82Ü
\82ê
\82Ä
\82¢
\82½
\82çSamba24
\91Î
\8dô
\82ð
\82·
\82é
1625 GikoSys.ParseURI( AURL, Protocol,Host, Path, Document, Port, Bookmark );
1626 if GikoSys.Is2chHost(Host) then begin
1627 Host := Copy(Host, 1, AnsiPos('.', Host) - 1);
1628 FHost := Host; //FHost=
\8eI
\96¼
1629 ReadSambaTime(FHost); //
\88È
\91O
\82Ì
\8f\91\82«
\8d\9e\82Ý
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
1630 //StatusBar
\82É
\82±
\82Ì
\8eI
\82Ì
\8bK
\92è
\92l
\82ð
\95\
\8e¦
\82·
\82é
1631 StatusBar.Panels[2].Text := 'Samba24
\8bK
\92è
\92l' + IntToStr(ReadSettingTime(FHost));
1634 procedure TEditorForm.FormCloseQuery(Sender: TObject;
1635 var CanClose: Boolean);
1637 CanClose := not FWork;
1640 function TEditorForm.GetOEIndentChar : string;
1643 Identities : string;
1646 DEFAULT_CHAR = '> ';
1647 OE_MAIL_PATH = '\Software\Microsoft\Outlook Express\5.0\Mail';
1648 INDENT_CHAR = 'Indent Char';
1651 Result := DEFAULT_CHAR;
1652 regKey := TRegistry.Create;
1655 regKey.RootKey := HKEY_CURRENT_USER;
1656 if not regKey.OpenKey( 'Identities', False ) then
1658 Identities := regKey.ReadString( 'Default User ID' );
1659 if Identities = '' then
1661 if not regKey.OpenKey( Identities + OE_MAIL_PATH, False ) then
1663 IndentChar := regKey.ReadInteger( INDENT_CHAR );
1664 Result := Char( IndentChar ) + ' ';
1673 procedure TEditorForm.QuotePasteActionExecute(Sender: TObject);
1680 quote := GetOEIndentChar;
1681 s := TStringList.Create;
1683 s.Text := Clipboard.AsText;
1685 for i := s.Count - 1 downto 0 do
1686 s[ i ] := quote + s[ i ];
1688 BodyEdit.SelText := s.Text;
1695 procedure TEditorForm.SpaceToNBSPActionExecute(Sender: TObject);
1697 GikoSys.Setting.SpaceToNBSP := SpaceToNBSPAction.Checked;
1698 if EditorPage.ActivePage = PreviewTab then
1702 procedure TEditorForm.AmpToCharRefActionExecute(Sender: TObject);
1704 GikoSys.Setting.AmpToCharRef := AmpToCharRefAction.Checked;
1705 if EditorPage.ActivePage = PreviewTab then
1709 procedure TEditorForm.BoardTopClick(Sender: TObject);
1713 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
1715 BoardtopTab.TabVisible := BoardTop.Checked;
1716 ini.WriteBool('EditorForm', 'BoardTopTab', BoardtopTab.TabVisible);
1723 procedure TEditorForm.GetSETTINGTXTActionExecute(Sender: TObject);
1725 URL, RefURL: string;
1726 settingBody: TStringList;
1730 if FThreadItem = nil then
1733 tmpBoard := FThreadItem.ParentBoard;
1735 if tmpBoard = nil then Exit;
1737 RefURL := tmpBoard.URL;
1738 if RefURL[Length(RefURL)] <> '/' then
1739 URL := RefURL + '/' + 'SETTING.TXT'
1741 URL := RefURL + 'SETTING.TXT';
1743 Indy.Request.LastModified := tmpBoard.SETTINGTXTTime;
1744 Indy.Request.Referer := RefURL;
1745 Screen.Cursor := crHourGlass;
1746 settingBody := TStringList.Create;
1748 StatusBar.Panels[0].Text := 'SETTING.TXT
\83_
\83E
\83\93\83\8d\81[
\83h
\92\86';
1750 IdAntiFreeze.Active := True;
1752 settingBody.Text := Indy.Get(URL);
1754 IdAntiFreeze.Active := False;
1756 if( Indy.ResponseCode = 200 ) then begin
1757 settingBody.SaveToFile(tmpBoard.GetSETTINGTXTFileName);
1758 tmpBoard.SETTINGTXTTime := Indy.Response.LastModified;
1759 tmpBoard.IsSETTINGTXT := true;
1760 tmpBoard.TitlePictureURL := GetTitlePictureURL(settingBody, tmpBoard);
1761 tmpBoard.Modified := true;
1762 StatusBar.Panels[0].Text := 'SETTING.TXT
\8eæ
\93¾
\8a®
\97¹(' + IntToStr(Indy.ResponseCode) + ')';
1765 on E: EIdException do begin
1766 if( AnsiPos('304', E.Message) > 0 ) then
1767 StatusBar.Panels[0].Text := 'SETTING.TXT
\8dX
\90V
\96³
\82µ(' + IntToStr(Indy.ResponseCode) + ')'
1769 StatusBar.Panels[0].Text := 'SETTING.TXT
\8eæ
\93¾
\83G
\83\89\81[(' + IntToStr(Indy.ResponseCode) + ')';
1774 Screen.Cursor := crDefault;
1776 ShowBoardInformation(tmpBoard, BoardInformationMemo);
1779 procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
1784 AMemo.Lines.Add('[SETTING.TXT]');
1785 if ABoard.IsSETTINGTXT then begin
1786 if FileExists(ABoard.GetSETTINGTXTFileName) then begin
1787 AMemo.Lines.Add(DateTimeToStr(ABoard.SETTINGTXTTime) + '
\8dX
\90V');
1788 body := TStringList.Create;
1790 body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
1791 AMemo.Lines.AddStrings(body);
1796 ABoard.IsSETTINGTXT := false;
1797 ABoard.SETTINGTXTTime := ZERO_DATE;
1798 AMemo.Lines.Add('Local
\82É
\95Û
\91¶
\82³
\82ê
\82½SETTING.TXT
\82ª
\8c©
\82Â
\82©
\82è
\82Ü
\82¹
\82ñ');
1799 AMemo.Lines.Add('
\83\81\83j
\83\85\81[
\82æ
\82è
\8dÄ
\8eæ
\93¾
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B');
1802 AMemo.Lines.Add('SETTING.TXT
\82ð
\8eæ
\93¾
\82µ
\82Ä
\82¢
\82Ü
\82¹
\82ñ
\81B');
1803 AMemo.Lines.Add('
\83\81\83j
\83\85\81[
\82æ
\82è
\8eæ
\93¾
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B');
1806 function TEditorForm.GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
1807 //BBS_TITLE_PICTURE=
1814 for i := 0 to body.Count - 1 do begin
1815 if (AnsiPos('BBS_TITLE_PICTURE=', body[i]) > 0) or
1816 (AnsiPos('BBS_FIGUREHEAD=', body[i]) > 0) then begin
1818 Delete(tmp, 1, AnsiPos('=', tmp));
1819 if AnsiPos('../', tmp) > 0 then begin
1820 tmp := CustomStringReplace(tmp, '../', GikoSys.UrlToServer(ABoard.URL));
1828 procedure TEditorForm.GetTitlePictureActionUpdate(Sender: TObject);
1830 if FThreadItem = nil then
1831 GetTitlePictureAction.Enabled := FBoard.IsSETTINGTXT
1833 GetTitlePictureAction.Enabled := FThreadItem.ParentBoard.IsSETTINGTXT;
1837 procedure TEditorForm.GetTitlePictureActionExecute(Sender: TObject);
1839 memStream: TMemoryStream;
1843 memStream := TMemoryStream.Create;
1845 if FThreadItem = nil then
1848 tmpBoard := FThreadItem.ParentBoard;
1850 Indy.Request.Referer := tmpBoard.URL;
1851 if tmpBoard.TitlePictureURL <> '' then begin
1852 StatusBar.Panels[0].Text := '
\94Â
\83g
\83b
\83v
\89æ
\91\9c\83_
\83E
\83\93\83\8d\81[
\83h
\92\86';
1853 Screen.Cursor := crHourGlass;
1855 IdAntiFreeze.Active := True;
1857 Indy.Get(tmpBoard.TitlePictureURL, memStream);
1859 IdAntiFreeze.Active := False;
1861 if Indy.ResponseCode = 200 then begin
1862 memStream.SaveToFile(tmpBoard.GetTitlePictureFileName);
1864 tmpBoard.Modified := true;
1870 Screen.Cursor := crDefault;
1871 StatusBar.Panels[0].Text := '
\94Â
\83g
\83b
\83v
\89æ
\91\9c (' + IntToStr(Indy.ResponseCode) + ')';
1876 procedure TEditorForm.ShowTitlePicture();
1881 if FThreadItem = nil then
1884 tmpBoard := FThreadItem.ParentBoard;
1886 if FileExists(tmpBoard.GetTitlePictureFileName) then begin
1887 TitlePictureBrowser.Navigate(tmpBoard.GetTitlePictureFileName);
1889 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';
1890 SetContent(s, TitlePictureBrowser);
1894 function TEditorForm.GetFusianaName(body: TStringList; ABoard: TBoard): String;
1899 for i := 0 to body.Count - 1 do begin
1900 if (AnsiPos('BBS_NONAME_NAME=', body[i]) > 0) then begin
1902 Delete(tmp, 1, AnsiPos('=', tmp));
1909 procedure TEditorForm.GetHeadTXTActionExecute(Sender: TObject);
1911 URL, RefURL: string;
1912 settingBody: TStringList;
1916 if FThreadItem = nil then
1919 tmpBoard := FThreadItem.ParentBoard;
1921 if tmpBoard = nil then Exit;
1923 RefURL := tmpBoard.URL;
1924 if RefURL[Length(RefURL)] <> '/' then
1925 URL := RefURL + '/' + 'head.txt'
1927 URL := RefURL + 'head.txt';
1929 if FileExists(tmpBoard.GETHEADTXTFileName) then
1930 Indy.Request.LastModified := tmpBoard.HEADTXTTime
1932 Indy.Request.LastModified := ZERO_DATE;
1934 Indy.Request.Referer := RefURL;
1935 Screen.Cursor := crHourGlass;
1936 settingBody := TStringList.Create;
1938 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';
1940 IdAntiFreeze.Active := True;
1942 settingBody.Text := Indy.Get(URL);
1944 IdAntiFreeze.Active := False;
1946 if( Indy.ResponseCode = 200 ) then begin
1947 settingBody.Insert(0, '<HTML lang="ja"><HEAD>');
1948 settingBody.Insert(1, '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">');
1949 settingBody.Insert(2, '<TITLE>' + tmpBoard.Title + '</TITLE>');
1950 settingBody.Insert(3, '<base href="' + RefURL + '"></HEAD><BODY>');
1951 settingBody.Add('</BODY></HTML>');
1952 settingBody.SaveToFile(tmpBoard.GETHEADTXTFileName);
1953 tmpBoard.HEADTXTTime := Indy.Response.LastModified;
1954 tmpBoard.IsHEADTXT := true;
1955 tmpBoard.Modified := true;
1956 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8eæ
\93¾
\8a®
\97¹(' + IntToStr(Indy.ResponseCode) + ')';
1959 on E: EIdException do begin
1960 if( AnsiPos('304', E.Message) > 0 ) then
1961 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8dX
\90V
\96³
\82µ(' + IntToStr(Indy.ResponseCode) + ')'
1963 StatusBar.Panels[0].Text := '
\83\8d\81[
\83J
\83\8b\83\8b\81[
\83\8b\8eæ
\93¾
\83G
\83\89\81[(' + IntToStr(Indy.ResponseCode) + ')';
1968 Screen.Cursor := crDefault;
1970 if tmpBoard.IsHEADTXT then begin
1971 ShowBoardHead(tmpboard, LocalEdit);
1976 procedure TEditorForm.CalcCapacityActionExecute(Sender: TObject);
1982 //
\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
1983 if FThreadItem = nil then
1986 Board := FThreadItem.ParentBoard;
1988 if Board.BoardPlugIn <> nil then
1989 body := CustomStringReplace(body, #13#10, '<br>')
1991 body := CustomStringReplace(body, #13#10, ' <br> ');
1992 StatusBar.Panels[0].Text := '
\97e
\97Ê:' + IntToStr(Length(body)) + ' byte';
1995 procedure TEditorForm.LocalRuleClick(Sender: TObject);
1999 ini := TIniFile.Create(GikoSys.Setting.GetFileName);
2001 RocalRuleTab.TabVisible := LocalRule.Checked;
2002 ini.WriteBool('EditorForm', 'LocalRuleTab', RocalRuleTab.TabVisible);
2008 procedure TEditorForm.FormDeactivate(Sender: TObject);
2010 if GikoSys.Setting.GestureEnabled then begin
2011 MouseGesture.UnHook;
2012 //MouseGesture.SetHook( GikoForm.Handle );
2017 procedure TEditorForm.OnGestureStart(Sender: TObject);
2022 procedure TEditorForm.OnGestureMove(Sender: TObject);
2028 s := MouseGesture.GetGestureStr;
2030 Action := FGestures.GetGestureAction(s);
2031 if Action <> nil then
2032 ActStr := '
\81i' + Action.Caption + '
\81j';
2033 s := '
\83W
\83F
\83X
\83`
\83\83\81[: ' + s + ActStr;
2034 StatusBar.Panels[0].Text := s;
2037 procedure TEditorForm.OnGestureEnd(Sender: TObject);
2042 s := MouseGesture.GetGestureStr;
2043 Action := FGestures.GetGestureAction(s);
2044 if Action <> nil then
2046 StatusBar.Panels[0].Text := '';
2049 procedure TEditorForm.ShowBoardHead(ABoard: TBoard; AMemo: TMemo);
2051 wDoc, WTex, le: OLEVariant;
2054 //http://www.campus.ne.jp/~ishigami/CREATION/TECHNIC/WEBAP-2.htm
2055 WebBrowser1.Navigate(ABoard.GETHEADTXTFileName,le,le,le,le);
2056 //
\83\8c\83^
\83\8a\83\93\83O
\82ª
\92x
\82·
\82¬
\82ÄTXT
\82É
\88Ú
\82¹
\82È
\82¢
\81B
\82Ê
\82é
\82Ûorz
2057 //
\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
2058 //
\82±
\82ê
\82Å
\82¢
\82¯
\82Ü
\82µ
\82½
\81B
\82 \82è
\82ª
\82Æ
\82¤
\82²
\82´
\82¢
\82Ü
\82µ
\82½
\81B
2059 while (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) and
2060 (WebBrowser1.ReadyState <> READYSTATE_INTERACTIVE) do begin
2061 Application.ProcessMessages;
2063 wDoc := WebBrowser1.Document;
2064 wTex := wDoc.body.createTextRange;
2065 LocalEdit.Text := wTex.text;
2068 procedure TEditorForm.LocalRuleBrowseClick(Sender: TObject);
2073 if FThreadItem = nil then
2076 ABoard := FThreadItem.ParentBoard;
2078 if ABoard = nil then Exit;
2080 URL := ABoard.GETHEADTXTFileName;
2081 GikoSys.OpenBrowser(URL, gbtAuto);
2084 procedure TEditorForm.SaveNameMailActionExecute(Sender: TObject);
2086 SaveNameMailAction.Checked := not SaveNameMailAction.Checked;
2087 KotehanCheckBox.Enabled := SaveNameMailAction.Checked;
2090 function TEditorForm.LFusianaGet(s: String): Boolean;
2094 i := AnsiPos('fusianasan', s);
2095 if (i > 0) then Result := True else Result := False;
2098 procedure TEditorForm.BeLogInOutEActionExecute(Sender: TObject);
2100 GikoSys.Setting.BeLogin := not GikoSys.Setting.BeLogin;
2103 procedure TEditorForm.BeLogInOutEActionUpdate(Sender: TObject);
2105 if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin
2106 if (GikoSys.Setting.BeLogin) then BeLogInOutEAction.Checked := true
2107 else BeLogInOutEAction.Checked := false;
2108 BeLogInOutEAction.Enabled := true
2110 BeLogInOutEAction.Enabled := false;
2113 // Cookie
\82Ì
\8eæ
\93¾
2114 procedure TEditorForm.GetCookie(Rawtext: String; ABoard: TBoard);
2116 COOKIE_MARK = 'Set-Cookie:';
2119 EXPIRES_MARK = 'expires=';
2125 ABoard.Cookie := '';
2126 while (AnsiPos(COOKIE_MARK, Rawtext) > 0 ) do begin
2128 tmp := Copy(Rawtext, AnsiPos(COOKIE_MARK, Rawtext) + Length(COOKIE_MARK), Length(Rawtext));
2129 Delete(Rawtext, 1, AnsiPos('Set-Cookie', Rawtext)+ Length(COOKIE_MARK));
2130 //Cookie
\82ð
\90Ø
\82è
\8fo
\82·
2131 val := Trim(GikoSys.GetTokenIndex(tmp, ';', 0));
2132 if( AnsiPos(VAL_SPID, val) > 0 ) then begin
2133 ABoard.SPID := Copy(val, AnsiPos(VAL_SPID, val) + Length(VAL_SPID), Length(val));
2134 end else if( AnsiPos(VAL_PON, val) > 0 ) then begin
2135 ABoard.PON := Copy(val, AnsiPos(VAL_PON, val) + Length(VAL_PON), Length(val));
2137 ABoard.Cookie := val + '; ';
2139 //expires
\82ð
\90Ø
\82è
\8fo
\82·
2140 val := Trim(GikoSys.GetTokenIndex(tmp, ';', 1));
2141 if( AnsiPos(EXPIRES_MARK, val) > 0) then begin
2142 Delete(val, 1, AnsiPos(EXPIRES_MARK, val) + Length(EXPIRES_MARK) - 1);
2143 ABoard.Expires := GMTToLocalDateTime(val);
2148 //Samba
\82Ì
\8e\9e\8aÔ
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
2149 procedure TEditorForm.ReadSambaTime();
2156 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
2157 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
2159 //
\95¶
\8e\9a\97ñ
\82Å
\93Ç
\82Ý
\8eæ
\82Á
\82Ä
\81A
\95Ï
\8a·
\8aÖ
\90\94\82ÅTDateTime
\82Ö
2160 if( FThreadItem <> nil ) then
2161 board := FThreadItem.ParentBoard
2165 if (board <> nil) then begin
2166 //BBSID
\82Æ
\83z
\83X
\83g
\96¼
\82ª
\88ê
\92v
\82µ
\82Ä
\82¢
\82½
\82ç BBSID@
\83z
\83X
\83g
\96¼
2167 if( board.BBSID = FHost ) then
2168 skey := board.BBSID + '@' + FHost
2170 skey := board.BBSID;
2172 tmp := ini.ReadString('Send', skey, DateTimeToStr(ZERO_DATE));
2174 //BBSID
\82Ì
\83L
\81[
\82ª
\96³
\82¢
\82È
\82çFHost
\82É
\90Ø
\82è
\91Ö
\82¦
\82Ä
\82Ý
\82é
2175 if (tmp = DateTimeToStr(ZERO_DATE)) then begin
2176 tmp := ini.ReadString('Send', FHost, DateTimeToStr(ZERO_DATE));
2178 FSambaTime := ConvertDateTimeString(tmp);
2183 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
2184 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
2187 //Samba
\82É
\8e\9e\8aÔ
\82ð
\8f\91\82«
\8d\9e\82Þ
2188 procedure TEditorForm.WriteSambaTime(ATime: TDateTime);
2192 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
2194 // ini.WriteDateTime('Send', AHost, ATime);
2200 //Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\93Ç
\82Ý
\8d\9e\82Þ
2201 function TEditorForm.ReadSettingTime(): Integer ;
2207 ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
2209 if( FThreadItem <> nil ) then
2210 board := FThreadItem.ParentBoard
2214 if (board <> nil) then begin
2215 //BBSID
\82Æ
\83z
\83X
\83g
\96¼
\82ª
\88ê
\92v
\82µ
\82Ä
\82¢
\82½
\82ç BBSID@
\83z
\83X
\83g
\96¼
2216 if( board.BBSID = FHost ) then
2217 skey := board.BBSID + '@' + FHost
2219 skey := board.BBSID;
2221 Result := ini.ReadInteger('Setting', skey, -1);
2222 //BBSID
\82Ì
\83L
\81[
\82ª
\96³
\82¢
\82È
\82çFHost
\82ð
\8eg
\82¤
2223 if( Result = -1 ) then
2224 Result := ini.ReadInteger('Setting', FHost, -1);
2226 //
\8bK
\92è
\92l
\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
2227 if Result = -1 then begin
2228 ini.WriteInteger('Setting', FHost, 0);
2236 //Samba
\82É
\88ø
\82Á
\82©
\82©
\82é
\82©
\8c\9f\8d¸
\82·
\82é
2237 function TEditorForm.CheckSambaTime(ATime: TDateTime): Boolean;
2240 //Samba
\82Ì
\90Ý
\92è
\92l
\82ð
\8f\91\82«
\8d\9e\82Þ
2241 procedure TEditorForm.SetSamba24();