| 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 に変換する |
| 407 |
InternalDownload, |
InternalDownload, |
| 408 |
InternalPost, |
InternalPost, |
| 409 |
InternalAbon, |
InternalAbon, |
| 410 |
|
InternalAbonForOne, |
| 411 |
InternalDat2HTML; |
InternalDat2HTML; |
| 412 |
|
|
| 413 |
end. |
end. |