Socketfehler 11004

[Mucher]

Hallo!
Ich habe ein Updateprogramm geschrieben!
Leider klappt das nicht wirklich!
Ich bekomme beim Connecten einen

Socketfehler # 11004

!

Ich habe folgenden Quellcode:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 versionalt->LoadFromFile("version.txt");
 Label2->Caption = "Aktuelle Version: " + versionalt->Strings[0];
 FTP->Host="www.mitglied.lycos.de/datenva"; //Die FTP Komponente
 FTP->Username="***";
 FTP->Password="***";
 FTP->Passive=false; //ist auch Standard
 FTP->Port=21; //ist auch Standard
 FTP->TransferType=ftBinary;//ist auch Standard
}

Danke an dieser Stelle an Christian Marquardt.

Und dann in der Button1Click

void __fastcall TForm1::Button1Click(TObject *Sender)
{

 Label1->Caption = "Prüfung läuft....";
 Application->ProcessMessages();
 FTP->Connect();
 Application->ProcessMessages();
 FTP->Get("/version.txt","version2.txt",true,false);
 version->LoadFromFile("version2.txt");
 Label3->Caption = "Neue Version: "+version->Strings[0];
 if (StrToFloat(version->Strings[0]) > StrToFloat(versionalt->Strings[0]))
 Updaten();
 else
 Application->MessageBox("Die Version ist auf dem neusten Stand","Aktuelle Version!",0+64);
}

Leider kommt der nicht weiter als FTP->Connect();

Weis einer warum?

[Christian Marquardt]

Der Host für den FTP Zugriff heisst

www.mitglied.lycos.de/datenva

ist eher unwahrscheinlich

11004 deutet genau darauf hin -> Servername falsch

[Mucher]

Ja das stimmt natürlich...
Ich Depp
Ich hab jetzt was geändert, jetzt hängt er sich bei der Get Methode auf!
Da geht gar nix mehr.
FormCreate:

versionalt->LoadFromFile("version.txt");
Label2->Caption = "Aktuelle Version: " + versionalt->Strings[0];
FTP->Host="ftp.mitglied.lycos.de"; //Die FTP Komponente
FTP->Username="datenva";
FTP->Password="***";
FTP->Passive=false; //ist auch Standard
FTP->Port=21; //ist auch Standard
FTP->TransferType=ftBinary;//ist auch Standard

Button1:

Label1->Caption = "Prüfung läuft....";
Application->ProcessMessages();
FTP->Connect();
Application->ProcessMessages();
FTP->Get("/version.txt","version2.txt",true,false);
Application->ProcessMessages();
version->LoadFromFile("version2.txt");
Label3->Caption = "Neue Version: "+version->Strings[0];
if (StrToFloat(version->Strings[0]) > StrToFloat(versionalt->Strings[0]))
Updaten();
else
Application->MessageBox("Die Version ist auf dem neusten Stand","Aktuelle Version!",0+64);

aber wenn ich mit nem Browser drauf zugreifen will, komm ich problemlos drauf:
ftp://ftp.mitglied.lycos.de/version.txt

[Christian Marquardt]

Mal mit Pfad probieren

FTP->Get("/version.txt","c:\\version2.txt",true,false);

[Mucher]

hm ne das geht auch nicht!
Soll ich dir vielleicht mal das Programm schicken?

[Mucher]

AAHAAA ich sehe gerade, dass der in dem Verzeichnis die Datei runtergeladen hat!
Leider ist sie leer
Aber sie ist da!

[Arne Drews]

Hallo,

is zwar 'n bischen her, aber war länger nicht hier.

FTP->Host="ftp.mitglied.lycos.de"; //Die FTP Komponente

Probier mal

FTP->Host="mitglied.lycos.de"; //Die FTP Komponente

Der Fehler 11004 deutet, wie Christian bereits sagte, auf einen falschen Servernamen hin.
Soweit mir bekannt ist, sollte die Angabe "ftp." dort auch nicht auftauchen.