FTP ohne Indy?

[masterchris_99]

also ich hab jetzt einfach diesen code-schnippel hier genommen mit dem geht es sehr sehr gut und auch schnell.

Delphi-Quellcode:

function PutFile(Server, Port, UserName, Password, LocalFile, RemoteFile: String): Boolean; 
var 
  InternetOpn: hInternet; 
  InternetCon: hInternet;  
begin 
  InternetOpn := InternetOpen('iexplore', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0); 
  InternetCon := InternetConnect(InternetOpn, 
                                 PChar(Server),         // FTP Server 
                                 StrToInt(Port),        // FTP Port 
                                 PChar(Username),       // FTP UserName 
                                 PChar(Password),       // FTP Password 
                                 INTERNET_SERVICE_FTP,  // dwService 
                                 INTERNET_FLAG_PASSIVE, // dwFlags 
                                 0);                    // dwContext 
  Result :=  FtpPutFile(InternetCon,
             pChar(LocalFile),                          // LocalFile 
             pChar(RemoteFile),                         // RemoteFile 
             FTP_TRANSFER_TYPE_UNKNOWN,                 // dwFlags 
             0);                                        // dwContext
  InternetCloseHandle(InternetOpn); 
end;

mFg Chris