Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ExternalBoardPlugInMain.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by yoffy, Sun Nov 23 14:14:07 2003 UTC revision 1.7 by yoffy, Thu Nov 27 13:04:17 2003 UTC
# Line 358  function InternalAbon( Line 358  function InternalAbon(
358          inDatText : PChar;                      // 名前<>メール<>日付ID<>本文<>[改行] で構成されたテキスト          inDatText : PChar;                      // 名前<>メール<>日付ID<>本文<>[改行] で構成されたテキスト
359          inDatPath       : PChar                         // dat ファイルのフルパス          inDatPath       : PChar                         // dat ファイルのフルパス
360    
361  ) : PChar; stdcall;                     // あぼ〜ん済みの dat 形式テキスト  ) : PChar; stdcall;                             // あぼ〜ん済みの dat 形式テキスト
362  var  var
363          datList : TStringList;          datList : TStringList;
364                  FileName : String;                  FileName : String;
# Line 366  begin Line 366  begin
366    
367          datList := TStringList.Create;          datList := TStringList.Create;
368          datList.Text := string( inDatText );          datList.Text := string( inDatText );
369                  FileName := string( inDatPath );          FileName := string( inDatPath );
370          GikoSys.FAbon.IndividualAbon( datList, ChangeFileExt(FileName,'.NG'));          GikoSys.FAbon.IndividualAbon( datList, ChangeFileExt(FileName,'.NG'));
371          GikoSys.FAbon.Execute( datList );          GikoSys.FAbon.Execute( datList );
372          GikoSys.FSelectResFilter.Execute( datList );          GikoSys.FSelectResFilter.Execute( datList );
# Line 413  var Line 413  var
413  begin  begin
414    
415          // ダミーのクラス          // ダミーのクラス
416          board                           := TBoard.Create;          board                           := TBoard.Create( nil, 'about://dummy/' );
417          threadItem      := TThreadItem.Create;          threadItem      := TThreadItem.Create( nil, 'about://dummy/test/read.cgi/dummy/' );
   
418          try          try
419                  threadItem.ParentBoard := Board;                  try
420                            board.Add( threadItem );
421    
422                  Result := ThreadItemDat2HTML( DWORD( threadItem ), inDatRes, inResNo, inIsNew );                          Result := ThreadItemDat2HTML( DWORD( threadItem ), inDatRes, inResNo, inIsNew );
423          except                  except
424                  Result := nil;                          Result := nil;
425                    end;
426            finally
427                    board.Free;
428          end;          end;
429    
430  end;  end;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26