29 respuestas en este tema

[seoane]

Este es un ejemplo de como enviar un correo electrónico a través de gmail usando la librería libcurl.
La librería libcurl se pude descargar aquí: http://curl.haxx.se/libcurl/
Para gmail lo mejor es descargar la versión para windows con SSL:
http://www.gknw.net/...vel-mingw32.zip
Dentro del archivo zip se encuentra una carpeta "bin" con todas las dll necesarias, hay que copiarlas en el mismo directorio de nuestra aplicación.
Para manejar la librería he creado esta pequeña unit con algunas funciones básicas:

delphi

unit ucurl;
 
interface
 
type
  TCURL = Pointer;
  PCURL = ^TCURL;
 
  CURLcode = (
    CURLE_OK = 0,
    CURLE_UNSUPPORTED_PROTOCOL,
    CURLE_FAILED_INIT,
    CURLE_URL_MALFORMAT,
    CURLE_OBSOLETE4,
    CURLE_COULDNT_RESOLVE_PROXY,
    CURLE_COULDNT_RESOLVE_HOST,
    CURLE_COULDNT_CONNECT,
    CURLE_FTP_WEIRD_SERVER_REPLY,
    CURLE_REMOTE_ACCESS_DENIED,
    CURLE_OBSOLETE10,
    CURLE_FTP_WEIRD_PASS_REPLY,
    CURLE_OBSOLETE12,
    CURLE_FTP_WEIRD_PASV_REPLY,
    CURLE_FTP_WEIRD_227_FORMAT,
    CURLE_FTP_CANT_GET_HOST,
    CURLE_OBSOLETE16,
    CURLE_FTP_COULDNT_SET_TYPE,
    CURLE_PARTIAL_FILE,
    CURLE_FTP_COULDNT_RETR_FILE,
    CURLE_OBSOLETE20,
    CURLE_QUOTE_ERROR,
    CURLE_HTTP_RETURNED_ERROR,
    CURLE_WRITE_ERROR,
    CURLE_OBSOLETE24,
    CURLE_UPLOAD_FAILED,
    CURLE_READ_ERROR,
    CURLE_OUT_OF_MEMORY,
    CURLE_OPERATION_TIMEDOUT,
    CURLE_OBSOLETE29,
    CURLE_FTP_PORT_FAILED,
    CURLE_FTP_COULDNT_USE_REST,
    CURLE_OBSOLETE32,
    CURLE_RANGE_ERROR,
    CURLE_HTTP_POST_ERROR,
    CURLE_SSL_CONNECT_ERROR,
    CURLE_BAD_DOWNLOAD_RESUME,
    CURLE_FILE_COULDNT_READ_FILE,
    CURLE_LDAP_CANNOT_BIND,
    CURLE_LDAP_SEARCH_FAILED,
    CURLE_OBSOLETE40,
    CURLE_FUNCTION_NOT_FOUND,
    CURLE_ABORTED_BY_CALLBACK,
    CURLE_BAD_FUNCTION_ARGUMENT,
    CURLE_OBSOLETE44,
    CURLE_INTERFACE_FAILED,
    CURLE_OBSOLETE46,
    CURLE_TOO_MANY_REDIRECTS ,
    CURLE_UNKNOWN_TELNET_OPTION,
    CURLE_TELNET_OPTION_SYNTAX ,
    CURLE_OBSOLETE50,
    CURLE_PEER_FAILED_VERIFICATION,
    CURLE_GOT_NOTHING,
    CURLE_SSL_ENGINE_NOTFOUND,
    CURLE_SSL_ENGINE_SETFAILED,
    CURLE_SEND_ERROR,
    CURLE_RECV_ERROR,
    CURLE_OBSOLETE57,
    CURLE_SSL_CERTPROBLEM,
    CURLE_SSL_CIPHER,
    CURLE_SSL_CACERT,
    CURLE_BAD_CONTENT_ENCODING,
    CURLE_LDAP_INVALID_URL,
    CURLE_FILESIZE_EXCEEDED,
    CURLE_USE_SSL_FAILED,
    CURLE_SEND_FAIL_REWIND,
    CURLE_SSL_ENGINE_INITFAILED,
    CURLE_LOGIN_DENIED,
    CURLE_TFTP_NOTFOUND,
    CURLE_TFTP_PERM,
    CURLE_REMOTE_DISK_FULL,
    CURLE_TFTP_ILLEGAL,
    CURLE_TFTP_UNKNOWNID,
    CURLE_REMOTE_FILE_EXISTS,
    CURLE_TFTP_NOSUCHUSER,
    CURLE_CONV_FAILED,
    CURLE_CONV_REQD,
    CURLE_SSL_CACERT_BADFILE,
    CURLE_REMOTE_FILE_NOT_FOUND,
    CURLE_SSH,
    CURLE_SSL_SHUTDOWN_FAILED,
    CURLE_AGAIN,
    CURLE_SSL_CRL_BADFILE,
    CURLE_SSL_ISSUER_ERROR,
    CURLE_FTP_PRET_FAILED,
    CURLE_RTSP_CSEQ_ERROR,
    CURLE_RTSP_SESSION_ERROR,
    CURLE_FTP_BAD_FILE_LIST,
    CURLE_CHUNK_FAILED,
    CURL_LAST
  );
 
  CURLoption = (
    CURLOPT_FILE                        = $2711,
    CURLOPT_URL                         = $2712,
    CURLOPT_PORT                        = $0003,
    CURLOPT_PROXY                       = $2714,
    CURLOPT_USERPWD                     = $2715,
    CURLOPT_PROXYUSERPWD                = $2716,
    CURLOPT_RANGE                       = $2717,
    CURLOPT_INFILE                      = $2719,
    CURLOPT_ERRORBUFFER                 = $271A,
    CURLOPT_WRITEFUNCTION               = $4E2B,
    CURLOPT_READFUNCTION                = $4E2C,
    CURLOPT_TIMEOUT                     = $000D,
    CURLOPT_INFILESIZE                  = $000E,
    CURLOPT_POSTFIELDS                  = $271F,
    CURLOPT_REFERER                     = $2720,
    CURLOPT_FTPPORT                     = $2721,
    CURLOPT_USERAGENT                   = $2722,
    CURLOPT_LOW_SPEED_LIMIT             = $0013,
    CURLOPT_LOW_SPEED_TIME              = $0014,
    CURLOPT_RESUME_FROM                 = $0015,
    CURLOPT_COOKIE                      = $2726,
    CURLOPT_HTTPHEADER                  = $2727,
    CURLOPT_HTTPPOST                    = $2728,
    CURLOPT_SSLCERT                     = $2729,
    CURLOPT_KEYPASSWD                   = $272A,
    CURLOPT_CRLF                        = $001B,
    CURLOPT_QUOTE                       = $272C,
    CURLOPT_WRITEHEADER                 = $272D,
    CURLOPT_COOKIEFILE                  = $272F,
    CURLOPT_SSLVERSION                  = $0020,
    CURLOPT_TIMECONDITION               = $0021,
    CURLOPT_TIMEVALUE                   = $0022,
    CURLOPT_CUSTOMREQUEST               = $2734,
    CURLOPT_STDERR                      = $2735,
    CURLOPT_POSTQUOTE                   = $2737,
    CURLOPT_WRITEINFO                   = $2738,
    CURLOPT_VERBOSE                     = $0029,
    CURLOPT_HEADER                      = $002A,
    CURLOPT_NOPROGRESS                  = $002B,
    CURLOPT_NOBODY                      = $002C,
    CURLOPT_FAILONERROR                 = $002D,
    CURLOPT_UPLOAD                      = $002E,
    CURLOPT_POST                        = $002F,
    CURLOPT_DIRLISTONLY                 = $0030,
    CURLOPT_APPEND                      = $0032,
    CURLOPT_NETRC                       = $0033,
    CURLOPT_FOLLOWLOCATION              = $0034,
    CURLOPT_TRANSFERTEXT                = $0035,
    CURLOPT_PUT                         = $0036,
    CURLOPT_PROGRESSFUNCTION            = $4E58,
    CURLOPT_PROGRESSDATA                = $2749,
    CURLOPT_AUTOREFERER                 = $003A,
    CURLOPT_PROXYPORT                   = $003B,
    CURLOPT_POSTFIELDSIZE               = $003C,
    CURLOPT_HTTPPROXYTUNNEL             = $003D,
    CURLOPT_INTERFACE                   = $274E,
    CURLOPT_KRBLEVEL                    = $274F,
    CURLOPT_SSL_VERIFYPEER              = $0040,
    CURLOPT_CAINFO                      = $2751,
    CURLOPT_MAXREDIRS                   = $0044,
    CURLOPT_FILETIME                    = $0045,
    CURLOPT_TELNETOPTIONS               = $2756,
    CURLOPT_MAXCONNECTS                 = $0047,
    CURLOPT_CLOSEPOLICY                 = $0048,
    CURLOPT_FRESH_CONNECT               = $004A,
    CURLOPT_FORBID_REUSE                = $004B,
    CURLOPT_RANDOM_FILE                 = $275C,
    CURLOPT_EGDSOCKET                   = $275D,
    CURLOPT_CONNECTTIMEOUT              = $004E,
    CURLOPT_HEADERFUNCTION              = $4E6F,
    CURLOPT_HTTPGET                     = $0050,
    CURLOPT_SSL_VERIFYHOST              = $0051,
    CURLOPT_COOKIEJAR                   = $2762,
    CURLOPT_SSL_CIPHER_LIST             = $2763,
    CURLOPT_HTTP_VERSION                = $0054,
    CURLOPT_FTP_USE_EPSV                = $0055,
    CURLOPT_SSLCERTTYPE                 = $2766,
    CURLOPT_SSLKEY                      = $2767,
    CURLOPT_SSLKEYTYPE                  = $2768,
    CURLOPT_SSLENGINE                   = $2769,
    CURLOPT_SSLENGINE_DEFAULT           = $005A,
    CURLOPT_DNS_USE_GLOBAL_CACHE        = $005B,
    CURLOPT_DNS_CACHE_TIMEOUT           = $005C,
    CURLOPT_PREQUOTE                    = $276D,
    CURLOPT_DEBUGFUNCTION               = $4E7E,
    CURLOPT_DEBUGDATA                   = $276F,
    CURLOPT_COOKIESESSION               = $0060,
    CURLOPT_CAPATH                      = $2771,
    CURLOPT_BUFFERSIZE                  = $0062,
    CURLOPT_NOSIGNAL                    = $0063,
    CURLOPT_SHARE                       = $2774,
    CURLOPT_PROXYTYPE                   = $0065,
    CURLOPT_ENCODING                    = $2776,
    CURLOPT_PRIVATE                     = $2777,
    CURLOPT_HTTP200ALIASES              = $2778,
    CURLOPT_UNRESTRICTED_AUTH           = $0069,
    CURLOPT_FTP_USE_EPRT                = $006A,
    CURLOPT_HTTPAUTH                    = $006B,
    CURLOPT_SSL_CTX_FUNCTION            = $4E8C,
    CURLOPT_SSL_CTX_DATA                = $277D,
    CURLOPT_FTP_CREATE_MISSING_DIRS     = $006E,
    CURLOPT_PROXYAUTH                   = $006F,
    CURLOPT_FTP_RESPONSE_TIMEOUT        = $0070,
    CURLOPT_IPRESOLVE                   = $0071,
    CURLOPT_MAXFILESIZE                 = $0072,
    CURLOPT_INFILESIZE_LARGE            = $75A3,
    CURLOPT_RESUME_FROM_LARGE           = $75A4,
    CURLOPT_MAXFILESIZE_LARGE           = $75A5,
    CURLOPT_NETRC_FILE                  = $2786,
    CURLOPT_USE_SSL                     = $0077,
    CURLOPT_POSTFIELDSIZE_LARGE         = $75A8,
    CURLOPT_TCP_NODELAY                 = $0079,
    CURLOPT_FTPSSLAUTH                  = $0081,
    CURLOPT_IOCTLFUNCTION               = $4EA2,
    CURLOPT_IOCTLDATA                   = $2793,
    CURLOPT_FTP_ACCOUNT                 = $2796,
    CURLOPT_COOKIELIST                  = $2797,
    CURLOPT_IGNORE_CONTENT_LENGTH       = $0088,
    CURLOPT_FTP_SKIP_PASV_IP            = $0089,
    CURLOPT_FTP_FILEMETHOD              = $008A,
    CURLOPT_LOCALPORT                   = $008B,
    CURLOPT_LOCALPORTRANGE              = $008C,
    CURLOPT_CONNECT_ONLY                = $008D,
    CURLOPT_CONV_FROM_NETWORK_FUNCTION  = $4EAE,
    CURLOPT_CONV_TO_NETWORK_FUNCTION    = $4EAF,
    CURLOPT_CONV_FROM_UTF8_FUNCTION     = $4EB0,
    CURLOPT_MAX_SEND_SPEED_LARGE        = $75C1,
    CURLOPT_MAX_RECV_SPEED_LARGE        = $75C2,
    CURLOPT_FTP_ALTERNATIVE_TO_USER     = $27A3,
    CURLOPT_SOCKOPTFUNCTION             = $4EB4,
    CURLOPT_SOCKOPTDATA                 = $27A5,
    CURLOPT_SSL_SESSIONID_CACHE         = $0096,
    CURLOPT_SSH_AUTH_TYPES              = $0097,
    CURLOPT_SSH_PUBLIC_KEYFILE          = $27A8,
    CURLOPT_SSH_PRIVATE_KEYFILE         = $27A9,
    CURLOPT_FTP_SSL_CCC                 = $009A,
    CURLOPT_TIMEOUT_MS                  = $009B,
    CURLOPT_CONNECTTIMEOUT_MS           = $009C,
    CURLOPT_HTTP_TRANSFER_DECODING      = $009D,
    CURLOPT_HTTP_CONTENT_DECODING       = $009E,
    CURLOPT_NEW_FILE_PERMS              = $009F,
    CURLOPT_NEW_DIRECTORY_PERMS         = $00A0,
    CURLOPT_POSTREDIR                   = $00A1,
    CURLOPT_SSH_HOST_PUBLIC_KEY_MD5     = $27B2,
    CURLOPT_OPENSOCKETFUNCTION          = $4EC3,
    CURLOPT_OPENSOCKETDATA              = $27B4,
    CURLOPT_COPYPOSTFIELDS              = $27B5,
    CURLOPT_PROXY_TRANSFER_MODE         = $00A6,
    CURLOPT_SEEKFUNCTION                = $4EC7,
    CURLOPT_SEEKDATA                    = $27B8,
    CURLOPT_CRLFILE                     = $27B9,
    CURLOPT_ISSUERCERT                  = $27BA,
    CURLOPT_ADDRESS_SCOPE               = $00AB,
    CURLOPT_CERTINFO                    = $00AC,
    CURLOPT_USERNAME                    = $27BD,
    CURLOPT_PASSWORD                    = $27BE,
    CURLOPT_PROXYUSERNAME               = $27BF,
    CURLOPT_PROXYPASSWORD               = $27C0,
    CURLOPT_NOPROXY                     = $27C1,
    CURLOPT_TFTP_BLKSIZE                = $00B2,
    CURLOPT_SOCKS5_GSSAPI_SERVICE       = $27C3,
    CURLOPT_SOCKS5_GSSAPI_NEC           = $00B4,
    CURLOPT_PROTOCOLS                   = $00B5,
    CURLOPT_REDIR_PROTOCOLS             = $00B6,
    CURLOPT_SSH_KNOWNHOSTS              = $27C7,
    CURLOPT_SSH_KEYFUNCTION             = $4ED8,
    CURLOPT_SSH_KEYDATA                 = $27C9,
    CURLOPT_MAIL_FROM                   = $27CA,
    CURLOPT_MAIL_RCPT                   = $27CB,
    CURLOPT_FTP_USE_PRET                = $00BC,
    CURLOPT_RTSP_REQUEST                = $00BD,
    CURLOPT_RTSP_SESSION_ID             = $27CE,
    CURLOPT_RTSP_STREAM_URI             = $27CF,
    CURLOPT_RTSP_TRANSPORT              = $27D0,
    CURLOPT_RTSP_CLIENT_CSEQ            = $00C1,
    CURLOPT_RTSP_SERVER_CSEQ            = $00C2,
    CURLOPT_INTERLEAVEDATA              = $27D3,
    CURLOPT_INTERLEAVEFUNCTION          = $4EE4,
    CURLOPT_WILDCARDMATCH               = $00C5,
    CURLOPT_CHUNK_BGN_FUNCTION          = $4EE6,
    CURLOPT_CHUNK_END_FUNCTION          = $4EE7,
    CURLOPT_FNMATCH_FUNCTION            = $4EE8,
    CURLOPT_CHUNK_DATA                  = $27D9,
    CURLOPT_FNMATCH_DATA                = $27DA,
    CURLOPT_RESOLVE                     = $27DB,
    CURLOPT_TLSAUTH_USERNAME            = $27DC,
    CURLOPT_TLSAUTH_PASSWORD            = $27DD,
    CURLOPT_TLSAUTH_TYPE                = $27DE
  );
 
  curl_usessl = (
    CURLUSESSL_NONE = 0,
    CURLUSESSL_TRY,
    CURLUSESSL_CONTROL,
    CURLUSESSL_ALL,
    CURLUSESSL_LAST
  );
 
  pcurl_slist = ^curl_slist;
  curl_slist = record
    data: PAnsiChar;
    next: ^pcurl_slist;
  end;
 
 
