Daten von einem FTP-Server/HTTP-Protokoll lesen

Delphi Champ 3 · Verfasst: Mo 19.11.07 18:19

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:

)

markieren

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!

Delphi Champ 3 · Verfasst: 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

Narses · Verfasst: Di 20.11.07 18:10

Moin!

Da das API-Funktionen sind, schonmal ins MSDN geschaut?

URLDOWNLOADTOFILE
Suche im MSDN

INTERNETREADFILE

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Delphi Champ 3 · Verfasst: 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

Calculon · Verfasst: Mi 21.11.07 09:18

ungetestet:

markieren

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), 0, Nil);
  // erfolgreich? wenn ja
  Memo1.Lines.LoadFromFile(target);
end;

Delphi Champ 3 · Verfasst: Mi 21.11.07 20:31

Prima Danke! Funktioniert!

Und InternetReadFile()?

Narses · Verfasst: Do 22.11.07 03:57

INTERNETREADFILE :roll:

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme