| 2377 |
|
|
| 2378 |
if Pos('about:blank..', URL) = 1 then begin |
if Pos('about:blank..', URL) = 1 then begin |
| 2379 |
threadItem := GetActiveContent; |
threadItem := GetActiveContent; |
| 2380 |
URL := Copy(threadItem.URL, 1, LastDelimiter('/',threadItem.URL)); |
if AnsiPos('http://jbbs.shitaraba.com/', threadItem.URL) <> 0 then begin |
| 2381 |
if AnsiPos('http://jbbs.shitaraba.com/', URL) <> 0 then begin |
URL := Copy(threadItem.URL, 1, LastDelimiter('/',threadItem.URL)); |
| 2382 |
Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo); |
Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo); |
| 2383 |
if ( PathRec.FSt <> 0 ) and ( PathRec.FTo <> 0 ) then |
if ( PathRec.FSt <> 0 ) and ( PathRec.FTo <> 0 ) then |
| 2384 |
buf := IntToStr(PathRec.FSt) + '-' + IntToStr(PathRec.FTo) |
buf := IntToStr(PathRec.FSt) + '-' + IntToStr(PathRec.FTo) |
| 2385 |
else if( PathRec.FSt <> 0 ) then |
else if( PathRec.FSt <> 0 ) then |
| 2386 |
buf := IntToStr(PathRec.FSt); |
buf := IntToStr(PathRec.FSt); |
| 2387 |
end else |
end else if AnsiPos('machi.to/bbs/', threadItem.URL) <> 0 then begin |
| 2388 |
buf := Copy(Text,LastDelimiter('/',Text)+1,Length(Text)-LastDelimiter('/',Text)); |
URL := threaditem.URL; |
| 2389 |
|
buf := Copy(Text,AnsiPos('&st=',Text),Length(Text)-AnsiPos('&st=',Text) + 1); |
| 2390 |
|
end else begin |
| 2391 |
|
|
| 2392 |
|
URL := Copy(threadItem.URL, 1, LastDelimiter('/',threadItem.URL)); |
| 2393 |
|
buf := Copy(Text,LastDelimiter('/',Text)+1,Length(Text)-LastDelimiter('/',Text)); |
| 2394 |
|
end; |
| 2395 |
URL := URL + buf; |
URL := URL + buf; |
| 2396 |
end; |
end; |
| 2397 |
PathRec := Gikosys.Parse2chURL2(URL); |
PathRec := Gikosys.Parse2chURL2(URL); |