Problem mit IdFTP1.Put

[Sir Rufo]

Zitat:

Zitat von Assertor

Nur soviel, bevor ein anderer das liest und wieder denkt "wußte ich es doch, Indy 10 hat Probleme": Nein, der FTP Transfer ist wirklich die Pflicht für Indy - also eine Aufgabe die regelmäßig genutzt und kontrolliert wird.

Gruß Assertor

aha ... also nehmen wir jetzt mal Indy10 (v10.5.5 so wie bei Delphi 2010 dabei)
holen uns die Demo FTP-Client aus dem SVN
compilieren und schon geht das.

Tatsache, da tut sich was ...

Server: ftp.lancom.de
User: ftp
Pass: ftp

und bei Connect kommt "Illegal PORT Command!"

ah, ja ...

Welches Zauberwort braucht denn der Client, damit der auch mal anzeigt, was da so ist?

cu

Oliver

[Assertor]

Hi Oliver,

Zitat:

Zitat von Sir Rufo

Zitat:

Zitat von Assertor

Nur soviel, bevor ein anderer das liest und wieder denkt "wußte ich es doch, Indy 10 hat Probleme": Nein, der FTP Transfer ist wirklich die Pflicht für Indy - also eine Aufgabe die regelmäßig genutzt und kontrolliert wird.

Gruß Assertor

aha ... also nehmen wir jetzt mal Indy10 (v10.5.5 so wie bei Delphi 2010 dabei)
holen uns die Demo FTP-Client aus dem SVN
compilieren und schon geht das.

Ich weiß nicht, was das aha soll - aber die Demos sind nicht aktuell, das ist auch kein Geheimnis. Im SVN Log sieht man das, irgendwann 2005 von Jörg Meier reingestellt und 2008 von Olaf Monien verschoben (als er noch dabei war).

In D2009 und D2010 steht das ja z.B. auch im Demo-Ordner "Indy v9 Demos" - und nichts ist enthalten, trotzdem kommen die wenigsten auf die Idee irgendwas von Indy 9 mit D2009+ auszuprobieren. Aber egal wie oft man es Embarcadero sagt, das lustige Textfile bleibt drin ;)

Den Rest deines Posts verstehe ich nicht, zu viel Ironie ohne den :mrgreen: Smiley. Aber wenn Du eine konkrete Frage hast: Immer her damit. Ein einfachen FTP Connect und das List Kommando bringen wir Dir auch noch bei :mrgreen: (< da ist er)

Edit: Gerade mal den FTPClient aus dem Demos getestet. Mein Debugger bringt mir sofort Fehlermeldungen, das Properties nicht (mehr) exisitieren - selbst mit D2009. Sollte also klar sein, daß dies nicht ohne Änderungen funktionieren kann.

Und: Die D2010 Version ist nicht automatisch die Version aus dem SVN. Embarcadero nimmt eigene Anpassungen vor, leider ohne immer darüber zu benachrichtigen. Auch welche Build-Nummer aus dem SVN genommen wurde, wird nicht immer mitgeteilt. Das wird sich hoffentlich in Zukunft (weiter) bessern.

Gruß Assertor

[Sir Rufo]

sorry, für wegen die fehlenden :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen:

Der ftp-Server den ich ansprechen will ist erreichbar, mit den Login-Daten beschreibbar, also eigentlich voll erreichbar.

Der Login funktioniert, der Upload startet und dann kommt die Fehlermeldung "Connection closed; transfer aborted"

Wie schon gesagt: Delphi 2010, Indy 10.5.5 (die wo direkt mit Delphi 2010 geliefert werden :mrgreen: )

Hier der Code aus dem Formular, der Rest vom Projekt ist im Anhang.

Delphi-Quellcode:

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, ExtCtrls;

type
  TForm1 = class( TForm )
    Host : TEdit;
    Port : TEdit;
    Username : TEdit;
    Password : TEdit;
    Passive : TCheckBox;
    Button1 : TButton;
    IdFTP1 : TIdFTP;
    procedure Button1Click( Sender : TObject );

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1 : TForm1;

implementation

{$R *.dfm}

uses
  idFtpCommon;

