提交: 0156befce0601e9998fc83c7ce6cbb3314557f2f - gikonavi (git)

ギコナビ

Commit MetaInfo

• 修订版: 0156befce0601e9998fc83c7ce6cbb3314557f2f (tree)
• 时间: 2005-12-28 02:12:54
• 作者: cvs2git <cvs2git>
• Commiter: cvs2git

Log Message

This commit was manufactured by cvs2svn to create branch 'Bb51'.

更改概述

• delete: res/ExternalBoardPlugIn/BePlugIn.dpr

差异

--- a/res/ExternalBoardPlugIn/BePlugIn.dpr
+++ /dev/null
@@ -1,1578 +0,0 @@
-library BePlugIn;
-
-{
-	BePlugIn
-	2‚¿‚á‚ñ‚Ë‚éBEˆ—ƒ†ƒjƒbƒg
-
-}
-
-uses
-  Windows,
-  SysUtils,
-  Classes,
-  Math,
-  DateUtils,
-  Dialogs,
-  IdURI,
-  PlugInMain in 'PlugInMain.pas',
-  ThreadItem in 'ThreadItem.pas',
-  BoardItem in 'BoardItem.pas',
-	FilePath in 'FilePath.pas',
-  Y_TextConverter in 'Y_TextConverter.pas',
-  MojuUtils in '..\..\MojuUtils.pas';
-
-{$R *.res}
-
-type
-	// =========================================================================
-	// TBeThreadItem
-	// =========================================================================
-	TBeThreadItem = class(TThreadItem)
-	private
-		FIsTemporary	: Boolean;
-		FDat					: TStringList;
-
-	public
-		constructor	Create( inInstance : DWORD );
-		destructor	Destroy; override;
-
-	private
-		function	Download : TDownloadState;
-		function	StorageDownload(AURL : string) : TDownloadState;
-		function	Write( inName : string; inMail : string; inMessage : string ) : TDownloadState;
-		function	GetRes( inNo : Integer ) : string;
-		function	GetDat( inNo : Integer ) : string;
-		function	GetHeader( inOptionalHeader : string ) : string;
-		function	GetFooter( inOptionalFooter : string ) : string;
-		function	GetBoardURL : string;
-		procedure	ArrangeDownloadData( start: Integer;var Data: TStringList);
-		procedure	LoadDat;
-		procedure	FreeDat;
-		function	BrowsableURL : string;
-		function	ReadURL : string;
-		function	WriteURL : string;
-	end;
-
-	// =========================================================================
-	// TBeBoardItem
-	// =========================================================================
-	TBeBoardItem = class(TBoardItem)
-	private
-		FIsTemporary	: Boolean;
-		FDat					: TStringList;
-
-	public
-		constructor	Create( inInstance : DWORD );
-		destructor	Destroy; override;
-
-	private
-		function	Download : TDownloadState;
-		function	CreateThread( inSubject : string; inName : string; inMail : string; inMessage : string ) : TDownloadState;
-		function	ToThreadURL( inFileName : string ) : string;
-		procedure	EnumThread( inCallBack : TBoardItemEnumThreadCallBack );
-
-		function	SubjectURL : string;
-	end;
-
-const
-	LOG_DIR						= 'Be\';
-	SUBJECT_NAME			= 'subject.txt';
-
-	PLUGIN_NAME				= 'Be';
-	MAJOR_VERSION			= 1;
-	MINOR_VERSION			= 1;
-	RELEASE_VERSION		= 'alpha';
-	REVISION_VERSION	= 1;
-
-//var
-//	SyncronizeMenu		: HMENU;
-
-// =========================================================================
-// ŽG—pŠÖ”
-// =========================================================================
-
-// *************************************************************************
-// ƒeƒ“ƒ|ƒ‰ƒŠ‚ȃpƒX‚̎擾
-// *************************************************************************
-function TemporaryFile : string;
-var
-	tempPath : array [0..MAX_PATH] of	char;
-begin
-
-	GetTempPath( SizeOf(tempPath), tempPath );
-	repeat
-		Result := tempPath + IntToStr( Random( $7fffffff ) );
-	until not FileExists( Result );
-
-end;
-
-// *************************************************************************
-// BeƒƒOƒtƒHƒ‹ƒ_Žæ“¾
-// *************************************************************************
-function MyLogFolder : string;
-var
-	folder : PChar;
-begin
-
-	folder := LogFolder;
-	if Length( folder ) = 0 then
-		Result := ''
-	else
-		Result := folder + LOG_DIR;
-    DisposeResultString(folder);
-
-end;
-
-(*************************************************************************
- *ƒfƒBƒŒƒNƒgƒŠ‚ª‘¶Ý‚·‚é‚©ƒ`ƒFƒbƒN
- *************************************************************************)
-function DirectoryExistsEx(const Name: string): Boolean;
-var
-	Code: Integer;
-begin
-	Code := GetFileAttributes(PChar(Name));
-	Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
-end;
-
-(*************************************************************************
- *ƒfƒBƒŒƒNƒgƒŠì¬i•¡”ŠK‘w‘Ήžj
- *************************************************************************)
-function ForceDirectoriesEx(Dir: string): Boolean;
-begin
-	Result := True;
-	if Length(Dir) = 0 then
-		raise Exception.Create('ƒtƒHƒ‹ƒ_‚ªì¬o—ˆ‚Ü‚¹‚ñ');
-	Dir := ExcludeTrailingPathDelimiter(Dir);
-	if (Length(Dir) < 3) or DirectoryExistsEx(Dir)
-		or (ExtractFilePath(Dir) = Dir) then Exit; // avoid 'xyz:\' problem.
-	Result := ForceDirectoriesEx(ExtractFilePath(Dir)) and CreateDir(Dir);
-end;
-
-// ‚Æ‚è‚ ‚¦‚¸‚Ì‘ã—p•i‚È‚Ì‚Å chrWhite ‚ðl—¶‚µ‚Ä‚¢‚È‚¢‚±‚Æ‚É’ˆÓIII
-procedure ExtractHttpFields(
-	const chrSep : TSysCharSet;
-	const chrWhite : TSysCharSet;
-	const strValue : string;
-	var strResult : TStringList;
-	unknownFlag : boolean = false
-);
-var
-	last, p, strLen : Integer;
-begin
-
-	strLen := Length( strValue );
-	p := 1;
-	last := 1;
-
-	while p <= strLen do
-	begin
-
-		if strValue[ p ] in chrSep then
-		begin
-			strResult.Add( Copy( strValue, last, p - last ) );
-			last := p + 1;
-		end;
-
-		p := p + 1;
-
-	end;
-
-	if last <> p then
-		strResult.Add( Copy( strValue, last, strLen - last + 1 ) );
-
-end;
-
-
function HttpEncode(
-
	const strValue : string
-) : string;
-var
-	i : Integer;
-	strLen : Integer;
-	strResult : string;
-	b : Integer;
-const
-	kHexCode : array [0..15] of char = (
-				'0', '1', '2', '3', '4', '5', '6', '7',
-				'8', '9', 'A', 'B', 'C', 'D', 'E', 'F' );
-begin
-
-	strLen := Length( strValue );
-	i := 1;
-
-	while i <= strLen do
-	begin
-
-		case strValue[ i ] of
-		'0' .. '9', 'a' .. 'z', 'A' .. 'Z', '*', '-', '.', '@', '_':
-			begin
-				strResult := strResult + strValue[ i ];
-			end;
-		else
-			begin
-				b := Integer( strValue[ i ] );
-				strResult := strResult + '%'
-								+ kHexCode[ b div $10 ]
-								+ kHexCode[ b mod $10 ];
-			end;
-		end;
-
-		i := i + 1;
-
-	end;
-
-	Result := strResult;
-
-end;
-
-
-
-// =========================================================================
-// PlugIn
-// =========================================================================
-
-// *************************************************************************
-// ƒvƒ‰ƒOƒCƒ“‚ª(³‚µ‚­)ƒ[ƒh‚³‚ꂽ
-// *************************************************************************
-procedure OnLoad(
-	inInstance : DWORD				// ƒvƒ‰ƒOƒCƒ“‚̃Cƒ“ƒXƒ^ƒ“ƒX
-); stdcall;
-begin
-end;
-
-// *************************************************************************
-// ƒvƒ‰ƒOƒCƒ“‚̃o[ƒWƒ‡ƒ“‚ð—v‹‚³‚ꂽ
-// *************************************************************************
-procedure OnVersionInfo(
-	var outAgent		: PChar;	// ƒo[ƒWƒ‡ƒ“‚ðˆêØŠÜ‚Ü‚È‚¢ƒˆ‚È–¼Ì
-	var outMajor		: DWORD;	// ƒƒWƒƒ[ƒo[ƒWƒ‡ƒ“
-	var outMinor		: DWORD;	// ƒ}ƒCƒi[ƒo[ƒWƒ‡ƒ“
-	var outRelease	: PChar;	// ƒŠƒŠ[ƒX’iŠK–¼
-	var outRevision	: DWORD		// ƒŠƒrƒWƒ‡ƒ“ƒiƒ“ƒo[
-); stdcall;
-begin
-
-	try
-		outAgent		:= CreateResultString( PChar( PLUGIN_NAME ) );
-		outMajor		:= MAJOR_VERSION;
-		outMinor		:= MINOR_VERSION;
-		outRelease	:= CreateResultString( PChar( RELEASE_VERSION ) );
-		outRevision	:= REVISION_VERSION;
-	except
-		outAgent		:= nil;
-		outMajor		:= 0;
-		outMinor		:= 0;
-		outRelease	:= nil;
-		outRevision	:= 0;
-	end;
-
-end;
-
-// *************************************************************************
-// Žw’肵‚½ URL ‚ð‚±‚Ìƒvƒ‰ƒOƒCƒ“‚Ŏ󂯕t‚¯‚é‚©‚Ç‚¤‚©
-// *************************************************************************
-function OnAcceptURL(
-	inURL			: PChar				// ”»’f‚ð‹Â‚¢‚Å‚¢‚é URL
-): TAcceptType; stdcall;	// URL ‚ÌŽí—Þ
-var
-	uri				: TIdURI;
-	uriList		: TStringList;
-	foundPos	: Integer;
-//	i			: Integer;
-const
-	BBS_HOST		= 'be.2ch.net';
-	THREAD_MARK	= '/test/read.cgi';
-begin
-
-	try
-		// ƒzƒXƒg–¼‚ª be.2ch.net ‚ŏI‚í‚éê‡‚͎󂯕t‚¯‚é‚悤‚É‚µ‚Ä‚¢‚é
-		uri			:= TIdURI.Create( inURL );
-		uriList	:= TStringList.Create;
-		try
-			ExtractHttpFields( ['/'], [], uri.Path, uriList );
-			if (BBS_HOST = uri.Host ) then begin
-				foundPos := AnsiPos( THREAD_MARK, inURL );
-
-				if foundPos > 0 then
-					Result := atThread
-				//else if (uriList.Count > 2) and (AnsiPos('.html', uri.Document) > 0) then
-				//	Result := atThread
-				else if uriList.Count > 2 then	// ÅŒã‚ª '/' ‚ŕ‚߂ç‚ê‚Ä‚é‚È‚ç 4
-					Result := atBoard
-				else
-					Result := atBBS;
-
-			end else begin
-				Result := atNoAccept;
-			end;
-
-		finally
-			uri.Free;
-			uriList.Free;
-		end;
-	except
-		Result := atNoAccept;
-	end;
-
-end;
-
-// =========================================================================
-// TBeThreadItem
-// =========================================================================
-
-// *************************************************************************
-// ƒRƒ“ƒXƒgƒ‰ƒNƒ^
-// *************************************************************************
-constructor TBeThreadItem.Create(
-	inInstance	: DWORD
-);
-var
-	uri					: TIdURI;
-	uriList			: TStringList;
-begin
-
-	inherited;
-
-	OnDownload		:= Download;
-	OnWrite				:= Write;
-	OnGetRes			:= GetRes;
-	OnGetDat			:= GetDat;
-	OnGetHeader		:= GetHeader;
-	OnGetFooter		:= GetFooter;
-	OnGetBoardURL	:= GetBoardURL;
-
-	FilePath			:= '';
-	FIsTemporary	:= False;
-	FDat					:= nil;
-	URL						:= BrowsableURL;
-
-	uri			:= TIdURI.Create( ReadURL );
-	uriList := TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		if uriList[ 5 ] = 'l50' then begin
-			FileName	:= uriList[ 4 ] + '.dat';
-			FilePath	:= MyLogFolder + uriList[ 2 ] + '\' + uriList[ 3 ] + '\' + uriList[ 4 ] + '.dat';
-			IsLogFile	:= FileExists( FilePath );
-		end else begin
-			FileName	:= uriList[ 5 ] + '.dat';
-			FilePath	:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
-			IsLogFile	:= FileExists( FilePath );
-		end;
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-end;
-
-// *************************************************************************
-// ƒfƒXƒgƒ‰ƒNƒ^
-// *************************************************************************
-destructor TBeThreadItem.Destroy;
-begin
-
-	FreeDat;
-
-	// ˆêŽžƒtƒ@ƒCƒ‹‚̏ꍇ‚͍폜‚·‚é
-	if FIsTemporary then
-		DeleteFile( FilePath );
-
-	inherited;
-
-end;
-
-// *************************************************************************
-// Žw’肵‚½ URL ‚̃XƒŒƒbƒh‚̃_ƒEƒ“ƒ[ƒh‚ðŽwŽ¦‚³‚ꂽ
-// *************************************************************************
-function TBeThreadItem.Download : TDownloadState;
-var
-	modified			: Double;
-	tmp						: PChar;
-	downResult		: TStringList;
-	responseCode	: Longint;
-	logStream			: TFileStream;
-	uri						: TIdURI;
-	uriList				: TStringList;
-	datURL, tmpURL				: string;
-	tmpText: string;
-begin
-
-	Result := dsError;
-
-	uri := TIdURI.Create( ReadURL );
-	uriList := TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		FileName := uriList[ 5 ] + '.dat';
-		// http://jbbs.livedoor.com/bbs/rawmode.cgi/game/1578/1067968274/l100
-		// protocol://host/1/2/3/4/5/uriList.Count - 1
-		if MyLogFolder = '' then begin
-			// ‚Ç‚±‚É•Û‘¶‚µ‚Ä‚¢‚¢‚Ì‚©•ª‚©‚ç‚È‚¢‚̂ňꎞƒtƒ@ƒCƒ‹‚É•Û‘¶
-			FilePath 			:= TemporaryFile;
-			FIsTemporary	:= True;
-		end else begin
-			FilePath			:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
-			FIsTemporary	:= False;
-		end;
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-	// •Û‘¶—p‚̃fƒBƒŒƒNƒgƒŠ‚ðŒ@‚é
-	ForceDirectoriesEx( Copy( FilePath, 1, LastDelimiter( '\', FilePath ) ) );
-
-	// “ÆŽ©‚Ƀ_ƒEƒ“ƒ[ƒh‚âƒtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalDownload ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-	modified	:= LastModified;
-	datURL		:= ReadURL + IntToStr( Count + 1 ) + '-'; // V’…‚Ì‚Ý
-	responseCode := InternalDownload( PChar( datURL ), modified, tmp, 0 );
-
-	try
-		if (responseCode = 200) or (responseCode = 206) then begin
-			downResult := TStringList.Create;
-			try
-								tmpText := CustomStringReplace( string( tmp ), '¡÷¡®', ',' );
-				downResult.Text := EUCtoSJIS( tmpText );
-								ArrangeDownloadData(Count, downResult);
-				if downResult.Count > 0 then begin
-					if FileExists( FilePath ) then
-						logStream := TFileStream.Create( FilePath, fmOpenReadWrite or fmShareDenyWrite )
-					else
-						logStream := TFileStream.Create( FilePath, fmCreate or fmShareDenyWrite );
-					try
-						logStream.Position	:= logStream.Size;
-						logStream.Write( PChar( downResult.Text )^, Length( downResult.Text ) );
-					finally
-						logStream.Free;
-					end;
-
-					if Count = 0 then
-											// V‹K
-						Result := dsComplete
-					else
-						// ’Ç‹L
-						Result := dsDiffComplete;
-
-										Size					:= Size + Length( downResult.Text );
-					// CGI ‚©‚ç‚͐³‚µ‚¢“ú•t‚ª“¾‚ç‚ê‚È‚¢‚Ì‚ÅŒ»Ý‚ɐݒè
-					LastModified	:= Now;
-
-
-
-					NewReceive		:= Count + 1;
-					Count					:= Count + downResult.Count;
-					NewResCount		:= downResult.Count;
-
-
-
-				end else begin
-					Result := dsNotModify;
-				end;
-			finally
-				downResult.Free;
-			end;
-		end else if responseCode = 302 then begin
-			//http://jbbs.shitaraba.com/bbs/read.cgi/game/3477/1077473358/
-			//http://jbbs.shitaraba.com/game/bbs/read.cgi?BBS=3477&KEY=1077473358
-			//http://jbbs.shitaraba.com/game/3477/storage/1077473358.html
-			//‰ß‹ŽƒƒO
-			//tmpURL := URL;
-			if Assigned( InternalPrint ) then
-				InternalPrint( '‰ß‹ŽƒƒO‘qŒÉ“ü‚è' );
-			uri := TIdURI.Create( ReadURL );
-			uriList := TStringList.Create;
-			try
-				ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-				tmpURL := uri.Protocol + '://' + uri.Host +
-						'/' + uriList[3] + '/' + uriList[4] + '/storage/' + uriList[ 5 ] + '.html';
-			finally
-				uriList.Free;
-				uri.Free;
-			end;
-			Result := StorageDownload(tmpURL);
-		end else if responseCode = 304 then begin
-			Result := dsNotModify;
-		end;
-	finally
-		DisposeResultString( tmp );
-	end;
-
-end;
-// *************************************************************************
-// download‚µ‚Ä‚«‚½Dat‚Ì‚ ‚ځ[‚ñ‚³‚ꂽ•ª‚ð•â[‚µ‚āA
-// ƒŒƒX”‚ƈê’v‚·‚é‚悤‚É‚·‚é
-// *************************************************************************
-procedure	TBeThreadItem.ArrangeDownloadData(
-	start: Integer;	// V‹KF‚O@’Ç‹LF‘O‰ñ‚܂ł̎擾”
-		var Data: TStringList	//Dat‚̃f[ƒ^
-);
-var
-	i: Integer;
-		n: Integer;
-		tmp: string;
-begin
-	i := start;
-		while i < Data.count + start do begin
-			try
-					tmp := Copy(Data[i - start], 1 , AnsiPos('<>', Data[ i - start ] )-1 );
-						try
-							n := StrToInt(tmp);
-								if n > i + 1 then begin
-									Data.Insert(i - start, Format('%d<><><><><><>', [i+1]));
-								end;
-								Inc(i);
-						except
-							Inc(i);
-			end;
-				except
-
-				end;
-		end;
-
-end;
-// *************************************************************************
-// ‰ß‹ŽƒƒO—pDownloadŠÖ”
-// *************************************************************************
-function	TBeThreadItem.StorageDownload(
-	AURL : string
-) : TDownloadState;
-var
-	modified			: Double;
-	tmp						: PChar;
-    uri : TIdURI;
-	uriList : TStringList;
-	downResult		: TStringList;
-	responseCode	: Longint;
-	logStream			: TFileStream;
-	tmpText, tmpLine, tmpTitle: string;
-	tmpHTML: TStringList;
-
-	i, j, tS, tE: Integer;
-	tmpDatToken : array[0..6] of string;
-begin
-
-	Result := dsError;
-	uri := TIdURI.Create( ReadURL );
-	uriList := TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		FileName := uriList[ 5 ] + '.dat';
-		// http://jbbs.livedoor.com/bbs/rawmode.cgi/game/1578/1067968274/l100
-		// protocol://host/1/2/3/4/5/uriList.Count - 1
-		if MyLogFolder = '' then begin
-			// ‚Ç‚±‚É•Û‘¶‚µ‚Ä‚¢‚¢‚Ì‚©•ª‚©‚ç‚È‚¢‚̂ňꎞƒtƒ@ƒCƒ‹‚É•Û‘¶
-			FilePath 			:= TemporaryFile;
-			FIsTemporary	:= True;
-		end else begin
-			FilePath			:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
-			FIsTemporary	:= False;
-		end;
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-	// •Û‘¶—p‚̃fƒBƒŒƒNƒgƒŠ‚ðŒ@‚é
-	ForceDirectoriesEx( Copy( FilePath, 1, LastDelimiter( '\', FilePath ) ) );
-
-
-
-	// “ÆŽ©‚Ƀ_ƒEƒ“ƒ[ƒh‚âƒtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalDownload ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-	modified	:= LastModified;
-
-	responseCode := InternalDownload( PChar( AURL ), modified, tmp, 0 );
-
-	try
-		if (responseCode = 200) or (responseCode = 206) then begin
-			downResult := TStringList.Create;
-			try
-				tmpText := CustomStringReplace( string( tmp ), '¡÷¡®', ',' );
-
-
-
-				//**‚±‚±‚ÅHTMLƒtƒ@ƒCƒ‹‚ð‚µ‚½‚ç‚ÎJBBS‚ÌdatŒ`Ž®‚É•ÏŠ·‚·‚é
-				tmpHTML := TStringList.Create;
-
-				try
-					tmpHTML.Text := EUCtoSJIS( tmpText );
-					//Title‚̎擾
-					for i := 0 to tmpHTML.Count - 1 do begin
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tS := AnsiPos('<title>', tmpLine);
-						tE := AnsiPos('</title>', tmpLine);
-
-						if tS > 0 then begin
-							if tE - tS  = 1 then begin
-								tmpTitle := '';
-							end else begin
-								tmpTitle := Copy(tmpHTML[i], ts + 7, Length(tmpHTML[i]));
-								tmpLine := AnsiLowerCase(tmpTitle);
-								tE := AnsiPos('</title>', tmpLine);
-
-								if tE > 0 then begin
-									tmpTitle := Copy(tmpTitle, 1, tE - 1);
-								end else begin
-									j := i + 1;
-									tmpLine := AnsiLowerCase(tmpHTML[j]);
-									tE := AnsiPos('</title>', tmpLine);
-									tmpTitle := tmpTitle  + tmpHTML[j];
-									while( tE = 0 ) do begin
-										j := i + 1;
-										if j = tmpHTML.Count then break;
-										tmpLine := AnsiLowerCase(tmpHTML[j]);
-										tE := AnsiPos('</title>', tmpLine);
-										tmpTitle := tmpTitle  + tmpHTML[j];
-									end;
-									if tE = 0 then tmpTitle := ''
-									else begin
-										tmpLine := AnsiLowerCase(tmpTitle);
-										tE := AnsiPos('</title>', tmpLine);
-										tmpTitle := Copy(tmpTitle, 1, tE - 1);
-									end;
-								end;
-							end;
-						end;
-					end;
-					//Title := tmpTitle;
-					//tS := 0; tE := 0;
-					//–{•¶‚̎擾 <DL>‚ÌŽŸ‚̍s‚©‚ç</DL>‚Ì‘O‚̍s‚Ü‚Å
-					for i := tmpHTML.Count - 1 downto 0 do begin
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tE := AnsiPos('</dl>', tmpLine);
-						if tE > 0 then begin
-                            tmpHTML[i] := COpy(tmpHTML[i], 1, tE -1);
-							break;
-						end;
-						tmpHTML.Delete(i);
-					end;
-					j := 0;
-					for i := 0 to tmpHTML.Count - 1 do begin
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tS := AnsiPos('<dl>', tmpLine);
-						if tS > 0 then begin
-							j := i + 1;
-							break;
-						end;
-					end;
-					for i := j downto 0 do
-						tmpHTML.Delete(i);
-
-					//<DD><DT>‚»‚ꂼ‚êˆês‚É•ÏŠ·‚·‚é
-					for i := tmpHTML.Count - 1 downto 1 do begin
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						if (AnsiPos('<dd>', tmpLine) = 0) and (AnsiPos('<dt>', tmpLine) = 0) then begin
-							tmpLine := CustomStringReplace(tmpHTML[i-1], #13#10, '') +
-											CustomStringReplace(tmpHTML[i], #13#10, '');
-							tmpHTML.Insert(i-1, tmpLine);
-							tmpHTML.Delete(i + 1);
-							tmpHTML.Delete(i);
-						end;
-					end;
-					//ã‚܂ł̏ˆ—‚ňȉº‚̂悤‚ÈŒ`‚É‚È‚Á‚Ä‚é
-					//<dt><a name="958">958 </a> –¼‘OF<font color="#008800"><b> –¼‚à–³‚«ŒRŽt </b></font> “Še“úF 2004/06/30(…) 15:17 [ r1FsjJhA ]<br><dd>``
-					//<dt><a name="951">951 </a> –¼‘OF<a href="mailto:sage"><b> –¼‚à–³‚«ŒRŽt </B></a> “Še“úF 2004/06/30(…) 12:31 [ .oGr0rtc ]<br><dd>``
-					//ã‚̂悤‚È‚Ì‚ð‰º‚Ì‚æ‚¤‚Èdat‚ÌŒ`Ž®‚É•ÏŠ·‚·‚é
-					//ƒŒƒX”ԍ†<><font color=#FF0000>HN</font><>ƒƒ‹—“<>“ú•tŽž<>–{•¶<>ƒ^ƒCƒgƒ‹i‚P‚̂݁j<>ID
-					//2<>–¼‚à–³‚«ŒRŽt<>sage<>2004/06/22(‰Î) 09:05<>‚Q‚°‚Ɓ[<><>26bmLAzg
-					for i := 0 to tmpHTML.Count - 1 do begin
-						tmpDatToken[0] := ''; tmpDatToken[1] := ''; tmpDatToken[2] := '';
-						tmpDatToken[3] := ''; tmpDatToken[4] := ''; tmpDatToken[6] := '';
-						//==‚Ü‚¸‚Í–{•¶‚ðŽæ“¾==//
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tS := AnsiPos('<dd>', tmpLine);
-						if tS > 0 then begin
-							tmpDatToken[4] := Copy(tmpHTML[i], tS + 4, Length(tmpHTML[i]));
-							tmpHTML[i] := Copy(tmpHTML[i], 1, tS -1);
-						end else
-							tmpDatToken[4] := '';
-						//====================//
-						//==ƒŒƒX”ԍ†Žæ“¾==//
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tS := AnsiPos('">', tmpLine);
-						tE := AnsiPos('</a>', tmpLine);
-						if tE > tS then begin
-							tmpDatToken[0] := Copy(tmpHTML[i], tS + 2, tE - (tS + 2) - 1);
-							tmpDatToken[0] := Trim(tmpDatToken[0]);
-							tmpHTML[i] := Copy(tmpHTML[i], tE + 4, Length(tmpHTML[i]));
-						end else
-							tmpDatToken[0] := IntToStr(i);
-						tS := AnsiPos('<', tmpHTML[i]);
-						if tS > 0 then begin
-							tmpHTML[i] := Copy(tmpHTML[i], tS, Length(tmpHTML[i]));
-						end;
-						//====================//
-						//==ƒƒ‹—“Žæ“¾==//
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tS := AnsiPos('<a href="mailto:', tmpLine);
-						if tS > 0 then begin //ƒƒ‹—“ƒAƒŠ
-							tE := AnsiPos('">', tmpLine);
-							tmpDatToken[2] := Copy(tmpHTML[i], tS + 16, tE - (tS + 16));
-							tmpHTML[i] := Copy(tmpHTML[i], tE + 5, Length(tmpHTML[i]));
-                            tmpHTML[i] := CustomStringReplace(tmpHTML[i], '</a>', '', true);
-						end else begin	//ƒƒ‹—“–³‚µ
-							tmpDatToken[2] := '';
-						end;
-						//====================//
-						//==HNŽæ“¾==//
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tE := AnsiPos('“Še“úF', tmpLine);
-						if tE > 0 then begin
-							tmpDatToken[1] := Trim(Copy(tmpHTML[i], 1, tE - 1 ));
-							tmpDatToken[1] := CustomStringReplace(tmpDatToken[1], '<b>', '', true);
-							tmpDatToken[1] := CustomStringReplace(tmpDatToken[1], '</b>', '', true);
-							tmpHTML[i] := Copy(tmpHTML[i], tE + 8, Length(tmpHTML[i]));
-						end else begin
-							tmpDatToken[1] := '';
-						end;
-						//====================//
-						//==“ú•tŽž‚̎擾==//
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tE := AnsiPos('[', tmpLine);
-						if tE > 0 then begin
-							tmpDatToken[3] := Trim(Copy(tmpHTML[i], 1, tE - 1 ));
-							tmpHTML[i] := Copy(tmpHTML[i], tE + 1, Length(tmpHTML[i]));
-						end else begin
-							tmpDatToken[3] := '';
-						end;
-						//====================//
-						//==ID‚̎擾==//
-						tmpLine := AnsiLowerCase(tmpHTML[i]);
-						tE := AnsiPos(']', tmpLine);
-						if tE > 0 then begin
-							tmpDatToken[6] := Trim(Copy(tmpHTML[i], 1, tE - 1 ));
-						end else begin
-							tmpDatToken[6] := '';
-						end;
-						//====================//
-						tS := StrToIntDef(tmpDatToken[0], -1);
-						if  tS = 1	then
-							tmpLine := tmpDatToken[0] + '<>' + tmpDatToken[1] + '<>' + tmpDatToken[2] + '<>' +
-									tmpDatToken[3] + '<>' + tmpDatToken[4] + '<>' + tmpTitle + '<>' + tmpDatToken[6]
-						else
-							tmpLine := tmpDatToken[0] + '<>' + tmpDatToken[1] + '<>' +tmpDatToken[2] + '<>' +
-									tmpDatToken[3] + '<>' + tmpDatToken[4] + '<><>' + tmpDatToken[6];
-						tmpHTML[i] := tmpLine;
-					end;
-
-
-
-
-					downResult.Text := tmpHTML.Text;
-				finally
-					tmpHTML.free;
-				end;
-
-				ArrangeDownloadData(Count, downResult);
-
-				if downResult.Count > 0 then begin
-					if FileExists( FilePath ) then
-						DeleteFile(FilePath);
-
-					logStream := TFileStream.Create( FilePath, fmCreate or fmShareDenyWrite );
-					try
-						logStream.Position	:= 0;
-						logStream.Write( PChar( downResult.Text )^, Length( downResult.Text ) );
-					finally
-						logStream.Free;
-					end;
-
-					// V‹K
-					Result := dsComplete;
-
-					Size	:= Length( downResult.Text );
-					// CGI ‚©‚ç‚͐³‚µ‚¢“ú•t‚ª“¾‚ç‚ê‚È‚¢‚Ì‚ÅŒ»Ý‚ɐݒè
-					LastModified	:= Now;
-
-
-
-					NewReceive		:= 1;
-					Count					:= downResult.Count;
-					NewResCount		:= downResult.Count;
-					//http://jbbs.livedoor.com/bbs/read.cgi/game/1578/1086710948/l100
-					//http://jbbs.livedoor.com/game/1578/storage/1086710948.html
-					//URL := 'http://jbbs.livedoor.com/bbs/read.cgi' +
-					//		CustomStringReplace(Path, '/storage', '')
-					//		+ FileName;
-					DownloadHost := 'storage';
-				end else begin
-					Result := dsNotModify;
-				end;
-			finally
-				downResult.Free;
-			end;
-		end else if responseCode = 304 then begin
-			Result := dsNotModify;
-		end;
-	finally
-		DisposeResultString( tmp );
-	end;
-
-end;
-
-// *************************************************************************
-// ‘‚«ž‚Ý‚ðŽwŽ¦‚³‚ꂽ
-// *************************************************************************
-function	TBeThreadItem.Write(
-	inName				: string;	// –¼‘O(ƒnƒ“ƒhƒ‹)
-	inMail				: string;	// ƒ[ƒ‹ƒAƒhƒŒƒX
-	inMessage			: string	// –{•¶
-) : TDownloadState;				// ‘‚«ž‚Ý‚ª¬Œ÷‚µ‚½‚©‚Ç‚¤‚©
-var
-	postData			: string;
-	postResult		: PChar;
-	uri						: TIdURI;
-	uriList				: TStringList;
-	responseCode	: Integer;
-begin
-
-	uri			:= TIdURI.Create( URL );
-	uriList	:= TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-
-		// http://jbbs.livedoor.com/bbs/read.cgi/game/1578/1067968274/l100
-		postData	:=
-			'NAME='			+ HttpEncode( SJIStoEUC( inName ) ) +
-			'&MAIL='		+ HttpEncode( SJIStoEUC( inMail ) ) +
-			'&MESSAGE='	+ HttpEncode( SJIStoEUC( inMessage ) ) +
-			'&BBS='			+ uriList[ 4 ] +
-			'&KEY='			+ uriList[ 5 ] +
-			'&DIR='			+ uriList[ 3 ] +
-			'&TIME='		+ IntToStr( DateTimeToUnix( Now ) ) +
-			'&submit='	+ HttpEncode( SJIStoEUC( '‘‚«ž‚Þ' ) );
-
-		// “ÆŽ©‚ɒʐM‚µ‚È‚¢ê‡‚Í InternalPost ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-		responseCode := InternalPost( PChar( WriteURL ), PChar( postData ), postResult );
-		try
-			if (responseCode = 200) or
-				((responseCode = 302) and (Length( Trim( postResult ) ) = 0)) then begin
-				Result := dsComplete
-			end else begin
-				Result := dsError;
-				if Assigned( InternalPrint ) then
-					InternalPrint( postResult );
-			end;
-		finally
-			DisposeResultString( postResult );
-		end;
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-end;
-
-// *************************************************************************
-// ƒŒƒX”ԍ† inNo ‚ɑ΂·‚é html ‚ð—v‹‚³‚ꂽ
-// *************************************************************************
-function TBeThreadItem.GetRes(
-	inNo		: Integer		// —v‹‚³‚ꂽƒŒƒX”ԍ†
-) : string;						// ‘Ήž‚·‚é HTML
-var
-	res		 	: string;
-	tmp			: PChar;
-begin
-
-	// “ÆŽ©‚ɃtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalAbon ‚¨‚æ‚Ñ Dat2HTML ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-		{
-	LoadDat;
-	if FDat = nil then begin
-		// ƒƒO‚É‘¶Ý‚µ‚È‚¢‚Ì‚Å‚±‚̂܂܏I—¹
-		Result := '';
-		Exit;
-	end;
-	res := Copy( FDat[ inNo - 1 ], AnsiPos( '<>', FDat[ inNo - 1 ] ) + 2, MaxInt );
-		}
-	res := GetDat( inNo );
-	if res = '' then begin
-		Result := '';
-		Exit;
-	end else begin
-		tmp := InternalAbonForOne( PChar( res ), PChar( FilePath ),inNo );
-		try
-			Result := Dat2HTML( string( tmp ), inNo );
-		finally
-			DisposeResultString( tmp );
-		end;
-	end;
-
-end;
-
-// *************************************************************************
-// ƒŒƒX”ԍ† inNo ‚ɑ΂·‚é Dat ‚ð—v‹‚³‚ꂽ
-// *************************************************************************
-function TBeThreadItem.GetDat(
-	inNo		: Integer		// —v‹‚³‚ꂽƒŒƒX”ԍ†
-) : string;						// ‚Q‚¿‚á‚ñ‚Ë‚é‚ÌDatŒ`Ž®
-var
-	res		 	: string;
-	tmp			: array[1..5] of string;
-	i			: Integer;
-	pTmp		: PChar;
-begin
-	pTmp := nil;
-	// “ÆŽ©‚ɃtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalAbon ‚¨‚æ‚Ñ Dat2HTML ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-	LoadDat;
-	if (FDat = nil) or (inNo - 1 < 0 ) or (inNo - 1 >= FDat.Count) then begin
-		// ƒƒO‚É‘¶Ý‚µ‚È‚¢‚Ì‚Å‚±‚̂܂܏I—¹
-		Result := '';
-		Exit;
-	end;
-	try
-		res := Copy( FDat[ inNo - 1 ], AnsiPos( '<>', FDat[ inNo - 1 ] ) + 2, MaxInt );
-		//––”ö‚ÉID‚ª•\Ž¦‚³‚ê‚Ä‚¢‚é‚Ì‚Å‚»‚ê‚𓊍e“ú‚Ì‚Æ‚±‚ë‚É“ü‚ê‚é
-		// –¼‘O<>ƒ[ƒ‹<>“ú•t<>–{•¶<>ƒXƒŒƒ^ƒC<>ID
-		for i := 0 to 4 do begin
-			tmp[ i + 1 ] := Copy( res, 1, AnsiPos('<>', res) - 1 );
-			Delete( res, 1, AnsiPos('<>', res) + 1 );
-		end;
-		// –¼‘O<>ƒ[ƒ‹<>“ú•tID<>–{•¶<>ƒXƒŒƒ^ƒC
-		pTmp := CreateResultString(tmp[1] + '<>' + tmp[2] + '<>' + tmp[3] + ' ' + res + '<>'+ tmp[4] + '<>' +tmp[5]);
-		Result := string(pTmp);
-	finally
-		DisposeResultString(pTmp);
-	end;
-
-end;
-
-// *************************************************************************
-// ƒXƒŒƒbƒh‚̃wƒbƒ_ html ‚ð—v‹‚³‚ꂽ
-// *************************************************************************
-function TBeThreadItem.GetHeader(
-	inOptionalHeader	: string
-) : string;
-begin
-
-	// “ÆŽ©‚ɃtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalHeader ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-	Result := InternalHeader(
-		'<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' +
-		inOptionalHeader );
-
-
-	// GetRes ‚ðŒÄ‚΂ê‚邱‚Æ‚ª—\‘z‚³‚ê‚é‚Ì‚Å FDat ‚𐶐¬‚µ‚Ä‚¨‚­
-	try
-		FreeDat;
-		LoadDat;
-	except
-	end;
-
-end;
-
-// *************************************************************************
-// ƒXƒŒƒbƒh‚̃tƒbƒ^ html ‚ð—v‹‚³‚ꂽ
-// *************************************************************************
-function TBeThreadItem.GetFooter(
-	inOptionalFooter : string
-) : string;
-begin
-
-	// “ÆŽ©‚ɃtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalFooter ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-	Result := InternalFooter( inOptionalFooter );
-
-	// ‚à‚¤ GetRes ‚͌Ă΂ê‚È‚¢‚ÆŽv‚¤‚Ì‚Å FDat ‚ðŠJ•ú‚µ‚Ä‚¨‚­
-	try
-		FreeDat;
-	except
-	end;
-
-end;
-
-// *************************************************************************
-// ‚±‚Ì ThreadItem ‚ª‘®‚·‚é”Â‚Ì URL ‚ð—v‹‚³‚ꂽ
-// *************************************************************************
-function	TBeThreadItem.GetBoardURL : string;
-var
-	uri						: TIdURI;
-	uriList				: TStringList;
-	tmphost:	String;
-const
-	BBS_HOST		= 'be.2ch.net';
-begin
-
-	uri			:= TIdURI.Create( ReadURL );
-	uriList := TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		FileName := uriList[ 4 ] + '.dat';
-		Result		:= CreateResultString(
-			uri.Protocol + '://' + uri.host + '/' + uriList[ 3 ] + '/' );
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-end;
-
-// *************************************************************************
-// FDat ‚̐¶¬
-// *************************************************************************
-procedure	TBeThreadItem.LoadDat;
-begin
-
-	if FDat = nil then begin
-		if IsLogFile then begin
-			// dat ‚̓ǂݍž‚Ý
-			FDat := TStringList.Create;
-			FDat.LoadFromFile( FilePath );
-		end;
-	end;
-
-end;
-
-// *************************************************************************
-// FDat ‚ÌŠJ•ú
-// *************************************************************************
-procedure	TBeThreadItem.FreeDat;
-begin
-
-	if FDat <> nil then begin
-		FDat.Free;
-		FDat := nil;
-	end;
-
-end;
-
-// *************************************************************************
-// ˆÀ‘S‚ȃuƒ‰ƒEƒU•\Ž¦—p‚Ì URL
-// *************************************************************************
-function	TBeThreadItem.BrowsableURL : string;
-var
-	uri				: TIdURI;
-	uriList		: TStringList;
-	foundPos	: Integer;
-	dir, tmphost		: string;
-const
-    THREAD_MARK	= '/test/read.cgi';
-	BBS_HOST		= 'be.2ch.net';
-begin
-    if Copy( URL, Length( URL ), 1 ) = '/' then
-        uri := TIdURI.Create( URL )
-    else
-        uri := TIdURI.Create( URL + '/' );
-
-    uriList := TStringList.Create;
-    try
-        ExtractHttpFields( ['/'], [], uri.Path, uriList );
-
-        if( AnsiPos(THREAD_MARK, URL) > 0) and (uriList.Count > 4) then begin
-            Result :=
-                uri.Protocol + '://' + uri.host + THREAD_MARK + '/' +
-                uriList[ 3 ] + '/' + uriList[ 4 ] + '/l50';
-
-        end else if AnsiPos(THREAD_MARK, URL) = 0 then begin
-            {
-            //ƒRƒR‚ʼnߋŽƒƒO‚©‚Ç‚¤‚©ƒ`ƒFƒbƒNH
-            if(AnsiPos('.html/', uri.Path) > 0) then begin
-                Result := uri.Protocol + '://' + url.host + THREAD_MARK +
-                    CustomStringReplace(CustomStringReplace(uri.Path, '/storage', ''), '.html/', '/') + 'l100';
-            end else
-            }
-            Result := URL;
-        end;
-    finally
-        uri.Free;
-        uriList.Free;
-    end;
-
-end;
-
-// *************************************************************************
-// ˆÀ‘S‚È( '/' ‚ŏI‚í‚é )“ǂݍž‚Ý‚Ì URL
-// *************************************************************************
-function	TBeThreadItem.ReadURL : string;
-var
-	uri				: TIdURI;
-	uriList		: TStringList;
-	foundPos	: Integer;
-	dir, tmphost			: string;
-const
-    THREAD_MARK	= '/test/read.cgi';
-    BBS_HOST		= 'be.2ch.net';
-begin
-
-    if Copy( URL, Length( URL ), 1 ) = '/' then
-        uri := TIdURI.Create( URL )
-    else
-        uri := TIdURI.Create( URL + '/' );
-    uriList := TStringList.Create;
-    try
-        ExtractHttpFields( ['/'], [], uri.Path, uriList );
-
-        if( AnsiPos(THREAD_MARK, URL) > 0) and (uriList.Count > 4) then begin
-            Result :=
-                uri.Protocol + '://' + uri.Host + THREAD_MARK +
-                uriList[ 3 ] + '/' + uriList[ 4 ] + '/';
-        end;
-    finally
-        uri.Free;
-        uriList.Free;
-    end;
-end;
-
-// *************************************************************************
-// ˆÀ‘S‚È( '/' ‚ŏI‚í‚é )‘‚«ž‚Ý‚Ì URL
-// *************************************************************************
-function	TBeThreadItem.WriteURL : string;
-var
-	uri			: TIdURI;
-	uriList	: TStringList;
-begin
-
-	if Copy( URL, Length( URL ), 1 ) = '/' then
-		uri := TIdURI.Create( URL )
-	else
-		uri := TIdURI.Create( URL + '/' );
-	uriList := TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		// http://jbbs.livedoor.com/bbs/read.cgi/game/1578/1067968274/l100
-		Result		:=
-			uri.Protocol + '://' + uri.Host + '/bbs/write.cgi/' +
-			uriList[ 3 ] + '/' + uriList[ 4 ] + '/' + uriList[ 5 ] + '/';
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-end;
-
-// *************************************************************************
-// TThreadItem ‚ª¶¬‚³‚ꂽê‡‚̏ˆ’u(TBeThreadItem ‚𐶐¬‚·‚é)
-// *************************************************************************
-procedure ThreadItemOnCreateOfTBeThreadItem(
-	inInstance : DWORD
-);
-var
-	threadItem : TBeThreadItem;
-begin
-
-	threadItem := TBeThreadItem.Create( inInstance );
-	ThreadItemSetLong( inInstance, tipContext, DWORD( threadItem ) );
-
-end;
-
-// *************************************************************************
-// TThreadItem ‚ª”jŠü‚³‚ꂽê‡‚̏ˆ’u(TBeThreadItem ‚ð”jŠü‚·‚é)
-// *************************************************************************
-procedure ThreadItemOnDisposeOfTBeThreadItem(
-	inInstance : DWORD
-);
-var
-	threadItem : TBeThreadItem;
-begin
-
-	threadItem := TBeThreadItem( ThreadItemGetLong( inInstance, tipContext ) );
-	threadItem.Free;
-
-end;
-
-// =========================================================================
-// TBeBoardItem
-// =========================================================================
-
-// *************************************************************************
-// ƒRƒ“ƒXƒgƒ‰ƒNƒ^
-// *************************************************************************
-constructor TBeBoardItem.Create(
-	inInstance	: DWORD
-);
-var
-	uri					: TIdURI;
-	uriList			: TStringList;
-const
-	BBS_HOST		= 'be.2ch.net';
-begin
-
-	inherited;
-
-	OnDownload						:= Download;
-	OnCreateThread				:= CreateThread;
-	OnEnumThread					:= EnumThread;
-	OnFileName2ThreadURL	:= ToThreadURL;
-
-	FilePath			:= '';
-	FIsTemporary	:= False;
-	FDat					:= nil;
-
-	uri			:= TIdURI.Create( SubjectURL );
-	uriList	:= TStringList.Create;
-	try
-		URL := uri.Protocol + '://' + uri.Host + uri.Path;
-
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		// http://jbbs.livedoor.com/game/1000/subject.txt
-		FilePath	:= MyLogFolder + uriList[ 1 ] + '\' + uriList[ 2 ] + '\' + uri.Document;
-		IsLogFile	:= FileExists( FilePath );
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-end;
- 
-// *************************************************************************
-// ƒfƒXƒgƒ‰ƒNƒ^
-// *************************************************************************
-destructor TBeBoardItem.Destroy;
-begin
-
-	if FDat <> nil then begin
-		try
-			FDat.Free;
-			FDat := nil;
-		except
-		end;
-	end;
-
-	// ˆêŽžƒtƒ@ƒCƒ‹‚̏ꍇ‚͍폜‚·‚é
-	if FIsTemporary then
-		DeleteFile( FilePath );
-
-	inherited;
-
-end;
-
-// *************************************************************************
-// Žw’肵‚½ƒXƒŒˆê——‚̃_ƒEƒ“ƒ[ƒh‚ð—v‹‚³‚ꂽ
-// *************************************************************************
-function TBeBoardItem.Download : TDownloadState;
-var
-	modified			: Double;
-	downResult		: PChar;
-	responseCode	: Longint;
-	uri						: TIdURI;
-	uriList				: TStringList;
-	i							: Integer;
-		tmpText : String;
-begin
-
-	Result := dsError;
-
-	if FDat <> nil then begin
-		try
-			FDat.Free;
-			FDat := nil;
-		except
-		end;
-	end;
-	FDat	 	:= TStringList.Create;
-	uri		 	:= TIdURI.Create( SubjectURL );
-	uriList	:= TStringList.Create;
-	// “ÆŽ©‚Ƀ_ƒEƒ“ƒ[ƒh‚âƒtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalDownload ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-	modified			:= LastModified;
-	responseCode	:= InternalDownload( PChar( uri.URI ), modified, downResult );
-	try
-		if responseCode = 200 then begin
-			try
-				// ƒpƒX‚ðŽZo
-				ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-				if MyLogFolder = '' then begin
-					// ‚Ç‚±‚É•Û‘¶‚µ‚Ä‚¢‚¢‚Ì‚©•ª‚©‚ç‚È‚¢‚̂ňꎞƒtƒ@ƒCƒ‹‚É•Û‘¶
-					FilePath 			:= TemporaryFile;
-					FIsTemporary	:= True;
-				end else begin
-					FilePath			:= MyLogFolder + uriList[ 1 ] + '\' + uriList[ 2 ] + '\' + uri.Document;
-					FIsTemporary	:= False
-				end;
-
-				// •Û‘¶—p‚̃fƒBƒŒƒNƒgƒŠ‚ðŒ@‚é
-				ForceDirectoriesEx( Copy( FilePath, 1, LastDelimiter( '\', FilePath ) ) );
-
-				// EUC ‚ð Shift_JIS ‚É
-                tmpText := CustomStringReplace( string( downResult ), '¡÷¡®', ',');
-				FDat.Text := EUCtoSJIS( tmpText );
-				// •Û‘¶
-				FDat.SaveToFile( FilePath );
-
-				IsLogFile			:= True;
-				RoundDate			:= Now;
-				LastModified	:= modified;
-				LastGetTime		:= Now;
-			finally
-				uri.Free;
-				uriList.Free;
-			end;
-			Result := dsComplete;
-		end;
-	finally
-		DisposeResultString( downResult );
-	end;
-
-end;
-
-// *************************************************************************
-// ƒXƒŒ—§‚Ä‚ðŽwŽ¦‚³‚ꂽ
-// *************************************************************************
-function	TBeBoardItem.CreateThread(
-	inSubject			: string;	// ƒXƒŒƒ^ƒC
-	inName				: string;	// –¼‘O(ƒnƒ“ƒhƒ‹)
-	inMail				: string;	// ƒ[ƒ‹ƒAƒhƒŒƒX
-	inMessage			: string	// –{•¶
-) : TDownloadState;				// ‘‚«ž‚Ý‚ª¬Œ÷‚µ‚½‚©‚Ç‚¤‚©
-var
-	postURL				: string;
-	postData			: string;
-	postResult		: PChar;
-	uri						: TIdURI;
-	uriList				: TStringList;
-	responseCode	: Integer;
-begin
-
-	uri			:= TIdURI.Create( URL );
-	uriList	:= TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-
-		postURL		:=
-			uri.Protocol + '://' + uri.Host + '/bbs.cgi';
-        postData :=
-        'subject=&'
-        + 'FROM=' + HttpEncode(SJIStoEUC(inName)) + '&'
-        + 'mail=' + HttpEncode(SJIStoEUC(inMail)) + '&'
-        + 'MESSAGE=' + HttpEncode(SJIStoEUC(inMessage)) + '&'
-        + 'bbs=' + uriList[4] + '&'
-        + 'time=' + IntToStr(DateTimeToUnix( Now )) + '&'
-        + 'subject=' + HttpEncode(SJIStoEUC(inSubject)) + '&'
-        + 'submit=' + HttpEncode(SJIStoEUC('‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Þ')) + #13#10;
-		//s := s + 'subject=' + HttpEncode(TitleEdit.Text) + '&';
-		//s := s + 'submit=' + HttpEncode('‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Þ') + #13#10;
-
-		{postData	:=
-			'SUBJECT='	+ HttpEncode( SJIStoEUC( inSubject ) ) +
-			'&NAME='		+ HttpEncode( SJIStoEUC( inName ) ) +
-			'&MAIL='		+ HttpEncode( SJIStoEUC( inMail ) ) +
-			'&MESSAGE='	+ HttpEncode( SJIStoEUC( inMessage ) ) +
-			'&BBS='			+ uriList[ 4 ] +
-			'&TIME='		+ IntToStr( DateTimeToUnix( Now ) ) +
-			'&submit='	+ HttpEncode( SJIStoEUC( 'V‹K‘‚«ž‚Ý' ) );
-        }
-{
-	s := s + 'subject=&'
-				 + 'FROM=' + HttpEncode(NameComboBox.Text) + '&'
-				 + 'mail=' + HttpEncode(MailComboBox.Text) + '&'
-				 + 'MESSAGE=' + HttpEncode(body) + '&'
-				 + 'bbs=' + Board.BBSID + '&'
-				 + 'time=' + IntToStr(SendTime) + '&';
-	if FThreadItem = nil then begin
-		s := s + 'subject=' + HttpEncode(TitleEdit.Text) + '&';
-		s := s + 'submit=' + HttpEncode('‘SÓ”C‚𕉂¤‚±‚Æ‚ð³‘ø‚µ‚ď‘‚«ž‚Þ') + #13#10;
-	end else begin
-		s := s + 'key=' + ChangeFileExt(FThreadItem.FileName, '') + '&';
-		s := s + 'submit=' + HttpEncode('‘‚«ž‚Þ') + #13#10;
-	end;
-
-}
-		// “ÆŽ©‚ɒʐM‚µ‚È‚¢ê‡‚Í InternalPost ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-		responseCode := InternalPost( PChar( postURL ), PChar( postData ), postResult );
-		try
-			if (responseCode = 200) or
-				((responseCode = 302) and (Length( Trim( postResult ) ) = 0)) then begin
-				Result := dsComplete
-			end else begin
-				Result := dsError;
-				if Assigned( InternalPrint ) then
-					InternalPrint( postResult );
-			end;
-		finally
-			DisposeResultString( postResult );
-		end;
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-end;
-
-// *************************************************************************
-// ƒXƒŒˆê——‚Ì URL ‚©‚çƒXƒŒƒbƒh‚Ì URL ‚𓱂«o‚·
-// *************************************************************************
-function TBeBoardItem.ToThreadURL(
-	inFileName	: string	// ƒXƒŒƒbƒhƒtƒ@ƒCƒ‹–¼
-) : string;							// ƒXƒŒƒbƒh‚Ì URL
-var
-	threadURL		: string;
-	uri					: TIdURI;
-	uriList			: TStringList;
-	found				: Integer;
-begin
-
-	found := AnsiPos( '.', inFileName );
-	if found > 0 then
-		inFileName := Copy( inFileName, 1, found - 1 );
-
-	uri			:= TIdURI.Create( SubjectURL );
-	uriList	:= TStringList.Create;
-	try
-		try
-			ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-			threadURL	:= uri.Protocol + '://' + uri.Host + '/test/read.cgi/' +
-				uriList[ 1 ] + '/' + inFileName + '/l50';
-			Result		:= threadURL;
-		finally
-			uri.Free;
-			uriList.Free;
-		end;
-	except
-		Result := '';
-	end;
-
-end;
-
-// *************************************************************************
-// ‚±‚̔‚ɂ¢‚­‚‚̃XƒŒ‚ª‚ ‚é‚©—v‹‚³‚ꂽ
-// *************************************************************************
-procedure	TBeBoardItem.EnumThread(
-	inCallBack	: TBoardItemEnumThreadCallBack
-);
-var
-	uri		 			: TIdURI;
-	uriList			: TStringList;
-begin
-
-	try
-		if FDat = nil then begin
-			FDat		:= TStringList.Create;
-			uri			:= TIdURI.Create( SubjectURL );
-			uriList	:= TStringList.Create;
-			try
-				// ƒpƒX‚ðŽZo
-				ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-				// http://jbbs.livedoor.com/game/1000/subject.txt
-				FilePath	:= MyLogFolder + uriList[ 1 ] + '\' + uriList[ 2 ] + '\' + uri.Document;
-				if FileExists( FilePath ) then
-					// “ǂݍž‚Ý
-					FDat.LoadFromFile( FilePath );
-			finally
-				uri.Free;
-				uriList.Free;
-			end;
-		end;
-
-		// “ÆŽ©‚ɃtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í EnumThread ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-		inherited EnumThread( inCallBack, CustomStringReplace( FDat.Text, ',', '<>' ) );
-	except
-	end;
-
-end;
-
-// *************************************************************************
-// ƒXƒŒˆê——‚Ì URL ‚ð‹‚ß‚é
-// *************************************************************************
-function	TBeBoardItem.SubjectURL : string;
-var
-	uri		 	: TIdURI;
-	uriList	: TStringList;
-begin
-
-	uri			:= TIdURI.Create( URL );
-	uriList	:= TStringList.Create;
-	try
-		if uri.Document <> SUBJECT_NAME then begin
-			if Copy( URL, Length( URL ), 1 ) = '/' then
-				Result := URL + SUBJECT_NAME
-			else
-				Result := URL + '/' + SUBJECT_NAME;
-		end else begin
-			// ‚±‚±‚É‚Í—ˆ‚È‚¢‚ÆŽv‚¤‚¯‚Ç
-			Result := URL;
-		end;
-	finally
-		uri.Free;
-		uriList.Free;
-	end;
-
-end;
-
-// *************************************************************************
-// TBoardItem ‚ª¶¬‚³‚ꂽê‡‚̏ˆ’u(TBeBoardItem ‚𐶐¬‚·‚é)
-// *************************************************************************
-procedure BoardItemOnCreateOfTBeBoardItem(
-	inInstance : DWORD
-);
-var
-	boardItem : TBeBoardItem;
-begin
-
-	boardItem := TBeBoardItem.Create( inInstance );
-	BoardItemSetLong( inInstance, bipContext, DWORD( boardItem ) );
-
-end;
-
-// *************************************************************************
-// TBoardItem ‚ª”jŠü‚³‚ꂽê‡‚̏ˆ’u(TBeBoardItem ‚ð”jŠü‚·‚é)
-// *************************************************************************
-procedure BoardItemOnDisposeOfTBeBoardItem(
-	inInstance : DWORD
-);
-var
-	boardItem : TBeBoardItem;
-begin
-
-	boardItem := TBeBoardItem( BoardItemGetLong( inInstance, bipContext ) );
-	boardItem.Free;
-
-end;
-
-
-
-// =========================================================================
-// ƒGƒ“ƒgƒŠƒ|ƒCƒ“ƒg
-// =========================================================================
-procedure DLLEntry(
-	ul_reason_for_call : DWORD
-);
-var
-	module : HMODULE;
-begin
-
-	case ul_reason_for_call of
-		DLL_PROCESS_ATTACH:
-		begin
-			Randomize;
-
-			module := GetModuleHandle( nil );
-
-			LoadInternalAPI( module );
-			LoadInternalFilePathAPI( module );
-			LoadInternalThreadItemAPI( module );
-			LoadInternalBoardItemAPI( module );
-
-			// ===== ƒCƒ“ƒXƒ^ƒ“ƒX‚ÌŽæ‚舵‚¢‚ð TThreadItem ‚©‚ç TBeThreadItem ‚ɕύX‚·‚é
-			ThreadItemOnCreate	:= ThreadItemOnCreateOfTBeThreadItem;
-			ThreadItemOnDispose	:= ThreadItemOnDisposeOfTBeThreadItem;
-			// ===== ƒCƒ“ƒXƒ^ƒ“ƒX‚ÌŽæ‚舵‚¢‚ð TBoardItem ‚©‚ç TBeBoardItem ‚ɕύX‚·‚é
-			BoardItemOnCreate		:= BoardItemOnCreateOfTBeBoardItem;
-			BoardItemOnDispose	:= BoardItemOnDisposeOfTBeBoardItem;
-		end;
-		//DLL_PROCESS_DETACH:
-		//begin
-		//	RemovePlugInMenu( SyncronizeMenu );
-		//end;
-		DLL_THREAD_ATTACH:
-			;
-		DLL_THREAD_DETACH:
-			;
-	end;
-
-end;
-
-exports
-	OnLoad,
-	OnVersionInfo,
-	OnAcceptURL;
-
-begin
-
-	try
-		DllProc := @DLLEntry;
-		DLLEntry( DLL_PROCESS_ATTACH );
-	except end;
-
-end.