Validere emailadresse

Det kan du ikke endegyldigt!
Brugen af Finger er efterhånden stoppet pga misbrug.
Du kan checke for rette format: @ og .
Evt kan du lave opslag af domæne navn i en DNS.

er lige meget om adressen "findes"... den skal bare ha det rette "format"

som i navn@host.domæne

jeg ved ikke hvordan jeg skal lave tjekket for det..

function MailURLMayBeInvalid(const s: string): Boolean;
var
  i: Integer;
  c: string;
begin // ' ', ä, ö, ü, ß, [, ], (, ), : in EMail-Address
  Result := (Trim(s) = '') or (Pos(' ', AnsiLowerCase(s)) > 0) or
    (Pos('ä', AnsiLowerCase(s)) > 0) or (Pos('ö', AnsiLowerCase(s)) > 0) or
    (Pos('ü', AnsiLowerCase(s)) > 0) or (Pos('ß', AnsiLowerCase(s)) > 0) or
    (Pos('[', AnsiLowerCase(s)) > 0) or (Pos(']', AnsiLowerCase(s)) > 0) or
    (Pos('(', AnsiLowerCase(s)) > 0) or (Pos(')', AnsiLowerCase(s)) > 0) or
    (Pos(':', AnsiLowerCase(s)) > 0);
  if Result then Exit; // @ not in EMail-Address;
  i      := Pos('@', s);
  Result := (i = 0) or (i = 1) or (i = Length(s));
  if Result then Exit;
  Result := (Pos('@', Copy(s, i + 1, Length(s) - 1)) > 0);
  if Result then Exit; // Domain <= 1
  c      := Copy(s, i + 1, Length(s));
  Result := Length(c) <= 1;
  if Result then Exit;
  i      := Pos('.', c);
  Result := (i = 0) or (i = 1) or (i = Length(c));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if MailURLMayBeInvalid(edit1.Text) then
showmessage('Ugyldig mailadresse')
else
showmessage('Gyldig mailadresse');

end;

Stoney

Kan man kommenterer et accepteret spørgsmål????

Well...

Ovenstående virker ikke helt... Hvad hvis der er indtastet { eller ! i email adressen?

Og helt ærligt stoney... Vil du virkelig ligge navn til den kodning? Så vidt jeg husker, har er kommet med en del gode ting før

...replace "har er" med "har du"

doc404 >>

Det er nu bare en stump kode jeg en gang fandt som jeg har gengivet.
Men jeg tror nu ikke det kræver den store ledvogter eksamen, selv
at rette til så den checker for alle ikke gyldige karakterer.

Result := (Trim(s) = '') or (Pos(' ', AnsiLowerCase(s)) > 0) or
    (Pos('ä', AnsiLowerCase(s)) > 0) or (Pos('ö', AnsiLowerCase(s)) > 0) or
    (Pos('ü', AnsiLowerCase(s)) > 0) or (Pos('ß', AnsiLowerCase(s)) > 0) or
    (Pos('[', AnsiLowerCase(s)) > 0) or (Pos(']', AnsiLowerCase(s)) > 0) or
    (Pos('(', AnsiLowerCase(s)) > 0) or (Pos(')', AnsiLowerCase(s)) > 0) or
    (Pos(':', AnsiLowerCase(s)) > 0);

Stoney

enig...undrede mig bare en smule ;-)