Also ich war ja guter Dinge dass ich, mit der Info von oben nun ohne fremde Hilfe weiter komme aber ich bin wohl zu doof dafür. Ich habe nun die
Indy 10 Komponente schon zwei mal neu installiert inklusive Delphi 2005PE aber die Sache will einfach nicht. Ich kann mich zwar auf dem Server einlogen aber bei allen weiteren Zugriffen passiert einfach nichts, bis dann nach der ganzen Weile die Fehlermeldung - unable to build data connection: Connection timed out – erscheint. Was mache ich nur Falsch, der Code ist doch zu simpel um was falsch zu machen oder doch?
Hier der Code:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP;
type
TForm1 =
class(TForm)
Button1: TButton;
IdFTP1: TIdFTP;
ListBox1: TListBox;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Username :=('
xxx');
IdFTP1.Password := ('
xxx');
IdFTP1.Host := ('
ftp.egal.de');
IdFTP1.Connect;
end;
procedure TForm1.BeendenClick(Sender: TObject);
begin
IdFTP1.Quit;
end;
procedure TForm1.MachWasClick(Sender: TObject);
begin
//IdFTP1.Get('test.bmp','c:\test.bmp', true);
IdFTP1.List(ListBox1.Items);
end;
end.
Ich lese ja immer wieder dass das Internet geradezu zugeschissen ist mit Demos zu der
Indy Komponente... seltsamem dass ich keine finden kann. Auf der
offiziellen Seite von Indy gibt es leider kein Demo zur Version 10 und die die man laden kann zeigen exakt die gleichen Symptome wie der Code oben, Einlogen geht, dann friert alles ein
Woran kann das liegen?