ExternalBoardPlugInMain.pas

   1 unit ExternalBoardPlugInMain;
   2
   3 interface
   4
   5 uses
   6         Windows, Classes, SysUtils, Menus,
   7         IdHTTP, IdComponent, IdGlobal, IdException,
   8         AbonUnit;
   9
  10 type
  11
  12         // \83_\83E\83\93\83\8d\81[\83h\82ª\90¬\8c÷\82µ\82½\82©\82Ç\82¤\82©
  13         TDownloadState = (dsWait, dsWork, dsComplete, dsDiffComplete, dsNotModify, dsAbort, dsError);
  14
  15         // \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©
  16         TAcceptType = (atNoAccept, atBBS, atBoard, atThread);
  17
  18         // \83\81\83j\83\85\81[\83n\83\93\83h\83\89
  19         TMenuHandler    = procedure(
  20                 inHandle : HMENU                                        // \83\81\83j\83\85\81[\83n\83\93\83h\83\8b
  21         ); stdcall;
  22
  23         // *************************************************************************
  24         // \83v\83\89\83O\83C\83\93\82ª(\90³\82µ\82)\83\8d\81[\83h\82³\82ê\82½
  25         // *************************************************************************
  26         TOnLoad = procedure (
  27                 inInstance : DWORD                              // \83v\83\89\83O\83C\83\93\82Ì\83C\83\93\83X\83^\83\93\83X
  28         ); stdcall;
  29
  30         // *************************************************************************
  31         // \83v\83\89\83O\83C\83\93\82Ì\83o\81[\83W\83\87\83\93
  32         // *************************************************************************
  33         TOnVersionInfo = procedure(
  34                 var outAgent            : PChar;        // \83o\81[\83W\83\87\83\93\82ð\88ê\90Ø\8aÜ\82Ü\82È\82¢\8f\83\90\88\82È\96¼\8fÌ
  35                 var outMajor            : DWORD;        // \83\81\83W\83\83\81[\83o\81[\83W\83\87\83\93
  36                 var outMinor            : DWORD;        // \83}\83C\83i\81[\83o\81[\83W\83\87\83\93
  37                 var outRelease  : PChar;        // \83\8a\83\8a\81[\83X\92i\8aK\96¼
  38                 var outRevision : DWORD         // \83\8a\83r\83W\83\87\83\93\83i\83\93\83o\81[
  39         ); stdcall;
  40
  41         // *************************************************************************
  42         // \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©
  43         // *************************************************************************
  44         TOnAcceptURL = function(
  45                 inURL : PChar                                           // \94»\92f\82ð\8bÂ\82¢\82Å\82¢\82é URL
  46         ): TAcceptType; stdcall;        // URL \82Ì\8eí\97Þ
  47
  48         // *************************************************************************
  49         // \83\81\83j\83\85\81[\83n\83\93\83h\83\89
  50         // *************************************************************************
  51         TOnPlugInMenu = procedure(
  52                 inInstance : DWORD              // \83\81\83j\83\85\81[\83n\83\93\83h\83\8b
  53         ); stdcall;
  54
  55         // *************************************************************************
  56         // \83X\83\8c\88ê\97\97\82Ì URL \82©\82ç\83X\83\8c\83b\83h\82Ì URL \82ð\93±\82«\8fo\82·
  57         // *************************************************************************
  58         TOnListURL2ThreadURL = function(
  59                 inListURL               : PChar;        // \83X\83\8c\88ê\97\97\82ð\8e¦\82µ\82½ URL
  60                 inFileName      : PChar         // \83X\83\8c\83b\83h\83t\83@\83C\83\8b\96¼
  61         ) : PChar; stdcall;                     // \83X\83\8c\83b\83h\82Ì URL
  62
  63
  64 function CreateResultString(
  65         resultStr : string
  66 ) : PChar; stdcall;
  67
  68 procedure DisposeResultString(
  69         resultStr : PChar
  70 ); stdcall;
  71
  72 var
  73         socket : TIdHTTP;
  74
  75 implementation
  76
  77 uses ExternalBoardManager, ExternalThreadItem, GikoSystem, BoardGroup, Giko;
  78
  79 // *************************************************************************
  80 // \96ß\82è\92l\82ª PChar \82Å\82 \82é API \82Ì\83\81\83\82\83\8a\82ð\8am\95Û\82·\82é
  81 // *************************************************************************
  82 function CreateResultString(
  83         resultStr : string
  84 ) : PChar; stdcall;
  85 var
  86         tmp : PChar;
  87 begin
  88
  89         tmp := PChar( resultStr );
  90         GetMem( Result, Length( tmp ) + 1 );
  91         Move( tmp^, Result^, Length( tmp ) + 1 );
  92
  93 end;
  94
  95 // *************************************************************************
  96 // \96ß\82è\92l\82ª PChar \82Å\82 \82é API \82Ì\83\81\83\82\83\8a\82ð\8aJ\95ú\82·\82é
  97 // *************************************************************************
  98 procedure DisposeResultString(
  99         resultStr : PChar
 100 ); stdcall;
 101 begin
 102
 103         FreeMem( resultStr );
 104
 105 end;
 106
 107 // *************************************************************************
 108 // \83v\83\8d\83O\83\89\83\80\96{\91Ì\82Ì\83o\81[\83W\83\87\83\93\82ð\8eæ\93¾\82·\82é
 109 // *************************************************************************
 110 procedure VersionInfo(
 111         var outAgent            : PChar;        // \83o\81[\83W\83\87\83\93\82ð\88ê\90Ø\8aÜ\82Ü\82È\82¢\8f\83\90\88\82È\96¼\8fÌ
 112         var outMajor            : DWORD;        // \83\81\83W\83\83\81[\83o\81[\83W\83\87\83\93
 113         var outMinor            : DWORD;        // \83}\83C\83i\81[\83o\81[\83W\83\87\83\93
 114         var outRelease  : PChar;        // \83\8a\83\8a\81[\83X\92i\8aK\96¼
 115         var outRevision : DWORD         // \83\8a\83r\83W\83\87\83\93\83i\83\93\83o\81[
 116 ); stdcall;
 117 begin
 118
 119         {$IFDEF DEBUG}
 120         Writeln('ExternalBoardManager.VersionInfo');
 121         {$ENDIF}
 122         outAgent                := CreateResultString( PChar( APP_NAME ) );
 123         outMajor                := 1;
 124         outMinor                := 0;
 125         outRelease      := CreateResultString( PChar( BETA_VERSION_NAME_E ) );
 126         outRevision     := BETA_VERSION;
 127
 128 end;
 129
 130 // *************************************************************************
 131 // \83\81\83b\83Z\81[\83W\82ð\95\\8e¦\82·\82é
 132 // *************************************************************************
 133 procedure InternalPrint(
 134         inMessage       : PChar // \83\81\83b\83Z\81[\83W
 135 ); stdcall;
 136 begin
 137
 138         GikoForm.AddMessageList( inMessage, nil, gmiWhat );
 139
 140 end;
 141
 142 // *************************************************************************
 143 // \83f\83o\83b\83O\83\81\83b\83Z\81[\83W\82ð\95\\8e¦\82·\82é
 144 // *************************************************************************
 145 procedure InternalDebugPrint(
 146         inMessage       : PChar // \83\81\83b\83Z\81[\83W
 147 ); stdcall;
 148 begin
 149
 150         {$IFDEF DEBUG}
 151         Writeln( inMessage );
 152         {$ENDIF}
 153
 154 end;
 155
 156 // *************************************************************************
 157 // \83\\83P\83b\83g\82ð\8f\89\8aú\89»\82·\82é(\8eG\97p\8aÖ\90\94)
 158 // *************************************************************************
 159 procedure       InitializeSocket(
 160         inSocket : TIdHTTP
 161 );
 162 begin
 163
 164         if inSocket <> nil then begin
 165                 // \83C\83x\83\93\83g\82Ì\90Ý\92è
 166                 if Assigned( OnWork ) then
 167                         inSocket.OnWork                         := OnWork;
 168                 if Assigned( OnWorkBegin ) then
 169                         inSocket.OnWorkBegin    := OnWorkBegin;
 170                 if Assigned( OnWorkEnd ) then
 171                         inSocket.OnWorkEnd              := OnWorkEnd;
 172
 173                 // \92Ê\90M\82É\8aÖ\82·\82é\90Ý\92è
 174                 inSocket.Request.CustomHeaders.Clear;
 175                 inSocket.Response.Clear;
 176                 inSocket.Request.Clear;
 177
 178                 inSocket.Request.UserAgent      := GikoSys.GetUserAgent;
 179                 inSocket.RecvBufferSize                 := Gikosys.Setting.RecvBufferSize;
 180                 inSocket.ProxyParams.BasicAuthentication := False;
 181                 {$IFDEF DEBUG}
 182                 Writeln('------------------------------------------------------------');
 183                 {$ENDIF}
 184                 //inSocket.AllowCookies := False;
 185                 if GikoSys.Setting.ReadProxy then begin
 186                         if GikoSys.Setting.ProxyProtocol then
 187                                 inSocket.ProtocolVersion := pv1_1
 188                         else
 189                                 inSocket.ProtocolVersion := pv1_0;
 190                         inSocket.ProxyParams.ProxyServer                := GikoSys.Setting.ReadProxyAddress;
 191                         inSocket.ProxyParams.ProxyPort                  := GikoSys.Setting.ReadProxyPort;
 192                         inSocket.ProxyParams.ProxyUsername      := GikoSys.Setting.ReadProxyUserID;
 193                         inSocket.ProxyParams.ProxyPassword      := GikoSys.Setting.ReadProxyPassword;
 194                         if GikoSys.Setting.ReadProxyUserID <> '' then
 195                                 inSocket.ProxyParams.BasicAuthentication := True;
 196                         {$IFDEF DEBUG}
 197                         Writeln('\83v\83\8d\83L\83V\90Ý\92è\82 \82è');
 198                         Writeln('\83z\83X\83g: ' + GikoSys.Setting.ReadProxyAddress);
 199                         Writeln('\83|\81[\83g: ' + IntToStr( GikoSys.Setting.ReadProxyPort ));
 200                         {$ENDIF}
 201                 end else begin
 202                         if GikoSys.Setting.Protocol then
 203                                 inSocket.ProtocolVersion := pv1_1
 204                         else
 205                                 inSocket.ProtocolVersion := pv1_0;
 206                         inSocket.ProxyParams.ProxyServer                := '';
 207                         inSocket.ProxyParams.ProxyPort                  := 80;
 208                         inSocket.ProxyParams.ProxyUsername      := '';
 209                         inSocket.ProxyParams.ProxyPassword      := '';
 210                         {$IFDEF DEBUG}
 211                         Writeln('\83v\83\8d\83L\83V\90Ý\92è\82È\82µ');
 212                         {$ENDIF}
 213                 end;
 214         end;
 215
 216 end;
 217
 218 // *************************************************************************
 219 // \8ew\92è\82µ\82½ URL \82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82Ä\95Ô\82·
 220 // *************************************************************************
 221 function InternalDownload(
 222         inURL                                                   : PChar;        // \83_\83E\83\93\83\8d\81[\83h\82·\82é URL
 223         var ioModified          : Double;       // \8dÅ\8cã\82É\8eæ\93¾\82µ\82½\93ú\8e\9e
 224         var outResultData       : PChar;        // \83_\83E\83\93\83\8d\81[\83h\82³\82ê\82½\95¶\8e\9a\97ñ
 225         inRangeStart                    : DWORD;        // \8aJ\8en\88Ê\92u
 226         inRangeEnd                              : DWORD         // \8fI\97¹\88Ê\92u
 227 ) : Longint; stdcall;                                   // \83\8c\83X\83|\83\93\83X\83R\81[\83h
 228 var
 229 //      httpSocket                              : TIdHTTP;
 230         resStream                                       : TMemoryStream;
 231         content                                         : string;
 232
 233 begin
 234
 235         {$IFDEF DEBUG}
 236         Writeln('ExternalBoardManager.InternalDownload');
 237         {$ENDIF}
 238 //      Result := -1;
 239
 240         socket := TIdHTTP.Create( nil );
 241         try
 242                 InitializeSocket( socket );
 243
 244                 socket.Request.ContentRangeStart        := inRangeStart;
 245                 socket.Request.ContentRangeEnd          := inRangeEnd;
 246                 if (ioModified <> 0) and (ioModified <> ZERO_DATE) then
 247                         socket.Request.LastModified := ioModified - OffsetFromUTC;
 248                 if inRangeStart = 0 then
 249                         socket.Request.AcceptEncoding := 'gzip'
 250                 else
 251                         socket.Request.AcceptEncoding := '';
 252                 socket.Request.Accept := 'text/html';
 253
 254                 resStream := TMemoryStream.Create;
 255                 try
 256                         try
 257                                 resStream.Clear;
 258                                 {$IFDEF DEBUG}
 259                                 Writeln('URL: ' + inURL);
 260                                 {$ENDIF}
 261                                 socket.Get( inURL, resStream );
 262                                 {$IFDEF DEBUG}
 263                                 Writeln('\8eæ\93¾\82Å\97á\8aO\82È\82µ');
 264                                 {$ENDIF}
 265
 266                                 content                 := GikoSys.GzipDecompress( resStream, socket.Response.ContentEncoding );
 267
 268                                 ioModified      := socket.Response.LastModified;
 269
 270                                 Result := socket.ResponseCode;
 271                                 if (Length( content ) = 0) and (Result = 206) then
 272                                         Result := 304;
 273                                 if ( AnsiPos('http://jbbs.livedoor.com/', inURL) > 0 ) and (Result = 200) then begin
 274                                         if( AnsiPos('STORAGE IN', socket.Response.RawHeaders.Text) > 0 ) then begin
 275                                                 Result := 302;
 276                                         end;
 277                                 end;
 278                                 outResultData := CreateResultString( content );
 279                         except
 280                                 on E: EIdSocketError do begin
 281                                         ioModified              := ZERO_DATE;
 282                                         outResultData   := nil;
 283                                         Result                          := socket.ResponseCode;
 284                                 end;
 285                                 on E: EIdConnectException do begin
 286                                         ioModified              := ZERO_DATE;
 287                                         outResultData   := nil;
 288                                         Result                          := socket.ResponseCode;
 289                                         //Item.ErrText  := E.Message;
 290                                 end;
 291                                 //\92\86\92f\82³\82ê\82½\82Æ\82«\83R\83R\82É\93ü\82é
 292                                 on E: EIdClosedSocket do begin
 293                                         ioModified              := ZERO_DATE;
 294                                         outResultData   := nil;
 295                                         Result                          := 408; //\8aù\82É\88ê\95\94DL\90¬\8c÷\82µ\82Ä\82¢\82é\82Æ\83\8c\83X\83|\83\93\83X\83R\81[\83h\82ª200\82Ì\82Ü\82Ü\82É
 296                                                                                                 //\82È\82Á\82Ä\82µ\82Ü\82¤\82Ì\82Å\81A\96¾\8e¦\93I\82É\83G\83\89\81[\83R\81[\83h\82ð\95Ô\82·
 297                                 end;
 298                                 on E: Exception do begin
 299                                         {$IFDEF DEBUG}
 300                                         Writeln('\8eæ\93¾\82Å\97á\8aO\82 \82è');
 301                                         Writeln('E.Message: ' + E.Message);
 302                                         {$ENDIF}
 303                                         ioModified              := ZERO_DATE;
 304                                         outResultData   := nil;
 305                                         Result                          := socket.ResponseCode;
 306                                         //Item.ErrText  := E.Message;
 307                                 end;
 308                         end;
 309                 finally
 310                         resStream.Free;
 311                 end;
 312
 313         finally
 314                 socket.Free;
 315                 socket := nil;
 316         end;
 317
 318 end;
 319
 320 // *************************************************************************
 321 // \8ew\92è\82µ\82½ URL \82Ö\83f\81[\83^\82ð\91\97\90M\82·\82é
 322 // *************************************************************************
 323 function        InternalPost(
 324         inURL                                                   : PChar;                        // \91\97\90M\82·\82é URL
 325         inSource                                        : PChar;                        // \91\97\90M\82·\82é\93à\97e
 326         var outResultData       : PChar                         // \95Ô\82Á\82Ä\82«\82½\95¶\8e\9a\97ñ
 327 ) : Longint; stdcall;                                                   // \83\8c\83X\83|\83\93\83X\83R\81[\83h
 328 var
 329         httpSocket                              : TIdHTTP;
 330         content                                         : string;
 331         resStream                                       : TStringStream;
 332         sourceStream                    : TStringStream;
 333         tmpURL, Protocol, Host, Path, Document, Port, Bookmark : string;
 334 begin
 335
 336         {$IFDEF DEBUG}
 337         Writeln('ExternalBoardManager.InternalPost');
 338         {$ENDIF}
 339         Result := -1;
 340
 341         httpSocket := TIdHTTP.Create( nil );
 342         try
 343                 InitializeSocket( httpSocket );
 344                 tmpURL := string(inURL);
 345                 GikoSys.ParseURI(tmpURL, Protocol,Host, Path, Document, Port, Bookmark);
 346                 httpSocket.Request.CustomHeaders.Add('Pragma: no-cache');
 347                 httpSocket.Request.AcceptLanguage       := 'ja';
 348                 httpSocket.Request.Accept                                       := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';
 349                 httpSocket.Request.ContentType          := 'application/x-www-form-urlencoded';
 350                 httpSocket.Request.Referer                      := Protocol + '://' + Host;
 351                 resStream                       := TStringStream.Create( content );
 352                 sourceStream    := TStringStream.Create( string( inSource ) );
 353                 try
 354                         try
 355                                 {$IFDEF DEBUG}
 356                                 Writeln('URL: ' + inURL);
 357                                 Writeln('Source: ' + inSource);
 358                                 {$ENDIF}
 359                                 httpSocket.Post( string( inURL ), sourceStream, resStream );
 360                                 {$IFDEF DEBUG}
 361                                 Writeln('\8eæ\93¾\82Å\97á\8aO\82È\82µ');
 362                                 {$ENDIF}
 363
 364                                 Result := httpSocket.ResponseCode;
 365
 366                                 outResultData := CreateResultString( resStream.DataString );
 367                         except
 368                                 on E: EIdSocketError do begin
 369                                         outResultData   := nil;
 370                                 end;
 371                                 on E: EIdConnectException do begin
 372                                         outResultData   := nil;
 373                                 end;
 374                                 on E: Exception do begin
 375                                         {$IFDEF DEBUG}
 376                                         Writeln('\8eæ\93¾\82Å\97á\8aO\82 \82è');
 377                                         Writeln('E.Message: ' + E.Message);
 378                                         {$ENDIF}
 379                                         outResultData := CreateResultString( resStream.DataString );
 380                                         Result                          := httpSocket.ResponseCode;
 381                                 end;
 382                         end;
 383                 finally
 384                         resStream.Free;
 385                         sourceStream.Free;
 386                 end;
 387         finally
 388                 httpSocket.Free;
 389         end;
 390
 391 end;
 392
 393 // *************************************************************************
 394 // \82Q\82¿\82á\82ñ\82Ë\82é\82Ì dat \8c`\8e®\82ð\83\8d\81[\83J\83\8b\82 \82Ú\81`\82ñ\82É\92Ê\82·
 395 // *************************************************************************
 396
 397 function InternalAbon(
 398         inDatText : PChar;                      // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<>[\89ü\8ds] \82Å\8d\\90¬\82³\82ê\82½\83e\83L\83X\83g
 399         inDatPath       : PChar                         // dat \83t\83@\83C\83\8b\82Ì\83t\83\8b\83p\83X
 400
 401 ) : PChar; stdcall;                             // \82 \82Ú\81`\82ñ\8dÏ\82Ý\82Ì dat \8c`\8e®\83e\83L\83X\83g
 402 var
 403         datList : TStringList;
 404                 FileName : String;
 405 begin
 406
 407         datList := TStringList.Create;
 408     try
 409         datList.Text := string( inDatText );
 410         FileName := string( inDatPath );
 411         GikoSys.FAbon.IndividualAbon( datList, ChangeFileExt(FileName,'.NG'));
 412         GikoSys.FAbon.Execute( datList );
 413         GikoSys.FSelectResFilter.Execute( datList );
 414
 415         Result := CreateResultString( datList.Text );
 416     finally
 417         datList.Free;
 418     end;
 419
 420
 421 end;
 422 // *************************************************************************
 423 // \82Q\82¿\82á\82ñ\82Ë\82é\82Ì dat \8c`\8e®\82ð\83\8d\81[\83J\83\8b\82 \82Ú\81`\82ñ\82É\92Ê\82·
 424 // \82½\82¾\82µ\81A\82P\83\8c\83X\82¸\82Â
 425 // *************************************************************************
 426
 427 function InternalAbonForOne(
 428         inDatText : PChar;              // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<>[\89ü\8ds] \82Å\8d\\90¬\82³\82ê\82½\83e\83L\83X\83g
 429         inDatPath       : PChar;                // dat \83t\83@\83C\83\8b\82Ì\83t\83\8b\83p\83X
 430         inNo : Integer                          // \97v\8b\81\82³\82ê\82½\83\8c\83X\94Ô\8d\86
 431 ) : PChar; stdcall;                     // \82 \82Ú\81`\82ñ\8dÏ\82Ý\82Ì dat \8c`\8e®\83e\83L\83X\83g
 432 var
 433         datString : String;
 434                 FileName : String;
 435 begin
 436
 437         datString := string( inDatText );
 438         FileName := string( inDatPath );
 439         GikoSys.FAbon.IndividualAbon( datString, ChangeFileExt(FileName,'.NG'), inNo);
 440         GikoSys.FAbon.Execute( datString , inNo);
 441         GikoSys.FSelectResFilter.Execute( datString , inNo );
 442
 443         Result := CreateResultString( datString );
 444
 445 end;
 446
 447 // *************************************************************************
 448 // \82Q\82¿\82á\82ñ\82Ë\82é\82Ì dat \8c`\8e® 1 \8ds\82ð HTML \82É\95Ï\8a·\82·\82é
 449 // *************************************************************************
 450 function InternalDat2HTML(
 451         inDatRes                : PChar;                // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<> \82Å\8d\\90¬\82³\82ê\82½\83e\83L\83X\83g
 452         inResNo                 : DWORD;                // \83\8c\83X\94Ô\8d\86
 453         inIsNew                 : Boolean               // \90V\92\85\83\8c\83X\82È\82ç True
 454 ) : PChar; stdcall;                             // \90®\8c`\82³\82ê\82½ HTML
 455 var
 456         board                           : TBoard;
 457         threadItem      : TThreadItem;
 458 begin
 459
 460         // \83_\83~\81[\82Ì\83N\83\89\83X
 461         board                           := TBoard.Create( nil, 'about://dummy/' );
 462         threadItem      := TThreadItem.Create( nil, 'about://dummy/test/read.cgi/dummy/' );
 463         try
 464                 try
 465                         board.Add( threadItem );
 466
 467                         Result := ThreadItemDat2HTML( DWORD( threadItem ), inDatRes, inResNo, inIsNew );
 468                 except
 469                         Result := nil;
 470                 end;
 471         finally
 472                 board.Free;
 473         end;
 474
 475 end;
 476
 477 // *************************************************************************
 478 // \83v\83\89\83O\83C\83\93\83\81\83j\83\85\81[\82É\8d\80\96Ú\82ð\92Ç\89Á
 479 // *************************************************************************
 480 function AddPlugInMenu(
 481         inInstance      : DWORD;                // \83v\83\89\83O\83C\83\93\82Ì\83C\83\93\83X\83^\83\93\83X
 482         inCaption       : PChar                         // \83\81\83j\83\85\81[\82É\95\\8e¦\82·\82é\95¶\8e\9a\97ñ
 483 ) : HMENU; stdcall;                             // \83\81\83j\83\85\81[\83n\83\93\83h\83\8b\81A\92Ç\89Á\82É\8e¸\94s\82µ\82½\8fê\8d\87\82Í NULL
 484 var
 485         newItem         : TMenuItem;
 486 begin
 487
 488         try
 489                 newItem                                 := TMenuItem.Create( nil );
 490                 newItem.Caption := inCaption;
 491                 newItem.Tag                     := inInstance;
 492                 newItem.OnClick := GikoForm.OnPlugInMenuItem;
 493                 GikoForm.PlugInMenu.Add( newItem );
 494
 495                 Result := newItem.Handle;
 496         except
 497                 Result := 0;
 498         end;
 499
 500 end;
 501
 502 // *************************************************************************
 503 // \83v\83\89\83O\83C\83\93\83\81\83j\83\85\81[\82©\82ç\8d\80\96Ú\82ð\8dí\8f\9c
 504 // *************************************************************************
 505 procedure RemovePlugInMenu(
 506         inHandle        : HMENU                         // \83\81\83j\83\85\81[\83n\83\93\83h\83\8b
 507 ); stdcall;
 508 var
 509         i                                       : Integer;
 510 begin
 511
 512         for i := GikoForm.PlugInMenu.Count - 1 downto 0 do begin
 513                 if GikoForm.PlugInMenu.Items[ i ].Handle = inHandle then begin
 514             GikoForm.PlugInMenu.items[i].Free;
 515                         //GikoForm.PlugInMenu.Delete( i );
 516                         Break;
 517                 end;
 518         end;
 519
 520 end;
 521
 522 exports
 523         CreateResultString,
 524         DisposeResultString,
 525         VersionInfo,
 526         InternalPrint,
 527         InternalDebugPrint,
 528         InternalDownload,
 529         InternalPost,
 530         InternalAbon,
 531         InternalAbonForOne,
 532         InternalDat2HTML,
 533         AddPlugInMenu,
 534         RemovePlugInMenu;
 535
 536 end.