AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Demos für Indy und mögliche Alternativen???

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

Ein Thema von johndoe049 · begonnen am 21. Jun 2021 · letzter Beitrag vom 21. Jun 2021
Antwort Antwort
johndoe049

Registriert seit: 22. Okt 2006
27 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

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

  Alt 21. Jun 2021, 16:16
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.
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.061 Beiträge
 
Delphi 10.3 Rio
 
#2

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

  Alt 21. Jun 2021, 16:40
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.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
johndoe049

Registriert seit: 22. Okt 2006
27 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

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

  Alt 21. Jun 2021, 16:42
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
  Mit Zitat antworten Zitat
philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
562 Beiträge
 
Delphi 10.4 Sydney
 
#4

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

  Alt 21. Jun 2021, 19:54
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.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 23:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf