Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Lazarus (IDE) (https://www.delphipraxis.net/81-lazarus-ide/)
-   -   Emails mit Lazarus und Synapse abrufen (https://www.delphipraxis.net/174144-emails-mit-lazarus-und-synapse-abrufen.html)

Privateer3000 9. Apr 2013 16:54

AW: Emails mit Lazarus und Synapse abrufen
 
Zitat:

Zitat von DeddyH (Beitrag 1210511)
Ich würde es ungefähr so versuchen (ungetestet):
Delphi-Quellcode:
function findmsg(const AStrings: TStrings; const AText: String;
  CaseFlag: Boolean=False): Integer;
var
  i: integer;
begin
  Result := -1;
  for i := 0 to AStrings.Count - 1 do
    if (not CaseFlag and AnsiStartsText(AText, AStrings[i]))
      or AnsiStartsStr(AText, AStrings[i]) then
      begin
        Result := i;
        break;
      end;
end;
Die AnsiStartsXXX-Funktionen sind in Delphi in der Unit StrUtils zu finden, ob es in Lazarus Entsprechungen gibt, weiß ich leider nicht.

Vielen Dank Deddy, diese Methode funktioniert und ist auch im Lazarus enthalten.
Danke!

Privateer3000 9. Apr 2013 16:59

AW: Emails mit Lazarus und Synapse abrufen
 
Zitat:

Zitat von Sir Rufo (Beitrag 1210518)
Gibt es einen Grund, warum du nicht TMimeMess benutzt?
Da kannst du dir den ganzen Zirkus sparen.

(Gesamten) Header holen
Bei TMimeMess in Lines packen
TMimeMess.DecodeMessage

Das sieht in der Tat interessant aus.
Allerdings blicke ich da nicht durch,
so viele Methoden, mit so wenig Beschreibung.
Hast du nen Tipp für mich?

Danke und Grüße

Sir Rufo 9. Apr 2013 17:15

AW: Emails mit Lazarus und Synapse abrufen
 
Zitat:

Zitat von Privateer3000 (Beitrag 1210850)
Zitat:

Zitat von Sir Rufo (Beitrag 1210518)
Gibt es einen Grund, warum du nicht TMimeMess benutzt?
Da kannst du dir den ganzen Zirkus sparen.

(Gesamten) Header holen
Bei TMimeMess in Lines packen
TMimeMess.DecodeMessage

Das sieht in der Tat interessant aus.
Allerdings blicke ich da nicht durch,
so viele Methoden, mit so wenig Beschreibung.
Hast du nen Tipp für mich?

Danke und Grüße

Bei den Quellen die ich benutze ist die Doku im Quelltext und auf der Website ist auch eine Klassenreferenz.
Und Demos gibt es auch noch da.

Was vermisst du?

Privateer3000 9. Apr 2013 19:41

AW: Emails mit Lazarus und Synapse abrufen
 
Hallo
ich kann deinen Gedanken nicht folgen.
Zitat:

(Gesamten) Header holen
Bei TMimeMess in Lines packen
TMimeMess.DecodeMessage
Da ich mit solchen Dinges nie zu tun hatte.
Gesamten Header holen - ok
TMimemess in lines packen - also in TStrings auch ok
DecodesMessage - in was und was mache ich damit?
Ich möchte nur die Subject Zeile auslesen (ohne "Subject:")
Was passiert mittels DecodeMessage?
Zitat:

Decode message from Lines to MessagePart. Massage headers are parsed into Header object.
Danke für deine Hilfe
Grüße


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:41 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz