AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Eigener Updater

Ein Thema von delphi_user14 · begonnen am 24. Jun 2008 · letzter Beitrag vom 25. Jun 2008
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von delphi_user14
delphi_user14

Registriert seit: 10. Jun 2008
Ort: Au am Leithagebirge (Österreich)
105 Beiträge
 
Delphi 2007 Enterprise
 
#11

Re: Eigener Updater

  Alt 24. Jun 2008, 18:25
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?
Patrick K.
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#12

Re: Eigener Updater

  Alt 24. Jun 2008, 18:26
Schau Dir mal die Reihenfolge der Parameter an.
  Mit Zitat antworten Zitat
Benutzerbild von delphi_user14
delphi_user14

Registriert seit: 10. Jun 2008
Ort: Au am Leithagebirge (Österreich)
105 Beiträge
 
Delphi 2007 Enterprise
 
#13

Re: Eigener Updater

  Alt 24. Jun 2008, 18:29
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.
Patrick K.
  Mit Zitat antworten Zitat
Benutzerbild von Fussball-Robby
Fussball-Robby

Registriert seit: 22. Okt 2007
Ort: Nähe Köln
1.063 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: Eigener Updater

  Alt 24. Jun 2008, 18:30
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
Robert L.
Der folgende Satz ist richtig!
Der vorherige Satz ist falsch!

Paradox
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#15

Re: Eigener Updater

  Alt 24. Jun 2008, 18:31
Nein, ist verkehrt rum, Robert. Delphi_User14 hat es dann auch bemerkt.
  Mit Zitat antworten Zitat
Benutzerbild von delphi_user14
delphi_user14

Registriert seit: 10. Jun 2008
Ort: Au am Leithagebirge (Österreich)
105 Beiträge
 
Delphi 2007 Enterprise
 
#16

Re: Eigener Updater

  Alt 24. Jun 2008, 18:35
Danke, funktioniert schon. (Endlich)
Patrick K.
  Mit Zitat antworten Zitat
Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#17

Re: Eigener Updater

  Alt 25. Jun 2008, 08:18
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...
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz