gikonavigoeson/gikonavi/ExternalBoardPlugInMain.pas

unit ExternalBoardPlugInMain;

interface

uses
        Windows, Classes, SysUtils, Menus,
        IdHTTP, IdComponent, IdGlobal, IdException,
        AbonUnit, IdAntiFreezeBase;

type

        // ?????潟???若????????????????????
        TDownloadState = (dsWait, dsWork, dsComplete, dsDiffComplete, dsNotModify, dsAbort, dsError);

        // ??絎????? URL ???????????違?ゃ?潟?у???篁?????????????
        TAcceptType = (atNoAccept, atBBS, atBoard, atThread);

        // ?＜???ャ?若??潟????/span>
        TMenuHandler    = procedure(
                inHandle : HMENU                                        // ?＜???ャ?若??潟????/span>
        ); stdcall;

        // *************************************************************************
        // ?????違?ゃ?潟??(罩ｃ???????若????????
        // *************************************************************************
        TOnLoad = procedure (
                inInstance : DWORD                              // ?????違?ゃ?潟???ゃ?潟?鴻?帥?潟??/span>
        ); stdcall;

        // *************************************************************************
        // ?????違?ゃ?潟?????若?吾?с??/span>
        // *************************************************************************
        TOnVersionInfo = procedure(
                var outAgent            : PChar;        // ???若?吾?с?潟??筝??????障????膣?膕?????腱?/span>
                var outMajor            : DWORD;        // ?＜?吾?ｃ?若???若?吾?с??/span>
                var outMinor            : DWORD;        // ???ゃ???若???若?吾?с??/span>
                var outRelease  : PChar;        // ?????若?号?????
                var outRevision : DWORD         // ?????吾?с?潟???潟????/span>
        ); stdcall;

        // *************************************************************************
        // ??絎????? URL ???????????違?ゃ?潟?у???篁?????????????
        // *************************************************************************
        TOnAcceptURL = function(
                inURL : PChar                                           // ?ゆ????篁違???с???? URL
        ): TAcceptType; stdcall;        // URL ??┏蕁?

        // *************************************************************************
        // ??絎?????URL???上????RL?????????
        // *************************************************************************
        TOnExtractBoardURL = procedure(
                inURL : PChar;                                          // 紊???????URL;
        var outURL: PChar                                               // 紊?????????URL
        ); stdcall;     // 紊?????????URL

        // *************************************************************************
        // ?＜???ャ?若??潟????/span>
        // *************************************************************************
        TOnPlugInMenu = procedure(
                inInstance : DWORD              // ?＜???ャ?若??潟????/span>
        ); stdcall;

        // *************************************************************************
        // ?鴻???荀с? URL ?????鴻??????? URL ??絨????冴??
        // *************************************************************************
        TOnListURL2ThreadURL = function(
                inListURL               : PChar;        // ?鴻???荀с??腓冴???? URL
                inFileName      : PChar         // ?鴻?????????＜?ゃ????
        ) : PChar; stdcall;                     // ?鴻??????? URL


function CreateResultString(
        resultStr : string
) : PChar; stdcall;

procedure DisposeResultString(
        resultStr : PChar
); stdcall;

var
        socket : TIdHTTP;

implementation

uses ExternalBoardManager, ExternalThreadItem, GikoSystem, BoardGroup, Giko,
    ReplaceDataModule;

// *************************************************************************
// ?祉???ゃ?? PChar ?с???? API ???＜?≪????腆坂?????
// *************************************************************************
function CreateResultString(
        resultStr : string
) : PChar; stdcall;
var
        tmp : PChar;
begin

        tmp := PChar( resultStr );
        GetMem( Result, Length( tmp ) + 1 );
        Move( tmp^, Result^, Length( tmp ) + 1 );

end;

// *************************************************************************
// ?祉???ゃ?? PChar ?с???? API ???＜?≪???????障????
// *************************************************************************
procedure DisposeResultString(
        resultStr : PChar
); stdcall;
begin

        FreeMem( resultStr );

end;

// *************************************************************************
// ?????違????????????若?吾?с?潟????緇?????
// *************************************************************************
procedure VersionInfo(
        var outAgent            : PChar;        // ???若?吾?с?潟??筝??????障????膣?膕?????腱?/span>
        var outMajor            : DWORD;        // ?＜?吾?ｃ?若???若?吾?с??/span>
        var outMinor            : DWORD;        // ???ゃ???若???若?吾?с??/span>
        var outRelease  : PChar;        // ?????若?号?????
        var outRevision : DWORD         // ?????吾?с?潟???潟????/span>
); stdcall;
begin

        {$IFDEF DEBUG}
        Writeln('ExternalBoardManager.VersionInfo');
        {$ENDIF}
        outAgent                := CreateResultString( PChar( APP_NAME ) );
        outMajor                := 1;
        outMinor                := 0;
        outRelease      := CreateResultString( PChar( BETA_VERSION_NAME_E ) );
        outRevision     := BETA_VERSION;

end;

// *************************************************************************
// ?＜???祉?若?吾??茵?ず????
// *************************************************************************
procedure InternalPrint(
        inMessage       : PChar // ?＜???祉?若??/span>
); stdcall;
begin

        GikoForm.AddMessageList( inMessage, nil, gmiWhat );

end;

// *************************************************************************
// ???????違?＜???祉?若?吾??茵?ず????
// *************************************************************************
procedure InternalDebugPrint(
        inMessage       : PChar // ?＜???祉?若??/span>
); stdcall;
begin

        {$IFDEF DEBUG}
        Writeln( inMessage );
        {$ENDIF}

end;

// *************************************************************************
// ?純?宴????????????????(?????∽??
// *************************************************************************
procedure       InitializeSocket(
        inSocket : TIdHTTP
);
begin

        if inSocket <> nil then begin
                // ?ゃ???潟????┃絎?
                if Assigned( OnWork ) then
                        inSocket.OnWork                         := OnWork;
                if Assigned( OnWorkBegin ) then
                        inSocket.OnWorkBegin    := OnWorkBegin;
                if Assigned( OnWorkEnd ) then
                        inSocket.OnWorkEnd              := OnWorkEnd;

                // ??篆＜???≪????荐??
                inSocket.Request.CustomHeaders.Clear;
                inSocket.Response.Clear;
                inSocket.Request.Clear;

                inSocket.Request.UserAgent      := GikoSys.GetUserAgent;
                inSocket.RecvBufferSize                 := Gikosys.Setting.RecvBufferSize;
                inSocket.ProxyParams.BasicAuthentication := False;
                inSocket.ReadTimeout := GikoSys.Setting.ReadTimeOut;
                {$IFDEF DEBUG}
                Writeln('------------------------------------------------------------');
                {$ENDIF}
                //inSocket.AllowCookies := False;
                if GikoSys.Setting.ReadProxy then begin
                        if GikoSys.Setting.ProxyProtocol then
                                inSocket.ProtocolVersion := pv1_1
                        else
                                inSocket.ProtocolVersion := pv1_0;
                        inSocket.ProxyParams.ProxyServer                := GikoSys.Setting.ReadProxyAddress;
                        inSocket.ProxyParams.ProxyPort                  := GikoSys.Setting.ReadProxyPort;
                        inSocket.ProxyParams.ProxyUsername      := GikoSys.Setting.ReadProxyUserID;
                        inSocket.ProxyParams.ProxyPassword      := GikoSys.Setting.ReadProxyPassword;
                        if GikoSys.Setting.ReadProxyUserID <> '' then
                                inSocket.ProxyParams.BasicAuthentication := True;
                        {$IFDEF DEBUG}
                        Writeln('???????決┃絎?????');
                        Writeln('???鴻??: ' + GikoSys.Setting.ReadProxyAddress);
                        Writeln('???若??: ' + IntToStr( GikoSys.Setting.ReadProxyPort ));
                        {$ENDIF}
                end else begin
                        if GikoSys.Setting.Protocol then
                                inSocket.ProtocolVersion := pv1_1
                        else
                                inSocket.ProtocolVersion := pv1_0;
                        inSocket.ProxyParams.ProxyServer                := '';
                        inSocket.ProxyParams.ProxyPort                  := 80;
                        inSocket.ProxyParams.ProxyUsername      := '';
                        inSocket.ProxyParams.ProxyPassword      := '';
                        {$IFDEF DEBUG}
                        Writeln('???????決┃絎?????');
                        {$ENDIF}
                end;
        end;