procedure TForm1.Button1Click( Sender : TObject );
  begin
    // Einstellungen lesen
    IdFTP1.Host := Host.Text;
    IdFTP1.Port := StrToIntDef( Port.Text, 21 );
    IdFTP1.Username := Username.Text;
    IdFTP1.Password := Password.Text;
    IdFTP1.Passive := Passive.Checked;
    IdFTP1.AutoLogin := False;

    IdFTP1.Connect;
    try
      IdFTP1.Login;
      IdFTP1.TransferType := ftBinary;
      if FileExists( '.\Dokument.txt' ) then
        IdFTP1.Put( '.\Dokument.txt', 'Dokument.txt', False );
    finally
      IdFTP1.Disconnect;
    end;

  end;

end.

[Assertor]

Hi,

Zitat:

Zitat von Sir Rufo

sorry, für wegen die fehlenden :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen:

[...]

Wie schon gesagt: Delphi 2010, Indy 10.5.5 (die wo direkt mit Delphi 2010 geliefert werden :mrgreen: )

Ok ;)

Ich sehe mir Dein Demo jetzt sofort an und gebe gleich Feedback.

Aber was ist das für eine Demo?

Zitat:

Zitat von Sir Rufo

aha ... also nehmen wir jetzt mal Indy10 (v10.5.5 so wie bei Delphi 2010 dabei)
holen uns die Demo FTP-Client aus dem SVN
compilieren und schon geht das.

Tatsache, da tut sich was ...

Wie hast Du das bitte ohne Änderungen kompiliert? Die Indy10Demo vom SVN läuft zu 100% nicht ungeändert mit Delphi 2009 und 2010 - da sind zu viele geänderte Properties und Methodenparameter.

Hast Du D2010+ mit dem Pre-:glaskugel:-Compiler? ;)

Edit: Feedback. Deine (eigene) Demo mit aktuellen SVN kompiliert - und ich bekomme keine Fehlermeldung (und hab von sowas auch noch nicht gehört). Halt mich auf dem Laufenden :)

Gruß Assertor

[Sir Rufo]

Ok, jetzt habe ich ftp mit Passive laufen ...

... jetzt funktioniert es ... aber ...

... nur wenn der ftp-server auf Port 21 sitzt. :wall:

Ich habe die ganze Zeit mit einem ftp-server auf einem anderen Port (22222) getestet.
Jetzt tut das sogar mit den Delphi-Beipack-Indys.

Seltsam ist es schon ... aber soweit klappert es ja jetzt, dann eben nur Standard :mrgreen:

cu

Oliver

[SirThornberry]

warum speicherst du die Daten erst auf der Festplatte anstelle sie direkt hoch zu laden? Werden diese lokal auf der Festplatte wirklich benötigt?

[Sir Rufo]

Zitat:

Zitat von SirThornberry

warum speicherst du die Daten erst auf der Festplatte anstelle sie direkt hoch zu laden? Werden diese lokal auf der Festplatte wirklich benötigt?

Das war eigentlich mein geringstes Problem :mrgreen:

Das Projekt oben war doch nur ein Test-Projekt ... die richtige Anwendung wird das aus einem Stream pumpen ;)

cu

Oliver

[Assertor]

Hi,

Zitat:

Zitat von Sir Rufo

Ok, jetzt habe ich ftp mit Passive laufen ...

... jetzt funktioniert es ... aber ...

... nur wenn der ftp-server auf Port 21 sitzt. :wall:

Ich habe die ganze Zeit mit einem ftp-server auf einem anderen Port (22222) getestet.
Jetzt tut das sogar mit den Delphi-Beipack-Indys.

Seltsam ist es schon ... aber soweit klappert es ja jetzt, dann eben nur Standard :mrgreen:

So, Sir Rufo und ich haben das gerade mal debuggt. Ergebnis bisher: Es geht sehr wohl auch auf 22222 (getestet mir FileZilla Server und verschiedenen Indy Versionen), nur leider sendet Sir Rufos MS IIS FTP Server aus irgendeinem nicht ersichtlichen Grund Indy & anderen Clients die interne IP des Servers im Passiv-Modus. Da scheint es ein Problem mit dem FTP Server von MS und / oder Sir Rufo's Router zu geben.

Selbst wenn jetzt die externe IP genommen wird, schlägt auf seiner Seite die NAT fehl und die Ports werden nicht geöffnet... Für das Problem selbst finden sich viele Einträge zu MS IIS FTP und dem Router, aber kein einziger Report bisher zu Indy.

Ergo: Nicht alles, was nicht geht, liegt an Indy :mrgreen:

Gruß Assertor

Tags: Indy, 500, Illegal Port Command, NAT, Router, FTP