indy pop3 nach abspeichern der bildanlagen sind diese defekt

[alienous]

ja, beim compilieren des packetes kommt der fehler, und an der stelle wird angehalten:

Delphi-Quellcode:

requires
  vcl50;

naja, scheinbar ist das pack für d5 gemacht worden??

hab mir jedenfalls das hier geladen

Zitat:

mail2000_1.10.3.zip
TMail2000 1.10.3 beta (package / source / example)

frage mich langsam obs nicht nen einfachereren weg über die indykompos gibt :(

wieso es mal klappt und mal nicht, will mir einfach nich in den kopf :wall:

[semo]

kannst du nicht mal deine projekt, bzw ne abgespeckte version inklusive deine testemails zippen und hochladen?
würd ich mir gern mal ansehen

[alienous]

naja wüsste jetzt nicht wie ichs abspecken soll damit es nacher auch noch funktioniert, die mailabruffunktion ist ja nur ein kleiner teil eines ganzen...

hier mal der eigentliche codeteil in dem es ums auswerten geht.
mail wurde vorher mit pop.retrive(indexnr, IdM) runtergeladen. IdM ist die messagekompo. dann wird die procedure aufgerufen mit dem parameter IdM.

Delphi-Quellcode:

  
procedure Mailauswertung(PMessage: TIdMessage);
var  Liste : TStringlist;
     i : word;
begin  
  Liste := TStringList.Create;
  if PMessage.MessageParts.Count = 0 then
  begin
    Liste.AddStrings(PMessage.Body);  // reine textmail ohne attachment, keine mime-mail!!!!
  end
  else
  begin
 
    for i := 0 to Pred(PMessage.MessageParts.Count) do
    begin
      if (PMessage.MessageParts.Items[i] is TIdAttachment) then
      begin
         Zeit := FormatDateTime('yy-mm-dd_hh-nn-ss',now);
         
         TIdAttachment(PMessage.MessageParts.Items[i]).SaveToFile('c:\Kartenmotive\' +  Zeit + '_' + TIdAttachment(PMessage.MessageParts.Items[i]).FileName);
      end
      else
      begin 
        if PMessage.MessageParts.Items[i] is TIdText then
        begin
    
          Liste.AddStrings(TIdText(PMessage.MessageParts.Items[i]).Body);
        end;
      end;
    end;
  end;
.
.
.
  Liste.free;
end;

[Union]

Hast Du TIdMessage.NoDecode := false gesetzt ?

[alienous]

nein, was bewirkt denn die einstellung? ich geh mal testen.

edit: nein, hat nichts gebracht :(

[Union]

Sorry, bei mir funktioniert es. Und genauso steht es auch in der Hilfe zu Indy, inklusive Beispiel :( Du musst diese Property vor dem Retrieve auf false setzen.

[alienous]

ja habich nun auch gemacht, geht aber nicht.
wie gesagt, je nachdem mit welchem phpscript die mail generiert wird, klappts oder nicht... könntest es mal mit deinem prog testen? ich würde dir 2 mails schicken mit gleichem bild im anhang einmal vom nicht funktionierenden phpscript und einmal mit funktionierendem.


danke
mfg

[Union]

Ich würde gerne helfen, habe aber selber kein POP3 Account. Sonst wird mir auf's Dach gestiegen wenn ich hier Exchange lahmlege und die Firewalls umkonfiguriere.

[alienous]

schade :(

würde schon längst indy upgedated haben, aber hatte schonmal ne delphiversion zerschossen bei dem versuch :D und jetz wo alles so stabil läuft habich keine lust auf ein windowsreinstall.

ausserdem weissich nich in wieweit sich die änderungen auf bestehende projekte auswirken, und ob das problem dadurch behoben wird.