Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.172 by h677, Fri Dec 5 10:21:48 2003 UTC revision 1.173 by h677, Sun Dec 7 10:47:10 2003 UTC
# Line 2377  begin Line 2377  begin
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);

Legend:
Removed from v.1.172  
changed lines
  Added in v.1.173

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26