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.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