Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/ItemDownload.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 578 |
Item.ErrText := E.Message; |
Item.ErrText := E.Message; |
| 579 |
Result := False; |
Result := False; |
| 580 |
ResponseCode := -1; |
ResponseCode := -1; |
| 581 |
|
Screen.Cursor := crDefault; |
| 582 |
end; |
end; |
| 583 |
on E: EIdConnectException do begin |
on E: EIdConnectException do begin |
| 584 |
Item.Content := ''; |
Item.Content := ''; |
| 587 |
Item.ErrText := E.Message; |
Item.ErrText := E.Message; |
| 588 |
Result := False; |
Result := False; |
| 589 |
ResponseCode := -1; |
ResponseCode := -1; |
| 590 |
|
Screen.Cursor := crDefault; |
| 591 |
end; |
end; |
| 592 |
on E: Exception do begin |
on E: Exception do begin |
| 593 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 600 |
Item.ErrText := E.Message; |
Item.ErrText := E.Message; |
| 601 |
ResponseCode := FIndy.ResponseCode; |
ResponseCode := FIndy.ResponseCode; |
| 602 |
Result := False; |
Result := False; |
| 603 |
|
Screen.Cursor := crDefault; |
| 604 |
end; |
end; |
| 605 |
end; |
end; |
| 606 |
finally |
finally |
|
|
Legend:
| Removed from v.1.3 |
|
| changed lines |
| |
Added in v.1.4 |
|
|
|