Ersatz von Indy mit Visual Studio 2015 und Mimekit/Mailkit

[Gerd01]

IP-Works fängt mit $ 1,599 an als Singlelizenz. Bei cSharp und Mailkit gibts das alles kostenlos. SMime kann IP-Works meines Wissens nicht, Mailkit schon.

[Papaschlumpf73]

Zitat von Gerd01:

IP-Works fängt mit $ 1,599 an als Singlelizenz. Bei cSharp und Mailkit gibts das alles kostenlos. SMime kann IP-Works meines Wissens nicht, Mailkit schon.

Naja, die Delphi-Edition von IP*Works ist jedenfalls kostenfrei.

[bytecook]

Synapse?

Das wäre auch kostenfrei und vor allem sehr stabil.

http://www.ararat.cz/synapse/doku.php/public:howto

Ich setze Synapse in den unterschiedlichsten Bereichen sehr erfolgreich ein, war mir immer schon lieber als Indy.

[HolgerX]

Hmm..

.. am Rande:

Indy ließt nur RFC konforme .EML Dateien ein.
Leider halten sich u.A. Microsoft (Outlook) nicht an die RFC...

Beispiel:
Lt. RFC sollen Leerzeilen im Body mit '..' gespeichert werden. MS macht nur '.' (einen Punkt).

Oder es fehlt am Ende der Datei ein #13#10'.'#13#10..

Aufgrund dieser Fehler kann (oder will) Indy diese EML-Dateien nicht lesen..

Hierfür hatte ich mir für einen einfachen EML-Viewer eine Lade-Routine geschrieben, die diese Fehler vor dem Einlesen durch INDY beseitigt..

[Gerd01]

Zitat von HolgerX:

Hierfür hatte ich mir für einen einfachen EML-Viewer eine Lade-Routine geschrieben, die diese Fehler vor dem Einlesen durch INDY beseitigt..

Vieleicht kannst Du Deine Laderoutine hier zur Verfügung stellen?

[HolgerX]

Zitat von Gerd01:

Zitat von HolgerX:

Hierfür hatte ich mir für einen einfachen EML-Viewer eine Lade-Routine geschrieben, die diese Fehler vor dem Einlesen durch INDY beseitigt..

Vieleicht kannst Du Deine Laderoutine hier zur Verfügung stellen?

Sorry hätte ich auch direkt machen können..

Delphi-Quellcode:

function LoadEMFFileToMsg(AFileName: string;Msg : TIdMessage):boolean;
var
  tmpStringList : TStringList;
  tmpStream : TMemoryStream;
  tmpBuffer : array[0..4] of AnsiChar;
  i : integer;
begin
  result := false;
  try
    if UpperCase(ExtractFileExt(AFileName)) = '.EML' then begin
      tmpStringList := TStringList.Create;
      try
        tmpStringList.LoadFromFile(AFileName);
        // Bugfix mit '.' statt '..' wenn durch Zeilenumbruch der '.' alleine in der Zeile steht
        // Microsoft hällt sich nicht RFC und speichert dann nur mit '.' statt '..'!
        for i := 0 to tmpStringList.Count -1 do begin
          if tmpStringList[i] = '.' then tmpStringList[i] := '..';
        end;

        tmpStream := TMemoryStream.Create;
        try
          tmpStringList.SaveToStream(tmpStream);
          tmpStream.Position := tmpStream.Size -5;
          tmpStream.Read(tmpBuffer,5);
          if tmpBuffer <> #13#10'.'#13#10 then
            tmpStream.WriteBuffer(#13#10'.'#13#10,5);
          tmpStream.Position := 0;
          Msg.LoadFromStream(tmpStream);
          result := true;
        finally
          tmpStream.Free;
        end;
      finally
        tmpStringList.Free;
      end;
    end;
  except
  end;
end;

Hinweis:
Diese Routine benutze unter Delph 6, es könnte somit Probleme mit Unicode in neueren Delphis geben
Indy 10.
Hiermit bekomme ich eigendlich alle EMLs von Outlook oder Thunderbird geladen..

[himitsu]

Zitat von HolgerX:

Delphi-Quellcode:

except
end;

Wer möchte den ersten Stein werfen?

Zitat von HolgerX:

Delphi-Quellcode:

tmpStream.Position := tmpStream.Size -5;
tmpStream.Read(tmpBuffer,5);
if tmpBuffer <> #13#10'.'#13#10 then
  tmpStream.WriteBuffer(#13#10'.'#13#10,5);

Delphi-Quellcode:

if (tmpStringList.Count > 0) and (tmpStringList[tmpStringList.Count-1] <> '.') then
  tmpStringList.Add('.');