PosをAnsiPosに変更（ありえないけど2バイト文字対策）

diff --git a/res/ExternalBoardPlugIn/ExternalBoardPlugIn.dpr b/res/ExternalBoardPlugIn/ExternalBoardPlugIn.dpr
index 769da73..d068222 100644 (file)
--- a/res/ExternalBoardPlugIn/ExternalBoardPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/ExternalBoardPlugIn.dpr
@@ -264,9 +264,9 @@ begin
                uriList := TStringList.Create;
                try
                        ExtractHttpFields( ['/'], [], uri.Path, uriList );
-                       foundPos := Pos( BBS_HOST, uri.Host );
+                       foundPos := AnsiPos( BBS_HOST, uri.Host );
                        if (foundPos > 0) and (Length( uri.Host ) - foundPos + 1 = Length( BBS_HOST )) then begin
-                               foundPos := Pos( THREAD_MARK, uri.Path );
+                               foundPos := AnsiPos( THREAD_MARK, uri.Path );
                                if foundPos > 0 then
                                        Result := atThread
                                else if (uriList.Count > 1) and (uri.Path <> '/') then  // \8dÅ\8cã\82ª '/' \82Å\95Â\82ß\82ç\82ê\82Ä\82é\82È\82ç 3