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.4 by yoffy, Fri Nov 21 06:14:31 2003 UTC revision 1.5 by h677, Fri Nov 21 13:50:56 2003 UTC
# Line 327  end; Line 327  end;
327  // *************************************************************************  // *************************************************************************
328  // 2ちゃんねるの dat 形式をローカルあぼ〜んに通す  // 2ちゃんねるの dat 形式をローカルあぼ〜んに通す
329  // *************************************************************************  // *************************************************************************
330    
331  function InternalAbon(  function InternalAbon(
332          inDatText : PChar;                      // 名前<>メール<>日付ID<>本文<>[改行] で構成されたテキスト          inDatText : PChar;                      // 名前<>メール<>日付ID<>本文<>[改行] で構成されたテキスト
333    inDatPath     : PChar                         // dat ファイルのフルパス          inDatPath       : PChar                         // dat ファイルのフルパス
334  ) : PChar; stdcall;                             // あぼ〜ん済みの dat 形式テキスト  
335    ) : PChar; stdcall;                     // あぼ〜ん済みの dat 形式テキスト
336  var  var
337          datList : TStringList;          datList : TStringList;
338        FileName : String;
339  begin  begin
340    
341          datList := TStringList.Create;          datList := TStringList.Create;
342          datList.Text := string( inDatText );          datList.Text := string( inDatText );
343          //GikoSys.FAbon.IndividualAbon( datList, ChangeFileExt(FileName,'.NG'));      FileName := string( inDatPath );
344            GikoSys.FAbon.IndividualAbon( datList, ChangeFileExt(FileName,'.NG'));
345          GikoSys.FAbon.Execute( datList );          GikoSys.FAbon.Execute( datList );
346          GikoSys.FSelectResFilter.Execute( datList );          GikoSys.FSelectResFilter.Execute( datList );
347    
348          Result := CreateResultString( datList.Text );          Result := CreateResultString( datList.Text );
349    
350  end;  end;
351    // *************************************************************************
352    // 2ちゃんねるの dat 形式をローカルあぼ〜んに通す
353    // ただし、1レスずつ
354    // *************************************************************************
355    
356    function InternalAbonForOne(
357            inDatText : PChar;                      // 名前<>メール<>日付ID<>本文<>[改行] で構成されたテキスト
358            inDatPath       : PChar;                                // dat ファイルのフルパス
359            inNo : Integer          //要求されたレス番号
360    ) : PChar; stdcall;                     // あぼ〜ん済みの dat 形式テキスト
361    var
362            datString : String;
363        FileName : String;
364    begin
365    
366            datString := string( inDatText );
367        FileName := string( inDatPath );
368            GikoSys.FAbon.IndividualAbon( datString, ChangeFileExt(FileName,'.NG'), inNo);
369            GikoSys.FAbon.Execute( datString , inNo);
370            GikoSys.FSelectResFilter.Execute( datString , inNo );
371    
372            Result := CreateResultString( datString );
373    
374    end;
375    
376  // *************************************************************************  // *************************************************************************
377  // 2ちゃんねるの dat 形式 1 行を HTML に変換する  // 2ちゃんねるの dat 形式 1 行を HTML に変換する
# Line 379  exports Line 407  exports
407          InternalDownload,          InternalDownload,
408          InternalPost,          InternalPost,
409          InternalAbon,          InternalAbon,
410        InternalAbonForOne,
411          InternalDat2HTML;          InternalDat2HTML;
412    
413  end.  end.

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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