Memofeld zippen und als eMail versenden

[Wolf]

Hallo, wer kann mir helfen?

Ich möchte eine Komponente oder Prozedur schreiben,
die den Inhalt eines Memofeldes zippt und als Mail verschickt.
Hat jemand ´ne gute und schlaue Idee?

THX im voraus.
Wolf

[Bernd Schulz]

Hi!<br>
Bei Delph ist die ZLIB irgendwo auf der CD dabei. Die kann Streams zippen.<br>
BYE BERN

[Hagen Reddmann]

Wenn Du das Borland ZLib nutzt musst Du aber dran denken das auf der Empfängerseite die mail wieder entpackt werden muss. Da das ZLib aber keine header usw. nutzt, also absolut nackig ist, musst entweder Du die Headers für gängige ZIP Formate basteln, oder aber noch ein Program für den Empfänger das Deine Mails entpackt, oder aber gleich selbstentpackende ZIP-EXE's erstellen. Im letzten Fall dürften aber Virenscanner/Firewalls oder auch der Empfänger ziemlich mißtrauisch werden.

Gruß Hage

[Frank ter Duis]

Hi, <br><br>
die Komponente zum Mailsversenden heisst "TNMSMTP" die einfachste Möglichkeit ist folgende:<br><br>
NMSMTP1.PostMessage.FromAddress := Edit1.Text; // Absenderadresse <br>
NMSMTP1.PostMessage.FromName := Edit2.Text; // Absendername<br>
NMSMTP1.PostMessage.ToAddress.Add(Edit3.Text); // Empfänger(-Liste)<br>
NMSMTP1.PostMessage.Subject := Edit4.Text; // Betreff<br>
NMSMTP1.PostMessage.Body.AddStrings(Memo1.Lines); // Mailtext<br>
NMSMTP1.PostMessage.Attachments.AddStrings(ListBox 1.Items); // Dateiliste<br>
NMSMTP1.Host := 'mail.telehaus.net'; // Mailserver (SMTP) String<br>
MSMTP1.Port := 25; // 25 Standard SMTP-Port<br>
NMSMTP1.Connect; // Verbindung zum Mailserver herstellen<br>
NMSMTP1.SendMail; // Mail absenden<br>
NMSMTP1.Disconnect; // Verbindung zum Mailserver beenden<br>
<br><br>
Was Dein Packen angeht.... ich find es ziemlich affig ein paar ASCII-Zeichen aus einem Memofeld zu Packen. Ich nehme sogar an, das eine zip-Datei mit Header und allem drum und dran größer ist als der Inhalt eines Memofeldes ungepackt. Das lohnt sich höchstens bei größeren Textdateien. Aber was Packen angeht hab ich keine Ahnung.<br><br>
CU
Frank

FastNet SMTP Hel

[Jens Schumann]

Hallo Frank,<br>es soll ja Leute geben, die (unter NT) mehrere Megabyte ist Memo schreiben o. laden.<br>;-) Jens Schuman

[Wolf]

Vielen Dank für all die tollen Tips.
Sie haben mir fast alle weitergeholfen.
Aber ...
Kann mir einer auch ein Beispiel bringen (vielleicht einen kleinen Sourcecode)WIE man ZLIB in einer Komponente aufruft, die Datei komprimiert, usw?
Wäre ´ne große Hilfe für mich.

THX ;-)
Wol

[Uli Becker]

Hallo,

wenn du es etwas bequemer haben willst, schau mal hier rein:

http://www.geocities.com/SiliconValley/Network/2114/

Ich habe mit der Zip-Komponente ein komplettes Backup-Programm geschieben.

Gruß Ul