Das ist die Funktion:
Delphi-Quellcode:
function TSNMailservice.IsSpam(AAdress: string): Boolean;
begin
Result:=False;
try
try
tqspamadressen.SQL.Text:='SELECT * FROM spamadressen WHERE "'+AAdress+'" LIKE REPLACE(Email,"*","%")';
tqspamadressen.Active:=True;
Result:=not tqspamadressen.IsEmpty;
except
Result:=False;
end;
finally
tqspamadressen.Active:=False;
end;
end;
hätt mir au wer sagen könn das es REPLACE in
SQL gibt
und es funktioniert.. wenn ich "*@web.de" in die Tabelle eintrage werden alle einkommenden Mails von @web.de in den SPAM-Ordner geschoben
THX für eure Hilfe