Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/ExternalThreadItem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.12.4.2 - (hide annotations) (download) (as text)
Sun May 22 04:39:11 2005 UTC (18 years, 11 months ago) by h677
Branch: remodeling
CVS Tags: v1_50_0_581, v1_50_0_580, v1_50_0_582, v1_50_0_577, v1_50_0_576, v1_50_0_578, v1_50_0_579
Changes since 1.12.4.1: +2 -1 lines
File MIME type: text/x-pascal
TBoard、TThreadItemのRoundNameプロパティをPCharに変更

1 yoffy 1.1 unit ExternalThreadItem;
2    
3     interface
4    
5     uses
6     Windows, Classes, SysUtils,
7     IdComponent,
8     ExternalBoardPlugInMain;
9    
10     type
11     // TThreadItem ???????????h┃絎?鐚??緇? ID
12     TThreadItemProperty = (
13     tipContext, // : DWORD // ???宴??┃絎???????????/span>
14     tipNo, // : Integer // ???/span>
15     tipFileName, // : string // ?鴻?????????<?ゃ????
16     tipTitle, // : string // ?鴻???????帥?ゃ????/span>
17     tipRoundDate, // : TDateTime // ?鴻??????????緇??????ユ??鐚?綏≦???ユ??鐚?
18     tipLastModified, // : TDateTime // ?鴻?????????贋?違???????????ユ??鐚??泣?若???贋?ユ??鐚?
19     tipCount, // : Integer // ?鴻???????????潟??鐚????若?????
20     tipAllResCount, // : Integer // ?鴻???????????潟??鐚??泣?若??鐚?
21     tipNewResCount, // : Integer // ?鴻???????亥????/span>
22     tipSize, // : Integer // ?鴻???????泣?ゃ??/span>
23     tipRound, // : Boolean // 綏≦????????/span>
24     tipRoundName, // : string // 綏≦????
25     tipIsLogFile, // : Boolean // ???医?????????/span>
26     tipKokomade, // : Integer // ?潟?潟?障?ц????????/span>
27     tipNewReceive, // : Integer // ?潟?潟?????域???篆?/span>
28     tipNewArrival, // : Boolean // ?亥??
29     tipUnRead, // : Boolean // ?????????/span>
30     tipScrollTop, // : Integer // ?鴻?????若???臀?/span>
31     tipDownloadHost, // : string // 篁??????鴻?????????翫???????鴻??
32     tipAgeSage, // : TThreadAgeSage // ?≪?ゃ?????????筝???
33     tipURL, // : string // ?鴻???????????????吟?ц;腓冴??????? URL
34     tipFilePath // : string // ?????鴻????篆?絖???????????????/span>
35     );
36    
37     // *************************************************************************
38     // TThreadItem ????????????
39     // *************************************************************************
40     TThreadItemCreate = procedure(
41     inInstance : DWORD
42     ); stdcall;
43    
44     // *************************************************************************
45     // TThreadItem ???贋???????
46     // *************************************************************************
47     TThreadItemDispose = procedure(
48     inInstance : DWORD
49     ); stdcall;
50    
51     // *************************************************************************
52     // ?????潟???若??????腓?/span>
53     // *************************************************************************
54     TThreadItemOnDownload = function(
55     inInstance : DWORD // ?ゃ?潟?鴻?帥?潟??/span>
56     ) : TDownloadState; stdcall; // ?????潟???若????????????????????
57    
58     // *************************************************************************
59 yoffy 1.2 // ?吾??莨若?帥????腓?/span>
60     // *************************************************************************
61     TThreadItemOnWrite = function(
62     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
63     inName : PChar; // ????(??潟????
64     inMail : PChar; // ?<?若???≪??????/span>
65     inMessage : PChar // ????
66     ) : TDownloadState; stdcall; // ?吾??莨若?帥??????????????????
67    
68     // *************************************************************************
69 yoffy 1.1 // ???合?? n ??????? html ??荀?羆?
70     // *************************************************************************
71     TThreadItemOnGetRes = function(
72     inInstance : DWORD; // ?ゃ?潟?鴻?帥?潟??/span>
73     inNo : DWORD // 茵?ず???????合???/span>
74     ) : PChar; stdcall; // 茵?ず???? HTML
75    
76     // *************************************************************************
77 h677 1.9 // ???合?? n ??????? Dat ??荀?羆?
78     // *************************************************************************
79     TThreadItemOnGetDat = function(
80     inInstance : DWORD; // ?ゃ?潟?鴻?帥?潟??/span>
81     inNo : DWORD // 茵?ず???????合???/span>
82     ) : PChar; stdcall; // 鐚??<????????綵√???at
83    
84     // *************************************************************************
85 yoffy 1.1 // ?鴻?????????????? html ??荀?羆?
86     // *************************************************************************
87     TThreadItemOnGetHeader = function(
88     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
89     inOptionalHeader : PChar // 菴遵??????????
90     ) : PChar; stdcall; // ?翫就?????? HTML
91    
92     // *************************************************************************
93     // ?鴻????????????? html ??荀?羆?
94     // *************************************************************************
95     TThreadItemOnGetFooter = function(
96     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
97     inOptionalFooter : PChar // 菴遵??????????/span>
98     ) : PChar; stdcall; // ?翫就?????? HTML
99    
100 yoffy 1.2 // *************************************************************************
101     // ??? ThreadItem ??絮??????帥? URL ??荀?羆?
102     // *************************************************************************
103     TThreadItemOnGetBoardURL = function(
104     inInstance : DWORD // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
105     ) : PChar; stdcall; // ?帥? URL
106 yoffy 1.1
107     function ThreadItemDat2HTML(
108     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
109     inDatRes : PChar; // ????<>?<?若??lt;>?ヤ?ID<>????<> ?ф??????????????鴻??
110     inResNo : DWORD; // ???合???/span>
111     inIsNew : Boolean // ?亥?????鴻???? True
112     ) : PChar; stdcall; // ?翫就?????? HTML
113    
114     implementation
115    
116     uses ExternalBoardManager, GikoSystem, BoardGroup;
117    
118     // *************************************************************************
119     // TThreadItem ?????鴻???????????c????緇?????
120     // *************************************************************************
121     function ThreadItemGetLong(
122     instance : DWORD;
123     propertyID : TThreadItemProperty
124     ) : DWORD; stdcall;
125     var
126     threadItem : TThreadItem;
127     begin
128    
129     threadItem := TThreadItem( instance );
130     case propertyID of
131     tipContext: // : DWORD // ???宴??┃絎???????????/span>
132     Result := threadItem.Context;
133     tipNo: // : Integer // ???/span>
134     Result := threadItem.No;
135     tipFileName: // : string // ?鴻?????????<?ゃ????
136     Result := DWORD( CreateResultString( threadItem.FileName ) );
137     tipTitle: // : string // ?鴻???????帥?ゃ????/span>
138     Result := DWORD( CreateResultString( threadItem.Title ) );
139     tipCount: // : Integer // ?鴻???????????潟??鐚????若?????
140     Result := threadItem.Count;
141     tipAllResCount: // : Integer // ?鴻???????????潟??鐚??泣?若??鐚?
142     Result := threadItem.AllResCount;
143     tipNewResCount: // : Integer // ?鴻???????亥????/span>
144     Result := threadItem.NewResCount;
145     tipSize: // : Integer // ?鴻???????泣?ゃ??/span>
146     Result := threadItem.Size;
147     tipRound: // : Boolean // 綏≦????????/span>
148     Result := DWORD( threadItem.Round );
149     tipRoundName: // : string // 綏≦????
150     Result := DWORD( CreateResultString( threadItem.RoundName ) );
151     tipIsLogFile: // : Boolean // ???医?????????/span>
152     Result := DWORD( threadItem.IsLogFile );
153     tipKokomade: // : Integer // ?潟?潟?障?ц????????/span>
154     Result := threadItem.Kokomade;
155     tipNewReceive: // : Integer // ?潟?潟?????域???篆?/span>
156     Result := threadItem.NewReceive;
157     tipNewArrival: // : Boolean // ?亥??
158     Result := DWORD( threadItem.NewArrival );
159     tipUnRead: // : Boolean // ?????????/span>
160     Result := DWORD( threadItem.UnRead );
161     tipScrollTop: // : Integer // ?鴻?????若???臀?/span>
162     Result := threadItem.ScrollTop;
163     tipDownloadHost: // : string // 篁??????鴻?????????翫???????鴻??
164     Result := DWORD( CreateResultString( threadItem.DownloadHost ) );
165     tipAgeSage: // : TThreadAgeSage // ?≪?ゃ?????????筝???
166     Result := DWORD( threadItem.AgeSage );
167     tipURL: // : string // ?鴻???????????????吟?ц;腓冴??????? URL
168     Result := DWORD( CreateResultString( threadItem.URL ) );
169     tipFilePath: // ?????鴻????篆?絖???????????????/span>
170     Result := DWORD( CreateResultString( threadItem.FilePath ) );
171     else
172     Result := 0;
173     end;
174     end;
175    
176     // *************************************************************************
177     // TThreadItem ?????鴻???????????c??荐??????
178     // *************************************************************************
179     procedure ThreadItemSetLong(
180     instance : DWORD;
181     propertyID : TThreadItemProperty;
182     param : DWORD
183     ); stdcall;
184     var
185     threadItem : TThreadItem;
186     begin
187    
188     threadItem := TThreadItem( instance );
189     case propertyID of
190     tipContext: // : DWORD // ???宴??┃絎???????????/span>
191     threadItem.Context := param;
192     tipNo: // : Integer // ???/span>
193     threadItem.No := param;
194     tipFileName: // : string // ?鴻?????????<?ゃ????
195     threadItem.FileName := string( PChar( param ) );
196     tipTitle: // : string // ?鴻???????帥?ゃ????/span>
197     threadItem.Title := string( PChar( param ) );
198     tipCount: // : Integer // ?鴻???????????潟??鐚????若?????
199     threadItem.Count := param;
200     tipAllResCount: // : Integer // ?鴻???????????潟??鐚??泣?若??鐚?
201     threadItem.AllResCount := param;
202     tipNewResCount: // : Integer // ?鴻???????亥????/span>
203     threadItem.NewResCount := param;
204     tipSize: // : Integer // ?鴻???????泣?ゃ??/span>
205     threadItem.Size := param;
206     tipRound: // : Boolean // 綏≦????????/span>
207     threadItem.Round := Boolean( param );
208     tipRoundName: // : string // 綏≦????
209 h677 1.12.4.2 //threadItem.RoundName := string( PChar( param ) );
210     threadItem.RoundName := PChar( param );
211 yoffy 1.1 tipIsLogFile: // : Boolean // ???医?????????/span>
212     threadItem.IsLogFile := Boolean( param );
213     tipKokomade: // : Integer // ?潟?潟?障?ц????????/span>
214     threadItem.Kokomade := param;
215     tipNewReceive: // : Integer // ?潟?潟?????域???篆?/span>
216     threadItem.NewReceive := param;
217     tipNewArrival: // : Boolean // ?亥??
218     threadItem.NewArrival := Boolean( param );
219     tipUnRead: // : Boolean // ?????????/span>
220     threadItem.UnRead := Boolean( param );
221     tipScrollTop: // : Integer // ?鴻?????若???臀?/span>
222     threadItem.ScrollTop := param;
223     tipDownloadHost: // : string // 篁??????鴻?????????翫???????鴻??
224     threadItem.DownloadHost := string( PChar( param ) );
225     tipAgeSage: // : TThreadAgeSage // ?≪?ゃ?????????筝???
226     threadItem.AgeSage := TGikoAgeSage( param );
227     tipURL: // : string // ?鴻???????????????吟?ц;腓冴??????? URL
228     threadItem.URL := string( PChar( param ) );
229 h677 1.12.4.1 //tipFilePath: // : string // ?????鴻????篆?絖???????????????/span>
230     // threadItem.FilePath := string( PChar( param ) );
231 yoffy 1.1 end;
232    
233     end;
234    
235     // *************************************************************************
236     // TThreadItem ?????鴻???????????c????緇?????
237     // *************************************************************************
238     function ThreadItemGetDouble(
239     instance : DWORD;
240     propertyID : TThreadItemProperty
241     ) : Double; stdcall;
242     var
243     threadItem : TThreadItem;
244     begin
245    
246     threadItem := TThreadItem( instance );
247     case propertyID of
248     tipRoundDate: // : TDateTime // ?鴻??????????緇??????ユ??鐚?綏≦???ユ??鐚?
249     Result := threadItem.RoundDate;
250     tipLastModified: // : TDateTime // ?鴻?????????贋?違???????????ユ??鐚??泣?若???贋?ユ??鐚?
251     Result := threadItem.LastModified;
252     else
253     Result := 0;
254     end;
255    
256     end;
257    
258     // *************************************************************************
259     // TThreadItem ?????鴻???????????c??荐??????
260     // *************************************************************************
261     procedure ThreadItemSetDouble(
262     instance : DWORD;
263     propertyID : TThreadItemProperty;
264     param : Double
265     ); stdcall;
266     var
267     threadItem : TThreadItem;
268     begin
269    
270     threadItem := TThreadItem( instance );
271     case propertyID of
272     tipRoundDate: // : TDateTime // ?鴻??????????緇??????ユ??鐚?綏≦???ユ??鐚?
273     threadItem.RoundDate := param;
274     tipLastModified: // : TDateTime // ?鴻?????????贋?違???????????ユ??鐚??泣?若???贋?ユ??鐚?
275     threadItem.LastModified := param;
276     end;
277    
278     end;
279    
280     // *************************************************************************
281     // TThreadItem ?????鴻????????<????????? dat 綵√? 1 茵??? HTML ?????????
282     // *************************************************************************
283     function ThreadItemDat2HTML(
284     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
285     inDatRes : PChar; // ????<>?<?若??lt;>?ヤ?ID<>????<> ?ф??????????????鴻??
286     inResNo : DWORD; // ???合???/span>
287     inIsNew : Boolean // ?亥?????鴻???? True
288     ) : PChar; stdcall; // ?翫就?????? HTML
289     var
290     threadItem : TThreadItem;
291     res : TResRec;
292     no : string;
293     begin
294    
295     threadItem := TThreadItem( inInstance );
296     // 綣??違????茹?/span>
297     res := GikoSys.DivideStrLine( string( inDatRes ) );
298 h677 1.6 if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin
299     res.FBody := GikoSys.AddAnchorTag( res.FBody );
300 h677 1.10 res.FBody := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
301 h677 1.8
302 h677 1.6 no := IntToStr( inResNo );
303 yoffy 1.1
304 h677 1.6 try
305     if GikoSys.Setting.UseSkin then begin
306     // ?鴻????/span>
307     if inIsNew then
308     Result := CreateResultString( GikoSys.SkinedRes(
309     GikoSys.LoadFromSkin(
310 h677 1.11 GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.Size
311 h677 1.6 ), res, no
312     ) )
313     else
314     Result := CreateResultString( GikoSys.SkinedRes(
315     GikoSys.LoadFromSkin(
316 h677 1.11 GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size
317 h677 1.6 ), res, no
318     ) );
319     end else if GikoSys.Setting.UseCSS then begin
320     // CSS
321     if res.FName = '' then
322     res.FName := '&nbsp;';
323     if res.FMailTo = '' then
324     Result := CreateResultString( '<a name="' + no + '"></a>'
325     + '<div class="header"><span class="no"><a href="menu:' + No + '">' + no + '</a></span> '
326     + '<span class="name_label">????鐚?</span> '
327     + '<span class="name"><b>' + res.FName + '</b></span> '
328     + '<span class="date_label">??腮炊?ワ?</span> '
329     + '<span class="date">' + res.FDateTime+ '</span></div>'
330     + '<div class="mes">' + res.FBody + ' </div>' )
331     else if GikoSys.Setting.ShowMail then
332     Result := CreateResultString( '<a name="' + no + '"></a>'
333     + '<div class="header"><span class="no"><a href="menu:' + no + '">' + no + '</a></span>'
334     + '<span class="name_label"> ????鐚? </span>'
335     + '<a class="name_mail" href="mailto:' + res.FMailTo + '">'
336     + '<b>' + res.FName + '</b></a><span class="mail"> [' + res.FMailTo + ']</span>'
337     + '<span class="date_label"> ??腮炊?ワ?</span>'
338     + '<span class="date"> ' + res.FDateTime+ '</span></div>'
339     + '<div class="mes">' + res.FBody + ' </div>' )
340     else
341     Result := CreateResultString( '<a name="' + no + '"></a>'
342     + '<div class="header"><span class="no"><a href="menu:' + no + '">' + no + '</a></span>'
343     + '<span class="name_label"> ????鐚? </span>'
344     + '<a class="name_mail" href="mailto:' + res.FMailTo + '">'
345     + '<b>' + res.FName + '</b></a>'
346     + '<span class="date_label"> ??腮炊?ワ?</span>'
347     + '<span class="date"> ' + res.FDateTime+ '</span></div>'
348     + '<div class="mes">' + res.FBody + ' </div>' );
349     end else begin
350     // ??????????
351     if res.FMailTo = '' then
352     Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> ????鐚?<font color="forestgreen"><b> ' + res.FName + ' </b></font> ??腮炊?ワ? ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
353     else if GikoSys.Setting.ShowMail then
354     Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> ????鐚?<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> [' + res.FMailTo + '] ??腮炊?ワ? ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
355     else
356     Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> ????鐚?<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> ??腮炊?ワ? ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' );
357     end;
358     except
359     Result := nil;
360     end;
361     end else begin
362     Result := nil;
363     end;
364 yoffy 1.1
365     end;
366    
367     // *************************************************************************
368     // TThreadItem ?????鴻???????鴻??????????????????緇?????
369     // *************************************************************************
370     function ThreadItemGetHeader(
371     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
372     inOptionalHeader : PChar // 菴遵??????????
373     ) : PChar; stdcall; // ?翫就?????? HTML
374     var
375     threadItem : TThreadItem;
376     skinHeader : string;
377     optionalHeader : string;
378     begin
379    
380     {$IFDEF DEBUG}
381     Writeln('ExternalBoardManager.ThreadItemGetHeader');
382     {$ENDIF}
383     threadItem := TThreadItem( inInstance );
384     optionalHeader := string( inOptionalHeader );
385    
386     try
387     if GikoSys.Setting.UseSkin then begin
388     // ?鴻????/span>
389 h677 1.12 skinHeader := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.Size );
390 yoffy 1.1 if Length( optionalHeader ) > 0 then
391     skinHeader :=
392 yoffy 1.3 StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );
393 yoffy 1.1 end else if GikoSys.Setting.UseCSS then begin
394     // CSS
395     skinHeader :=
396     '<html><head>' +
397     '<title>' + threadItem.Title + '</title>' +
398     '<link rel="stylesheet" href="'+ GikoSys.Setting.GetStyleSheetDir + GikoSys.Setting.CSSFileName +'" type="text/css">' +
399     optionalHeader +
400     '</head>' +
401     '<body>' +
402 yoffy 1.3 '<a name="top"></a>' +
403 yoffy 1.1 '<div class="title">' + threadItem.Title + '</div>';
404     end else begin
405     // ??????????
406     skinHeader :=
407     '<html><head>' +
408     '<title>' + threadItem.Title + '</title>' +
409     optionalHeader +
410     '</head>' +
411 yoffy 1.3 '<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' +
412     '<a name="top"></a>' +
413     '<font size=+1 color="#FF0000">' + threadItem.Title + '</font>' +
414     '<dl>';
415 yoffy 1.1 end;
416     except
417     end;
418    
419     Result := CreateResultString( skinHeader );
420    
421     end;
422    
423     // *************************************************************************
424     // TThreadItem ?????鴻???????鴻?????????????帥????緇?????
425     // *************************************************************************
426     function ThreadItemGetFooter(
427     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
428     inOptionalFooter : PChar // 菴遵??????????/span>
429     ) : PChar; stdcall; // ?翫就?????? HTML
430     var
431     threadItem : TThreadItem;
432     skinFooter : string;
433     optionalFooter : string;
434     begin
435    
436     {$IFDEF DEBUG}
437     Writeln('ExternalBoardManager.ThreadItemGetFooter');
438     {$ENDIF}
439     threadItem := TThreadItem( inInstance );
440     optionalFooter := string( inOptionalFooter );
441    
442     try
443     if GikoSys.Setting.UseSkin then begin
444 yoffy 1.3 // ?鴻????/span>
445 h677 1.12 skinFooter := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.Size );
446 yoffy 1.1 if Length( optionalFooter ) > 0 then
447     skinFooter :=
448     StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );
449 yoffy 1.3 end else if GikoSys.Setting.UseCSS then begin
450     // CSS
451     skinFooter :=
452     optionalFooter +
453     '</body></html>' +
454     '<a name="last"></a>' +
455     '</body></html>';
456 yoffy 1.1 end else begin
457 yoffy 1.3 // ??????????
458     skinFooter :=
459     '</dl>' +
460     optionalFooter +
461     '</body></html>' +
462     '<a name="last"></a>' +
463     '</body></html>';
464 yoffy 1.1 end;
465     except
466     end;
467    
468     Result := CreateResultString( skinFooter );
469    
470     end;
471    
472     // *************************************************************************
473     // ?鴻?????????????潟???若?????画?????
474     // *************************************************************************
475     procedure ThreadItemWork(
476     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
477     inWorkCount : Integer // ?上?????我??倶?(?????潟??)
478     ); stdcall;
479     begin
480    
481     if Assigned( OnWork ) then
482     OnWork( TObject( inInstance ), wmRead, inWorkCount );
483    
484     end;
485    
486     // *************************************************************************
487     // ?鴻?????????????潟???若????紮??障?c??
488     // *************************************************************************
489     procedure ThreadItemWorkBegin(
490     inInstance : DWORD; // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
491     inWorkCountMax : Integer // ??篆<????????腓冴???????潟??
492     ); stdcall;
493     begin
494    
495     if Assigned( OnWorkBegin ) then
496     OnWorkBegin( TObject( inInstance ), wmRead, inWorkCountMax );
497    
498     end;
499    
500     // *************************************************************************
501     // ?鴻?????????????潟???若????腟???c??
502     // *************************************************************************
503     procedure ThreadItemWorkEnd(
504     inInstance : DWORD // ThreadItem ???ゃ?潟?鴻?帥?潟??/span>
505     ); stdcall;
506     begin
507    
508     if Assigned( OnWorkEnd ) then
509     OnWorkEnd( TObject( inInstance ), wmRead );
510    
511     end;
512    
513     exports
514     ThreadItemGetLong,
515     ThreadItemSetLong,
516     ThreadItemGetDouble,
517     ThreadItemSetDouble,
518     ThreadItemDat2HTML,
519     ThreadItemGetHeader,
520     ThreadItemGetFooter,
521     ThreadItemWork,
522     ThreadItemWorkBegin,
523     ThreadItemWorkEnd;
524    
525     end.
526    

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26