Eigener Updater

[delphi_user14]

Wie kann ich von Delphi aus auf eine Ini-Datei auf meinem FTP-Server zugreifen?

[Die Muhkuh]

Mit den Indy-Komponenten wäre das möglich.

Indy FTP sollte Dir weiterhelfen.

[SirThornberry]

FTP heißt FileTransferProtokoll
Entsprechend musst du die Datei vom Server holen und dann den Inhalt als Ini-Struktur interpretieren.

Um dir zu helfen musst du uns sagen an welcher Stelle du nicht weiter kommst. Nach was hast du bisher gesucht womit du keine Suchergebnisse bekommst?

[delphi_user14]

Naja, zuerst wusste ich nich einmal, dass ich das mit Indy machen soll.

Jetzt habe ich einmal meine Daten eingegeben.

Wie lade ich die Ini jetzt herunter?

Bitte Code hinzufügen.

[SirThornberry]

hast du die Suche denn wirklich genutzt? :gruebel: Mit dem Link von der Muhkuh gibt es einige Beispiele wie man eine Datei von einem FTP-Server lädt. Zudem gibt es bei den Indys auch eine Demo.
Auch in der Hilfe zu TIdFTP (das ist die Komponente welche man durch die Suchfunktion findet) steht einiges.

Bitte zeige etwas Eigeninitiative. Wir helfen gern wenn man an einer Stelle nicht weiter kommt, aber wir schreiben nicht den Quelltext für andere. (steht übrigens auch in dem Verhaltenskodex dem du bei der Anmeldung zugestimmt hast)

[Matze]

Hallo

Zitat:

Zitat von delphi_user14

Bitte Code hinzufügen.

Den kannst du dir selbst zusammensuchen bzw. anpassen. In der Code-Library findest du beispielsweise etwas, was dir weiterhilft: download bzw. ftp.
Und auch in der DP befinden sich zahlreiche Themen.

Grüße

[delphi_user14]

Herzlichen Dank!

Ich denke, mit dem kann ich etwas anfangen.

[Die Muhkuh]

Mit dem anderen übrigens auch, wenn man mal ein paar Minuten intensiv schaut. :zwinker:

[delphi_user14]

@Matze

Kann ich statt der IP auch die Adresse eingeben?

Wenn ja, muss ich dann "ftp://" voranstellen?

[Die Muhkuh]

Ich schätze mal ja: Aber wie wäre es einfach mit ausprobieren? :zwinker:
Und imho kein FTP vorne dran.

[delphi_user14]

Delphi-Quellcode:

function getfile(server, username, password, remotefile, localfile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  Result := FtpGetFile(hconnect, pchar(localfile), pchar(remotefile), False, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

procecdure TForm1.Button1Click(Sender: TObject);
begin
getfile('SERVER', 'USERNAME', 'PASSWORD', '/updates/update.ini', extractfilepath(paramstr(0))+'update.ini');
end;

Es wird keine Datei erstellt.

Was ist falsch?

[Die Muhkuh]

Schau Dir mal die Reihenfolge der Parameter an.

[delphi_user14]

Die Stimmt.

Bei FtpGetFile sind RemoteFile und LocalFile umgedreht und ich gebe die Parameter auch so ein, nur habe ich die Beschreibung noch nicht geändert.

[Fussball-Robby]

Zitat:

Zitat von Die Muhkuh

Schau Dir mal die Reihenfolge der Parameter an.

Die dürfte imho so richtig sein..
Da kann man nur raten: Tippfehler beim Server, Username, Passwort oder der Datei.. Vielleicht existiert die Datei auf dem Server auch nicht (es kann sein, dass du Groß/Kleinschreibung beachten musst)

[Edit]Toll, konnte ja nicht wissen, dass du die Namen umgedreht hattest :?

[Die Muhkuh]

Nein, ist verkehrt rum, Robert. Delphi_User14 hat es dann auch bemerkt.

[delphi_user14]

Danke, funktioniert schon. (Endlich) :lol:

[RavenIV]

Zitat:

Zitat von delphi_user14

Es wird keine Datei erstellt.

Was ist falsch?

Wie wär's, wenn Du Dir mal die Rückgabewerte der aufgerufenen Indy-Funktionen anschaust?
Die eine oder andere möchte Dir bestimmt einen Fehlercode mitteilen...