Entwickler-Ecke

Internet / Netzwerk - Daten von einem FTP-Server/HTTP-Protokoll lesen


Delphi Champ 3 - Mo 19.11.07 18:19
Titel: Daten von einem FTP-Server/HTTP-Protokoll lesen
Hallo,
ich würde gerne mit Hilfe von Delphi, von meinem Webserver Daten lesen und evtl. auch welche raufschreiben. Ich möchte so zum Beispiel gucken, ob schon eine neue Version von meinem Programm im Internet ist und die dann downloaden. Ich möchte allerdings mich nicht beim FTP-Server einloggen, da mein Programm das Passwort nicht kennen soll. ;)
Ich würde denn das Atribut von der entsprechenden Seite auf schreib- und lesbar stellen.
Ich habe einfach mal folgendes probiert. (Bitte nicht lachen :oops: )

Delphi-Quelltext
1:
Memo1.Lines.LoadFromFile('http://www.mein-server.de/meine-datei.txt');                    

Der Computer kehrt allerdings die Slashs in Backslashs um und sucht die Datei lokal auf meiner Festplatte unter C:\...\http:\www.mein-server.de\meine-datei.txt und da gibt es natürlich keine Datei.

Kann mir vielleicht jmd. weiter helfen und mir eine Möglichkeit geben? Oder vielleicht auch eine bessere als mein Gedankengang?

Danke! :D


Delphi Champ 3 - Mo 19.11.07 20:46

Ich habe jetzt schon was über die Suche gefunden:
URLDownloadToFile() und InternetReadFile(), nur ich weiß nicht welche Parameter ich angeben muss. Kann mir das jmd erklären?

Danke :D


Narses - Di 20.11.07 18:10

Moin!

Da das API-Funktionen sind, schonmal ins MSDN geschaut? ;)
Suche im MSDN URLDOWNLOADTOFILE
Suche im MSDN INTERNETREADFILE

cu
Narses


Delphi Champ 3 - Di 20.11.07 21:45

So richtig werde ich daraus nicht schlau. Kann mir vielleicht jmd in deutsch sagen, was ich da genau eintragen muss? Ich weiß nicht, was bei den ganzen Pointern rein soll. :roll:

Vielen Dank :D


Calculon - Mi 21.11.07 09:18

ungetestet:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
var
  source, target: string;
begin
  source := 'http://www.mein-server.de/meine-datei.txt';
  target := 'C:\Download\meine-datei.txt';
  URLDownloadToFile(Nil, PChar(source),PChar(target), 0Nil);
  // erfolgreich? wenn ja
  Memo1.Lines.LoadFromFile(target);
end;


Delphi Champ 3 - Mi 21.11.07 20:31

Prima Danke! Funktioniert! :D

Und InternetReadFile()?


Narses - Do 22.11.07 03:57

Suche in: Delphi-Forum, Delphi-Library INTERNETREADFILE :roll: