rSo sieht mein Code jetzt aus:
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
var
sl: TStringList;
stream : TfileStream;
begin
idftp.Host:='
niklas-nelson.de';
idftp.Username:='
...';
idftp.Password:='
...';
idftp.Connect();
idftp.ChangeDir('
/htdocs/programme/latein');
sl := TStringList.create;
idftp.list(sl,'
*.*',false);
if sl.indexOf('
test.html') >= 0
then
begin
showmessage ('
Es gibt ein Update (Version 1.1)');
stream.Create('
test.exe',fmcreate);
idftp.Get('
test.exe', stream);
idftp.Disconnect;
stream.Free;
end
else
begin
showmessage ('
Ne Ne, kein Update da');
idftp.Disconnect;
end;
sl.free;
end;
procedure Get(
const ASourceFile:
string;
const ADestFile:
string;
const ACanOverwrite: boolean);
overload;
//die Get procedure funktioniert gar nicht. Aber wenn ich den oberen Teil so lasse kommt wieder eine Exception.
begin
idftp.Host:='
niklas-nelson.de';
idftp.Username:='
...';
idftp.Password:='
...';
idftp.connect ();
idftp.ChangeDir('
/htdocs/programme/latein');
idftp.get('
Test.exe','
test.exe',false);
end;
Ich glaube ich hab da was falsch verstanden oder ist das richtig? Das proggi soll ja auch für alle sein, also muss die Datei im ordner gespeichert werden, wo das Programm drin ist und nicht in einem von mir angegebenen Ordner. Sonst gibts ja noch die Möglichkeit rauszufinden wo das Programm drin ist. Geht das auch noch wenn das installiert ist (ich mache dafür ein Setup (mit INNO)