Ersatz von Indy mit Visual Studio 2015 und Mimekit/Mailkit

[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('.');

[HolgerX]

Hmm..

Ich hab mal meine eigene Routine noch mal angeschaut...

eigentlich kann ich immer ein tmpStringList.Add('.'); machen, bevor ich die Stingliste in den Stream packe.

Denn vorher werden aus allen '.' -> '..' somit würde die Abfrage nach dem '.' in der letzten Zeile eh immer false ergeben..

Ach.. Das mit Except end; war einfach nur Faulheit