TIdAttachment

[roland0]

Hallo,

vielleicht eine dumme Frage.

Was es ist weiß ich.
Aber wo finde ich es? Die Komponente ist nicht da. (Indy9)

LG

[s.h.a.r.k]

Indy 9 ist eine Komponentensammlung. TIdTcpServer ist eine spezielle Komponente. Alle Indy-Komponenten beginnen mit TIdxxx.

[DeddyH]

IIRC ist TIdAttachment keine Komponente, sondern "nur" eine Klasse.

[roland0]

Ich kann damit jetzt nicht so recht was mit anfangen.

Ich habe mal die Funktion eingefügt.

Delphi-Quellcode:

Function Tf_hauptform.FindAttachment(stFilename: string): integer;
var
   intIndex: Integer;
   found: boolean;
begin
   intIndex := -1;
   result := -1;
   if (Msg.MessageParts.Count < 1) then exit; //no attachments (or anything else)
   found := false;
   stFilename := uppercase(stFilename);
   repeat
      inc(intIndex);
      if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
         begin //general attachment
            if stFilename = uppercase(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename) then
               found := true;
         end;
   until found or (intIndex > Pred(Msg.MessageParts.Count));
   if found then
      result := intIndex
   else
      result := -1;
end;

Was muss ich genau machen, damit TIDAttachment funktioniert?

LG

[DeddyH]

Sag uns doch erst einmal, was nicht funktioniert. Wird die Unit nicht gefunden? Ist IdMessage eingebunden?

[roland0]

Es wird

TIdAttachment

nicht gefunden.

[DeddyH]

Nochmal:

Zitat von DeddyH:

Ist IdMessage eingebunden?

[roland0]

Ja, IDMessage ist eingebunden.

[Klaus01]

Guten Abend,

ist IdAttachement eingebunden?

Grüße
Klaus

[roland0]

Das ist eben das Problem.

Wie soll ich es einbinden? Es ja keine Komponente von INDY