・GetHeader, GetFooter API を追加。

diff --git a/ExternalBoardManager.pas b/ExternalBoardManager.pas
index e01bee5..f578aae 100644 (file)
--- a/ExternalBoardManager.pas
+++ b/ExternalBoardManager.pas
@@ -514,13 +514,13 @@ begin
                        if inIsNew then
                                Result := CreateResultString( GikoSys.SkinedRes(
                                        GikoSys.LoadFromSkin(
-                                               GikoSys.GetSkinNewResFileName, threadItem, 0
+                                               GikoSys.Setting.GetSkinNewResFileName, threadItem, 0
                                        ), res, no
                                ) )
                        else
                                Result := CreateResultString( GikoSys.SkinedRes(
                                        GikoSys.LoadFromSkin(
-                                               GikoSys.GetSkinResFileName, threadItem, 0
+                                               GikoSys.Setting.GetSkinResFileName, threadItem, 0
                                        ), res, no
                                ) );
                end else begin
@@ -560,6 +560,54 @@ begin
 end;
 
 // *************************************************************************
+// TThreadItem \83N\83\89\83X\82ð\8c³\82É\83X\83\8c\83b\83h\82Ì\83w\83b\83_\82ð\8eæ\93¾\82·\82é
+// *************************************************************************
+function ThreadItemGetHeader(
+       inInstance                              : DWORD;        // \83N\83\89\83X\82Ì\83C\83\93\83X\83^\83\93\83X
+       inOptionalHeader        : PChar         // \92Ç\89Á\82Ì\83w\83b\83_
+) : PChar; stdcall;                                            // \90®\8c`\82³\82ê\82½ HTML
+var
+       threadItem                              : TThreadItem;
+       skinHeader                              : string;
+       optionalHeader          : string;
+begin
+
+       threadItem                      := TThreadItem( inInstance );
+       optionalHeader  := string( inOptionalHeader );
+       skinHeader                      := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, 0 );
+       if Length( optionalHeader ) > 0 then
+               skinHeader := StringReplace( skinHeader, '</head>',
+                       string( optionalHeader ) + '</head>', [rfReplaceAll] );
+
+       Result := CreateResultString( skinHeader );
+
+end;
+
+// *************************************************************************
+// TThreadItem \83N\83\89\83X\82ð\8c³\82É\83X\83\8c\83b\83h\82Ì\83t\83b\83^\82ð\8eæ\93¾\82·\82é
+// *************************************************************************
+function ThreadItemGetFooter(
+       inInstance                              : DWORD;        // \83N\83\89\83X\82Ì\83C\83\93\83X\83^\83\93\83X
+       inOptionalFooter        : PChar         // \92Ç\89Á\82Ì\83t\83b\83^
+) : PChar; stdcall;                                            // \90®\8c`\82³\82ê\82½ HTML
+var
+       threadItem                              : TThreadItem;
+       skinFooter                              : string;
+       optionalFooter          : string;
+begin
+
+       threadItem                      := TThreadItem( inInstance );
+       optionalFooter  := string( inOptionalFooter );
+       skinFooter                      := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, 0 );
+       if Length( optionalFooter ) > 0 then
+               skinFooter := StringReplace( skinFooter, '</body>',
+                       string( optionalFooter ) + '</body>', [rfReplaceAll] );
+
+       Result := CreateResultString( skinFooter );
+
+end;
+
+// *************************************************************************
 // \83_\83E\83\93\83\8d\81[\83h\82ª\90i\8ds\82µ\82½
 // *************************************************************************
 procedure ThreadItemWork(
@@ -620,8 +668,11 @@ exports
        ThreadItemGetDouble,
        ThreadItemSetDouble,
        ThreadItemDat2HTML,
+       ThreadItemGetHeader,
+       ThreadItemGetFooter,
        ThreadItemWork,
        ThreadItemWorkBegin,
        ThreadItemWorkEnd;
 
 end.
+