Hallo!
Ich habe ein Updateprogramm geschrieben!
Leider klappt das nicht wirklich!
Ich bekomme beim Connecten einen
!
Ich habe folgenden Quellcode:
Danke an dieser Stelle an Christian Marquardt.
Und dann in der Button1Click
Leider kommt der nicht weiter als FTP->Connect();
Weis einer warum?
Ich habe ein Updateprogramm geschrieben!
Leider klappt das nicht wirklich!
Ich bekomme beim Connecten einen
Code:
Socketfehler # 11004
Ich habe folgenden Quellcode:
Code:
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 }
Und dann in der Button1Click
Code:
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); }
Weis einer warum?
Comment