Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/NewBoard.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
| 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 |
|
|
| |