4 ExternalBoardPlugIn BoardItem
5 \94Â
\8fî
\95ñ
\82ð
\95Û
\8e\9d\82·
\82é TBoardItem
\83N
\83\89\83X
12 PlugInMain, ThreadItem;
15 // TBoardItem
\82Ì
\83v
\83\8d\83p
\83e
\83B
\90Ý
\92è
\81^
\8eæ
\93¾ ID
16 TBoardItemProperty = (
17 bipContext, // : DWORD //
\8e©
\97R
\82É
\90Ý
\92è
\82µ
\82Ä
\82¢
\82¢
\92l
18 bipItems, // : TThreadItem //
\94Â
\82É
\8cq
\82ª
\82ê
\82Ä
\82¢
\82é
\83X
\83\8c\83b
\83h
19 bipNo, // : Integer //
\94Ô
\8d\86
20 bipTitle, // : string //
\94Â
\83^
\83C
\83g
\83\8b
21 bipRoundDate, // : TDateTime //
\94Â
\82ð
\8eæ
\93¾
\82µ
\82½
\93ú
\8e\9e\81i
\8f\84\89ñ
\93ú
\8e\9e\81j
22 bipLastModified, // : TDateTime //
\94Â
\82ª
\8dX
\90V
\82³
\82ê
\82Ä
\82¢
\82é
\93ú
\8e\9e\81i
\83T
\81[
\83o
\91¤
\93ú
\8e\9e\81j
23 bipLastGetTime, // : TDateTime //
\83X
\83\8c\83b
\83h
\82Ü
\82½
\82Í
\83X
\83\8c\83b
\83h
\88ê
\97\97\82ð
\8dÅ
\8cã
\82É
\8dX
\90V
\82µ
\82½
\93ú
\8e\9e\81i
\83T
\81[
\83o
\91¤
\93ú
\8e\9e\81E
\8f\91\82«
\8d\9e\82Ý
\8e\9e\82É
\8eg
\97p
\82·
\82é
\81j
24 bipRound, // : Boolean //
\8f\84\89ñ
\97\
\96ñ
25 bipRoundName, // : string //
\8f\84\89ñ
\96¼
26 bipIsLogFile, // : Boolean //
\83\8d\83O
\91¶
\8dÝ
\83t
\83\89\83O
27 bipUnRead, // : Integer //
\83X
\83\8c\83b
\83h
\96¢
\93Ç
\90\94
28 bipURL, // : string //
\94Â
\82ð
\83u
\83\89\83E
\83U
\82Å
\95\
\8e¦
\82·
\82é
\8dÛ
\82Ì URL
29 bipFilePath, // : string //
\82±
\82Ì
\94Â
\82ª
\95Û
\91¶
\82³
\82ê
\82Ä
\82¢
\82é
\83p
\83X
30 bipIs2ch // : Boolean //
\83z
\83X
\83g
\82ª2ch
\82©
\82Ç
\82¤
\82©
33 // *************************************************************************
34 //
\8ae
\83X
\83\8c\82Ì
\8fî
\95ñ
\82ð
\95Ô
\8bp
35 // *************************************************************************
36 TBoardItemEnumThreadCallBack = function(
37 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
38 inURL : PChar; //
\83X
\83\8c\83b
\83h
\82Ì URL
39 inTitle : PChar; //
\83X
\83\8c\83^
\83C
40 inCount : DWORD //
\83\8c\83X
\82Ì
\90\94
41 ) : Boolean; stdcall; //
\97ñ
\8b\93\82ð
\91±
\82¯
\82é
\82È
\82ç True
45 // =========================================================================
46 // TBoardItem
\83N
\83\89\83X
\82É
\8aÖ
\82·
\82é API
47 // =========================================================================
49 // *************************************************************************
51 // TBoardItem
\83N
\83\89\83X
\82É
\8cq
\82ª
\82ê
\82Ä
\82¢
\82é TThreadItem
\83N
\83\89\83X
\82ð
\8eæ
\93¾
\82·
\82é
52 // *************************************************************************
53 TBoardItemGetItems = function(
54 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
55 inIndex : Integer //
\8eæ
\93¾
\82·
\82é TThreadItem
\82Ì
\83C
\83\93\83f
\83b
\83N
\83X
56 ) : DWORD; stdcall; // TThreadItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
58 // *************************************************************************
60 // TBoardItem
\83N
\83\89\83X
\82Ì
\83v
\83\8d\83p
\83e
\83B
\82ð
\8eæ
\93¾
\82·
\82é
61 // *************************************************************************
62 TBoardItemGetLong = function(
63 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
64 inPropertyID : TBoardItemProperty //
\8eæ
\93¾
\82·
\82é
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8eí
\97Þ
65 ) : DWORD; stdcall; //
\96ß
\82è
\92l(
\88Ó
\96¡
\82Í inPropertyID
\82É
\82æ
\82Á
\82Ä
\88Ù
\82È
\82é)
67 // *************************************************************************
69 // TBoardItem
\83N
\83\89\83X
\82Ì
\83v
\83\8d\83p
\83e
\83B
\82ð
\90Ý
\92è
\82·
\82é
70 // *************************************************************************
71 TBoardItemSetLong = procedure(
72 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
73 inPropertyID : TBoardItemProperty; //
\90Ý
\92è
\82·
\82é
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8eí
\97Þ
74 inParam : DWORD //
\90Ý
\92è
\82·
\82é
\92l(
\88Ó
\96¡
\82Í inPropertyID
\82É
\82æ
\82Á
\82Ä
\88Ù
\82È
\82é)
77 // *************************************************************************
79 // TBoardItem
\83N
\83\89\83X
\82Ì
\83v
\83\8d\83p
\83e
\83B
\82ð
\8eæ
\93¾
\82·
\82é
80 // *************************************************************************
81 TBoardItemGetDouble = function(
82 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
83 inPropertyID : TBoardItemProperty //
\8eæ
\93¾
\82·
\82é
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8eí
\97Þ
84 ) : Double; stdcall; //
\96ß
\82è
\92l(
\88Ó
\96¡
\82Í inPropertyID
\82É
\82æ
\82Á
\82Ä
\88Ù
\82È
\82é)
86 // *************************************************************************
88 // TBoardItem
\83N
\83\89\83X
\82Ì
\83v
\83\8d\83p
\83e
\83B
\82ð
\90Ý
\92è
\82·
\82é
89 // *************************************************************************
90 TBoardItemSetDouble = procedure(
91 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
92 inPropertyID : TBoardItemProperty; //
\90Ý
\92è
\82·
\82é
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8eí
\97Þ
93 inParam : Double //
\90Ý
\92è
\82·
\82é
\92l(
\88Ó
\96¡
\82Í inPropertyID
\82É
\82æ
\82Á
\82Ä
\88Ù
\82È
\82é)
96 // *************************************************************************
97 //
\94Â
\82ª
\95Û
\97L
\82·
\82é
\83X
\83\8c\88ê
\97\97\82Ì
\97ñ
\8b\93\8f\88\97\9d\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\94C
\82¹
\82é
98 // *************************************************************************
99 TBoardItemEnumThread = procedure(
100 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
101 inCallBack : TBoardItemEnumThreadCallBack; //
\83X
\83\8c\82Ì
\8fî
\95ñ
\82ð
\95Ô
\8bp
\82·
\82é
\83\8b\81[
\83`
\83\93
102 inSubjectText : PChar //
\83t
\83@
\83C
\83\8b\96¼,
\83X
\83\8c\83^
\83C(
\83\8c\83X
\90\94)
\82Å
\8d\
\90¬
\82³
\82ê
\82é
\89ü
\8ds
\8bæ
\90Ø
\82è
\83e
\83L
\83X
\83g
105 // *************************************************************************
107 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82Ì
\90i
\95à
\8fó
\8bµ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
108 // *************************************************************************
109 TBoardItemWork = procedure(
110 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
111 inWorkCount : DWORD //
\8c»
\8dÝ
\82Ì
\90i
\95à
\8fó
\8bµ(
\83J
\83E
\83\93\83g)
114 // *************************************************************************
115 // BoardItemWorkBegin
116 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ª
\8en
\82Ü
\82Á
\82½
\82±
\82Æ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
117 // *************************************************************************
118 TBoardItemWorkBegin = procedure(
119 inInstance : DWORD; // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
120 inWorkCountMax : DWORD //
\92Ê
\90M
\82Ì
\8fI
\82í
\82è
\82ð
\8e¦
\82·
\83J
\83E
\83\93\83g
123 // *************************************************************************
125 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ª
\8fI
\82í
\82Á
\82½
\82±
\82Æ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
126 // *************************************************************************
127 TBoardItemWorkEnd = procedure(
128 inInstance : DWORD // TBoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
133 // =========================================================================
134 // TBoardItem
\83N
\83\89\83X
\82É
\8aÖ
\82·
\82é
\83C
\83x
\83\93\83g
135 // =========================================================================
137 // *************************************************************************
138 // TBoardItem
\82ª
\90¶
\90¬
\82³
\82ê
\82½
139 // *************************************************************************
140 TBoardItemOnCreateEvent = procedure(
144 // *************************************************************************
145 // TBoardItem
\82ª
\94j
\8aü
\82³
\82ê
\82½
146 // *************************************************************************
147 TBoardItemOnDisposeEvent = procedure(
151 // *************************************************************************
152 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ð
\8ew
\8e¦
\82³
\82ê
\82½
153 // *************************************************************************
154 TBoardItemOnDownloadEvent = function : TDownloadState of object;
156 // *************************************************************************
157 //
\83X
\83\8c\97§
\82Ä
\82ð
\8ew
\8e¦
\82³
\82ê
\82½
158 // *************************************************************************
159 TBoardItemOnCreateThreadEvent = function(
160 inSubject : string; //
\83X
\83\8c\83^
\83C
161 inName : string; //
\96¼
\91O(
\83n
\83\93\83h
\83\8b)
162 inMail : string; //
\83\81\81[
\83\8b\83A
\83h
\83\8c\83X
163 inMessage : string //
\96{
\95¶
164 ) : TDownloadState of object; //
\8f\91\82«
\8d\9e\82Ý
\82ª
\90¬
\8c÷
\82µ
\82½
\82©
\82Ç
\82¤
\82©
166 // *************************************************************************
167 //
\82±
\82Ì
\94Â
\82É
\82¢
\82
\82Â
\82Ì
\83X
\83\8c\82ª
\82 \82é
\82©
\97v
\8b\81\82³
\82ê
\82½
168 // *************************************************************************
169 TBoardItemOnEnumThreadEvent = procedure(
170 inCallBack : TBoardItemEnumThreadCallBack
173 // *************************************************************************
174 //
\83t
\83@
\83C
\83\8b\96¼
\82©
\82ç
\83X
\83\8c\83b
\83h
\82Ì URL
\82ð
\97v
\8b\81\82³
\82ê
\82½
175 // *************************************************************************
176 TBoardItemOnFileName2ThreadURLEvent = function(
178 ) : string of object;
181 // =========================================================================
182 // TBoardItem
\83N
\83\89\83X
183 // =========================================================================
184 TBoardItem = class(TObject)
186 //
\83N
\83\89\83X
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
189 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ð
\8ew
\8e¦
\82³
\82ê
\82½
190 FOnDownload : TBoardItemOnDownloadEvent;
191 //
\83X
\83\8c\97§
\82Ä
\82ð
\8ew
\8e¦
\82³
\82ê
\82½
192 FOnCreateThread : TBoardItemOnCreateThreadEvent;
193 //
\82±
\82Ì
\94Â
\82É
\82¢
\82
\82Â
\82Ì
\83X
\83\8c\82ª
\82 \82é
\82©
\97v
\8b\81\82³
\82ê
\82½
194 FOnEnumThread : TBoardItemOnEnumThreadEvent;
195 //
\83t
\83@
\83C
\83\8b\96¼
\82©
\82ç
\83X
\83\8c\83b
\83h
\82Ì URL
\82ð
\97v
\8b\81\82³
\82ê
\82½
196 FOnFileName2ThreadURL : TBoardItemOnFileName2ThreadURLEvent;
199 //
\83R
\83\93\83X
\83g
\83\89\83N
\83^
200 constructor Create( inInstance : DWORD );
202 //
\94Â
\82ª
\95Û
\97L
\82·
\82é
\83X
\83\8c\88ê
\97\97\82Ì
\97ñ
\8b\93\8f\88\97\9d\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\94C
\82¹
\82é
203 procedure EnumThread( inCallBack : TBoardItemEnumThreadCallBack; inSubjectText : string );
204 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82Ì
\90i
\95à
\8fó
\8bµ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
205 procedure Work( inWorkCount : Integer );
206 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ª
\8en
\82Ü
\82Á
\82½
\82±
\82Æ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
207 procedure WorkBegin( inWorkCountMax : Integer );
208 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ª
\8fI
\82í
\82Á
\82½
\82±
\82Æ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
212 // =====
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8aÇ
\97\9d\82ð
\93\9d\8a\87\82·
\82é
\83\89\83b
\83p
213 function GetLong( propertyID : TBoardItemProperty ) : DWORD;
214 procedure SetLong( propertyID : TBoardItemProperty; param : DWORD );
215 function GetDouble( propertyID : TBoardItemProperty ) : Double;
216 procedure SetDouble( propertyID : TBoardItemProperty; param : Double );
218 // =====
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8eæ
\93¾
\81^
\90Ý
\92è
\82ð
\96\96\92[
\82É
\92ñ
\8b\9f\82·
\82é
\83\89\83b
\83p
219 function GetItems( index : Integer ) : TThreadItem;
220 function GetNo : Integer;
221 procedure SetNo( param : Integer );
222 function GetTitle : string;
223 procedure SetTitle( param : string );
224 function GetRoundDate : TDateTime;
225 procedure SetRoundDate( param : TDateTime );
226 function GetLastModified : TDateTime;
227 procedure SetLastModified( param : TDateTime );
228 function GetLastGetTime : TDateTime;
229 procedure SetLastGetTime( param : TDateTime );
230 function GetRound : Boolean;
231 procedure SetRound( param : Boolean );
232 function GetRoundName : string;
233 procedure SetRoundName( param : string );
234 function GetIsLogFile : Boolean;
235 procedure SetIsLogFile( param : Boolean );
236 function GetUnRead : Integer;
237 procedure SetUnRead( param : Integer );
238 function GetURL : string;
239 procedure SetURL( param : string );
240 function GetFilePath : string;
241 procedure SetFilePath( param : string );
242 function GetIs2ch : Boolean;
243 procedure SetIs2ch( param : Boolean );
246 property Instance : DWORD read FInstance;
249 // =====
\83C
\83x
\83\93\83g
250 property OnDownload : TBoardItemOnDownloadEvent read FOnDownload write FOnDownload;
251 property OnCreateThread : TBoardItemOnCreateThreadEvent read FOnCreateThread write FOnCreateThread;
252 property OnEnumThread : TBoardItemOnEnumThreadEvent read FOnEnumThread write FOnEnumThread;
253 property OnFileName2ThreadURL : TBoardItemOnFileName2ThreadURLEvent read FOnFileName2ThreadURL write FOnFileName2ThreadURL;
255 // ===== ThreadItem
\82É
\8eæ
\93¾
\81^
\90Ý
\92è
\89Â
\94\
\82È
\83v
\83\8d\83p
\83e
\83B
256 //
\94Â
\82É
\8cq
\82ª
\82ê
\82Ä
\82¢
\82é
\83X
\83\8c\83b
\83h
257 property Items[index : Integer] : TThreadItem read GetItems;
259 property No : Integer read GetNo write SetNo;
260 //
\94Â
\83^
\83C
\83g
\83\8b
261 property Title : string read GetTitle write SetTitle;
262 //
\94Â
\82ð
\8eæ
\93¾
\82µ
\82½
\93ú
\8e\9e\81i
\8f\84\89ñ
\93ú
\8e\9e\81j
263 property RoundDate : TDateTime read GetRoundDate write SetRoundDate;
264 //
\94Â
\82ª
\8dX
\90V
\82³
\82ê
\82Ä
\82¢
\82é
\93ú
\8e\9e\81i
\83T
\81[
\83o
\91¤
\93ú
\8e\9e\81j
265 property LastModified : TDateTime read GetLastModified write SetLastModified;
266 //
\83X
\83\8c\83b
\83h
\82Ü
\82½
\82Í
\83X
\83\8c\83b
\83h
\88ê
\97\97\82ð
\8dÅ
\8cã
\82É
\8dX
\90V
\82µ
\82½
\93ú
\8e\9e\81i
\83T
\81[
\83o
\91¤
\93ú
\8e\9e\81E
\8f\91\82«
\8d\9e\82Ý
\8e\9e\82É
\8eg
\97p
\82·
\82é
\81j
267 property LastGetTime : TDateTime read GetLastGetTime write SetLastGetTime;
268 //
\8f\84\89ñ
\83t
\83\89\83O
269 property Round : Boolean read GetRound write SetRound;
271 property RoundName : string read GetRoundName write SetRoundName;
272 //
\83\8d\83O
\91¶
\8dÝ
\83t
\83\89\83O
273 property IsLogFile : Boolean read GetIsLogFile write SetIsLogFile;
274 //
\83X
\83\8c\83b
\83h
\96¢
\93Ç
\90\94
275 property UnRead : Integer read GetUnRead write SetUnRead;
276 //
\94Â
\82ð
\83u
\83\89\83E
\83U
\82Å
\95\
\8e¦
\82·
\82é
\8dÛ
\82Ì URL
277 property URL : string read GetURL write SetURL;
278 //
\82±
\82Ì
\94Â
\82ª
\95Û
\91¶
\82³
\82ê
\82Ä
\82¢
\82é
\83p
\83X
279 property FilePath : string read GetFilePath write SetFilePath;
280 //
\83z
\83X
\83g
\82ª2ch
\82©
\82Ç
\82¤
\82©
281 property Is2ch : Boolean read GetIs2ch write SetIs2ch;
285 // ===== API
\82Ì
\83A
\83h
\83\8c\83X
286 BoardItemGetItems : TBoardItemGetItems;
287 BoardItemGetLong : TBoardItemGetLong;
288 BoardItemSetLong : TBoardItemSetLong;
289 BoardItemGetDouble : TBoardItemGetDouble;
290 BoardItemSetDouble : TBoardItemSetDouble;
291 BoardItemEnumThread : TBoardItemEnumThread;
292 BoardItemWork : TBoardItemWork;
293 BoardItemWorkBegin : TBoardItemWorkBegin;
294 BoardItemWorkEnd : TBoardItemWorkEnd;
295 // =====
\83C
\83x
\83\93\83g
\83n
\83\93\83h
\83\89
296 BoardItemOnCreate : TBoardItemOnCreateEvent;
297 BoardItemOnDispose : TBoardItemOnDisposeEvent;
299 // ===== TBoardItem
\83N
\83\89\83X
\82ð
\8aÇ
\97\9d\82·
\82é
\8aÖ
\90\94
300 procedure LoadInternalBoardItemAPI(
303 procedure BoardItemOnCreateOfTBoardItem(
306 procedure BoardItemOnDisposeOfTBoardItem(
312 // *************************************************************************
313 // TBoardItem
\82Ì
\83R
\83\93\83X
\83g
\83\89\83N
\83^
314 // *************************************************************************
315 constructor TBoardItem.Create(
316 inInstance : DWORD //
\83C
\83\93\83X
\83^
\83\93\83X
321 FInstance := inInstance;
323 OnCreateThread := nil;
325 OnFileName2ThreadURL := nil;
329 // *************************************************************************
330 //
\94Â
\82ª
\95Û
\97L
\82·
\82é
\83X
\83\8c\88ê
\97\97\82Ì
\97ñ
\8b\93\8f\88\97\9d\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\94C
\82¹
\82é
331 // *************************************************************************
332 procedure TBoardItem.EnumThread(
333 inCallBack : TBoardItemEnumThreadCallBack;
334 inSubjectText : string //
\83t
\83@
\83C
\83\8b\96¼<>
\83X
\83\8c\83^
\83C
\82Å
\8d\
\90¬
\82³
\82ê
\82½
\89ü
\8ds
\8bæ
\90Ø
\82è
\83e
\83L
\83X
\83g
338 BoardItemEnumThread( FInstance, inCallBack, PChar( inSubjectText ) );
342 // *************************************************************************
343 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82Ì
\90i
\95à
\8fó
\8bµ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
344 // *************************************************************************
345 procedure TBoardItem.Work(
346 inWorkCount : Integer //
\8c»
\8dÝ
\82Ì
\90i
\95à
\8fó
\8bµ(
\83J
\83E
\83\93\83g)
350 BoardItemWork( FInstance, inWorkCount );
354 // *************************************************************************
355 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ª
\8en
\82Ü
\82Á
\82½
\82±
\82Æ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
356 // *************************************************************************
357 procedure TBoardItem.WorkBegin(
358 inWorkCountMax : Integer //
\92Ê
\90M
\82Ì
\8fI
\82í
\82è
\82ð
\8e¦
\82·
\83J
\83E
\83\93\83g
362 BoardItemWorkBegin( FInstance, inWorkCountMax );
366 // *************************************************************************
367 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ª
\8fI
\82í
\82Á
\82½
\82±
\82Æ
\82ð
\83v
\83\8d\83O
\83\89\83\80\96{
\91Ì
\82É
\93`
\82¦
\82é
368 // *************************************************************************
369 procedure TBoardItem.WorkEnd;
372 BoardItemWorkEnd( FInstance );
378 // =========================================================================
379 // TBoardItem
\82Ì
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8aÇ
\97\9d\82ð
\93\9d\8a\87\82·
\82é
\83\89\83b
\83p
380 // =========================================================================
381 function TBoardItem.GetLong( propertyID : TBoardItemProperty ) : DWORD;
383 Result := BoardItemGetLong( FInstance, propertyID );
386 procedure TBoardItem.SetLong( propertyID : TBoardItemProperty; param : DWORD );
388 BoardItemSetLong( FInstance, propertyID, param );
391 function TBoardItem.GetDouble( propertyID : TBoardItemProperty ) : Double;
393 Result := BoardItemGetDouble( FInstance, propertyID );
396 procedure TBoardItem.SetDouble( propertyID : TBoardItemProperty; param : Double );
398 BoardItemSetDouble( FInstance, propertyID, param );
403 // =========================================================================
404 //
\81«
\82±
\82±
\82©
\82ç
\81«
405 // TBoardItem
\82Ì
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8eæ
\93¾
\81^
\90Ý
\92è
\82ð
\96\96\92[
\82É
\92ñ
\8b\9f\82·
\82é
\83\89\83b
\83p
406 // =========================================================================
407 function TBoardItem.GetItems(
413 tmp := BoardItemGetItems( FInstance, index );
414 Result := TThreadItem( ThreadItemGetLong( tmp, tipContext ) );
417 function TBoardItem.GetNo : Integer;
419 Result := GetLong( bipNo );
422 procedure TBoardItem.SetNo( param : Integer );
424 SetLong( bipNo, param );
427 function TBoardItem.GetTitle : string;
431 tmp := PChar( GetLong( bipTitle ) );
432 Result := string( tmp );
433 DisposeResultString( tmp );
436 procedure TBoardItem.SetTitle( param : string );
438 SetLong( bipTitle, DWORD( PChar( param ) ) );
441 function TBoardItem.GetRoundDate : TDateTime;
443 Result := GetDouble( bipRoundDate );
446 procedure TBoardItem.SetRoundDate( param : TDateTime );
448 SetDouble( bipRoundDate, param );
451 function TBoardItem.GetLastModified : TDateTime;
453 Result := GetDouble( bipLastModified );
456 procedure TBoardItem.SetLastModified( param : TDateTime );
458 SetDouble( bipLastModified, param );
461 function TBoardItem.GetLastGetTime : TDateTime;
463 Result := GetDouble( bipLastGetTime );
466 procedure TBoardItem.SetLastGetTime( param : TDateTime );
468 SetDouble( bipLastGetTime, param );
471 function TBoardItem.GetRound : Boolean;
473 Result := Boolean( GetLong( bipRound ) );
476 procedure TBoardItem.SetRound( param : Boolean );
478 SetLong( bipRound, DWORD( param ) );
481 function TBoardItem.GetRoundName : string;
485 tmp := PChar( GetLong( bipRoundName ) );
486 Result := string( tmp );
487 DisposeResultString( tmp );
490 procedure TBoardItem.SetRoundName( param : string );
492 SetLong( bipRoundName, DWORD( PChar( param ) ) );
495 function TBoardItem.GetIsLogFile : Boolean;
497 Result := Boolean( GetLong( bipIsLogFile ) );
500 procedure TBoardItem.SetIsLogFile( param : Boolean );
502 SetLong( bipIsLogFile, DWORD( param ) );
505 function TBoardItem.GetUnRead : Integer;
507 Result := GetLong( bipUnRead );
510 procedure TBoardItem.SetUnRead( param : Integer );
512 SetLong( bipUnRead, param );
515 function TBoardItem.GetURL : string;
519 tmp := PChar( GetLong( bipURL ) );
520 Result := string( tmp );
521 DisposeResultString( tmp );
524 procedure TBoardItem.SetURL( param : string );
526 SetLong( bipURL, DWORD( PChar( param ) ) );
529 function TBoardItem.GetFilePath : string;
533 tmp := PChar( GetLong( bipFilePath ) );
534 Result := string( tmp );
535 DisposeResultString( tmp );
538 procedure TBoardItem.SetFilePath( param : string );
540 SetLong( bipFilePath, DWORD( PChar( param ) ) );
543 function TBoardItem.GetIs2ch : Boolean;
545 Result := Boolean( GetLong( bipIs2ch ) );
548 procedure TBoardItem.SetIs2ch( param : Boolean );
550 SetLong( bipIs2ch, DWORD( param ) );
553 // =========================================================================
554 // TBoardItem
\82Ì
\83v
\83\8d\83p
\83e
\83B
\82Ì
\8eæ
\93¾
\81^
\90Ý
\92è
\82ð
\96\96\92[
\82É
\92ñ
\8b\9f\82·
\82é
\83\89\83b
\83p
555 //
\81ª
\82±
\82±
\82Ü
\82Å
\81ª
556 // =========================================================================
561 // =========================================================================
562 // TBoardItem
\83N
\83\89\83X
\82ð
\8aÇ
\97\9d\82·
\82é
\8aÖ
\90\94
563 // =========================================================================
565 // *************************************************************************
566 // TBoardItem
\82ª
\90¶
\90¬
\82³
\82ê
\82½
\8fê
\8d\87\82Ì
\83f
\83t
\83H
\83\8b\83g
\82Ì
\8f\88\92u(TBoardItem
\82ð
\90¶
\90¬
\82·
\82é)
567 // *************************************************************************
568 procedure BoardItemOnCreateOfTBoardItem(
572 boardItem : TBoardItem;
575 boardItem := TBoardItem.Create( inInstance );
576 boardItemSetLong( inInstance, bipContext, DWORD( BoardItem ) );
580 // *************************************************************************
581 // TBoardItem
\82ª
\94j
\8aü
\82³
\82ê
\82½
\8fê
\8d\87\82Ì
\83f
\83t
\83H
\83\8b\83g
\82Ì
\8f\88\92u(TBoardItem
\82ð
\94j
\8aü
\82·
\82é)
582 // *************************************************************************
583 procedure BoardItemOnDisposeOfTBoardItem(
587 boardItem : TBoardItem;
590 boardItem := TBoardItem( BoardItemGetLong( inInstance, bipContext ) );
595 // *************************************************************************
596 // PlugInSDK
\82Ì TBoardItem
\82É
\8aÖ
\82·
\82é API
\82ð
\8f\89\8aú
\89»
597 // *************************************************************************
598 procedure LoadInternalBoardItemAPI(
603 // =====
\83C
\83\93\83X
\83^
\83\93\83X
\82Ì
\83f
\83t
\83H
\83\8b\83g
\82Ì
\8eæ
\82è
\88µ
\82¢
\82ð TBoardItem
\82É
\82·
\82é
604 BoardItemOnCreate := BoardItemOnCreateOfTBoardItem;
605 BoardItemOnDispose := BoardItemOnDisposeOfTBoardItem;
607 // ===== TBoardItem
\83v
\83\8d\83p
\83e
\83B
\8eæ
\93¾
\90Ý
\92è
\8aÖ
\90\94
608 BoardItemGetItems := GetProcAddress( inModule, 'BoardItemGetItems' );
609 if not Assigned( BoardItemGetItems ) then
610 System.ExitCode := 1;
611 BoardItemGetLong := GetProcAddress( inModule, 'BoardItemGetLong' );
612 if not Assigned( BoardItemGetLong ) then
613 System.ExitCode := 1;
614 BoardItemSetLong := GetProcAddress( inModule, 'BoardItemSetLong' );
615 if not Assigned( BoardItemSetLong ) then
616 System.ExitCode := 1;
617 BoardItemGetDouble := GetProcAddress( inModule, 'BoardItemGetDouble' );
618 if not Assigned( BoardItemGetDouble ) then
619 System.ExitCode := 1;
620 BoardItemSetDouble := GetProcAddress( inModule, 'BoardItemSetDouble' );
621 if not Assigned( BoardItemSetDouble ) then
622 System.ExitCode := 1;
623 BoardItemEnumThread := GetProcAddress( inModule, 'BoardItemEnumThread' );
624 if not Assigned( BoardItemEnumThread ) then
625 System.ExitCode := 1;
626 BoardItemWork := GetProcAddress( inModule, 'BoardItemWork' );
627 if not Assigned( BoardItemWork ) then
628 System.ExitCode := 1;
629 BoardItemWorkBegin := GetProcAddress( inModule, 'BoardItemWorkBegin' );
630 if not Assigned( BoardItemWorkBegin ) then
631 System.ExitCode := 1;
632 BoardItemWorkEnd := GetProcAddress( inModule, 'BoardItemWorkEnd' );
633 if not Assigned( BoardItemWorkEnd ) then
634 System.ExitCode := 1;
640 // =========================================================================
641 // TBoardItem
\83N
\83\89\83X
\82É
\8aÖ
\82·
\82é
\83C
\83x
\83\93\83g
642 // =========================================================================
644 // *************************************************************************
645 // TBoardItem
\82ª
\90¶
\90¬
\82³
\82ê
\82½
646 // *************************************************************************
647 procedure BoardItemCreate(
653 BoardItemOnCreate( inInstance );
658 // *************************************************************************
659 // TBoardItem
\82ª
\94j
\8aü
\82³
\82ê
\82½
660 // *************************************************************************
661 procedure BoardItemDispose(
667 BoardItemOnDispose( inInstance );
672 // *************************************************************************
673 //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ð
\8ew
\8e¦
\82³
\82ê
\82½
674 // *************************************************************************
675 function BoardItemOnDownload(
676 inInstance : DWORD //
\83C
\83\93\83X
\83^
\83\93\83X
677 ) : TDownloadState; stdcall; //
\83_
\83E
\83\93\83\8d\81[
\83h
\82ª
\90¬
\8c÷
\82µ
\82½
\82©
\82Ç
\82¤
\82©
680 boardItem : TBoardItem;
685 context := Pointer( BoardItemGetLong( inInstance, bipContext ) );
686 if not Assigned( context ) then
689 if not (TObject( context ) is TBoardItem) then
692 boardItem := TBoardItem( context );
693 if not Assigned( boardItem.OnDownload ) then
696 Result := boardItem.OnDownload;
705 // *************************************************************************
706 //
\83X
\83\8c\97§
\82Ä
\82ð
\8ew
\8e¦
\82³
\82ê
\82½
707 // *************************************************************************
708 function BoardItemOnCreateThread(
709 inInstance : DWORD; // BoardItem
\82Ì
\83C
\83\93\83X
\83^
\83\93\83X
710 inSubject : PChar; //
\83X
\83\8c\83^
\83C
711 inName : PChar; //
\96¼
\91O(
\83n
\83\93\83h
\83\8b)
712 inMail : PChar; //
\83\81\81[
\83\8b\83A
\83h
\83\8c\83X
713 inMessage : PChar //
\96{
\95¶
714 ) : TDownloadState; stdcall; //
\8f\91\82«
\8d\9e\82Ý
\82ª
\90¬
\8c÷
\82µ
\82½
\82©
\82Ç
\82¤
\82©
717 boardItem : TBoardItem;
722 context := Pointer( BoardItemGetLong( inInstance, bipContext ) );
723 if not Assigned( context ) then
726 if not (TObject( context ) is TBoardItem) then
729 boardItem := TBoardItem( context );
730 if not Assigned( boardItem.OnCreateThread ) then
733 Result := boardItem.OnCreateThread( string( inSubject ), string( inName ), string( inMail ), string( inMessage ) );
742 // *************************************************************************
743 //
\82±
\82Ì
\94Â
\82É
\82¢
\82
\82Â
\82Ì
\83X
\83\8c\82ª
\82 \82é
\82©
\97v
\8b\81\82³
\82ê
\82½
744 // *************************************************************************
745 procedure BoardItemOnEnumThread(
746 inInstance : DWORD; //
\83C
\83\93\83X
\83^
\83\93\83X
747 inCallBack : TBoardItemEnumThreadCallBack //
\95Ô
\8bp
\82·
\82×
\82«
\83R
\81[
\83\8b\83o
\83b
\83N
751 boardItem : TBoardItem;
756 context := Pointer( BoardItemGetLong( inInstance, bipContext ) );
757 if not Assigned( context ) then
760 if not Assigned( inCallBack ) then
763 if not (TObject( context ) is TBoardItem) then
766 boardItem := TBoardItem( context );
767 if not Assigned( boardItem.OnEnumThread ) then
770 boardItem.OnEnumThread( inCallBack );
777 // *************************************************************************
778 //
\83t
\83@
\83C
\83\8b\96¼
\82©
\82ç
\83X
\83\8c\83b
\83h
\82Ì URL
\82ð
\97v
\8b\81\82³
\82ê
\82½
779 // *************************************************************************
780 function BoardItemOnFileName2ThreadURL(
781 inInstance : DWORD; //
\83C
\83\93\83X
\83^
\83\93\83X
782 inFileName : PChar //
\8c³
\82É
\82È
\82é
\83t
\83@
\83C
\83\8b\96¼
786 boardItem : TBoardItem;
791 context := Pointer( BoardItemGetLong( inInstance, bipContext ) );
792 if not Assigned( context ) then
795 if not (TObject( context ) is TBoardItem) then
798 boardItem := TBoardItem( context );
799 if not Assigned( boardItem.OnFileName2ThreadURL ) then
802 Result := CreateResultString( boardItem.OnFileName2ThreadURL( string( inFileName ) ) );
815 BoardItemOnCreateThread,
816 BoardItemOnEnumThread,
817 BoardItemOnFileName2ThreadURL;