[UPDATE] @Karl-Heinz - RemoveAnyHeader_include

05/12/2008 - 12:13 von Hermann Hippen | Report spam
Moin Moin :-),

http://kh-rademacher.de/4d/RemoveAn...ude-1.html

Nochmals eine komplette Funktion gelöscht, die aus der mit Kommas
separierten RemoveHeaders Liste jeweils einen Eintrag holt, da dies mit
TStringList über CommaText selbst zu lösen ist.

Sorry, Karl-Heinz, hatte ich gestern übersehen :-(

8<-[ RemoveAnyHeader_include ]->8
Procedure Init_Remove_Headers ( Var RemoveHeaders : String;
Var RemoveFromEmails : Boolean;
Var RemoveFromNews : Boolean);
Begin
// Configuration settings
// -
// set the header(s) you want to remove here, e.g. 'User-Agent: ,X-Scoring: '
RemoveHeaders := 'Organization:,User-Agent:,X-Face:';
// remove header(s) from emails and/or postings
// set 'true' or 'false'
RemoveFromEmails := False;
RemoveFromNews := True;
// -
// End of configuration settings
End;
// No user maintainable parts below this line -- /
Procedure Remove_Headers( Message : TStringList; IsEmail : Boolean);
Var i,j : Integer;
RemoveHeaders : String;
RemoveFromEmails,
RemoveFromNews : Boolean;
HLIST : TStringList;
Begin
Init_Remove_Headers ( RemoveHeaders, RemoveFromEmails, RemoveFromNews );
If ((IsEmail=True) and (RemoveFromEmails=False)) or
((IsEmail=False) and (RemoveFromNews=False)) Then Exit;
HLIST := TStringList.Create;
HLIST.CommaText := RemoveHeaders;
i := 0;
With Message do Repeat
I := I + 1;
For J := 0 To HLIST.Count-1 Do
If Pos(HLIST[j], Strings[i]) = 1 Then Delete(I);
Until (Strings[i] = '');
HLIST.Free;
End;
8<-->8

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Karl-Heinz Rademacher
06/12/2008 - 01:42 | Warnen spam
Hallo Hermann,

Hermann Hippen schrieb:
Nochmals eine komplette Funktion gelöscht, die aus der mit Kommas
separierten RemoveHeaders Liste jeweils einen Eintrag holt, da dies mit
TStringList über CommaText selbst zu lösen ist.

Sorry, Karl-Heinz, hatte ich gestern übersehen :-(



Gut dann habe ich hier etwas zu lesen für dich! :-)

http://www.kaheira.homepage.t-onlin...clude.html

http://www.kaheira.homepage.t-onlin...andom.html

http://www.kaheira.homepage.t-onlin...clude.html



Gruß
Karl-Heinz
,--[ Die 40tude Dialog - Seiten! ]
Š http://kh-rademacher.de/4d
Š http://kh-rademacher.de/face
`-

Ähnliche fragen