const
  libcurl = 'libcurl.dll';
 
  CURL_GLOBAL_SSL = 1;
  CURL_GLOBAL_WIN32 = 2;
  CURL_GLOBAL_ALL = CURL_GLOBAL_SSL or CURL_GLOBAL_WIN32;
  CURL_GLOBAL_NOTHING = 0;
  CURL_GLOBAL_DEFAULT = CURL_GLOBAL_ALL;
 
 
// easy interface
function curl_easy_init: TCURL;
  cdecl; external libcurl;
function curl_easy_setopt(curl: TCURL; option: CURLoption): CURLcode;
  cdecl; varargs; external libcurl;
function curl_easy_perform(curl: TCURL): CURLcode;
  cdecl; external libcurl;
procedure curl_easy_cleanup(curl: TCURL);
  cdecl; external libcurl;
// initialization
function curl_global_init(flags: Longint): CURLcode;
  cdecl; external libcurl;
procedure curl_global_cleanup;
  cdecl; external libcurl;
// curl_slist
function curl_slist_append(list: pcurl_slist; const Str: PAnsiChar): pcurl_slist;
  cdecl; external libcurl;
procedure curl_slist_free_all(list: pcurl_slist);
  cdecl; external libcurl;
 
implementation
 
initialization
  curl_global_init(CURL_GLOBAL_ALL);
