Indy: Googlemail smtp Einstellungen

[Sir Rufo]

Zitat von MrSpock:

was ist netAlike.Utils ?

Da habe ich ein paar nützliche Sachen drin, die ich von .net portiert habe.

z.B.

Delphi-Quellcode:

// Alle Kinder der Komponente FSMTP die vom Typ TIdSASLUserPass sind
TEnumeratorUtil.ForEach<TIdSASLUserPass>( FSMTP,
    // setzte den PasswordProvider
    procedure( const c: TIdSASLUserPass )
    begin
      c.UserPassProvider := FUserPassProvider;
    end,
    // wenn der noch nicht gesetzt wurde
    function( const c: TIdSASLUserPass ): Boolean
    begin
      Result := ( c.UserPassProvider = nil );
    end );