Moin,
ich möchte mit der Komponente TldSMTPServer einen Dienst, der auf Post 25 horcht einrichten.
Bis dahin klappt es auch. Nur wie nun weiter?
Bei
Indy 9 hatte ich folgende Code um den Header auszuwerten:
Delphi-Quellcode:
procedure TForm1.IdSMTPServer1ReceiveMessage(ASender: TIdCommand;
var AMsg: TIdMessage; RCPT: TIdEMailAddressList;
var CustomError: String);
begin
// This is the main event if you have opted to have idSMTPServer present the message packaged as a TidMessage
// The AMessage contains the completed TIdMessage.
// NOTE: Dont forget to add IdMessage to your USES clause!
ToLabel.Caption := AMsg.Recipients.EMailAddresses;
FromLabel.Caption := AMsg.From.Text;
SubjectLabel.Caption := AMsg.Subject;
Memo1.Lines := AMsg.Body;
.........
end;
Bei
Indy 10 mit D2005 ist das scheints etwas anders.
procedure TForm1.IdSMTPServer1MsgReceive(ASender: TIdSMTPServerContext;
AMsg: TStream; var LAction: TIdDataReply);
begin
.... Code ....
end;
---------------
wie komme ich denn da an den Header?
Gruss
EL