finalization
  curl_global_cleanup;
end.

Y aqui esta el código para enviar el correo:

delphi

function ReadFromStream(Buffer: PAnsiChar; Size, Count: Integer;
  Stream: TStream): Integer; cdecl;
begin
  Result:= Stream.Read(Buffer^,Size*Count) div Size;
end;
 
function EnviarMail(Usuario, Clave, De, Para, Asunto, Texto: AnsiString): Boolean;
var
  Curl: TCURL;
  Rcpt: pcurl_slist;
  Stream: TMemoryStream;
begin
  Result:= FALSE;
  Curl:= curl_easy_init;
  if Curl <> nil then
  try
    // Queremos que se muestre informacion sobre todo el proceso
    if curl_easy_setopt(Curl, CURLOPT_VERBOSE, TRUE) <> CURLE_OK then
      Exit;
    // Queremos usar SSL
    if curl_easy_setopt(Curl, CURLOPT_USE_SSL, CURLUSESSL_ALL) <> CURLE_OK then
      Exit;
    // No queremos que compruebe el certificado de gmail
    if curl_easy_setopt(Curl, CURLOPT_SSL_VERIFYPEER, FALSE) <> CURLE_OK then
      Exit;
    // Nombre de usuario
    if curl_easy_setopt(Curl, CURLOPT_USERNAME, PAnsiChar(Usuario)) <> CURLE_OK then
      Exit;
    // Clave
    if curl_easy_setopt(Curl, CURLOPT_PASSWORD, PAnsiChar(Clave)) <> CURLE_OK then
      Exit;
    // URL de gmail
    if curl_easy_setopt(Curl, CURLOPT_URL, PChar('smtps://smtp.gmail.com')) <> CURLE_OK then
      Exit;
    if curl_easy_setopt(Curl, CURLOPT_MAIL_FROM, PAnsiChar(De)) <> CURLE_OK then
      Exit;
    Rcpt:= nil;
    // Creamos una lista con los receptores
    Rcpt:= curl_slist_append(Rcpt,PAnsiChar(Para));
    // Podemos repetir la linea anterior para añadir mas de un receptor
    try
      if curl_easy_setopt(Curl, CURLOPT_MAIL_RCPT, Rcpt) <> CURLE_OK then
        Exit;
      // Le indicamos que tiene que usar la funcion ReadFromStream para leer el contenido del mensaje
      if curl_easy_setopt(Curl, CURLOPT_READFUNCTION, @ReadFromStream) <> CURLE_OK then
        Exit;
      Stream:= TMemoryStream.Create;
      try
        // Creamos el contenido del mensaje y lo guardamos en un stream
        with TStringList.Create do
        try
          Add('Content-Type: text/plain;');
          Add('Subject: ' + Asunto);
          Add('User-Agent: Curl');
          Add(EmptyStr);
          Add(Texto);
          SaveToStream(Stream);
        finally
          Free;
        end;
        Stream.Position:= 0;
        // Le indicamos que debe usar el stream que acabamos de crear
        if curl_easy_setopt(Curl, CURLOPT_INFILE, Stream) <> CURLE_OK then
          Exit;
        if curl_easy_setopt(Curl, CURLOPT_UPLOAD, TRUE) <> CURLE_OK then
          Exit;
        // Enviamos el mensaje
        Result:= curl_easy_perform(Curl) = CURLE_OK;
      finally
        Stream.Free;
      end;
    finally
      curl_slist_free_all(Rcpt);
    end;
  finally
    curl_easy_cleanup(Curl);
  end;
end;

Aquí dejo un ejemplo, en un archivo zip, pero hay que copiar las dll de la carpeta "bin" para que funcione.

Archivos adjuntos

•  2289_fe40639c57b774ba9c4a5011725d2d5afbc482e4.zip   7,53KB   99 descargas

[egostar]

Hola amigo

Estoy intentando enviar correos con una cuenta de GMail, esto funciona de maravilla, pero no he encontrado la forma de agregar un archivo adjunto, esto es lo que hice pero lo manda como parte del texto

delphi

        // Creamos el contenido del mensaje y lo guardamos en un stream
        with TStringList.Create do
        try
          Add('Content-Type: text/html;');
          Add('Subject: ' + Asunto);
          Add('User-Agent: Curl');
          Add(EmptyStr);
          Add(Texto);
 
          Add('--{$mime_boundary}' );
          Add('Content-Type: {$fileatttype};');
          Add('name=' + 'CALCULADORA.JPG');
          Add('Content-Disposition: attachment;');
          Add('filename=' + 'C:\Proyectos\Almacen\CALCULADORA.JPG');
          Add('Content-Transfer-Encoding: base64');
          Add('--{$mime_boundary}--');
 
          SaveToStream(Stream);
        finally
          Free;
        end;

¿ Como creo el objeto del adjunto ?

Salud OS

[egostar]

Alguien me puede ayudar a traducir esto a Delphi ?

  if ($attachments !== false)
  {
    for($i=0; $i < count($attachments); $i++)
    {
      if (is_file($attachments[$i]["file"]))
      {  
        # File for Attachment
        $file_name = substr($attachments[$i]["file"], (strrpos($attachments[$i]["file"], "/")+1));
       
        $handle=fopen($attachments[$i]["file"], 'rb');
        $f_contents=fread($handle, filesize($attachments[$i]["file"]));
        $f_contents=chunk_split(base64_encode($f_contents));    //Encode The Data For Transition using base64_encode();
        $f_type=filetype($attachments[$i]["file"]);
        fclose($handle);
       
        # Attachment
        $msg .= "--".$mime_boundary.$eol;
        $msg .= "Content-Type: ".$attachments[$i]["content_type"]."; name=\"".$file_name."\"".$eol;  // sometimes i have to send MS Word, use 'msword' instead of 'pdf'
        $msg .= "Content-Transfer-Encoding: base64".$eol;
        $msg .= "Content-Description: ".$file_name.$eol;
        $msg .= "Content-Disposition: attachment; filename=\"".$file_name."\"".$eol.$eol; // !! This line needs TWO end of lines !! IMPORTANT !!
        $msg .= $f_contents.$eol.$eol;
      }
    }
  }

Gracias

Salud OS

[Fenareth]

  me suena a que es tu trabajo de fin de curso y que quieres que te hagamos tu tarea....


       


Saludox !

[egostar]

"Shale"

¿ Tan fácil es... ?

Salud OS

[seoane]

Pues podemos probar 

delphi

function EnviarMail(Usuario, Clave, De, Para, Asunto, Texto, Archivo: AnsiString): Boolean;
var
  Curl: TCURL;
  Rcpt: pcurl_slist;
  Stream: TMemoryStream;
  Boundary: AnsiString;
begin
  Result:= FALSE;
  Curl:= curl_easy_init;
  if Curl <> nil then
  try
    // Queremos que se muestre informacion sobre todo el proceso
    if curl_easy_setopt(Curl, CURLOPT_VERBOSE, TRUE) <> CURLE_OK then
      Exit;
    // Queremos usar SSL
    if curl_easy_setopt(Curl, CURLOPT_USE_SSL, CURLUSESSL_ALL) <> CURLE_OK then
      Exit;
    // No queremos que compruebe el certificado de gmail
    if curl_easy_setopt(Curl, CURLOPT_SSL_VERIFYPEER, FALSE) <> CURLE_OK then
      Exit;
    // Nombre de usuario
    if curl_easy_setopt(Curl, CURLOPT_USERNAME, PAnsiChar(Usuario)) <> CURLE_OK then
      Exit;
    // Clave
    if curl_easy_setopt(Curl, CURLOPT_PASSWORD, PAnsiChar(Clave)) <> CURLE_OK then
      Exit;
    // URL de gmail
    if curl_easy_setopt(Curl, CURLOPT_URL, PChar('smtps://smtp.gmail.com')) <> CURLE_OK then
      Exit;
    if curl_easy_setopt(Curl, CURLOPT_MAIL_FROM, PAnsiChar(De)) <> CURLE_OK then
      Exit;
    Rcpt:= nil;
    // Creamos una lista con los receptores
    Rcpt:= curl_slist_append(Rcpt,PAnsiChar(Para));
    // Podemos repetir la linea anterior para añadir mas de un receptor
    try
      if curl_easy_setopt(Curl, CURLOPT_MAIL_RCPT, Rcpt) <> CURLE_OK then
        Exit;
      // Le indicamos que tiene que usar la funcion ReadFromStream para leer el contenido del mensaje
      if curl_easy_setopt(Curl, CURLOPT_READFUNCTION, @ReadFromStream) <> CURLE_OK then
        Exit;
      Stream:= TMemoryStream.Create;
      try
        // Creamos el contenido del mensaje y lo guardamos en un stream
 
 
        with TStringList.Create do
        try
          Add('MIME-Version: 1.0');
          Add('Subject: ' + Asunto);
          // Aqui deberiamos de generar una "frontera" que no este contenida dentro de archivo, pero por ahora la usamos fija
          Boundary:= '0FA22F597470466EBF9073DB93B26AB3';
          Add('Content-Type: multipart/mixed; boundary=' + Boundary);
          Add('User-Agent: Curl');
          Add(EmptyStr);
 
          Add('--'+Boundary);
          Add('Content-Type: text/plain');
          Add(EmptyStr);
          Add(Texto);
 
          Add('--'+Boundary);
          Add('Content-Disposition: attachment; filename='
            + ExtractFilename(Archivo));
          Add('Content-type: application/octet-stream; name='
            + ExtractFilename(Archivo));
          Add('Content-Transfer-Encoding: Base64');
          Add(EmptyStr);
          Stream.LoadFromFile(Archivo);
          // Aqui uso la unit base64 que se puede descargar de mi web
          Add(BinToStr(Stream.Memory,Stream.Size));
          Add('--'+Boundary + '--');
          Add(EmptyStr);
          Stream.Clear;
          SaveToStream(Stream);
        finally
          Free;
        end;
 
 
 
 
                Stream.Position:= 0;
        // Le indicamos que debe usar el stream que acabamos de crear
        if curl_easy_setopt(Curl, CURLOPT_INFILE, Stream) <> CURLE_OK then
          Exit;
        if curl_easy_setopt(Curl, CURLOPT_UPLOAD, TRUE) <> CURLE_OK then
          Exit;
        // Enviamos el mensaje
        Result:= curl_easy_perform(Curl) = CURLE_OK;
      finally
        Stream.Free;
      end;
    finally
      curl_slist_free_all(Rcpt);
    end;
  finally
    curl_easy_cleanup(Curl);
  end;
end;

Es solo una prueba, pero el mensaje parece que llega bien. Google lo acepta sin problemas, no se otros clientes de correo

[egostar]

Vamos a probar

Muchas gracias amigo Domingo

Salud OS

[egostar]

Bueno


Ya envió el correo con el archivo adjunto, pero al querer abrirlo me manda un mensaje o como diria aquí en Mex entre amigos (me pinto unas cremas ). La razón seguro es que le quite la parte de BASE64, porque me dió un error, no encuentra la función BintoStr() que me imagino está en la unidad base64 que está en tu web, ¿ me equivoco ?
Salud OS

Archivos adjuntos

•  2406_171620f78811d37b47b148002dd9ecbfa2904b56.jpg   12,96KB   16 descargas

[seoane]

Bueno


Ya envió el correo con el archivo adjunto, pero al querer abrirlo me manda un mensaje o como diria aquí en Mex entre amigos (me pinto unas cremas ). La razón seguro es que le quite la parte de BASE64, porque me dió un error, no encuentra la función BintoStr() que me imagino está en la unidad base64 que está en tu web, ¿ me equivoco ?
Salud OS

Exacto. Mas concretamente aquí:
http://delphi.jmrds.com/?q=node/43

[egostar]

Tremendo amigo Domingo,

Ya funcionó como lo dictan los Dioses del Olimpo

Salud OS

PD, Siempre llevo conmigo las unidades que has colgado en tu web, nada mas por si tiro un canasto de gelatinas

[egostar]

Caray

Ya he implementado el código en una aplicación y me está enviando este error

"[DCC Error] USendMail.pas(148): E2036 Variable required"

En esta linea en @ReadFromStream

delphi

// Le indicamos que tiene que usar la funcion ReadFromStream para leer el contenido del mensaje
 if curl_easy_setopt(Curl, CURLOPT_READFUNCTION, @ReadFromStream) <> CURLE_OK then

Algunas consideraciones debo tomar en cuenta ?

Salud OS

[seoane]

Comprueba que no tengas algo ya declarado con ese nombre. Prueba a cambiarle el nombre a la función de ReadFromStream a ReadFromStream2

[egostar]

Muy bien, lo voy a checar, seguramente hice algo mal gracias amigo

Salud OS

[egostar]

Hola,

Pues el problema fué que agregué la función ReadFromStream a la clase, la quite de la clase y la coloque por arriba de donde la mando llamar y funcionó sin problema.

Ya decía yo que algo hice mal

Salud OS

[seoane]

Hola,

Pues el problema fué que agregué la función ReadFromStream a la clase, la quite de la clase y la coloque por arriba de donde la mando llamar y funcionó sin problema.

Ya decía yo que algo hice mal

Salud OS

Pues ayer estuve a punto de mencionar lo de la clase, pero supuse que las cosas no iban por ahí ... cuanto tiempo te hubiera ahorrado 
Me alegro que te funcione.

[egostar]

, la verdad es que hasta hoy que llegué a trabajar lo hice, ya me lo imaginaba y fué lo primero que probé

Ahora el punto es que me está mostrando un error en la llamada a la función de envío del mensaje

delphi

        // Enviamos el mensaje
        Result:= curl_easy_perform(Curl) = CURLE_OK;

---------------------------
Envia Correo
---------------------------
Access violation at address 004C1F7A in module 'EnviaCorreo.exe'. Read of address 0000000C.
---------------------------
Aceptar 
---------------------------

Tengo todas las dll en el directorio del programa, tal vez estoy omitiendo algo.

Salud OS

[egostar]

Hola

Ya solucioné el problema del error que me mostraba, atendiendo al mismo problema de la función ReadFromStream quité de la clase que he creado para el envío de correos y dejé una unidad individual con el código de GMail.

Ya recibo los correos desde GMail con adjuntos

Salud OS

[angelo2007]

delphi

unit ucurl;
 
interface
 
type
  TCURL = Pointer;
  PCURL = ^TCURL;
 
  CURLcode = (
    CURLE_OK = 0,
    CURLE_UNSUPPORTED_PROTOCOL,
    CURLE_FAILED_INIT,
    CURLE_URL_MALFORMAT,
    CURLE_OBSOLETE4,
    CURLE_COULDNT_RESOLVE_PROXY,
    CURLE_COULDNT_RESOLVE_HOST,
    CURLE_COULDNT_CONNECT,
    CURLE_FTP_WEIRD_SERVER_REPLY,
    CURLE_REMOTE_ACCESS_DENIED,
    CURLE_OBSOLETE10,
    CURLE_FTP_WEIRD_PASS_REPLY,
    CURLE_OBSOLETE12,
    CURLE_FTP_WEIRD_PASV_REPLY,
    CURLE_FTP_WEIRD_227_FORMAT,
    CURLE_FTP_CANT_GET_HOST,
    CURLE_OBSOLETE16,
    CURLE_FTP_COULDNT_SET_TYPE,
    CURLE_PARTIAL_FILE,
    CURLE_FTP_COULDNT_RETR_FILE,
    CURLE_OBSOLETE20,
    CURLE_QUOTE_ERROR,
    CURLE_HTTP_RETURNED_ERROR,
    CURLE_WRITE_ERROR,
    CURLE_OBSOLETE24,
    CURLE_UPLOAD_FAILED,
    CURLE_READ_ERROR,
    CURLE_OUT_OF_MEMORY,
    CURLE_OPERATION_TIMEDOUT,
    CURLE_OBSOLETE29,
    CURLE_FTP_PORT_FAILED,
    CURLE_FTP_COULDNT_USE_REST,
    CURLE_OBSOLETE32,
    CURLE_RANGE_ERROR,
    CURLE_HTTP_POST_ERROR,
    CURLE_SSL_CONNECT_ERROR,
    CURLE_BAD_DOWNLOAD_RESUME,
    CURLE_FILE_COULDNT_READ_FILE,
    CURLE_LDAP_CANNOT_BIND,
    CURLE_LDAP_SEARCH_FAILED,
    CURLE_OBSOLETE40,
    CURLE_FUNCTION_NOT_FOUND,
    CURLE_ABORTED_BY_CALLBACK,
    CURLE_BAD_FUNCTION_ARGUMENT,
    CURLE_OBSOLETE44,
    CURLE_INTERFACE_FAILED,
    CURLE_OBSOLETE46,
    CURLE_TOO_MANY_REDIRECTS ,
    CURLE_UNKNOWN_TELNET_OPTION,
    CURLE_TELNET_OPTION_SYNTAX ,
    CURLE_OBSOLETE50,
    CURLE_PEER_FAILED_VERIFICATION,
    CURLE_GOT_NOTHING,
    CURLE_SSL_ENGINE_NOTFOUND,
    CURLE_SSL_ENGINE_SETFAILED,
    CURLE_SEND_ERROR,
    CURLE_RECV_ERROR,
    CURLE_OBSOLETE57,
    CURLE_SSL_CERTPROBLEM,
    CURLE_SSL_CIPHER,
    CURLE_SSL_CACERT,
    CURLE_BAD_CONTENT_ENCODING,
    CURLE_LDAP_INVALID_URL,
    CURLE_FILESIZE_EXCEEDED,
    CURLE_USE_SSL_FAILED,
    CURLE_SEND_FAIL_REWIND,
    CURLE_SSL_ENGINE_INITFAILED,
    CURLE_LOGIN_DENIED,
    CURLE_TFTP_NOTFOUND,
    CURLE_TFTP_PERM,
    CURLE_REMOTE_DISK_FULL,
    CURLE_TFTP_ILLEGAL,
    CURLE_TFTP_UNKNOWNID,
    CURLE_REMOTE_FILE_EXISTS,
    CURLE_TFTP_NOSUCHUSER,
    CURLE_CONV_FAILED,
    CURLE_CONV_REQD,
    CURLE_SSL_CACERT_BADFILE,
    CURLE_REMOTE_FILE_NOT_FOUND,
    CURLE_SSH,
    CURLE_SSL_SHUTDOWN_FAILED,
    CURLE_AGAIN,
    CURLE_SSL_CRL_BADFILE,
    CURLE_SSL_ISSUER_ERROR,
    CURLE_FTP_PRET_FAILED,
    CURLE_RTSP_CSEQ_ERROR,
    CURLE_RTSP_SESSION_ERROR,
    CURLE_FTP_BAD_FILE_LIST,
    CURLE_CHUNK_FAILED,
    CURL_LAST
  );
 
  CURLoption = (
    CURLOPT_FILE                        = $2711,
    CURLOPT_URL                         = $2712,
    CURLOPT_PORT                        = $0003,
    CURLOPT_PROXY                       = $2714,
    CURLOPT_USERPWD                     = $2715,
    CURLOPT_PROXYUSERPWD                = $2716,
    CURLOPT_RANGE                       = $2717,
    CURLOPT_INFILE                      = $2719,
    CURLOPT_ERRORBUFFER                 = $271A,
    CURLOPT_WRITEFUNCTION               = $4E2B,
    CURLOPT_READFUNCTION                = $4E2C,
    CURLOPT_TIMEOUT                     = $000D,
    CURLOPT_INFILESIZE                  = $000E,
    CURLOPT_POSTFIELDS                  = $271F,
    CURLOPT_REFERER                     = $2720,
    CURLOPT_FTPPORT                     = $2721,
    CURLOPT_USERAGENT                   = $2722,
    CURLOPT_LOW_SPEED_LIMIT             = $0013,
    CURLOPT_LOW_SPEED_TIME              = $0014,
    CURLOPT_RESUME_FROM                 = $0015,
    CURLOPT_COOKIE                      = $2726,
    CURLOPT_HTTPHEADER                  = $2727,
    CURLOPT_HTTPPOST                    = $2728,
    CURLOPT_SSLCERT                     = $2729,
    CURLOPT_KEYPASSWD                   = $272A,
    CURLOPT_CRLF                        = $001B,
    CURLOPT_QUOTE                       = $272C,
    CURLOPT_WRITEHEADER                 = $272D,
    CURLOPT_COOKIEFILE                  = $272F,
    CURLOPT_SSLVERSION                  = $0020,
    CURLOPT_TIMECONDITION               = $0021,
    CURLOPT_TIMEVALUE                   = $0022,
    CURLOPT_CUSTOMREQUEST               = $2734,
    CURLOPT_STDERR                      = $2735,
    CURLOPT_POSTQUOTE                   = $2737,
    CURLOPT_WRITEINFO                   = $2738,
    CURLOPT_VERBOSE                     = $0029,
    CURLOPT_HEADER                      = $002A,
    CURLOPT_NOPROGRESS                  = $002B,
    CURLOPT_NOBODY                      = $002C,
    CURLOPT_FAILONERROR                 = $002D,
    CURLOPT_UPLOAD                      = $002E,
    CURLOPT_POST                        = $002F,
    CURLOPT_DIRLISTONLY                 = $0030,
    CURLOPT_APPEND                      = $0032,
    CURLOPT_NETRC                       = $0033,
    CURLOPT_FOLLOWLOCATION              = $0034,
    CURLOPT_TRANSFERTEXT                = $0035,
    CURLOPT_PUT                         = $0036,
    CURLOPT_PROGRESSFUNCTION            = $4E58,
    CURLOPT_PROGRESSDATA                = $2749,
    CURLOPT_AUTOREFERER                 = $003A,
    CURLOPT_PROXYPORT                   = $003B,
    CURLOPT_POSTFIELDSIZE               = $003C,
    CURLOPT_HTTPPROXYTUNNEL             = $003D,
    CURLOPT_INTERFACE                   = $274E,
    CURLOPT_KRBLEVEL                    = $274F,
    CURLOPT_SSL_VERIFYPEER              = $0040,
    CURLOPT_CAINFO                      = $2751,
    CURLOPT_MAXREDIRS                   = $0044,
    CURLOPT_FILETIME                    = $0045,
    CURLOPT_TELNETOPTIONS               = $2756,
    CURLOPT_MAXCONNECTS                 = $0047,
    CURLOPT_CLOSEPOLICY                 = $0048,
    CURLOPT_FRESH_CONNECT               = $004A,
    CURLOPT_FORBID_REUSE                = $004B,
    CURLOPT_RANDOM_FILE                 = $275C,
    CURLOPT_EGDSOCKET                   = $275D,
    CURLOPT_CONNECTTIMEOUT              = $004E,
    CURLOPT_HEADERFUNCTION              = $4E6F,
    CURLOPT_HTTPGET                     = $0050,
    CURLOPT_SSL_VERIFYHOST              = $0051,
    CURLOPT_COOKIEJAR                   = $2762,
    CURLOPT_SSL_CIPHER_LIST             = $2763,
    CURLOPT_HTTP_VERSION                = $0054,
    CURLOPT_FTP_USE_EPSV                = $0055,
    CURLOPT_SSLCERTTYPE                 = $2766,
    CURLOPT_SSLKEY                      = $2767,
    CURLOPT_SSLKEYTYPE                  = $2768,
    CURLOPT_SSLENGINE                   = $2769,
    CURLOPT_SSLENGINE_DEFAULT           = $005A,
    CURLOPT_DNS_USE_GLOBAL_CACHE        = $005B,
    CURLOPT_DNS_CACHE_TIMEOUT           = $005C,
    CURLOPT_PREQUOTE                    = $276D,
    CURLOPT_DEBUGFUNCTION               = $4E7E,
    CURLOPT_DEBUGDATA                   = $276F,
    CURLOPT_COOKIESESSION               = $0060,
    CURLOPT_CAPATH                      = $2771,
    CURLOPT_BUFFERSIZE                  = $0062,
    CURLOPT_NOSIGNAL                    = $0063,
    CURLOPT_SHARE                       = $2774,
    CURLOPT_PROXYTYPE                   = $0065,
    CURLOPT_ENCODING                    = $2776,
    CURLOPT_PRIVATE                     = $2777,
    CURLOPT_HTTP200ALIASES              = $2778,
    CURLOPT_UNRESTRICTED_AUTH           = $0069,
    CURLOPT_FTP_USE_EPRT                = $006A,
    CURLOPT_HTTPAUTH                    = $006B,
    CURLOPT_SSL_CTX_FUNCTION            = $4E8C,
    CURLOPT_SSL_CTX_DATA                = $277D,
    CURLOPT_FTP_CREATE_MISSING_DIRS     = $006E,
    CURLOPT_PROXYAUTH                   = $006F,
    CURLOPT_FTP_RESPONSE_TIMEOUT        = $0070,
    CURLOPT_IPRESOLVE                   = $0071,
    CURLOPT_MAXFILESIZE                 = $0072,
    CURLOPT_INFILESIZE_LARGE            = $75A3,
    CURLOPT_RESUME_FROM_LARGE           = $75A4,
    CURLOPT_MAXFILESIZE_LARGE           = $75A5,
    CURLOPT_NETRC_FILE                  = $2786,
    CURLOPT_USE_SSL                     = $0077,
    CURLOPT_POSTFIELDSIZE_LARGE         = $75A8,
    CURLOPT_TCP_NODELAY                 = $0079,
    CURLOPT_FTPSSLAUTH                  = $0081,
    CURLOPT_IOCTLFUNCTION               = $4EA2,
    CURLOPT_IOCTLDATA                   = $2793,
    CURLOPT_FTP_ACCOUNT                 = $2796,
    CURLOPT_COOKIELIST                  = $2797,
    CURLOPT_IGNORE_CONTENT_LENGTH       = $0088,
    CURLOPT_FTP_SKIP_PASV_IP            = $0089,
    CURLOPT_FTP_FILEMETHOD              = $008A,
    CURLOPT_LOCALPORT                   = $008B,
    CURLOPT_LOCALPORTRANGE              = $008C,
    CURLOPT_CONNECT_ONLY                = $008D,
    CURLOPT_CONV_FROM_NETWORK_FUNCTION  = $4EAE,
    CURLOPT_CONV_TO_NETWORK_FUNCTION    = $4EAF,
    CURLOPT_CONV_FROM_UTF8_FUNCTION     = $4EB0,
    CURLOPT_MAX_SEND_SPEED_LARGE        = $75C1,
    CURLOPT_MAX_RECV_SPEED_LARGE        = $75C2,
    CURLOPT_FTP_ALTERNATIVE_TO_USER     = $27A3,
    CURLOPT_SOCKOPTFUNCTION             = $4EB4,
    CURLOPT_SOCKOPTDATA                 = $27A5,
    CURLOPT_SSL_SESSIONID_CACHE         = $0096,
    CURLOPT_SSH_AUTH_TYPES              = $0097,
    CURLOPT_SSH_PUBLIC_KEYFILE          = $27A8,
    CURLOPT_SSH_PRIVATE_KEYFILE         = $27A9,
    CURLOPT_FTP_SSL_CCC                 = $009A,
    CURLOPT_TIMEOUT_MS                  = $009B,
    CURLOPT_CONNECTTIMEOUT_MS           = $009C,
    CURLOPT_HTTP_TRANSFER_DECODING      = $009D,
    CURLOPT_HTTP_CONTENT_DECODING       = $009E,
    CURLOPT_NEW_FILE_PERMS              = $009F,
    CURLOPT_NEW_DIRECTORY_PERMS         = $00A0,
    CURLOPT_POSTREDIR                   = $00A1,
    CURLOPT_SSH_HOST_PUBLIC_KEY_MD5     = $27B2,
    CURLOPT_OPENSOCKETFUNCTION          = $4EC3,
    CURLOPT_OPENSOCKETDATA              = $27B4,
    CURLOPT_COPYPOSTFIELDS              = $27B5,
    CURLOPT_PROXY_TRANSFER_MODE         = $00A6,
    CURLOPT_SEEKFUNCTION                = $4EC7,
    CURLOPT_SEEKDATA                    = $27B8,
    CURLOPT_CRLFILE                     = $27B9,
    CURLOPT_ISSUERCERT                  = $27BA,
    CURLOPT_ADDRESS_SCOPE               = $00AB,
    CURLOPT_CERTINFO                    = $00AC,
    CURLOPT_USERNAME                    = $27BD,
    CURLOPT_PASSWORD                    = $27BE,
    CURLOPT_PROXYUSERNAME               = $27BF,
    CURLOPT_PROXYPASSWORD               = $27C0,
    CURLOPT_NOPROXY                     = $27C1,
    CURLOPT_TFTP_BLKSIZE                = $00B2,
    CURLOPT_SOCKS5_GSSAPI_SERVICE       = $27C3,
    CURLOPT_SOCKS5_GSSAPI_NEC           = $00B4,
    CURLOPT_PROTOCOLS                   = $00B5,
    CURLOPT_REDIR_PROTOCOLS             = $00B6,
    CURLOPT_SSH_KNOWNHOSTS              = $27C7,
    CURLOPT_SSH_KEYFUNCTION             = $4ED8,
    CURLOPT_SSH_KEYDATA                 = $27C9,
    CURLOPT_MAIL_FROM                   = $27CA,
    CURLOPT_MAIL_RCPT                   = $27CB,
    CURLOPT_FTP_USE_PRET                = $00BC,
    CURLOPT_RTSP_REQUEST                = $00BD,
    CURLOPT_RTSP_SESSION_ID             = $27CE,
    CURLOPT_RTSP_STREAM_URI             = $27CF,
    CURLOPT_RTSP_TRANSPORT              = $27D0,
    CURLOPT_RTSP_CLIENT_CSEQ            = $00C1,
    CURLOPT_RTSP_SERVER_CSEQ            = $00C2,
    CURLOPT_INTERLEAVEDATA              = $27D3,
    CURLOPT_INTERLEAVEFUNCTION          = $4EE4,
    CURLOPT_WILDCARDMATCH               = $00C5,
    CURLOPT_CHUNK_BGN_FUNCTION          = $4EE6,
    CURLOPT_CHUNK_END_FUNCTION          = $4EE7,
    CURLOPT_FNMATCH_FUNCTION            = $4EE8,
    CURLOPT_CHUNK_DATA                  = $27D9,
    CURLOPT_FNMATCH_DATA                = $27DA,
    CURLOPT_RESOLVE                     = $27DB,
    CURLOPT_TLSAUTH_USERNAME            = $27DC,
    CURLOPT_TLSAUTH_PASSWORD            = $27DD,
    CURLOPT_TLSAUTH_TYPE                = $27DE
  );
 
  curl_usessl = (
    CURLUSESSL_NONE = 0,
    CURLUSESSL_TRY,
    CURLUSESSL_CONTROL,
    CURLUSESSL_ALL,
    CURLUSESSL_LAST
  );
 
  pcurl_slist = ^curl_slist;
  curl_slist = record
    data: PAnsiChar;
    next: ^pcurl_slist;
  end;
 
 
const
  libcurl = 'libcurl.dll';
 
  CURL_GLOBAL_SSL = 1;
  CURL_GLOBAL_WIN32 = 2;
  CURL_GLOBAL_ALL = CURL_GLOBAL_SSL or CURL_GLOBAL_WIN32;
  CURL_GLOBAL_NOTHING = 0;
  CURL_GLOBAL_DEFAULT = CURL_GLOBAL_ALL;
 
 
// easy interface
function curl_easy_init: TCURL;
  cdecl; external libcurl;
function curl_easy_setopt(curl: TCURL; option: CURLoption): CURLcode;
  cdecl; varargs; external libcurl;
function curl_easy_perform(curl: TCURL): CURLcode;
  cdecl; external libcurl;
procedure curl_easy_cleanup(curl: TCURL);
  cdecl; external libcurl;
// initialization
function curl_global_init(flags: Longint): CURLcode;
  cdecl; external libcurl;
procedure curl_global_cleanup;
  cdecl; external libcurl;
// curl_slist
function curl_slist_append(list: pcurl_slist; const Str: PAnsiChar): pcurl_slist;
  cdecl; external libcurl;
procedure curl_slist_free_all(list: pcurl_slist);
  cdecl; external libcurl;
 
implementation
 
initialization
  curl_global_init(CURL_GLOBAL_ALL);
finalization
  curl_global_cleanup;
end.

Y aqui esta el código para enviar el correo:

delphi

function ReadFromStream(Buffer: PAnsiChar; Size, Count: Integer;
  Stream: TStream): Integer; cdecl;
begin
  Result:= Stream.Read(Buffer^,Size*Count) div Size;
end;
 
function EnviarMail(Usuario, Clave, De, Para, Asunto, Texto: AnsiString): Boolean;
var
  Curl: TCURL;
  Rcpt: pcurl_slist;
  Stream: TMemoryStream;
begin
  Result:= FALSE;
  Curl:= curl_easy_init;
  if Curl <> nil then
  try
    // Queremos que se muestre informacion sobre todo el proceso
    if curl_easy_setopt(Curl, CURLOPT_VERBOSE, TRUE) <> CURLE_OK then
      Exit;
    // Queremos usar SSL
    if curl_easy_setopt(Curl, CURLOPT_USE_SSL, CURLUSESSL_ALL) <> CURLE_OK then
      Exit;
    // No queremos que compruebe el certificado de gmail
    if curl_easy_setopt(Curl, CURLOPT_SSL_VERIFYPEER, FALSE) <> CURLE_OK then
      Exit;
    // Nombre de usuario
    if curl_easy_setopt(Curl, CURLOPT_USERNAME, PAnsiChar(Usuario)) <> CURLE_OK then
      Exit;
    // Clave
    if curl_easy_setopt(Curl, CURLOPT_PASSWORD, PAnsiChar(Clave)) <> CURLE_OK then
      Exit;
    // URL de gmail
    if curl_easy_setopt(Curl, CURLOPT_URL, PChar('smtps://smtp.gmail.com')) <> CURLE_OK then
      Exit;
    if curl_easy_setopt(Curl, CURLOPT_MAIL_FROM, PAnsiChar(De)) <> CURLE_OK then
      Exit;
    Rcpt:= nil;
    // Creamos una lista con los receptores
    Rcpt:= curl_slist_append(Rcpt,PAnsiChar(Para));
    // Podemos repetir la linea anterior para añadir mas de un receptor
    try
      if curl_easy_setopt(Curl, CURLOPT_MAIL_RCPT, Rcpt) <> CURLE_OK then
        Exit;
      // Le indicamos que tiene que usar la funcion ReadFromStream para leer el contenido del mensaje
      if curl_easy_setopt(Curl, CURLOPT_READFUNCTION, @ReadFromStream) <> CURLE_OK then
        Exit;
      Stream:= TMemoryStream.Create;
      try
        // Creamos el contenido del mensaje y lo guardamos en un stream
        with TStringList.Create do
        try
          Add('Content-Type: text/plain;');
          Add('Subject: ' + Asunto);
          Add('User-Agent: Curl');
          Add(EmptyStr);
          Add(Texto);
          SaveToStream(Stream);
        finally
          Free;
        end;
        Stream.Position:= 0;
        // Le indicamos que debe usar el stream que acabamos de crear
        if curl_easy_setopt(Curl, CURLOPT_INFILE, Stream) <> CURLE_OK then
          Exit;
        if curl_easy_setopt(Curl, CURLOPT_UPLOAD, TRUE) <> CURLE_OK then
          Exit;
        // Enviamos el mensaje
        Result:= curl_easy_perform(Curl) = CURLE_OK;
      finally
        Stream.Free;
      end;
    finally
      curl_slist_free_all(Rcpt);
    end;
  finally
    curl_easy_cleanup(Curl);
  end;
end;

Aquí dejo un ejemplo, en un archivo zip, pero hay que copiar las dll de la carpeta "bin" para que funcione.

hola

seoane-

una duda

como es que sabes o como se contruyen estas declaraciones qu pones

delphi

unit ucurl;
 
interface
 
type
  TCURL = Pointer;
  PCURL = ^TCURL;
 
  CURLcode = (
    CURLE_OK = 0,
    CURLE_UNSUPPORTED_PROTOCOL,
    CURLE_FAILED_INIT,
    CURLE_URL_MALFORMAT,
    CURLE_OBSOLETE4,
    CURLE_COULDNT_RESOLVE_PROXY,
    CURLE_COULDNT_RESOLVE_HOST,
    CURLE_COULDNT_CONNECT,
    CURLE_FTP_WEIRD_SERVER_REPLY,
    CURLE_REMOTE_ACCESS_DENIED,
    CURLE_OBSOLETE10,
    CURLE_FTP_WEIRD_PASS_REPLY,
    CURLE_OBSOLETE12,
    CURLE_FTP_WEIRD_PASV_REPLY,
    CURLE_FTP_WEIRD_227_FORMAT,
    CURLE_FTP_CANT_GET_HOST,
    CURLE_OBSOLETE16,
    CURLE_FTP_COULDNT_SET_TYPE,
    CURLE_PARTIAL_FILE,
    CURLE_FTP_COULDNT_RETR_FILE,
    CURLE_OBSOLETE20,
    CURLE_QUOTE_ERROR,
    CURLE_HTTP_RETURNED_ERROR,
    CURLE_WRITE_ERROR,
    CURLE_OBSOLETE24,
    CURLE_UPLOAD_FAILED,
    CURLE_READ_ERROR,
    CURLE_OUT_OF_MEMORY,
    CURLE_OPERATION_TIMEDOUT,
    CURLE_OBSOLETE29,
    CURLE_FTP_PORT_FAILED,
    CURLE_FTP_COULDNT_USE_REST,
    CURLE_OBSOLETE32,
    CURLE_RANGE_ERROR,
    CURLE_HTTP_POST_ERROR,
    CURLE_SSL_CONNECT_ERROR,
    CURLE_BAD_DOWNLOAD_RESUME,
    CURLE_FILE_COULDNT_READ_FILE,
    CURLE_LDAP_CANNOT_BIND,
    CURLE_LDAP_SEARCH_FAILED,
    CURLE_OBSOLETE40,
    CURLE_FUNCTION_NOT_FOUND,
    CURLE_ABORTED_BY_CALLBACK,
    CURLE_BAD_FUNCTION_ARGUMENT,
    CURLE_OBSOLETE44,
    CURLE_INTERFACE_FAILED,
    CURLE_OBSOLETE46,
    CURLE_TOO_MANY_REDIRECTS ,
    CURLE_UNKNOWN_TELNET_OPTION,
    CURLE_TELNET_OPTION_SYNTAX ,
    CURLE_OBSOLETE50,
    CURLE_PEER_FAILED_VERIFICATION,
    CURLE_GOT_NOTHING,
    CURLE_SSL_ENGINE_NOTFOUND,
    CURLE_SSL_ENGINE_SETFAILED,
    CURLE_SEND_ERROR,
    CURLE_RECV_ERROR,
    CURLE_OBSOLETE57,
    CURLE_SSL_CERTPROBLEM,
    CURLE_SSL_CIPHER,
    CURLE_SSL_CACERT,
    CURLE_BAD_CONTENT_ENCODING,
    CURLE_LDAP_INVALID_URL,
    CURLE_FILESIZE_EXCEEDED,
    CURLE_USE_SSL_FAILED,
    CURLE_SEND_FAIL_REWIND,
    CURLE_SSL_ENGINE_INITFAILED,
    CURLE_LOGIN_DENIED,
    CURLE_TFTP_NOTFOUND,
    CURLE_TFTP_PERM,
    CURLE_REMOTE_DISK_FULL,
    CURLE_TFTP_ILLEGAL,
    CURLE_TFTP_UNKNOWNID,
    CURLE_REMOTE_FILE_EXISTS,
    CURLE_TFTP_NOSUCHUSER,
    CURLE_CONV_FAILED,
    CURLE_CONV_REQD,
    CURLE_SSL_CACERT_BADFILE,
    CURLE_REMOTE_FILE_NOT_FOUND,
    CURLE_SSH,
    CURLE_SSL_SHUTDOWN_FAILED,
    CURLE_AGAIN,
    CURLE_SSL_CRL_BADFILE,
    CURLE_SSL_ISSUER_ERROR,
    CURLE_FTP_PRET_FAILED,
    CURLE_RTSP_CSEQ_ERROR,
    CURLE_RTSP_SESSION_ERROR,
    CURLE_FTP_BAD_FILE_LIST,
    CURLE_CHUNK_FAILED,
    CURL_LAST
  );
 
  CURLoption = (
    CURLOPT_FILE                        = $2711,
    CURLOPT_URL                         = $2712,
    CURLOPT_PORT                        = $0003,
    CURLOPT_PROXY                       = $2714,
    CURLOPT_USERPWD                     = $2715,
    CURLOPT_PROXYUSERPWD                = $2716,
    CURLOPT_RANGE                       = $2717,
    CURLOPT_INFILE                      = $2719,
    CURLOPT_ERRORBUFFER                 = $271A,
    CURLOPT_WRITEFUNCTION               = $4E2B,
    CURLOPT_READFUNCTION                = $4E2C,
    CURLOPT_TIMEOUT                     = $000D,
    CURLOPT_INFILESIZE                  = $000E,
    CURLOPT_POSTFIELDS                  = $271F,
    CURLOPT_REFERER                     = $2720,
    CURLOPT_FTPPORT                     = $2721,
    CURLOPT_USERAGENT                   = $2722,
    CURLOPT_LOW_SPEED_LIMIT             = $0013,
    CURLOPT_LOW_SPEED_TIME              = $0014,
    CURLOPT_RESUME_FROM                 = $0015,
    CURLOPT_COOKIE                      = $2726,
    CURLOPT_HTTPHEADER                  = $2727,
    CURLOPT_HTTPPOST                    = $2728,
    CURLOPT_SSLCERT                     = $2729,
    CURLOPT_KEYPASSWD                   = $272A,
    CURLOPT_CRLF                        = $001B,
    CURLOPT_QUOTE                       = $272C,
    CURLOPT_WRITEHEADER                 = $272D,
    CURLOPT_COOKIEFILE                  = $272F,
    CURLOPT_SSLVERSION                  = $0020,
    CURLOPT_TIMECONDITION               = $0021,
    CURLOPT_TIMEVALUE                   = $0022,
    CURLOPT_CUSTOMREQUEST               = $2734,
    CURLOPT_STDERR                      = $2735,
    CURLOPT_POSTQUOTE                   = $2737,
    CURLOPT_WRITEINFO                   = $2738,
    CURLOPT_VERBOSE                     = $0029,
    CURLOPT_HEADER                      = $002A,
    CURLOPT_NOPROGRESS                  = $002B,
    CURLOPT_NOBODY                      = $002C,
    CURLOPT_FAILONERROR                 = $002D,
    CURLOPT_UPLOAD                      = $002E,
    CURLOPT_POST                        = $002F,
    CURLOPT_DIRLISTONLY                 = $0030,
    CURLOPT_APPEND                      = $0032,
    CURLOPT_NETRC                       = $0033,
    CURLOPT_FOLLOWLOCATION              = $0034,
    CURLOPT_TRANSFERTEXT                = $0035,
    CURLOPT_PUT                         = $0036,
    CURLOPT_PROGRESSFUNCTION            = $4E58,
    CURLOPT_PROGRESSDATA                = $2749,
    CURLOPT_AUTOREFERER                 = $003A,
    CURLOPT_PROXYPORT                   = $003B,
    CURLOPT_POSTFIELDSIZE               = $003C,
    CURLOPT_HTTPPROXYTUNNEL             = $003D,
    CURLOPT_INTERFACE                   = $274E,
    CURLOPT_KRBLEVEL                    = $274F,
    CURLOPT_SSL_VERIFYPEER              = $0040,
    CURLOPT_CAINFO                      = $2751,
    CURLOPT_MAXREDIRS                   = $0044,
    CURLOPT_FILETIME                    = $0045,
    CURLOPT_TELNETOPTIONS               = $2756,
    CURLOPT_MAXCONNECTS                 = $0047,
    CURLOPT_CLOSEPOLICY                 = $0048,
    CURLOPT_FRESH_CONNECT               = $004A,
    CURLOPT_FORBID_REUSE                = $004B,
    CURLOPT_RANDOM_FILE                 = $275C,
    CURLOPT_EGDSOCKET                   = $275D,
    CURLOPT_CONNECTTIMEOUT              = $004E,
    CURLOPT_HEADERFUNCTION              = $4E6F,
    CURLOPT_HTTPGET                     = $0050,
    CURLOPT_SSL_VERIFYHOST              = $0051,
    CURLOPT_COOKIEJAR                   = $2762,
    CURLOPT_SSL_CIPHER_LIST             = $2763,
    CURLOPT_HTTP_VERSION                = $0054,
    CURLOPT_FTP_USE_EPSV                = $0055,
    CURLOPT_SSLCERTTYPE                 = $2766,
    CURLOPT_SSLKEY                      = $2767,
    CURLOPT_SSLKEYTYPE                  = $2768,
    CURLOPT_SSLENGINE                   = $2769,
    CURLOPT_SSLENGINE_DEFAULT           = $005A,
    CURLOPT_DNS_USE_GLOBAL_CACHE        = $005B,
    CURLOPT_DNS_CACHE_TIMEOUT           = $005C,
    CURLOPT_PREQUOTE                    = $276D,
    CURLOPT_DEBUGFUNCTION               = $4E7E,
    CURLOPT_DEBUGDATA                   = $276F,
    CURLOPT_COOKIESESSION               = $0060,
    CURLOPT_CAPATH                      = $2771,
    CURLOPT_BUFFERSIZE                  = $0062,
    CURLOPT_NOSIGNAL                    = $0063,
    CURLOPT_SHARE                       = $2774,
    CURLOPT_PROXYTYPE                   = $0065,
    CURLOPT_ENCODING                    = $2776,
    CURLOPT_PRIVATE                     = $2777,
    CURLOPT_HTTP200ALIASES              = $2778,
    CURLOPT_UNRESTRICTED_AUTH           = $0069,
    CURLOPT_FTP_USE_EPRT                = $006A,
    CURLOPT_HTTPAUTH                    = $006B,
    CURLOPT_SSL_CTX_FUNCTION            = $4E8C,
    CURLOPT_SSL_CTX_DATA                = $277D,
    CURLOPT_FTP_CREATE_MISSING_DIRS     = $006E,
    CURLOPT_PROXYAUTH                   = $006F,
    CURLOPT_FTP_RESPONSE_TIMEOUT        = $0070,
    CURLOPT_IPRESOLVE                   = $0071,
    CURLOPT_MAXFILESIZE                 = $0072,
    CURLOPT_INFILESIZE_LARGE            = $75A3,
    CURLOPT_RESUME_FROM_LARGE           = $75A4,
    CURLOPT_MAXFILESIZE_LARGE           = $75A5,
    CURLOPT_NETRC_FILE                  = $2786,
    CURLOPT_USE_SSL                     = $0077,
    CURLOPT_POSTFIELDSIZE_LARGE         = $75A8,
    CURLOPT_TCP_NODELAY                 = $0079,
    CURLOPT_FTPSSLAUTH                  = $0081,
    CURLOPT_IOCTLFUNCTION               = $4EA2,
    CURLOPT_IOCTLDATA                   = $2793,
    CURLOPT_FTP_ACCOUNT                 = $2796,
    CURLOPT_COOKIELIST                  = $2797,
    CURLOPT_IGNORE_CONTENT_LENGTH       = $0088,
    CURLOPT_FTP_SKIP_PASV_IP            = $0089,
    CURLOPT_FTP_FILEMETHOD              = $008A,
    CURLOPT_LOCALPORT                   = $008B,
    CURLOPT_LOCALPORTRANGE              = $008C,
    CURLOPT_CONNECT_ONLY                = $008D,
    CURLOPT_CONV_FROM_NETWORK_FUNCTION  = $4EAE,
    CURLOPT_CONV_TO_NETWORK_FUNCTION    = $4EAF,
    CURLOPT_CONV_FROM_UTF8_FUNCTION     = $4EB0,
    CURLOPT_MAX_SEND_SPEED_LARGE        = $75C1,
    CURLOPT_MAX_RECV_SPEED_LARGE        = $75C2,
    CURLOPT_FTP_ALTERNATIVE_TO_USER     = $27A3,
    CURLOPT_SOCKOPTFUNCTION             = $4EB4,
    CURLOPT_SOCKOPTDATA                 = $27A5,
    CURLOPT_SSL_SESSIONID_CACHE         = $0096,
    CURLOPT_SSH_AUTH_TYPES              = $0097,
    CURLOPT_SSH_PUBLIC_KEYFILE          = $27A8,
    CURLOPT_SSH_PRIVATE_KEYFILE         = $27A9,
    CURLOPT_FTP_SSL_CCC                 = $009A,
    CURLOPT_TIMEOUT_MS                  = $009B,
    CURLOPT_CONNECTTIMEOUT_MS           = $009C,
    CURLOPT_HTTP_TRANSFER_DECODING      = $009D,
    CURLOPT_HTTP_CONTENT_DECODING       = $009E,
    CURLOPT_NEW_FILE_PERMS              = $009F,
    CURLOPT_NEW_DIRECTORY_PERMS         = $00A0,
    CURLOPT_POSTREDIR                   = $00A1,
    CURLOPT_SSH_HOST_PUBLIC_KEY_MD5     = $27B2,
    CURLOPT_OPENSOCKETFUNCTION          = $4EC3,
    CURLOPT_OPENSOCKETDATA              = $27B4,
    CURLOPT_COPYPOSTFIELDS              = $27B5,
    CURLOPT_PROXY_TRANSFER_MODE         = $00A6,
    CURLOPT_SEEKFUNCTION                = $4EC7,
    CURLOPT_SEEKDATA                    = $27B8,
    CURLOPT_CRLFILE                     = $27B9,
    CURLOPT_ISSUERCERT                  = $27BA,
    CURLOPT_ADDRESS_SCOPE               = $00AB,
    CURLOPT_CERTINFO                    = $00AC,
    CURLOPT_USERNAME                    = $27BD,
    CURLOPT_PASSWORD                    = $27BE,
    CURLOPT_PROXYUSERNAME               = $27BF,
    CURLOPT_PROXYPASSWORD               = $27C0,
    CURLOPT_NOPROXY                     = [b]$27C1,[/b]
    CURLOPT_TFTP_BLKSIZE                = [b]$00B2,[/b]
    CURLOPT_SOCKS5_GSSAPI_SERVICE       = $27C3,
    CURLOPT_SOCKS5_GSSAPI_NEC           =[b] $00B4[/b],
    CURLOPT_PROTOCOLS                   = $00B5,
    CURLOPT_REDIR_PROTOCOLS             = $00B6,
    CURLOPT_SSH_KNOWNHOSTS              = $27C7,
    CURLOPT_SSH_KEYFUNCTION             = $4ED8,
    CURLOPT_SSH_KEYDATA                 = $27C9,
    CURLOPT_MAIL_FROM                   = $27CA,
    CURLOPT_MAIL_RCPT                   = $27CB,
    CURLOPT_FTP_USE_PRET                = $00BC,
    CURLOPT_RTSP_REQUEST                = $00BD,
    CURLOPT_RTSP_SESSION_ID             = $27CE,
    CURLOPT_RTSP_STREAM_URI             = $27CF,
    CURLOPT_RTSP_TRANSPORT              = $27D0,
    CURLOPT_RTSP_CLIENT_CSEQ            = $00C1,
    CURLOPT_RTSP_SERVER_CSEQ            = $00C2,
    CURLOPT_INTERLEAVEDATA              = $27D3,
    CURLOPT_INTERLEAVEFUNCTION          = $4EE4,
    CURLOPT_WILDCARDMATCH               = $00C5,
    CURLOPT_CHUNK_BGN_FUNCTION          = $4EE6,
    CURLOPT_CHUNK_END_FUNCTION          = $4EE7,
    CURLOPT_FNMATCH_FUNCTION            = $4EE8,
    CURLOPT_CHUNK_DATA                  = $27D9,
    CURLOPT_FNMATCH_DATA                = $27DA,
    CURLOPT_RESOLVE                     = $27DB,
    CURLOPT_TLSAUTH_USERNAME            = $27DC,
    CURLOPT_TLSAUTH_PASSWORD            = $27DD,
    CURLOPT_TLSAUTH_TYPE                = [b]$27DE[/b]
  );
 
y como es que sabes que poner por ejemplo
aqui estas ¿usando hexadecimales?
 
  CURLOPT_TLSAUTH_TYPE                = [b]$27DE
 
 
bueno ahora mismo hago la prueba de egostar para enviar un mail con 
adjuntos. 
 
me perdi en que se quita la declracion de la clase. 
 
otra duda mas ¿estas  usando BDS 4  osea delphi 2006 win32?
 
gracias por tu atencion.
[/b]

[seoane]

Pues esos valores los saque del fichero curl.h que se encuentra dentro del las fuentes de Curl. Lo único que hice fue traducir a delphi las constantes y funciones que me parecieron interesantes, no todo el fichero.

En el primer caso dejo que la enumeración siga el orden natural (de 0 en adelante), al igual que en curl.h, mientras que en el segundo caso me veo obligado a indicar el valor de cada una ya que no siguen un orden, así que mientras en el curl.h utilizan una macro para asignar cada valor, yo me hice un pequeño programita que ecorrio el fichero curl.h y me dio el valor correspondiente de cada constante en formato pascal.

En cuanto a tu pregunta de si uso hexadecimal, la respuesta es que si ($ es el prefijo que se utiliza en pascal para lo hexadecimales, pero podría haber utilizado decimales, simplemente me pareció que quedaba todo mas ordenado usando hexadecimales, pero eso ya depende del gusto de cada uno.

[seoane]

Se me olvidaba, uso TurboDelphi Explorer que es la, efímera, versión de delphi que se distribuyo de forma gratuita (y legal) durante un tiempo, con la única limitación de que no se podían instalar componentes de terceros (al menos sin romper el acuerdo de la licencia). Entre los componentes que no se pueden instalar están los Indy por eso mi interés por Curl.

Esta versión, por lo que he leido, creo que es similar a un Delphi 2006 para win32