Wie TurboPower InternetPro FTP in eigener Unit/Komponente ?

[kalmi01]

So gehts.

Delphi-Quellcode:

    function Send_Mail;
      var
        MimePart   : TIpMimeEntity;
        SmtpClient : TIpSmtpClient;
        memMessage : TStringList;
        i          : integer;
      begin
        SmtpClient := TIpSmtpClient.Create(nil);
        SMTPClient.UserID := '';
        SMTPClient.Domain := '';

        SMTPClient.Message.NewMessage;
        SMTPClient.Message.MailTo.Add(Empfaenger);
        SMTPClient.Message.From     := Absender;
        SMTPClient.Message.CC.Text  := '';
        SMTPClient.Message.BCC.Text := '';
        SMTPClient.Message.Subject  := Betreff;

        memMessage := TStringList.Create;
        memMessage.Add(MailText);
        MimePart := SmtpClient.Message.GetBodyPlain(True);
        MimePart.EncodeBodyStrings(memMessage, '');
        SmtpClient.Message.ContentType := 'multipart';
        SmtpClient.Message.ContentSubtype := 'mixed';

        if FileExists(Anhang)
        then SmtpClient.AttachmentList.Add(Anhang);

        SMTPClient.SendMail(MailHost, true);
        Result := true;
      end;

Der "Fehler" bei den IPro-Kompo's war

Delphi-Quellcode:

for i := 0 to 999 
        do begin 
             Sleep(100); 
             Result := SmtpClient.Connected; 
             if Result 
             then begin 
                    SmtpClient.Quit; 
                    Break; 
                  end 
           end;

diese niedliche Schleife.
Ich weiss nicht warum, aber ohne funzt es jetzt.
OK, ich hab den Source ein bischen geändert, bei Ur-Source gehts jetzt aber auch.