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