0

重複の可能性:
Delphi + Indy: 接続が正常に閉じられました

私はデルファイでいくつかの電子メールを送信したいです, 私はこの小さなコードを持っていました:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  IdMsgSend := TIdMessage.Create(nil);
  SSLHandler :=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    with IdMsgSend do
    begin
     ContentType := 'text/plain';
     Body.Text := 'Test test text';
     From.Text := 'USERNAME@gmail.com';
     ReplyTo.EMailAddresses := 'Recipient@server.com';
     Recipients.EMailAddresses := 'Recipient@server.com';
     Subject := 'i just came to say hello';
    end;

    SMTP := TIdSMTP.Create(nil);
    try
      SMTP.Username := 'USERNAME@gmail.com';
      SMTP.Password := 'PASSWODD';
      SMTP.Host := 'smtp.gmail.com';
      SMTP.Port := 465;

      SMTP.IOHandler := SSLHandler;
      SSLHandler.SSLOptions.Method := sslvSSLv3;
      SMTP.UseTLS := utUseExplicitTLS;
      SMTP.Connect;
      try
            IdMsgSend.Body.Text := 'The body';
            IdMsgSend.Subject := 'The subject';
            SMTP.Send(IdMsgSend);
      finally
        SMTP.Disconnect;
      end;

    finally
      FreeAndNil(SMTP);
    end;
  finally
    FreeAndNil(IdMsgSend);
  end;
end;

以前は問題なく動作していました！今、私は電子メールを送信しようとするたびに、次の場所でこのエラーが発生しますSMTP.Send(IdMsgSend):接続は正常に閉じられました

ウイルス対策またはファイアウォールからのものである可能性があることを読んだので、両方を無効にしましたが、それでも同じ問題ですか?

ここで何が問題なのですか？gmail は SMTP オプションなどを変更しましたか?

4

1 に答える 1

0

この記事によると、これは Delphi で正しく処理されない例外です。Debugger Options で示されている変更を行うと、問題が解決されます。

于 2013-01-24T03:21:53.697 に答える