E-Mail Attachment (Base64 En-/Dekodieren)

**DelphiPeter**

Hallo! Ich lese Email Nachrichten aus, und möchte die Anhänge abspeichern. Da steht nun Base64 Encoding. Wie funktioniert denn das, die Daten habe ich ja vorerst nur als String, wie mache ich das mit dem Base64 ? Kann mir das jemand mal erklären bitte?

Gibts theoretisch auch noch eine andere Codierung für Anhänge in Emails?

Danke!!!

DelphiPeter

**Christian Seehase**

Moin Peter,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Wie liest Du denn die Mails aus?

**DelphiPeter**

Hi Christian,

danke für das herzliche Willkommen!

Die Emails liegen mir als *.dat Dateien vor. Diese lese ich in einen String und bearbeite diesen wiederum mit pos, length und copy aus.

Als Beispiel für ein Attachment bekomme ich diesen Base64 Code

Content-ID: <image6>
Content-Type: image/jpeg
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="310x226.jpg"

/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAARgAA/+IMWElDQ19QUk9GSUxF
AAEBAAAMSExpbm8CEAAAbW50clJHQiBYWVogB84AAgAJAAYAMQ AAYWNzcE1TRlQAAAAASUVD
...
qy/LEmBNE1dhq4/ztBd140XenGY/eHknvYH7fMHW3sA/Jih0F4R/qn+CFW9wKTmwNZW/bEPq
FgId8EfYNCfkVGrXA9+oGL+ImcrL98eJvMd3iO9NzlZ3V3WA3R 27Sz2gKvh5o/XX1r4vAM6K
9M+s9a+LwDOitaz69dHbLLkXVYq+79B0E0ns95u+z2+o/QYx1NU3mr+9xj1bv8v/2Q==

Die Frage ist nun, wie ich daraus jetzt eine Datei bekomme?

[edit=Phoenix]Code gekürzt. Wenns sein muss, bitte Anhängen. Mfg, Phoenix[/edit]

**Christian Seehase**

Moin Peter,

vielleicht hilft Dir ja

dieser Artikel schon weiter.

**himitsu**

da oben hätten ein paar auslassungspünktchen ...
und/oder die Zitattägs nicht schaden können.

Nja, du mußt nur den Base64/MIME-String extrahieren und in Binärdaten umwandeln lassen.
also "/9j/4AAQS ... 3mr+9xj1bv8v/2Q==" (und eventuell vorher die Zeilenwechsel entfernen, je nach Dekodierungsverfahren)

dafür gibt's auch fertige Funktionen/Klassen

z.B. in den INDYs (sind oftmals in Delphi schon enthalten) > Unit IdCoderMIME > TIdDecoderMIME und TIdEncoderMIME
und das JCL kent dafür auch Einiges.

Oder Du guckst mal

hier bzw.

hier (EncodeBase64 bzw. DecodeBase64).

**DelphiPeter**

Wie benutze ich denn diese Indy Komponenten?

**himitsu**

Unit einbinden, Klasse initialisieren, verwenden und freigeben

**BUG**

Hallo DelphiPeter,

in der CodeLib gibt es auch Base64-Funktionen:

Link

MfG,
Bug

E-Mail Attachment (Base64 En-/Dekodieren)

E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Re: E-Mail Attachment (Base64 En-/Dekodieren)

Forumregeln

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.116 Beiträge Delphi 11 Alexandria	#2 Re: E-Mail Attachment (Base64 En-/Dekodieren) 23. Dez 2007, 15:06 Moin Peter, erst einmal herzlich willkommen hier in der Delphi-PRAXiS. Wie liest Du denn die Mails aus? Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.116 Beiträge Delphi 11 Alexandria	#4 Re: E-Mail Attachment (Base64 En-/Dekodieren) 23. Dez 2007, 15:33 Moin Peter, vielleicht hilft Dir ja dieser Artikel schon weiter. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

OG Karotte (Gast) n/a Beiträge	#6 Re: E-Mail Attachment (Base64 En-/Dekodieren) 23. Dez 2007, 16:17 Oder Du guckst mal hier bzw. hier (EncodeBase64 bzw. DecodeBase64).
	Zitat

DelphiPeter Registriert seit: 21. Dez 2007 Ort: Iserlohn 198 Beiträge Delphi 2010 Professional	#7 Re: E-Mail Attachment (Base64 En-/Dekodieren) 23. Dez 2007, 18:41 Wie benutze ich denn diese Indy Komponenten? Peter Majewski
	Zitat

himitsu Online Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.071 Beiträge Delphi 12 Athens	#8 Re: E-Mail Attachment (Base64 En-/Dekodieren) 23. Dez 2007, 18:53 Unit einbinden, Klasse initialisieren, verwenden und freigeben Neuste Erkenntnis: Seit Pos einen dritten Parameter hat, wird PoSex im Delphi viel seltener praktiziert.
	Zitat

BUG Registriert seit: 4. Dez 2003 Ort: Cottbus 2.094 Beiträge	#9 Re: E-Mail Attachment (Base64 En-/Dekodieren) 23. Dez 2007, 18:55 Hallo DelphiPeter, in der CodeLib gibt es auch Base64-Funktionen: Link MfG, Bug Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.
	Zitat