Cita:
Empezado por roman
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
raise EIdOSSLConnectError.Create(RSSSLConnectError); end;
StatusStr := 'Cipher: name = ' + Cipher.Name + '; ' +
'description = ' + Cipher.Description + '; ' +
'bits = ' + IntToStr(Cipher.Bits) + '; ' +
'version = ' + Cipher.Version + '; ';
if (fParent is TIdSSLIOHandlerSocketOpenSSL) then begin
(fParent as TIdSSLIOHandlerSocketOpenSSL).DoStatusInfo(StatusStr);
end;
end;
Ojala me puedas ayudar (una vez mas
).