end;

// *************************************************************************
// ??絎????? URL ???????潟???若?????????
// *************************************************************************
function InternalDownload(
        inURL                                                   : PChar;        // ?????潟???若?????? URL
        var ioModified          : Double;       // ??緇??????????ユ??
        var outResultData       : PChar;        // ?????潟???若??????????絖???
        inRangeStart                    : DWORD;        // ??紮?篏?臀?/span>
        inRangeEnd                              : DWORD         // 腟?篋?篏?臀?/span>
) : Longint; stdcall;                                   // ???鴻???潟?鴻?潟?若??
var
//      httpSocket                              : TIdHTTP;
        resStream                                       : TMemoryStream;
        content                                         : string;
const
        LIVEDOOR_URL = 'http://jbbs.livedoor.jp/';
begin


        {$IFDEF DEBUG}
        Writeln('ExternalBoardManager.InternalDownload');
        {$ENDIF}
//      Result := -1;

        socket := TIdHTTP.Create( nil );
        try
                InitializeSocket( socket );
                socket.Request.ContentRangeStart        := inRangeStart;
                socket.Request.ContentRangeEnd          := inRangeEnd;
                if (ioModified <> 0) and (ioModified <> ZERO_DATE) then
                        socket.Request.LastModified := ioModified - OffsetFromUTC;
                if inRangeStart = 0 then
                        socket.Request.AcceptEncoding := 'gzip'
                else
                        socket.Request.AcceptEncoding := '';
                socket.Request.Accept := 'text/html';

                resStream := TMemoryStream.Create;
                try
                        try
                                resStream.Clear;
                                {$IFDEF DEBUG}
                                Writeln('URL: ' + inURL);
                                {$ENDIF}
                //AntiFreeze??DL?????炊???鴻???????????с???潟?潟?с?????с?????荀?
                                socket.Get( inURL, resStream );
                                {$IFDEF DEBUG}
                                Writeln('??緇??т?紊?????');
                                {$ENDIF}
                                content                 := GikoSys.GzipDecompress( resStream, socket.Response.ContentEncoding );
                // 臀??????
                if GikoSys.Setting.ReplaceDat then begin
                    content := ReplaceDM.Replace(content);
                end;

                                ioModified      := socket.Response.LastModified;

                                Result := socket.ResponseCode;
                                if (Length( content ) = 0) and (Result = 206) then
                                        Result := 304;
                                //????????BBS???????????????惹???宴??莠????????????с???????с???с????/span>
                                if ( AnsiPos(LIVEDOOR_URL, inURL) > 0 ) and (Result = 200) then begin
                                        if( AnsiPos('STORAGE IN', socket.Response.RawHeaders.Text) > 0 ) then begin
                                                Result := 302;
                                        end;
                                end;
                                outResultData := CreateResultString( content );
                        except
                                on E: EIdSocketError do begin
                                        ioModified              := ZERO_DATE;
                                        outResultData   := nil;
                                        Result                          := socket.ResponseCode;
                                end;
                                on E: EIdConnectException do begin
                                        ioModified              := ZERO_DATE;
                                        outResultData   := nil;
                                        Result                          := socket.ResponseCode;
                                        //Item.ErrText  := E.Message;
                                end;
                                //筝??????????????潟?潟???ャ??
                                on E: EIdClosedSocket do begin
                                        ioModified              := ZERO_DATE;
                                        outResultData   := nil;
                                        Result                          := 408; //?≪?????L?????????????????鴻???潟?鴻?潟?若????200???障?障??/span>
                                                                                                //???ｃ?????障?????с????ず?????????若?潟?若????菴???
                                end;
                                on E: Exception do begin
                                        {$IFDEF DEBUG}
                                        Writeln('??緇??т?紊?????');
                                        Writeln('E.Message: ' + E.Message);
                                        {$ENDIF}
                                        ioModified              := ZERO_DATE;
                                        outResultData   := nil;
                                        Result                          := socket.ResponseCode;
                                        //Item.ErrText  := E.Message;
                                end;
                        end;
                finally
                        resStream.Free;
                end;

        finally
                socket.Free;
                socket := nil;
        end;

