Delphi 3 und FTP

[Sascha_OW]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ComCtrls, OleCtrls, Menus, ExtCtrls, isp3;

type
  TForm1 = class(TForm)
    FTP1: TFTP;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ftp1.userid := 'uid';
ftp1.password := 'pwd';
ftp1.connect ('www.tonix.net', '21');
//ftp1.Root := DirTree.Items.AddChild(nil, RemoteHost);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FTP1.DeleteDir('test');
end;

end.

so das habe jetzt ich gemacht aber irgendwie kommt immer die Meldung "Warte auf Antwort vom Server, oder kommt keine Meldung er führt die Aktion aber auch nicht aus. Ich habe Delphi 3 und keine Indy komponete aber ich weiss auch ehrlich nicht was das ist. Die andren Topics sind immer nur mit Delphi 6 oder höher habe ich das gefüh denn bei mit gehen die sachen alle nicht mitte helft mir

[edit=r_kerber]Habe mal eben die Zugangsdaten gelöscht. Die wolltest Du doch bestimmt nicht offenlegen! Mfg, r_kerber[/edit]

[TheXception]

Vllt findest du hier ein paar Informationen dazu:
http://www.w3.org/Protocols/rfc959/

Notfalls versuchst du es mit den Standard Sockets.

[BeerBear]

Ich versuche auch gerade mit dem Mist klarzukommen.
Nach dem Connect brauchst du ein Authenticate. Vorher geht nichts.

FTP1.Authenticate('uid','pwd'); Außerdem braucht das Ganze immer ne Weile, bis der Server reagiert hat. Deshalb kannst du die Befehle nicht hintereinander wegschreiben. Dann gibts nämlich Fehler. Zum Testen hab ich zwischen jede Zeile ersmal ne Aboutbox gesetzt. Das gibt dem Server genug Zeit zu Antworten.

FTP1.AboutBox; Jede Antwort löst auch immer irgendein Ereignis aus, also solltes du später die jeweils nächste Zeile von einer Antwort oder einem Ereignis abhängig machen, um auf die AboutBoxen oder sonstwas verzichten zu können. Die Hilfe dazu is zwar zimlich schlecht, aber du solltes trotzdem mal reinschauen.