Demos für Indy und mögliche Alternativen???

[johndoe049]

Hallo,
da man auf der Original Webseite für Indy 10 nicht wirklich was runterladen kann, hat jemand einen funktionierenden Link für einige Indy 10 Demos?

Ich suche was um
- Emails zu mit/ohne TLS zu senden/empfangen (SMTP, POP3, Imap)
- TCP und UDP Server und Client Verbindung zu erstellen.

Gibt es freie Alternativen zu Indy, wo auch eine Dokumentation heruntergeladen werden kann?

Bei den zu bezahlenden Alternativen, wie IPWorks, habe ich noch nicht so viel an Erfahrungen und Informationen gefunden um zu entscheiden, dass sich der Kauf lohnt.

[KodeZwerg]

Delphi hat im Beispiel Ordner Anwendungsmöglichkeiten für Indy, die Version hängt von Delphi ab.

Ansonsten als Alternative zu Indy kann ich die Internet Component Suite empfehlen, ob die Demos seperat runter geladen werden mussten oder schon dabei sind musst Du selbst erkunden.
Es sind Beispiele für viele Anwendungsmöglichkeiten.

Ich hoffe das Dir diese Information als nützlich erscheint.

[johndoe049]

Zitat von KodeZwerg:

Delphi hat im Beispiel Ordner Anwendungsmöglichkeiten für Indy, die Version hängt von Delphi ab.

Ansonsten als Alternative zu Indy kann ich die Internet Component Suite empfehlen, ob die Demos seperat runter geladen werden mussten oder schon dabei sind musst Du selbst erkunden.
Es sind Beispiele für viele Anwendungsmöglichkeiten.

Ich hoffe das Dir diese Information als nützlich erscheint.

Hallo,

Danke. Werde ich mir ansehen

[philipp.hofmann]

Hier ein Beispiel für das Thema E-Mail. TIdSSLIOHandlerSocketOpenSSL ist bei mir ein Element der MainForm und hat TLS 1.2 gesetzt.

Delphi-Quellcode:

unit EmailUtils;

interface

uses
  IdSMTP, IdMessage, IdEMailAddress, IdAttachmentFile,
  IdSSL, IdSSLOpenSSL, IdExplicitTLSClientServerBase, IdIOHandlerStack,
  IdSMTPBase, IdTCPClient, IdIOHandler, IdIOHandlerSocket,
  System.Classes, System.UITypes;

type
  TEMailUtils = class(TObject)
  public
    class function sendEmail(receiver,subject,body,attachment:String;IdIOHandler:TIdSSLIOHandlerSocketOpenSSL):boolean;
    class function sendHTMLEmail(receiver,subject,body,attachment:String;IdIOHandler:TIdSSLIOHandlerSocketOpenSSL):boolean;
  end;

implementation

uses 
{$IFDEF IOS}
  IdSSLOpenSSLHeaders_Static,
{$ENDIF}
  System.SysUtils;

class function TEMailUtils.sendEmail(receiver,subject,body,attachment:String;IdIOHandler:TIdSSLIOHandlerSocketOpenSSL):boolean;
var IDSMTP1:TIDSMTP;
    IdMessage: TIdMessage;
    errorInfo:String;
begin
  Result:=false;
  try
    IDSMTP1:=TIDSMTP.Create();
    try
      errorInfo:='fill IDSMTP1';
      IDSMTP1.Host := 'xyz';
      IDSMTP1.Port := 123;
      IDSMTP1.IOHandler := IdIOHandler;
      IDSMTP1.AuthType := satDefault;
      IDSMTP1.UseTLS := utUseRequireTLS;
      IDSMTP1.Username := 'xyz';
      IDSMTP1.Password := 'xyz';
      IdMessage := TIdMessage.Create(nil);
      try
        errorInfo:='fill IdMessage';
        IdMessage.From.Name:='xyz';
        IdMessage.From.Address:='xyz';
        IdMessage.Subject:=subject;
        IdMessage.Body.Add(body);
        IdMessage.Recipients.EMailAddresses:=receiver;
        if (attachment<>'') then
          TIdAttachmentFile.Create(IdMessage.MessageParts,attachment);
        errorInfo:='check IDSMTP1';
        if not IDSMTP1.Connected then
        begin
          errorInfo:='connect IDSMTP1';
          IDSMTP1.Connect;
        end;
        errorInfo:='send IdMessage';
        IDSMTP1.Send(IdMessage);
        Result:=true;
      finally
        IdMessage.Free;
      end;
    finally
      IDSMTP1.Free;
      IdIOHandler.Free;
    end;
  except on E: Exception do
    log.d('Wrong E-Mail-Setup/Config: '+errorInfo+'/'+e.Message);
  end;
end;

class function TEMailUtils.sendHTMLEmail(receiver,subject,body,attachment:String;IdIOHandler:TIdSSLIOHandlerSocketOpenSSL):boolean;
var IDSMTP1:TIDSMTP;
    IdMessage: TIdMessage;
    errorInfo:String;
begin
  Result:=false;
  try
    IDSMTP1:=TIDSMTP.Create();
    try
      errorInfo:='fill IDSMTP1';
      IDSMTP1.Host := 'xyz';
      IDSMTP1.Port := 123;
      IDSMTP1.IOHandler := IdIOHandler;
      IDSMTP1.AuthType := satDefault;
      IDSMTP1.UseTLS := utUseRequireTLS;
      IDSMTP1.Username := 'xyz';
      IDSMTP1.Password := 'xyz';
      IdMessage := TIdMessage.Create(nil);
      try
        errorInfo:='fill IdMessage';
        IdMessage.From.Name:='xyz';
        IdMessage.From.Address:='xyz';
        IdMessage.Subject:=subject;
        IdMessage.ContentType:='text/html';
        IdMessage.Body.Add(body);
        IdMessage.Recipients.EMailAddresses:=receiver;
        if (attachment<>'') then
          TIdAttachmentFile.Create(IdMessage.MessageParts,attachment);
        errorInfo:='check IDSMTP1';
        if not IDSMTP1.Connected then
        begin
          errorInfo:='connect IDSMTP1';
          IDSMTP1.Connect;
        end;
        errorInfo:='send IdMessage';
        IDSMTP1.Send(IdMessage);
        Result:=true;
      finally
        IdMessage.Free;
      end;
    finally
      IDSMTP1.Free;
      IdIOHandler.Free;
    end;
  except on E: Exception do
    log.d('Wrong E-Mail-Setup/Config: '+errorInfo+'/'+e.Message);
  end;
end;

end.