end;

// *************************************************************************
// ??絎????? URL ?吾???若?帥????篆＜????
// *************************************************************************
function        InternalPost(
        inURL                                                   : PChar;                        // ??篆＜???? URL
        inSource                                        : PChar;                        // ??篆＜??????絎?/span>
        inReferer                       : PChar;                                // Referer
        var outResultData       : PChar                         // 菴??ｃ????????絖???
) : Longint; stdcall;                                                   // ???鴻???潟?鴻?潟?若??
var
        httpSocket                              : TIdHTTP;
        content                                         : string;
        resStream                                       : TStringStream;
        sourceStream                    : TStringStream;

begin

        {$IFDEF DEBUG}
        Writeln('ExternalBoardManager.InternalPost');
        {$ENDIF}
        Result := -1;

        httpSocket := TIdHTTP.Create( nil );
        try
                InitializeSocket( httpSocket );
                httpSocket.Request.CustomHeaders.Add('Pragma: no-cache');
                httpSocket.Request.AcceptLanguage       := 'ja';
                httpSocket.Request.Accept                                       := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';
                httpSocket.Request.ContentType          := 'application/x-www-form-urlencoded';
                httpSocket.Request.Referer                      := string(inReferer);
                resStream                       := TStringStream.Create( content );
                sourceStream    := TStringStream.Create( string( inSource ) );
                try
                        try
                                {$IFDEF DEBUG}
                                Writeln('URL: ' + inURL);
                                Writeln('Source: ' + inSource);
                                {$ENDIF}
                                httpSocket.Post( string( inURL ), sourceStream, resStream );
                                {$IFDEF DEBUG}
                                Writeln('??緇??т?紊?????');
                                {$ENDIF}

                                Result := httpSocket.ResponseCode;

                                outResultData := CreateResultString( resStream.DataString );
                        except
                                on E: EIdSocketError do begin
                                        outResultData   := nil;
                                end;
                                on E: EIdConnectException do begin
                                        outResultData   := nil;
                                end;
                                on E: Exception do begin
                                        {$IFDEF DEBUG}
                                        Writeln('??緇??т?紊?????');
                                        Writeln('E.Message: ' + E.Message);
                                        {$ENDIF}
                                        outResultData := CreateResultString( resStream.DataString );
                                        Result                          := httpSocket.ResponseCode;
                                end;
                        end;
                finally
                        resStream.Free;
                        sourceStream.Free;
                end;
        finally
                httpSocket.Free;
        end;

end;

// *************************************************************************
// 鐚??＜????????? dat 綵√??????若???????若??????????
// *************************************************************************

function InternalAbon(
        inDatText : PChar;                      // ????<>?＜?若??lt;>?ヤ?ID<>????<>[?壕?] ?ф??????????????鴻??
        inDatPath       : PChar                         // dat ???＜?ゃ????????????/span>

) : PChar; stdcall;                             // ???若????羝??帥? dat 綵√??????鴻??
var
        datList : TStringList;
                FileName : String;
begin

        datList := TStringList.Create;
    try
        datList.Text := string( inDatText );
        FileName := string( inDatPath );
        GikoSys.FAbon.IndividualAbon( datList, ChangeFileExt(FileName,'.NG'));
        GikoSys.FAbon.Execute( datList );
        GikoSys.FSelectResFilter.Execute( datList );

        Result := CreateResultString( datList.Text );
    finally
        datList.Free;
    end;


