idFTP - anderer Port als 21

[DRPEnc]

Ich bastel grad an einem FTP Programm.
Wie kann ich idFTP dazu bringen, dass ich einen anderen Port
hernehmen kann?

Das sind ja die optionen:

Username := UserIDEdit.Text;
Password := PasswordEdit.Text;
Host := FtpServerEdit.Text;

Wo kann ich den Port editieren?

[supermuckl]

hätte dir eigentlich ins gesicht springen müssen

idftp.port := port !

[DRPEnc]

Delphi-Quellcode:

procedure TMainForm.ConnectButtonClick(Sender: TObject);
begin
  ConnectButton.Enabled := false;
  if IdFTP1.Connected then try
    if TransferrignData then IdFTP1.Abort;
    IdFTP1.Quit;
  finally
    CurrentDirEdit.Text := '/';
    DirectoryListBox.Items.Clear;
    SetFunctionButtons(false);
    ConnectButton.Caption := 'Connect';
    ConnectButton.Enabled := true;
    ConnectButton.Default := true;
  end
  else with IdFTP1 do try
    Username := UserIDEdit.Text;
    Password := PasswordEdit.Text;
    Host := FtpServerEdit.Text;
    //Port := PortEdit.text;
    Connect;
    Self.ChageDir(CurrentDirEdit.Text);
    SetFunctionButtons(true);
    SaveFTPHostInfo(FtpServerEdit.Text, 'FTPHOST');
  finally
    ConnectButton.Enabled := true;
    if Connected then begin
      ConnectButton.Caption := 'Disconnect';
      ConnectButton.Default := false;
    end;
  end;
end;

Und wie bau ich die Funktion ein? Bis jetzt ist kein Port vorhanden. //Port := PortEdit.text; was ich hinzugefügt hatte ging nicht.

[supermuckl]

also mit

Zitat:

Und wie bau ich die Funktion ein? Bis jetzt ist kein Port vorhanden

kann ich nich gerade viel anfangen.. was willst du ? was ist das fürn code? is der selber gemacht ? wo liegt das problem ? wo liegt die schwierigkeit den port zu übernehmen ?

[DRPEnc]

Es ist das IDFTPDemo aus den IndyDemos für Delphi 6.

Nur fehlt dort die Port auswahl. Dort wird 21 hergenommen.

[SirThornberry]

Bedenke dabei das du beim Server 2 Ports umkonigurieren musst - DefaultPort und DefaultDataPort

Hmm... du solltest die Demo auch versuchen zu verstehen und nicht einfach nur kopieren und bei dir einfügen!! Dabei lernst du nix wenn du es nicht begreifst. Und wenn du es begriffen hast weißt du auch wo die Port-Anweisung in dem Quelltext hinn muss

[DRPEnc]

Delphi-Quellcode:

procedure TMainForm.ConnectButtonClick(Sender: TObject);
var idftp:Tidftp;
begin
  idftp:=TIdftp.Create(Self);
  idftp.Username:= UserIDEdit.Text;
  idftp.Password:= PasswordEdit.Text;
  idftp.Port:=StrToInt(PortEdit.text);
  idftp.Host:= FtpServerEdit.Text;
//begin
  ConnectButton.Enabled := false;
  if IdFTP1.Connected then try
    if TransferrignData then IdFTP1.Abort;
    IdFTP1.Quit;
  finally
    CurrentDirEdit.Text := '/';
    DirectoryListBox.Items.Clear;
    SetFunctionButtons(false);
    ConnectButton.Caption := 'Connect';
    ConnectButton.Enabled := true;
    ConnectButton.Default := true;
  end
  else with IdFTP1 do try
    Username := UserIDEdit.Text;
    Password := PasswordEdit.Text;
    Host := FtpServerEdit.Text;
    //Port := PortEdit.text;
    Connect;
    Self.ChageDir(CurrentDirEdit.Text);
    SetFunctionButtons(true);
    SaveFTPHostInfo(FtpServerEdit.Text, 'FTPHOST');
  finally
    ConnectButton.Enabled := true;
    if Connected then begin
      ConnectButton.Caption := 'Disconnect';
      ConnectButton.Default := false;
    end;
  end;
end;

könnte das gehen?

[SirThornberry]

wozu setzt du

Delphi-Quellcode:

var idftp:Tidftp;
begin
  idftp:=TIdftp.Create(Self);
  idftp.Username:= UserIDEdit.Text;
  idftp.Password:= PasswordEdit.Text;

wenn du etwas weiter unten

Delphi-Quellcode:

  else with IdFTP1 do try
    Username := UserIDEdit.Text;
    Password := PasswordEdit.Text;

das ganze nochmal setzt? Zu deiner Frage: So im überfliegen würde ich sagen es sollte funktionieren allerdings ist es etwas unübersichtlich und somit will ich lieber nicht garantieren das es wirklich funktioniert, hab eventuell nen fehler übersehen. Mach am besten solche doppelten anweisungen weg.

[DRPEnc]

Irgendwie funzen nur die unteren anweisungen.
Könntest Du mir helfen?

Wie gesagt ist hier kein port vorgesehen.

Delphi-Quellcode:

procedure TMainForm.ConnectButtonClick(Sender: TObject);
begin
  ConnectButton.Enabled := false;
  if IdFTP1.Connected then try
    if TransferrignData then IdFTP1.Abort;
    IdFTP1.Quit;
  finally
    CurrentDirEdit.Text := '/';
    DirectoryListBox.Items.Clear;
    SetFunctionButtons(false);
    ConnectButton.Caption := 'Connect';
    ConnectButton.Enabled := true;
    ConnectButton.Default := true;
  end
  else with IdFTP1 do try
    Username := UserIDEdit.Text;
    Password := PasswordEdit.Text;
    Host := FtpServerEdit.Text;
        Connect;
    Self.ChageDir(CurrentDirEdit.Text);
    SetFunctionButtons(true);
    SaveFTPHostInfo(FtpServerEdit.Text, 'FTPHOST');
 finally
    ConnectButton.Enabled := true;
    if Connected then begin
      ConnectButton.Caption := 'Disconnect';
      ConnectButton.Default := false;
    end;
  end;
end;

[supermuckl]

poste noch n paar quelltexte wo gehen könnten und ich fang an lotto zu spielen
ne mal im ernst.. setz dich mit der thematik auseinander.. wenn du an der einzelheit was nich verstehst dann is ok wenn du frägst aber ich setz doch auch net n halbes proggi wo ich irgendwo her kopiert hab hier rein und frag wie das funktioniert