// \83X\83\8c\97§\82Ä\91\97\90MURL
function TBoard.GetSendURL: string;
+var
+ Protocol, Host, Path, Document, Port, Bookmark : string;
begin
- Result := GikoSys.UrlToServer(URL) + 'test/bbs.cgi';
+ Result := GikoSys.UrlToServer(URL);
+ GikoSys.ParseURI( URL, Protocol,Host, Path, Document, Port, Bookmark );
+ if GikoSys.Is2chHost(Host) then
+ Result := Result + 'test/bbs.cgi'
+ else
+ Result := Result + 'test/subbbs.cgi';
+
end;
procedure TBoard.SetRound(b: Boolean);