Ver Mensaje Individual
  #8  
Antiguo 12-03-2010
Avatar de erickahr
erickahr erickahr is offline
Miembro
 
Registrado: feb 2010
Posts: 94
Reputación: 15
erickahr Va por buen camino
Cita:
Empezado por roman Ver Mensaje
Hola,

Basándome en lo que Sotrono dice en el hilo Enviar mail con Gmail, preparé un ejemplo sencillo que adjunto. Para que funcione debes colocar las librerías libeay32.dll y ssleay32.dll en la carpeta gMailSend o en alguna carpeta en el path de Windows. Las librerías puedes bajarlas de http://indy.fulgan.com/SSL/

// Saludos

Saludos Roman, aqui otra yo vez molestando, resulta que me baje el ejemplo que subiste, he intentado con ejemplos de muchas paginas, blogs, y demas... y no logro enviar un correo a gmail, resulta que ma baje los indy 10, y ya los tengo corriendo, las librerias que se mencionan en varias soluciones, segun veo mi codigo esta correcto, pero me manda un error que dice:

Cita:
'Error connecting with SSL'
Segun veo en un memo que puse para monitorear el evento Status del IdSSLIOHandlerSocketOpenSSL, me indica que si se conecta, pero a la hora de enviar el correo me sale la excepcion, ademas del error me abre el codigo de la unidad IdSSLOpenSSL, en una este Procedure:

Código Delphi [-]
procedure TIdSSLSocket.Connect(const pHandle: TIdStackSocketHandle; fSSLContext: TIdSSLContext);
var
  error: Integer;
  StatusStr: String;
begin
  fSSL := IdSslNew(fSSLContext.fContext);
  if fSSL = nil then exit;
  if IdSslSetAppData(fSSL, self) <= 0 then begin
    raise EIdOSSLDataBindingError.Create(RSSSLDataBindingError);
    exit;
  end;
  IdSslSetFd(fSSL, pHandle);
  error := IdSslConnect(fSSL);
  if error <= 0 then begin
//    error2 := IdSslGetError(fSSL, error);
    raise EIdOSSLConnectError.Create(RSSSLConnectError);// esta es la excepcion que me bota
  end;
  StatusStr := 'Cipher: name = ' + Cipher.Name + '; ' +    {Do not Localize}
               'description = ' + Cipher.Description + '; ' +    {Do not Localize}
               'bits = ' + IntToStr(Cipher.Bits) + '; ' +    {Do not Localize}
               'version = ' + Cipher.Version + '; ';    {Do not Localize}
  if (fParent is TIdSSLIOHandlerSocketOpenSSL) then begin
    (fParent as TIdSSLIOHandlerSocketOpenSSL).DoStatusInfo(StatusStr);
  end;
end;

Ojala me puedas ayudar (una vez mas ).
__________________
Nadie puede separar su fe de sus actos, o sus creencias de sus afanes
Responder Con Cita