Hallo Gemeinde,
ich hatte in Delphi7 ein
FTP-Download-Files-Routine mit WinInet geschrieben. Das funktionierte auch gut.
Delphi-Quellcode:
uses
WinInet,IdTCPClient, IdMessageClient,IdComponent,IdMessage,
usw.;
Und die Funktion zum Download:
Delphi-Quellcode:
function FtpDownloadFile(FtpServer, FTPUser, ftpPW, FtpPort): Boolean;
const
READ_BUFFERSIZE = 4096;
var
hFTP, hFile,: HINTERNET;
In XE7 gibt es leider unter anderem WinInet und auch HINTERNET nicht mehr.
Kann jemand bitte mir verraten, welches Tool/Komponente ich statt dessen
nehmen darf, damit ich z.B. folgendes benutzen kann?
Delphi-Quellcode:
hFTP := InternetConnect(hNet,PChar(FtpServer),Port, PChar(ftpUser),
PChar(ftpPW),INTERNET_SERVICE_FTP,
0, // oder INTERNET_FLAG_PASSIVE
0);
if hFTP = nil then
// fehler internet behandeln