| 6493 |
Text := ZenToHan(Text); |
Text := ZenToHan(Text); |
| 6494 |
|
|
| 6495 |
if(AnsiPos('>>', Text) = 1) then begin |
if(AnsiPos('>>', Text) = 1) then begin |
| 6496 |
Text := Copy(Text, 3, Length(Text) - 2); |
//Text := Copy(Text, 3, Length(Text) - 2); |
| 6497 |
|
Delete(Text, 1, 2); |
| 6498 |
end else begin |
end else begin |
| 6499 |
Text := Copy(Text, 2, Length(Text) - 1); |
//Text := Copy(Text, 2, Length(Text) - 1); |
| 6500 |
|
Delete(Text, 1, 1); |
| 6501 |
end; |
end; |
| 6502 |
if AnsiPos('-', Text) <> 0 then begin |
if AnsiPos('-', Text) <> 0 then begin |
| 6503 |
wkIntSt := StrToIntDef(Copy(Text, 1, AnsiPos('-', Text) - 1), 0); |
wkIntSt := StrToIntDef(Copy(Text, 1, AnsiPos('-', Text) - 1), 0); |
| 6522 |
URL := GikoSys.GetHRefText(Html); |
URL := GikoSys.GetHRefText(Html); |
| 6523 |
URL := GikoSys.HTMLDecode(URL); |
URL := GikoSys.HTMLDecode(URL); |
| 6524 |
if AnsiPos('BE:', URL) = 1 then begin |
if AnsiPos('BE:', URL) = 1 then begin |
| 6525 |
BNum := Copy(URL, 4, AnsiPos('/', URL) - 4); |
BNum := Copy(URL, 4, AnsiPos('/', URL) - 4); |
| 6526 |
BRes := Copy(URL, AnsiPos('/', URL) + 1, Length(URL)); |
BRes := Copy(URL, AnsiPos('/', URL) + 1, Length(URL)); |
| 6527 |
threadItem := FActiveContent.Thread; |
threadItem := FActiveContent.Thread; |
| 6528 |
if threadItem = nil then Exit; |
if threadItem = nil then Exit; |
| 6529 |
URL := BE_PHP_URL + BNum + '&u=d' |
URL := BE_PHP_URL + BNum + '&u=d' |
| 12318 |
Result := ''; |
Result := ''; |
| 12319 |
if Pos('about:blank..', AText) = 1 then begin |
if Pos('about:blank..', AText) = 1 then begin |
| 12320 |
wkInt := LastDelimiter( '/', AThreadURL ); |
wkInt := LastDelimiter( '/', AThreadURL ); |
| 12321 |
if Pos( '?', Copy( AThreadURL, wkInt, MaxInt ) ) = 0 then begin |
if Pos( '?', Copy( AThreadURL, wkInt, MaxInt ) ) = 0 then begin |
| 12322 |
// Thread.URL は PATH_INFO 渡し |
// Thread.URL は PATH_INFO 渡し |
| 12323 |
Result := Copy( AThreadURL, 1, LastDelimiter( '/', AThreadURL ) ); |
Result := Copy( AThreadURL, 1, LastDelimiter( '/', AThreadURL ) ); |
| 12324 |
wkInt := LastDelimiter( '/', AText ); |
wkInt := LastDelimiter( '/', AText ); |