end;
// *************************************************************************
// 鐚??＜????????? dat 綵√??????若???????若??????????
// ????????鐚????鴻????/span>
// *************************************************************************

function InternalAbonForOne(
        inDatText : PChar;              // ????<>?＜?若??lt;>?ヤ?ID<>????<>[?壕?] ?ф??????????????鴻??
        inDatPath       : PChar;                // dat ???＜?ゃ????????????/span>
        inNo : Integer                          // 荀?羆??????????合???/span>
) : PChar; stdcall;                     // ???若????羝??帥? dat 綵√??????鴻??
var
        datString : String;
                FileName : String;
begin

        datString := string( inDatText );
        FileName := string( inDatPath );
        GikoSys.FAbon.IndividualAbon( datString, ChangeFileExt(FileName,'.NG'), inNo);
        GikoSys.FAbon.Execute( datString , inNo);
        GikoSys.FSelectResFilter.Execute( datString , inNo );

        Result := CreateResultString( datString );

end;

// *************************************************************************
// 鐚??＜????????? dat 綵√? 1 茵??? HTML ?????????
// *************************************************************************
function InternalDat2HTML(
        inDatRes                : PChar;                // ????<>?＜?若??lt;>?ヤ?ID<>????<> ?ф??????????????鴻??
        inResNo                 : DWORD;                // ???合???/span>
        inIsNew                 : Boolean               // ?亥?????鴻???? True
) : PChar; stdcall;                             // ?翫就?????? HTML
var
        board                           : TBoard;
        threadItem      : TThreadItem;
begin

        // ?????若????????/span>
        board                           := TBoard.Create( nil, 'about://dummy/' );
        threadItem      := TThreadItem.Create( nil, board, 'about://dummy/test/read.cgi/dummy/' );
        try
                try
                        board.Add( threadItem );

                        Result := ThreadItemDat2HTML( DWORD( threadItem ), inDatRes, inResNo, inIsNew );
                except
                        Result := nil;
                end;
        finally
                board.Free;
        end;

end;

// *************************************************************************
// ?????違?ゃ?潟?＜???ャ?若????????菴遵??
// *************************************************************************
function AddPlugInMenu(
        inInstance      : DWORD;                // ?????違?ゃ?潟???ゃ?潟?鴻?帥?潟??/span>
        inCaption       : PChar                         // ?＜???ャ?若??；腓冴??????絖???
) : HMENU; stdcall;                             // ?＜???ャ?若??潟??????菴遵????け???????翫??? NULL
var
        newItem         : TMenuItem;
begin

        try
                newItem                                 := TMenuItem.Create( nil );
                newItem.Caption := inCaption;
                newItem.Tag                     := inInstance;
                newItem.OnClick := GikoForm.OnPlugInMenuItem;
                GikoForm.PlugInMenu.Add( newItem );

                Result := newItem.Handle;
        except
                Result := 0;
        end;

end;

// *************************************************************************
// ?????違?ゃ?潟?＜???ャ?若??????????????/span>
// *************************************************************************
procedure RemovePlugInMenu(
        inHandle        : HMENU                         // ?＜???ャ?若??潟????/span>
); stdcall;
var
        i                                       : Integer;
begin

        for i := GikoForm.PlugInMenu.Count - 1 downto 0 do begin
                if GikoForm.PlugInMenu.Items[ i ].Handle = inHandle then begin
            GikoForm.PlugInMenu.items[i].Free;
                        //GikoForm.PlugInMenu.Delete( i );
                        Break;
                end;
        end;

end;

exports
        CreateResultString,
        DisposeResultString,
        VersionInfo,
        InternalPrint,
        InternalDebugPrint,
        InternalDownload,
        InternalPost,
        InternalAbon,
        InternalAbonForOne,
        InternalDat2HTML,
        AddPlugInMenu,
        RemovePlugInMenu;

end.