Jetzt hab ich diesen Text hier
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
begin
idftp.Host:='niklas-nelson.de';
idftp.Username:='*meinUsername*';
idftp.Password:='*meinPW*';
try
idftp.Connect();
idftp.ChangeDir('/htdocs/programme/latein/');
if idftp.Size('test.html') > 0 then
begin
showMessage('Update verfügbar! (auf Version 1.1)');
ShellExecute(0, 'open', pchar('http://niklas-nelson.de/programme/latein/test.exe'), nil, nil, SW_SHOWNORMAL);
end
else
showMessage('Es gibt momentan kein Update');
idftp.Disconnect;
except
on E: EidProtocolReplyError do
begin
ShowMessage(e.Message+' ReplyErrorCode: '+IntToStr(e.ReplyErrorCode));
end;
end;
end;
und ich habe eine test.html mit 280kb auf dem Server angelegt, trotzdem zeigt das Programm kein Update verfügbar. Die Ordener Programme und Latein scheint er nicht zu finden, es kommt aber auch keine Folder not found meldung.