SocketTools Library Edition

// Connect to the file server and authenticate the user
hClient = FtpConnect(lpszHostName,
                     FTP_PORT_SSH,
                     lpszUserName,
                     lpszPassword,
                     FTP_TIMEOUT,
                     FTP_OPTION_DEFAULT,
                     NULL);
 
if (hClient != INVALID_CLIENT)
{
    // Upload the local file to the server
    INT nResult = FtpPutFile(hClient,
                             lpszLocalFile,
                             lpszRemoteFile,
                             FTP_TRANSFER_DEFAULT,
                             0L);
 
    if (nResult != FTP_ERROR)
    {
        _tprintf(_T("File %s uploaded successfully\n"), lpszLocalFile);
    }
    else
    {
        // Get the last error code in case of a failure
        DWORD dwError = FtpGetLastError();
        _tprintf(_T("Error %08lX: File transfer failed\n"), dwError);
    }
 
    // Disconnect from the server when the transfer completes
    FtpDisconnect(hClient);
    return;
}
else
{
    _tprintf(_T("Unable to connect to %s\n"), lpszHostName);
    return;
}

CFtpClient ftpClient;
 
// Connect to the file server and authenticate the user
if (ftpClient.Connect(lpszHostName,
                      FTP_PORT_SSH,
                      lpszUserName,
                      lpszPassword))
{
    // Upload the local file to the server
    INT nResult = ftpClient.PutFile(lpszLocalFile, lpszRemoteFile);
 
    if (nResult != FTP_ERROR)
    {
        _tprintf(_T("File %s uploaded successfully\n"), lpszLocalFile);
    }
    else
    {
        // Get the last error code in case of a failure
        DWORD dwError = ftpClient.GetLastError();
        _tprintf(_T("Error %08lX: File transfer failed\n"), dwError);
    }
 
    // Disconnect from the server when the transfer completes
    ftpClient.Disconnect();
    return;
}
else
{
    _tprintf(_T("Unable to connect to %s\n"), lpszHostName);
    return;
}

' Connect to the file server and authenticate the user
hClient = FtpConnect(strHostName, _
                     FTP_PORT_SSH, _
                     strUserName, _
                     strPassword, _
                     FTP_TIMEOUT, _
                     FTP_OPTION_DEFAULT, _
                     0)
 
If hClient = INVALID_CLIENT Then
    MsgBox "Unable to connect to " + strHostName
    Exit Sub
End If
 
' Upload the file to the server
nResult = FtpPutFile(hClient, _
                     strLocalFile, _
                     strRemoteFile, _
                     FTP_TRANSFER_DEFAULT, _
                     0)
 
If nResult <> FTP_ERROR Then
    MsgBox "File transfer was successful"
Else
    ' If the transfer failed, get the last error code
    nError = FtpGetLastError()
    MsgBox "File transfer failed, error " + Hex(nError)
End If
 
' Disconnect from the server after the transfer completes
FtpDisconnect hClient

// Connect to the file server and authenticate the user
hClient := FtpConnect(PChar(sHostName),
                      FTP_PORT_SSH,
                      PChar(sUserName),
                      PChar(sPassword),
                      FTP_TIMEOUT,
                      FTP_OPTION_DEFAULT,
                      0);
 
if hClient = INVALID_CLIENT then
begin
    Application.MessageBox('Unable to connect to file server',
                           'Error', MB_ICONEXCLAMATION);
    Exit;
end;
 
// Upload the local file to the server
nResult := FtpPutFile(hClient,
                      PChar(sLocalFile),
                      PChar(sRemoteFile),
                      FTP_TRANSFER_DEFAULT,
                      0);
 
if nResult <> FTP_ERROR then
    Application.MessageBox('The file transfer was successful',
                           'Success', MB_ICONINFORMATION)
else
    Application.MessageBox('The file transfer failed',
                           'Error', MB_ICONEXCLAMATION);
 
// Disconnect from the server after the transfer completes
FtpDisconnect(hClient);