| 2878 |
threadItem := GetActiveContent; |
threadItem := GetActiveContent; |
| 2879 |
if Pos('about:blank..', Text) = 1 then begin |
if Pos('about:blank..', Text) = 1 then begin |
| 2880 |
wkInt := LastDelimiter( '/', threadItem.URL ); |
wkInt := LastDelimiter( '/', threadItem.URL ); |
| 2881 |
if Pos( '?', Copy( threadItem.URL, wkInt, MaxInt ) ) = 0 then |
if Pos( '?', Copy( threadItem.URL, wkInt, MaxInt ) ) = 0 then begin |
| 2882 |
URL := Copy( threadItem.URL, 1, LastDelimiter( '/', threadItem.URL ) ) + |
// Thread.URL は PATH_INFO 渡し |
| 2883 |
Copy( Text, LastDelimiter( '/', Text ) + 1, MaxInt ) |
URL := Copy( threadItem.URL, 1, LastDelimiter( '/', threadItem.URL ) ); |
| 2884 |
else |
wkInt := LastDelimiter( '/', Text ); |
| 2885 |
URL := Copy( threadItem.URL, 1, LastDelimiter( '?', threadItem.URL ) ) + |
if Pos( '?', Copy( Text, wkInt, MaxInt ) ) = 0 then |
| 2886 |
Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt ) |
// Text も PATH_INFO 渡し |
| 2887 |
|
URL := URL + Copy( Text, LastDelimiter( '/', Text ) + 1, MaxInt ) |
| 2888 |
|
else |
| 2889 |
|
// Text は QUERY_STRING 渡し |
| 2890 |
|
URL := URL + Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt ); |
| 2891 |
|
end else begin |
| 2892 |
|
// Thread.URL は QUERY_STRING 渡し |
| 2893 |
|
URL := Copy( threadItem.URL, 1, LastDelimiter( '?', threadItem.URL ) ); |
| 2894 |
|
wkInt := LastDelimiter( '/', Text ); |
| 2895 |
|
if Pos( '?', Copy( Text, wkInt, MaxInt ) ) = 0 then begin |
| 2896 |
|
// Text は PATH_INFO 渡し |
| 2897 |
|
// URL に板とキーが足らないので Text から頂戴する |
| 2898 |
|
wkInt := LastDelimiter( '/', Copy( Text, 1, wkInt - 1 ) ); |
| 2899 |
|
wkInt := LastDelimiter( '/', Copy( Text, 1, wkInt - 1 ) ); |
| 2900 |
|
URL := Copy( URL, 1, Length( URL ) - 1 ) + Copy( Text, wkInt, MaxInt ); |
| 2901 |
|
end else begin |
| 2902 |
|
// Text も QUERY_STRING 渡し |
| 2903 |
|
URL := URL + Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt ) |
| 2904 |
|
end; |
| 2905 |
|
end; |
| 2906 |
end else begin |
end else begin |
| 2907 |
URL := Text; |
URL := Text; |
| 2908 |
end; |
end; |