Felicitaciones a Domingo Seoane por sus primeros 1.000 mensajes

[roman]

Código Delphi [-]
var
  hNet: HINTERNET;
  hCon: HINTERNET;
  Context: DWORD;

begin
  Result := FALSE;
  Context:= 0;
  hNet := InternetOpen('agentSeoane', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if (hNet <> nil) then
  begin
    hCon:= InternetConnect(hNet, 'ftp.domingo.seoane', 21, 'seoane', 'congratulations', INTERNET_SERVICE_FTP, 0, Context);

    if (hCon <> nil) then
    begin
      Result := FtpPutFile(hCon, 'c:\felicidades.jpg', 'mis felicitaciones/felicidades.jpg', FTP_TRANSFER_TYPE_BINARY, Context);
      InternetCloseHandle(hCon);
    end;

    InternetCloseHandle(hNet);
  end;
end;