Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoard.pas

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

revision 1.26 by h677, Sat Jul 1 15:42:31 2006 UTC revision 1.27 by h677, Thu Jul 27 16:39:56 2006 UTC
# Line 61  var Line 61  var
61          Item: TNewBoardItem;          Item: TNewBoardItem;
62          URL : String;          URL : String;
63          protocol, host, path, document, port, bookmark: String;          protocol, host, path, document, port, bookmark: String;
64        TabURLs: TStringList;
65  begin  begin
66          try          try
67                  MessageMemo.Clear;                  MessageMemo.Clear;
# Line 81  begin Line 82  begin
82                  if FAbort then                  if FAbort then
83                          Exit;                          Exit;
84                  if Item.FContent <> '' then begin                  if Item.FContent <> '' then begin
85                          GikoDM.TabsOpenAction.Tag := 1;              TabURLs := TStringList.Create;
86                          GikoDM.TabsSaveAction.Execute;              try
87                          if (UpdateURL(Item.FContent)) then begin                  GikoDM.GetTabURLs(TabURLs);
88                                  GikoForm.ReloadBBS;                          if (UpdateURL(Item.FContent)) then begin
89                          end;                                  GikoForm.ReloadBBS;
90                          GikoDM.TabsOpenAction.Tag := 0;                              end;
91                    GikoDM.OpenURLs(TabURLs);
92                finally
93                            TabURLs.Free;
94                end;
95                  end else                  end else
96                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');
97          finally          finally

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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