Forums Neueste Beiträge
 

Exception in script OnXOver

01/05/2009 - 12:37 von Wolfgang Bauer | Report spam
Servus.

Bisher bin ich dem nicht nachgegangen.
Exception in script OnXOver: Could not call proc

Es tritt ganz selten auf. Eben aber habe ich es wieder gehabt. Kann sich
da jemand einen Reim drauf machen?

8<>8
Program OnXover;
uses textfile, Forms, StdCtrls;
{$I Basis_Modul_Include}
Const
Tiefe = 20;
//-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

Freundliche Grüße
Wolfgang
http://www.wolfgang-bauer.at http://www.cj-web.de/40tude-dialog-faq/faq.html
40tude-Dialog DER Newsreader unter Windows http://dialog.datalist.org/
Newsgruppe news:de.comm.software.40tude-dialog
40tude-Dialog Scriptwerkstatt http://4ds.siteboard.eu/
 

Lesen sie die antworten

#1 Karl-Heinz Rademacher
01/05/2009 - 12:55 | Warnen spam
Hallo Wolfgang,

Wolfgang Bauer schrieb:
Servus.

Bisher bin ich dem nicht nachgegangen.
Exception in script OnXOver: Could not call proc

Es tritt ganz selten auf. Eben aber habe ich es wieder gehabt. Kann sich
da jemand einen Reim drauf machen?

8<>8
Program OnXover;
uses textfile, Forms, StdCtrls;
{$I Basis_Modul_Include}



Stimmen deine Pfadangaben in der Basis_Modul.INI bei...

BM_Sound1='';
BM_Sound2='';

... noch?

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

Ähnliche fragen