・スレ一覧の列挙時に BoardItem のインスタンスが渡るように変更。

diff --git a/ExternalBoardManager.pas b/ExternalBoardManager.pas
index 48173f4..1aea394 100644 (file)
--- a/ExternalBoardManager.pas
+++ b/ExternalBoardManager.pas
@@ -166,10 +166,11 @@ type
        // \8ae\83X\83\8c\82Ì\8fî\95ñ\82ð\95Ô\8bp
        // *************************************************************************
        TBoardItemEnumThreadCallBack = function(
-               inURL           : PChar;                        // \83X\83\8c\83b\83h\82Ì URL
-               inTitle : PChar;                        // \83X\83\8c\83^\83C
-               inCount : DWORD                         // \83\8c\83X\82Ì\90\94
-       ) : Boolean; stdcall;                                   // \97ñ\8b\93\82ð\91±\82¯\82é\82È\82ç True
+               inInstance      : DWORD;        // TBoardItem \82Ì\83C\83\93\83X\83^\83\93\83X
+               inURL                           : PChar;        // \83X\83\8c\83b\83h\82Ì URL
+               inTitle                 : PChar;        // \83X\83\8c\83^\83C
+               inCount                 : DWORD         // \83\8c\83X\82Ì\90\94
+       ) : Boolean; stdcall;           // \97ñ\8b\93\82ð\91±\82¯\82é\82È\82ç True
 
        // *************************************************************************
        // \82±\82Ì\94Â\82É\95Û\97L\82µ\82Ä\82¢\82é\83X\83\8c\82ð\97ñ\8b\93
@@ -700,6 +701,9 @@ procedure VersionInfo(
 ); stdcall;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.VersionInfo');
+       {$ENDIF}
        outAgent                := CreateResultString( PChar( APP_NAME ) );
        outMajor                := 1;
        outMinor                := 0;
@@ -724,6 +728,9 @@ var
        content                                         : string;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.InternalDownload');
+       {$ENDIF}
        Result := -1;
 
        httpSocket := TIdHTTP.Create( nil );
@@ -850,6 +857,9 @@ var
        datList : TStringList;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.InternalAbon');
+       {$ENDIF}
        datList := TStringList.Create;
        datList.Text := string( inDatText );
        //GikoSys.FAbon.IndividualAbon( datList, ChangeFileExt(FileName,'.NG'));
@@ -873,6 +883,9 @@ var
        threadItem : TThreadItem;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.InternalDat2HTML');
+       {$ENDIF}
        // \83_\83~\81[\82Ì\83N\83\89\83X
        board                           := TBoard.Create;
        threadItem      := TThreadItem.Create;
@@ -1165,6 +1178,9 @@ var
        no : string;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.ThreadItemDat2HTML');
+       {$ENDIF}
        threadItem      := TThreadItem( inInstance );
        // \88ø\90\94\82ð\95ª\89ð
        res                                     := GikoSys.DivideStrLine( string( inDatRes ) );
@@ -1235,6 +1251,9 @@ var
        optionalHeader          : string;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.ThreadItemGetHeader');
+       {$ENDIF}
        threadItem                      := TThreadItem( inInstance );
        optionalHeader  := string( inOptionalHeader );
 
@@ -1285,6 +1304,9 @@ var
        optionalFooter          : string;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.ThreadItemGetFooter');
+       {$ENDIF}
        threadItem                      := TThreadItem( inInstance );
        optionalFooter  := string( inOptionalFooter );
 
@@ -1550,6 +1572,9 @@ var
        isContinue              : Boolean;
 begin
 
+       {$IFDEF DEBUG}
+       Writeln('ExternalBoardManager.BoardItemEnumThread');
+       {$ENDIF}
        try
                board           := TBoard( inInstance );
                subject := TStringList.Create;
@@ -1563,6 +1588,7 @@ begin
                                        Continue;
 
                                isContinue := inCallBack(
+                                       inInstance,
                                        PChar( GikoSys.GetURL( board.BBSID, rec.FFileName ) ),
                                        PChar( rec.FTitle ),
                                        DWORD( rec.FCount ) );