| 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; |
| 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 ); |
| 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; |