a protected variable of the object would suffice, so experienced users
could do a hack typecast to access it, if for some reason somebody
dont wont the value to be easily accessible.

rgn> good to know but thats not the clean way.
rgn> and needs some additional cpu cycles on every headerline of course.

rgn> best regards, retnyg

>>> pls make it a property, so we dont have to mess around in ICS source
>>> on every new release.

AG>> There's an event OnHeaderLine. No need to add a new property.

AG>> procedure TMySmtp.SmtpHeaderLine(Sender: TObject;
AG>>   Msg: Pointer; Size: Integer);
AG>> begin
AG>>     if StrLIComp(Msg, 'X-Mailer:', 9) = 0 then
AG>>         StrCopy(Msg, PChar('X-Mailer: MyMailer - www.mymailer.de'));
AG>> end;

AG>> ---
AG>> Arno Garrels [TeamICS]
AG>> http://www.overbyte.be/eng/overbyte/teamics.html

>>> best regards, retnyg

To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to