"Connection Closed Gracefully"

Giganews Newsgroups
Subject: "Connection Closed Gracefully"
Posted by:  Anchorman (JesseN0SP…@davinci-mims.com)
Date: Mon, 24 Nov 2003

I've got a very simple FTP app that I've built that simply downloads a file
at a scheduled time every time every night.  Here's the code:

  if ParamStr(1) = '' then
  Begin
      MessageBox(GetActiveWindow,'You must provide the day to back up
to','',MB_OK + MB_ICONINFORMATION);
      Close;
      Exit;
  end;
  FTP.Connect;
  if not FTP.Connected then
      MessageBox(GetActiveWindow,'Unable to connect to FTP Site.','',MB_OK +
MB_ICONINFORMATION);
  FTP.ChangeDir('/BackupDrive');
  FTP.TransferType := ftBinary;
  FTP.Get('Backup.bkf', '\\risa\backup\ServerBackup\' + ParamStr(1) +
'\Backup.bkf', True, False);
  Application.ProcessMessages;
  FTP.Disconnect;
  MessageBox(GetActiveWindow,'Server backup downloaded','',MB_OK +
MB_ICONINFORMATION);
  Close;

When ever it's finished, it gives me the message, "Connection Closed
Gracefully".  This seems to happen only when I'm running it from the Delphi
IDE.  What does this mean?  Is this an error message?  If so, how do I
resolve it?

Thanks,
Jesse

Replies