Einzelnen Beitrag anzeigen

Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#16

Re: SQl für Filter von Emailadressen nutzen

  Alt 22. Sep 2006, 13:25


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
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat