Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

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

revision 1.3 by h677, Tue Sep 2 13:27:07 2003 UTC revision 1.4 by h677, Thu Sep 18 04:39:15 2003 UTC
# Line 578  begin Line 578  begin
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 := '';
# Line 586  begin Line 587  begin
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}
# Line 598  begin Line 600  begin
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

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