Daten aktualisieren sich nicht

[Curry]

Danke für deine Antwort.

Sowohl auf meinem Rechner wie auch auf denen meiner Freunde wird das File nun einmal am Anfang geladen. Danach wird "ergebnis" false.

Delphi-Quellcode:

function getfile(server, username, password, localfile, remotefile: 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, fmCreate, FTP_TRANSFER_TYPE_UNKNOWN or INTERNET_FLAG_RELOAD, 0); 
  InternetCloseHandle(hconnect);
end;

EDIT: Ich hab den delay auf 3000 gesetzt ohne Veränderung.
Ja - im except fehlt noch ein exit.

[NickelM]

Zitat von NickelM:

EDIT: Ach und mach mal bei deiner getFile Funktion immer try...finally rein. Die anderen Handles musst du auch mit InternetCloseHandle beenden.

Verweise nochmal darauf, da ich dass nachdräglich gemacht habe.
Die WinInet-API für FTP ist so konzipiert das du nur eine Datei Pro Seesion downloaden oder hochladen kannst. Deshalb auch der try...finally Block für jeden HINTERNET Handle den du hast.

Ändere mach das so ab:

Delphi-Quellcode:

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

Und @Dalai: Eigentlich brauch er gar kein Delay, da FTPGetFile erst zurückgibt in diesem Fall, wenn er die Datei hat oder wenn es fehlschlägt.

Gruß NickelM

[Dalai]

Zitat von Curry:

Ja - im except fehlt noch ein exit.

OK, aber selbst dann ist die Methode LoadFromFile nach dem try-Block überflüssig, denn warum muss er es im Erfolgsfall doppelt hintereinander machen?

Zitat von NickelM:

Und @Dalai: Eigentlich brauch er gar kein Delay, da FTPGetFile erst zurückgibt in diesem Fall, wenn er die Datei hat oder wenn es fehlschlägt.

Stümmt, jetzt wo du's sagst. Ich war bei Timern, aber das is ja gar keiner.

MfG Dalai

[Curry]

Vielen Dank an alle schonmal

mache mich gleich ans ausprobieren. Vorher aber eine zwischenfrage:

Seit NickelM's FtpGetFile Ansatz ist die tracer.rax nicht mehr im Explorer sichtbar.
Trotzdem scheint sie noch zu existieren, da ich die Fehlermeldung "existiert bereits und ist schreibgeschützt" erhalte wenn ich maneull eine neue erstellen will.

[NickelM]

Oh ehm ja...Mein Fehler sorry...ersetzt fmCreate wieder durch 0.
In der Doku stand File_Atributes von CreateFile und ich dachte Flags : oops:
Sorry mein Fehler...bin auch nur ein Mensch.

Gruß NickelM
P.S. : Sorry das passiert, wenn man sowas zwischendurch liest und nicht GENAU liest.

[Curry]

Vielen Dank nochmal an alle.

Es läuft jetzt

[himitsu]

Und du meinst jetzt, daß es niemanden interessieren würde, wie/warum es nun geht, wenn irgendwann nochmal jemand soein Problem hat?

[Curry]

Ich habe den Lösungsvorschlag von NickelM genommen und fmCreate durch 0 ersetzt.

Delphi-Quellcode:

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

Deine Lösung gab bei
if hopen = 0 then und
if hconnect = 0 then begin einen Fehler zurück. (aber vllt hab ich auch etwas vergessen zu berücksichtigen).

[himitsu]

"Ausführliche" Fehlerbeschreibungen find ich immer sehr gut ... denn da erkennt man eventuell direkt, warum was nicht geht.

Ich nahm einfach an HINTERNET wäre ein THandle/DWORD, so wie es viele Handles ala HWND oder HRESULT sind.
Wie dir bestimmt die Fehlermeldung gesagt hat, paßt 0 und Pointer nicht zusammen, also verwendet mal ganz einfach nil statt 0.
Nja, im MSDN steht was von NULL, was bei Delphi-Pointern eben das nil ist, allerdings werden Header leider nicht immer korrekt übersetzt ... drum ist einfsch der Erfahrungswert, statt dem Gelesenem in den Code eingeflossen.
Ich kann dir bei sowas auch immer das MSDN (online) oder Windows PSDK (Plattform SDK zum downloaden) empfehlen, wo man alles zu Windows-APIs wie InternetOpen nachlesen kann, wobei vorallem die Beschreibungen der Parameter und vorallem des Results und der Fehlerbehandlung besonders interessant sind.


PS: Man kann statt der Exceptions auch einfach das jeweils letzte GetLastError als HRESULT zurückgeben und im Erfolgsfall dann NO_ERROR, also statt des nichtssagenden Boolean.
So oder so hat man dann immernoch einen auswertbaren Rückgabewert, den man zur Fehleranalyse nutzen kann, um rauszufinden warum was nicht geht. (aber Exceptions sind auch eine Nette Angelegenheit)