Weil ich sehe, hier schaut ja doch mal jemand vorbei

22/12/2010 - 15:56 von Wolfgang Bauer | Report spam
Servus.

Wer auch mal auf meinen Newsreader Header sieht wird bemerkt haben, daß
ich überwiegend mit openSUSE und/oder Kubuntu unterwegs bin. Windows ist
irgendwie langweilig.

Unter Linux benutze ich vorwiegend Gnus aber auch Tin als Konsolenreader
ist nicht schlecht. Jetzt habe ich im aktuellen Wine auch Dialog und
Korrnews installiert und beide funktionieren einwandfrei.

Was nicht geht ist das Script OnXOver.
8<-->8
Program OnXover;
Uses Forms, Extctrls, TextFile;
{$I Basis_Modul_Include}
Const
Tiefe = 10;
//--Nothing to change below-
Procedure OnXover(Var XoverData:TXoverData);
Var
i : Integer;
REF,MID,d : String;
FLIST : TStringList;
Begin
FLIST := TStringList.Create;
FLIST.CommaText := BM_FQDN;
REF := XoverData.References;
MID := XoverData.MsgID;
d := IntToStr(Tiefe);
With FLIST do For I := 0 To Count-1 Do
Begin
If BM_RegexMatch(MID,Strings[i],TRUE) = False Then
Begin
If (BM_RegexMatch(REF,Strings[i]+'>(\s*<[^<]+>){0,0}$',True) = True)
Then BM_PlaySound(BM_Sound1, 1) Else
If (BM_RegexMatch(REF ,Strings[i]+'>(\s*<[^<]+>){0,'+d+'}$',True) = True)
Then BM_PlaySound(BM_Sound2, 1);
Sleep(150);
End;
End;
FLIST.Free;
End;

Begin
End.
8<-->8


Mit freundlichen Grüßen
Wolfgang Bauer
Das 40tude Dialog Skript - Archiv! http://kh-rademacher.de/4d/
Die 40tude-Dialog FAQ http://www.wolfgang-bauer.at/4td_faq/
Meine Homepage http://www.wolfgang-bauer.at/
 

Lesen sie die antworten

#1 Hermann Hippen
22/12/2010 - 16:14 | Warnen spam
Wolfgang Bauer schrieb:

Unter Linux benutze ich vorwiegend Gnus aber auch Tin als Konsolenreader
ist nicht schlecht. Jetzt habe ich im aktuellen Wine auch Dialog und
Korrnews installiert und beide funktionieren einwandfrei.

Was nicht geht ist das Script OnXOver.



Heißt was? Piept nicht? Im BM ist die Windows DLL
eingebunden, gibt es die bei dir?

Mit freundlichen Grüßen
Hermann Hippen

Die Beamten, die man am wenigsten brauchen kann,
stehen am weitesten oben.

Ähnliche fragen