Mail abholen und vom server löschen

[Christian18]

Hallo,

ich versuche gerade ein kleines E-Mail Programm zu schreiben. Wie kann ich, wenn ich eine Mail ahhole diese vom Server löschen. Ich schicke mal den Quellcode mit den ich schon habe.

Delphi-Quellcode:

procedure TFMain.Abrufen1Click(Sender: TObject);
 var ini : TINIFile;  // INI - datei
     i   : Integer;   // Schleifenvariable
     j   : Integer;   // Schleifenvariable
     a   : Integer;   // Anzahjl der Mails
begin
  // INI - Objekt erzeugen
  ini:=TIniFile.Create('.\conf.ini');

  POP.UserId:=ini.ReadString('Account', 'Account', '');
  POP.Password:=ini.ReadString('Account', 'Passwort', '');
  POP.Host:=ini.ReadString('Account', 'POP', '');

  // Verbindung herstellen
  POP.Connect;

  // Anzahl der Mails ermitteln
  a:=POP.CheckMessages;

  // Mails holen
  for i:=1 to a do
    begin
      MSG.Clear;
      POP.RetrieveHeader(i, MSG);
      TPosteingang.Append;
      TPosteingang.FieldByName('Von').AsString:=MSG.From.Text;
      TPosteingang.FieldByName('Datum').AsDateTime:=MSG.Date;
      TPosteingang.FieldByName('An').AsString:=MSG.Recipients.EMailAddresses;
      TPosteingang.FieldByName('Betreff').AsString:=MSG.Subject;
      TPosteingang.Post;
    end;

  // Verbindung trennen
  POP.Disconnect;
end;

Ja was gibt es jetzt noch zu sageen???

POP ist die IdPop3 Komponente und MSG ist die IdMessage Komponnente. ich denke jetzt ist alles klar

[Christian18]

hey ich habs schon gefunden.

mann kann das mit POP.Delete(); machen.

Trotzdem danke

[stefangeorg]

nur ein kleiner Hinweis, immer an das Freigeben denken:

Delphi-Quellcode:

   ...
   // INI - Objekt erzeugen 
   ini:=TIniFile.Create('.\conf.ini'); 
   try
      // hier der Code der auf ini zugreift
      ...
   finally
      ini.free;
   end;
   ...

mfg

Georg Härting

[Cyberbob]

Was passiert, wenn ich "ini" nicht Freigebe?

[Sharky]

Zitat:

Zitat von Cyberbob

Was passiert, wenn ich "ini" nicht Freigebe?

Dann belegt die Klasse noch Speicher. Bei jedem neuen Aufruf deiner Funktion wird neuer Speicher angefordert.
Ergebniss : Der Speicherverbrauch deines Programmes wird mit jedem Aufruf größer und dein Programm belegt Speicher auf den es selber nicht mehr zugreifen kann weil der Pointer daruf ja immer "neu erzeugt wird".

Daher gilt (für mich) der Grundsatz. Alles was ich im Programm mit .Create erzeuge gebe ich auch mit .Free wieder frei. Auch wenn es in bestimmten Situationen nicht notwändig wäre.