Thema: Delphi FTP-Server abfrage?

Einzelnen Beitrag anzeigen

Jiro

Registriert seit: 12. Mär 2008
Ort: Hannover
77 Beiträge
 
Delphi 7 Personal
 
#22

Re: FTP-Server abfrage?

  Alt 11. Apr 2008, 19:02
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.
Niklas
  Mit Zitat antworten Zitat