Internet connection ja/nein ?

[Die Muhkuh]

Delphi-Quellcode:

ftp:=TidFtp.Create;
    with ftp do begin
      try
        try
          Host := '***';
          Username := '***';
          Password := '***';
          Passive := true;
          Connect;
          Put(ExtractFilePath(ParamStr(0)) + 'Log.ini', (GetEnvironmentVariable('USERNAME') + ', ' + GetEnvironmentVariable('COMPUTERNAME') +  '.ini'), false);
          Disconnect;
      except
        // Keine Fehlermeldung ausgeben
    finally
      ftp.Free;
      end;
    end;