Exception in script OnXOver

18/10/2010 - 15:36 von Wolfgang Bauer | Report spam
Servus.

Hin und wieder, eher selten, habe ich diese Excription.
5 10402692: Exception in script OnXOver: Could not call proc

Ist das weil unmittelbar mehrere Postings reinkommen bei denen es
Bimmelt? Mein AnXOver

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
Die 40tude-Dialog FAQ http://www.wolfgang-bauer.at/4td_faq/
Raady's 40tude-Dialog - Archiv! http://kh-rademacher.de/4d/
http://www.wolfgang-bauer.at
 

Lesen sie die antworten

#1 Dietmar Vollmeier
18/10/2010 - 18:27 | Warnen spam
Grüß dich Wolfgang!

*Wolfgang Bauer* schrieb am 18.10.2010 um 15:36 Uhr...
Hin und wieder, eher selten, habe ich diese Excription.
5 10402692: Exception in script OnXOver: Could not call proc

Ist das weil unmittelbar mehrere Postings reinkommen bei denen es
Bimmelt? Mein AnXOver

[...]



Ändere das mal um auf

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 IndexOf('') Do
Begin
If BM_RegexMatch(MID,Strings[i],TRUE) = False Then
Begin
If (BM_RegexMatch(REF,Strings[i]+'>(\s*<[^<]+>){0,0}$',True) = True)
Then Begin
BM_PlaySound(BM_Sound1, 1);
Sleep(150);
Exit;
End
Else If (BM_RegexMatch(REF ,Strings[i]+'>(\s*<[^<]+>){0,'+d+'}$',True) = True)
Then Begin
BM_PlaySound(BM_Sound2, 1);
Sleep(150);
Exit;
End;
End;
End;
FLIST.Free;
End;

Begin
End.
8<>8

HTH
Servus | 40tude Dialog FAQ -> http://www.wolfgang-bauer.at/4td_faq/
Didi | und Script-Archiv -> http://kh-rademacher.de/4d/
|
| http://4d.vollmeier.at/

Ähnliche fragen