Entwickler-Ecke

Internet / Netzwerk - Mail Empfang funktioniert nicht / Problem mit Retrieveheade


Hybrid - Do 19.08.04 14:11
Titel: Mail Empfang funktioniert nicht / Problem mit Retrieveheade
Also, ich hab hier mal einen Code, der meine mails abholt und die anlagen mit ner id speichert, aber wenn mehr als eine mail auf dem konto ist bekomme ich eine "Zugriffs Verletzung" Meldung.


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
 
procedure TForm1.Button1Click(Sender: TObject); 
var PartIndex,i : Integer; 
         id_buf : String; 
begin 
randomize; 
IdPop31.Host:='pop.onlinehome.de'; 
IdPop31.Username:='Username'; 
IdPop31.Password:='Passwort'; 
IdPop31.Connect(); 

for i:=1 to idpop31.CheckMessages do 
begin 
IdPop31.Retrieveheader(i,IdMessage1); 
  for PartIndex:=0 to IDMessage1.MessageParts.Count-1 do 
   begin 
    if(IdMessage1.MessageParts.Items[Partindex] is TIdAttachment) then 
     Begin 
      id_buf:=((copy(TimeToStr(now),1,2)+copy(TimeToStr(now),4,2)+copy(TimeToStr(now),7,2))+IntToStr(random(10))+IntToStr(random(10))); 
      if fileexists(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf') then 
       deletefile(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf'); 
      TIdAttachment(IdMessage1.MessageParts.Items[Partindex]).SaveToFile(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf'); 
     end; 
   end; 
idmessage1.Free; 
idpop31.Delete(i); 
end; 
IdPop31.Disconnect; 
showmessage('done'); 
end;


Schonmal Danke für die Hilfe!

mfg Hybrid


Hybrid - Do 19.08.04 19:41
Also, ich hab das obige Problem behoben, aber da is immernoch der Wurm drin. Der Anhang der Mails wird nun nicht erkannt!

Hier ist der aktuelle Code:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
 
procedure TForm1.Timer1Timer(Sender: TObject);
var PartIndex,i : Integer;
         id_buf : String;
begin
randomize;
 IdPop31.Host:='pop.1und1.de';
 IdPop31.Username:='user';
 IdPop31.Password:='pass';
 IdPop31.Connect();
 test_lab.Caption:='ready';
if idpop31.CheckMessages>0 then
for i:=1 to idpop31.CheckMessages do
begin
 IdPop31.Retrieveheader(i,IdMessage1);
  for PartIndex:=0 to IDMessage1.MessageParts.Count-1 do
   begin
    if(IdMessage1.MessageParts.Items[Partindex] is TIdAttachment) then
     Begin
      id_buf:=((copy(TimeToStr(now),1,2)+copy(TimeToStr(now),4,2)+copy(TimeToStr(now),7,2))+IntToStr(random(10))+IntToStr(random(10)));
      if fileexists(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf') then
       deletefile(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf');
      TIdAttachment(IdMessage1.MessageParts.Items[Partindex]).SaveToFile(Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf');
      shellexecute(handle,'open',PChar(Extractfilepath(paramstr(0))+'\worker.exe '+Extractfilepath(paramstr(0))+'\'+id_buf+'.rwgf'),nil,nil,sw_show);
      idpop31.Delete(i);
     end;
   end;
end;
 IdPop31.Disconnect;
 test_lab.Caption:='done';

end;


Bitte helft mir damit, da das die letzte Hürde damit mein Server fertig wird.

mfG Hybrid


Hybrid - Sa 04.09.04 08:24
Mensch, selbst nach 2 Wochen gibt's keine Antwort!
Bitte versucht mir zu helfen, jetzt wo doch ein Großteil der Community wieder da ist.


KidPaddle - Sa 04.09.04 09:39
Sorry, falsch gelesen.

Gruß
KidPaddle


derDoc - Sa 04.09.04 09:41
Ich glaube, dass der Fehler ganz einfach ist.

Lass dir mal ausgeben wie Delphi folgendes interpretiert:

Delphi-Quelltext 
1:
 
ExtractFilePath(ParamStr(0)) + '\' + id_buf + '.rwgf'


ExtractFilePath enthält nämlich schon einen '\' am Ende, weshalb dein Pfad nicht existiert, sodass deine Anhänge verschwinden. Denn X:\ABC\DEF\\ghi.rwgf ist nicht wirklich funktionstüchtig.

So sollte es gehen:

Delphi-Quelltext 
1:
 
ExtractFilePath(ParamStr(0)) + id_buf + '.rwgf'


Hybrid - Sa 04.09.04 12:06
Zwar hatte ich mit meinem zusätzlichen / bisher keine Probleme, aber ich kann es ja mal ändern.

Das löst aber leider nicht das Problem, dass die Mail Anhänge garnicht erst erkannt werden!


Freiberger - Di 26.06.07 19:10
Hy,
ich habe es mal versucht, da ich mit Delphi auch Mails senden & empfangen will.
Habe mir deinen Code mal copiert und mir alle Mails in nem StringGrid anzeigen lassen.
( Betreff, Sender usw )
Aber es spuckt mir x-mal die selbe Mail aus ( x=Anzahl meine Mails )

Kann es bei dir sein, daß du gerade eine Mail hast, die keinen Anhang hat ?
Oder muß ich bei IdMessage1 noch was bestimmtes einstellen ??? :roll:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!