Socket Error #10013. Access denied.

[Cabanyaler]

Project gMailSend.exe raised exception class EIdSocketError with message 'Socket Error #10013. Access denied.'. Provess stopped. Use Step or Run to continue.

Este error me lo reporta el ejemplo de Roman adjuntado al final del mensaje, y cuyo proyecto lo denominó gMailSend

He intentado enviarlo desde la red corporativa de mi oficina, donde existe Firewall, etc y me ha reportado ese error. He probado también fuera de la oficina con una adsl y el error persiste.
He leido que pueden ser por motivos de seguridad y por descontado al parecer cuestión de permisos, pero evidentemente soy administrador del pc donde hago las pruebas, y lo único que tengo activado es el Ad-Ware en su parte Ad-Watch, y el consecuente McAfee de antivirus.

Me marcho de días libres hasta el Martes día 20 (al campo sin ni siquiera covertura de movil, ni televisión. Las fallas son insufribles), y por no quedarme en "via muerta" os pido colaboración, aunque he visto que en el foro no viene nada por esas referencias de error que me clarifique la solución.

En fin, feliz fin de semana a todos y a ver si podemos aportar algo.

Código Delphi [-]
unit Principal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
  IdSMTP, IdMessage, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdSSL, IdSSLOpenSSL, Buttons, ComCtrls;

type
  TfrmPrincipal = class(TForm)
    IdSMTP: TIdSMTP;
    IdMessage: TIdMessage;

    lblRemitente: TLabel;
    txtRemitente: TEdit;
    lblGMail: TLabel;

    lblDestinatario: TLabel;
    txtDestinatario: TEdit;

    lblAsunto: TLabel;
    txtAsunto: TEdit;

    lblMensaje: TLabel;
    mmoMensaje: TMemo;

    btnEnviarCorreo: TSpeedButton;
    IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
    procedure btnEnviarCorreoClick(Sender: TObject);
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

procedure TfrmPrincipal.btnEnviarCorreoClick(Sender: TObject);
var
  Password: String;

begin
  idMessage.Clear;
  idMessage.FromList.EMailAddresses := txtRemitente.Text + '@gmail.com';
  idMessage.Recipients.EMailAddresses := txtDestinatario.Text;
  idMessage.Subject := txtAsunto.Text;
  idMessage.Body.AddStrings(mmoMensaje.Lines);

  if InputQuery('gMailSend', 'Contraseña del servidor', Password) then
  begin
    idSMTP.Username := txtRemitente.Text;
    idSMTP.Password := Password;

    btnEnviarCorreo.Enabled := false;

    try
      if not idSMTP.Connected then
        idSMTP.Connect;

      idSMTP.Send(IdMessage);
    finally
      btnEnviarCorreo.Enabled := true;
    end;
  end;
end;

end.

[Cabanyaler]

He cambiado la propiedad Auth del componente idSMTP a valor satNone, pero tampoco. , cambiado el puerto, cambiado el valor de la propiedad ValidateAuthLoginCapability a False... , desactivado mi propio Firewall de windows 7, pero nada. En fin ... lo dicho , buen fin de semana.

[Cabanyaler]

Esto creo que va de Juanpalomo.
En fin, cuando lo consiga o cierre caso, ya publicaré.
Gracias.

[Casimiro Notevi]

Parece que eres de los poquitos que tan tenido ese problema, lo más que he encontrado ha sido esto, espero que te sirva.

[Cabanyaler]

Empezado por Casimiro Notevi

Parece que eres de los poquitos que tan tenido ese problema, lo más que he encontrado ha sido esto, espero que te sirva.

Si gracias Casimiro Notevi, lo leí el pasado Jueves ese enlace, y la verdad no me aportó demasiada luz.
La verdad es que ya no se que más intentar, pero tengo tanto curro que voy a acabar el resto de aplicación dejando esto como "imposible" de momento, y después ya veremos, ya que de momento es sólo una mejora de la aplicación y no una parte fundamental del propio proyecto.

Espero encontrar la solución, pero deberá esperar.

[roman]

Empezado por Cabanyaler

He leido que pueden ser por motivos de seguridad y por descontado al parecer cuestión de permisos, pero evidentemente soy administrador del pc donde hago las pruebas, y lo único que tengo activado es el Ad-Ware en su parte Ad-Watch, y el consecuente McAfee de antivirus.

Que seas administrador de tu equipo no necesariamente te da los permisos necesarios. Al menos en Windows Vista/7 hay aplicaciones que debes ejecutar explícitamente como administrador para poder usarlas. Por otra parte, mencionas el antivirus y demás pero no comentas si los has desactivado a ver si están interviniendo.

Finalmente, ¿estás probando el ejemplo en sí, o directamente lo has puesto en tu aplicación? Pregunto porque pudiera ser alguna otra cosa en tu proyecto que está ocasionando el error. Es que la información que se encuentra en internet al respecto del error 10013 no parece tener mucho que ver con el SMTP.

//Saludos

[Cabanyaler]

Gracias Roman por tu atención de nuevo.
La próxima semana si acabo el proyecto sigo con este hilo, ya que esto ya es algo personal entre las Indy, el Shocket, el error, el GMail y yo.