Thema: Delphi Indy Mail Mime Problem

Einzelnen Beitrag anzeigen

heldvomfeld

Registriert seit: 13. Aug 2003
3 Beiträge
 
#2

Re: Indy Mail Mime Problem

  Alt 13. Aug 2003, 14:41
So bin zwar noch nicht wirklich weiter aber da mir bisher noch niemand helfen konnte werd ich mal etwasd näher drauf eingehen

Also das ist das was ich als Anhangsheader erhalte:

Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset: "ISO-8859-1"

So das es doch eigentlich klar ist das es ein Anhang vom Typ TIdText ist..
Ich hab mir dann mal die entsprechende Stelle (jedenfalls hoff ich das das die richtige Stelle im Indy Source gesucht (IdMessageClient.pas):

Code:
  if (StateIn > State_EndData) then
  begin
    if not Created then
    begin
      if (
        (AnsiPos('name', LowerCase(cRet)) = 0) and
        (AnsiPos('text', LowerCase(cRet)) <> 0) or {do not localize}
        (AnsiPos('multipart', LowerCase(cRet)) <> 0) or {do not localize}
        (AnsiPos('message', LowerCase(cRet)) <> 0) or {do not localize}
        (AnsiPos('attachment', LowerCase(cRet)) <> 0) or {do not localize}
        (LowerCase(cRet) := 'content-type:')
        ) then
        IMFDecoder^.MP := TIdText.Create(AMsg.MessageParts)
      else
        IMFDecoder^.MP := TIdAttachment.Create(AMsg.MessageParts);
      Created := True;
    end;
    with IMFDecoder^.MP do
    begin
      Boundary := cRet;
      BoundaryBegin := True;
      Headers.Add(cRet);
    end;
    AddedTo := True;
    SingleIgnore := True;
  end;
Nur komm ich damit nicht wirklich klar.. und so wie ich das versteh müßt das doch auch korrekt funktionieren da in cRet nie Name steht dafür aber Text gefunden werden müßte zumindest wenn cRet wirklich immer zu Headers hinzugefügt wird naja

vielleicht kann mir ja jetzt einer von euch besser helfen

heldvomfeld
  Mit Zitat antworten Zitat