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.511.2.12 by h677, Sun May 22 09:15:46 2005 UTC revision 1.511.2.13 by h677, Sun May 22 11:22:04 2005 UTC
# Line 6493  begin Line 6493  begin
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);
# Line 6520  begin Line 6522  begin
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'
# Line 12316  begin Line 12318  begin
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 );

Legend:
Removed from v.1.511.2.12  
changed lines
  Added in v.1.511.2.13

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