Thema: Delphi FTP-Server abfrage?

Einzelnen Beitrag anzeigen

Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#23

Re: FTP-Server abfrage?

  Alt 11. Apr 2008, 19:26
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'); // hier mal den letzten / gelöscht

    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;
Nun, in dem Code scheint mit dem FTP kein Problem zu geben.
Die Exception wird ja nicht ausgelöst.
Nun, eine dumme Frage, Du bist Dir sicher das es die Ordner gibt?
Und darin liegt auch Deine test.html.
Stimmen die die Namen überein (Groß- und Kleinschreibung),
denn der Server wird auf Linux o.ä. laufen.

Bist Du Dir sicher, das Du die exe direkt vom http Server starten kannst?
Ich denke, das wird nicht funktionieren.
Du wirst sie auf Deinen Rechner laden müssen und dann ausführen.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat