Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Excel e indy 10 De nuevo! (https://www.clubdelphi.com/foros/showthread.php?t=78103)

DarkBlue 20-03-2012 18:20:06

Excel e indy 10 De nuevo!
 
hola compañeros del club, Necesito de su amable ayuda una ves mas pues esto es ya lo ultimo que necesito para finalizar mi proyecto y ya lo estaba haciendo...pero tuve un evento desafortunado con mi maquina (lleven a darle servicio eso ahorra muchos problemas!) en fin. Debido a que no documente como lo instale la primera ves pues ya no lo he podido lograr a como antes y me han surgido ciertos problemas.


PROBLEMA
En las maquinas clientes, donde copio mi ejecutable no logro enviar mi correo con el indy ni siquiera se puede conectar con el servidor de gmail.tampoco he podido generar un archivo de excel que se supone que antes tambien se generaba..

LO EXTRAÑO es que en mi maquina si funciona de maravilla , que puedo hacer para arreglar esto, que me esta faltando empaquetar en mi aplicacion, y si tambien he puesto las dll en mi carpeta y nada. Lo mismo ocurre cuando voy a la otra maquina cliente.


trabajo con delphi 7
un instalador por parte de AtoZed Software que se lama indy10.0.76_d7 que creo que baje del ftp de club delphi


y el siguiente codigo con el que envio correos



Código Delphi [-]

 IdSSLIOHandlerSocketOpenSSL1.Destination:=m.auxiliar.FieldByName('destination').AsString;
  IdSSLIOHandlerSocketOpenSSL1.Host:=m.auxiliar.FieldByName('host').AsString;
  IdSSLIOHandlerSocketOpenSSL1.Port:= m.auxiliar.FieldByName('port').AsInteger;
  IdSSLIOHandlerSocketOpenSSL1.DefaultPort:= 0 ;
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:= sslvSSLv3 ;
//  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions:=[sslvSSLv3];
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode:= sslmUnassigned;
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode:= [] ;
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth:= 0 ;
  SMTP.Username := corrreo;
  SMTP.Password := ccorreo;
  SMTP.Host := m.auxiliar.FieldByName('host').AsString;
  SMTP.Port := m.auxiliar.FieldByName('port').AsInteger;
  SMTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
  SMTP.UseTLS:= utUseImplicitTLS;



  try
  SMTP.Connect;
  enviar:=true;
  except
  on E : Exception do
  begin
  enviar:=false;
  ShowMessage(' Error en la conexion con el servidor de correos'+#10+'Intente reenviar sus correos mas tarde');
  end;
  End;

  end;


por su atencion muchas gracias, todas las ideas son bien recividas

roman 20-03-2012 18:26:05

Pues de entrada sería bueno saber qué tipo de error es el que te marca. El manejo que haces del try-except no ayuda en nada pues básicamente oculta cualquier tipo de información acerca de la naturaleza del error.

// Saludos

DarkBlue 20-03-2012 20:23:51

bueno roman como has indicado he quitado el codigo del try para saber que excepcion me manda y la excepcion es "could not load ssl library" que necesito hacer mi amigo ;S

DarkBlue 29-03-2012 23:52:58

Exito
 
he conseguido un caso de exito con los siguientes ingredientes:

con un instalador con nombre vcredist_x86 Microsoft Visual C++ 2008 Redistributable Setup que he bajado de la pagina siguiente
http://www.microsoft.com/download/en/details.aspx?id=29
y

este otro instalador Win32OpenSSL_Light-1_0_1 de la organizacion
OpenSSL Win32 y el link http://www.slproweb.com/products/Win32OpenSSL.html

el problema que no quiero instalar esto dentro de mi ejecutable lo que quisiera es que todo estuviera dentro amigo, como lo puedo logar :S antes no tenia la necesidad de instalar esto en la computadora del usuario final ayuda porfavor.


La franja horaria es GMT +2. Ahora son las 22:15:08.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi