Delphi-PRAXiS - Delphi 2007 .net INDY 10.5 mit TLS / SSL Fehler BUFFER TERMINATOR must be specified

Hallo Leute,

ich habe ein kleines Problem

ich hab einen Source gefunden mit dem ich Mails via SMTP mit TLS / SSL versenden kann.

Ich habe jetzt versucht das ganze auch mit Delphi 2007 dot NET umzusetzen, leider kriege ich das nicht so ganz hin.

Kann mir jemand damit helfen wie ich in dot net SLL / TLS mit Indy 10.5.7 via SMTP machen kann.

Als Fehlermeldung erhalte ich immer
"BUFFER TERMINATOR must be specified'

Kann jemand damit was anfangen ?

Delphi-Quellcode:

			var

   MsgSend:TIdMessage;

   SMTP:TIdSMTP;

   SASLNTLM : TIdSASLLogin;

   UserPassProv:TIdUserPassProvider;

   sentOK:Boolean;

   sslhandler : TIdSSLIOHandlerSocketNET;

begin

  MsgSend:=TIdMessage.Create;  //create the message

  with MsgSend do

     begin

        Body.Text:=#13+'Dies ist eine Test E-Mail';

        From.Text := edsmtpusermailaddress.text;

        Recipients.EMailAddresses := edsmtpusermailaddress.text;

        Subject := 'Info E-Mail durch '+caption;    // set the subject

        Priority := mpNormal;  // set the priority (note that you could add to

                               // Destination to support different priorities)

     end;

  try

    SMTP:=TIdSMTP.Create;     //create the SMTP object

    try

      smtp.IOHandler := TIdSSLIOHandlerSocketNET.create; //if we succeed, then we can create a SSL socket handler and assign it to the IOHandler

      smtp.UseTLS := utUseExplicitTLS;                                 //and we can mark the we can use tls

    except

      smtp.IOHandler := TIdIOHandler.MakeDefaultIOHandler(smtp);       //the SSL failed to create, so make the default IO handler

      smtp.UseTLS := utNoTLSSupport;                                   //mark that we have no TLS support

   end;

   smtp.ManagedIOHandler := True;    //either way, we now have a ManagedIOHandler

    try

      SMTP.AuthType := satSASL;

      SMTP.UserName := 'SMTPUSERNAME';        // User Input

      SMTP.Password := 'SMTPPASSWORD';    // User Input

      userPassProv:=TIdUserPassProvider.Create;  //create the user/pass provider - this handles the login functions for SASL

      userPassProv.UserName:=SMTP.UserName;      // setup user name

      userPassProv.Password:=SMTP.Password;      // & password

      if SMTP.AuthType=satSASL then //if we are going to use SASL - basically, SASL just encrypts the login, everything else is still clear text

        begin

         SASLNTLM := TIdSASLLogin.Create;

         SASLNTLM.UserPassProvider:=userPassProv;

         SMTP.SASLMechanisms.Clear;

         SMTP.SASLMechanisms.Add.SASL:=SASLNTLM;

        end;

      {General setup}

      SMTP.Host :=  'smtpip';             //setup the server name

      SMTP.Port := 25; //setup the server port

      {now we send the message}

      SMTP.ConnectTimeout := 1000;

      SMTP.Connect;

      if not SMTP.Authenticate then                                    //authenticate with the server - this will automatically use SASL if configured and supported

      begin

        MessageDlg('An error occurred attempting to send your e-mail. The error was : Unable to authenticate.', mtError, [mbOK], 0);

        exit;

      end;

      try

         try

//           ShowMessage('Before Send');

           SMTP.Send(MsgSend);  //send the message

//           ShowMessage('After Send');

           SentOk:=true;        //indicate success

         finally

            SMTP.Disconnect;                                           //disconnect from the server

         end;

      except on E :Exception do                                        //if we had a failure, say so

         begin

         MessageDlg('An error occurred attempting to send your e-mail. The error was : '+E.Message, mtError, [mbOK], 0);

         SentOk:=false;                                                //set failure

         end;

      end;

    finally

    SMTP.Free;                                                         //free the memory

    end;

  finally

//     if logFile<>nil then                                              //if we had a log file, free that

//        logFile.Free;

     MsgSend.Free;                                                     //free the message

  end;