Datei Runterladen und verschieben....

[Fussball-Robby]

Zum runterladen hab ich hier eine Funktion, die ich irgendwann mal nach Stunden der Suche hier im Forum gefunden hab:

Delphi-Quellcode:

//uses WinInet;

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, 0, FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

//Aufruf:

if getfile('URL.DE', 'NAME123', 'Banane', '/Datei/test.ini', 'C:\test.ini') then beep;

Damit lädst du vom Server 'URL.DE' mit dem Benutzernamen 'NAME123' mit dem Passwort 'Banane' aus dem Ordner 'Datei' die Datei 'test.ini' runter und speicherst sie unter 'C:\test.ini'.

So, das wär dann mal ein Ansatz, den Rest schaffst du aber denke ich selber

Mfg