[UPDATE] @Karl-Heinz - http://kh-rademacher.de/4d/remove_g1.html

29/01/2009 - 00:21 von Hermann Hippen | Report spam
Moin Moin :-),

http://kh-rademacher.de/4d/remove_g1.html

So das sollte es gewesen sein:

8<[ RemoveHeaders_include ]>8
Procedure RemoveHeadersIni(Var Header:TStringList);
Begin
// Hier kannst du Headernamen angeben, die bei Empfang eines Artikel
// aus dem Header gelöscht werden.
// Bei mehreren Headern bitte durch Komma getrennt eingeben.
// Sollte dir die Zeile zu lang werden, können mehrere Zeilen mit + verknüpft werden
// Header.CommaText := 'Cancel-Lock:,X-Old-Xref:' +
// ',nochn-Header,und-nocheiner';
Header.CommaText := 'Approved:,Archive-name:,X-EM-Registration:,X-EM-Version:' +
',Cache-Post-Path:,Cancel-Lock:,Complaints-To:,X-Gateway:' +
',Distribution:,Expires:,Injection-Info:,X-Gentoo-Release:' +
',Last-modified:,List-Archive:,List-Help:,List-Post:,X-ID:' +
',List-Subscribe:,List-Unsubscribe:,X-Motto:,X-List-Id:' +
',Mail-Copies-To:,MIME-Version:,Mime-Version:,X-No-Markup:' +
',NNTP-Posting-Date:,NNTP-Posting-Host:,Organization:,X-No-Markup:' +
',X-KorrNews:';
End;
//--
Procedure RemoveHeaders(Var M: TStringList);
Var i,j : Integer;
Var H : TStringList;
Begin
H := TStringList.Create; RemoveHeadersIni(H);
For I:=0 To H.Count-1 Do
Begin
j := 0;
Repeat
If Pos(H[I],M[j])=1 Then
Repeat M.Delete(j); Until (M[j][1] > ' ') Or (M[j] = '');
J := J + 1;
Until M[j] = '';
End;
H.Free;
End;
8<->8

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

Lesen sie die antworten

#1 Reinhard Irmer
29/01/2009 - 14:26 | Warnen spam
Hallo *hiPP€r hErrMAnn*,

*_Hermann Hippen_* schrieb:
Supersedes
http://kh-rademacher.de/4d/remove_g1.html
So das sollte es gewesen sein:
8<[ RemoveHeaders_include ]>8


[...]

Soweit ich es beurteilen kann, ist in dem include keine sinnvolle
Kürzung des References-Headers mehr vorgesehen, sondern ggf. nur ein
totales Rausschmeißen oder irre ich?



Viele Gruesse
Rεìñhατδ

Waere Gott Kfz Mechaniker, wuerde dein Roller nicht
mit teurem Benzin laufen, sondern mit Heiligem Geist
(Werner B. in de.alt.soc.verschwoerung)

Ähnliche fragen