・TBoardPlugIn に Download 命令を追加。

diff --git a/ExternalBoardManager.pas b/ExternalBoardManager.pas
index 0d319b3..a6bbcb7 100644 (file)
--- a/ExternalBoardManager.pas
+++ b/ExternalBoardManager.pas
@@ -66,6 +66,13 @@ type
        inInstance : DWORD
   ); stdcall;
 
+       // *************************************************************************
+       // \83_\83E\83\93\83\8d\81[\83h\82ð\8ew\8e¦\82³\82ê\82½
+       // *************************************************************************
+  TThreadItemOnDownload = procedure(
+       inInstance      : DWORD                 // \83C\83\93\83X\83^\83\93\83X
+  ); stdcall;                                                          // \83_\83E\83\93\83\8d\81[\83h\82³\82ê\82½\83X\83\8c\83b\83h
+
 
 
        // =========================================================================
@@ -80,6 +87,7 @@ type
        FAcceptURL                                      : TOnAcceptURL;
        FCreateThreadItem               : TThreadItemCreate;
        FDisposeThreadItem      : TThreadItemDispose;
+       FDownload                                               : TThreadItemOnDownload;
 
        public
                // \83v\83\89\83O\83C\83\93\82Ì\83p\83X\82ð\8ew\92è\82µ\82Ä\8dì\90¬
@@ -101,8 +109,12 @@ type
                        var outRelease : string; var outRevision : DWORD );
                // \8ew\92è\82µ\82½ URL \82ð\82±\82Ì\83v\83\89\83O\83C\83\93\82Å\8eó\82¯\95t\82¯\82é\82©\82Ç\82¤\82©
        function        AcceptURL( inURL : string ) : Boolean;
+       // TThreadItem \82ª\90¶\90¬\82³\82ê\82½
        procedure       CreateThreadItem( threadItem : DWORD );
+       // TThreadItem \82ª\94j\8aü\82³\82ê\82½
        procedure       DisposeThreadItem( threadItem : DWORD );
+       // \83_\83E\83\93\83\8d\81[\83h\82ð\8ew\8e¦
+       procedure       Download( threadItem: DWORD );
 
        private
                procedure       LoadPlugInAPI;
@@ -330,6 +342,15 @@ begin
 end;
 
 // *************************************************************************
+// \83_\83E\83\93\83\8d\81[\83h\82ð\8ew\8e¦
+// *************************************************************************
+procedure      TBoardPlugIn.Download( threadItem: DWORD );
+begin
+       if Assigned( FDownload ) then
+       FDownload( threadItem );
+end;
+
+// *************************************************************************
 // \83v\83\89\83O\83C\83\93\82Ì API \82ð\8eæ\93¾
 // *************************************************************************
 procedure TBoardPlugIn.LoadPlugInAPI;
@@ -341,6 +362,7 @@ begin
                        FAcceptURL                                      := GetProcAddress( FModule, 'OnAcceptURL' );
                        FCreateThreadItem               := GetProcAddress( FModule, 'ThreadItemCreate' );
                        FDisposeThreadItem      := GetProcAddress( FModule, 'ThreadItemDispose' );
+                       FDownload                                               := GetProcAddress( FModule, 'ThreadItemOnDownload' );
                end;
        except
        end;