url link kontrol

[Serhat]

Merhaba web url sini edit icine yazarken kontrol edebilirmiyim.

[G.Arkas]

Kod: Tümünü seç

uses UrlMon;

function IsValidURL(const URL: Widestring): Boolean;
begin
   if IsValidURL(nil, PWideChar(URL), 0) = S_OK then
      Result := True
   else
      Result := False;
end;

[brs]

Selam, ben bu kodları kullanıyorum sayfa biraz geç açılıyor ve .com dan sonra ingilizce karekter girdiğinde edit içindeki yazılar kırmız oluyor fakat türkçe karekter girildiğinde tepki vermiyor...

Kod: Tümünü seç

uses ... IdHTTP, IdSSLOpenSSL;

Kod: Tümünü seç

function IsHTTPSURLReachable(const AURL: string): Boolean; // Web link Kontrol
var
  lHTTP: TIdHTTP;
  lIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  result := True;
  lHTTP := TIdHTTP.Create(nil);
  lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    try
      lHTTP.IOHandler := lIOHandler;
      lHTTP.HandleRedirects := True;
      lHTTP.Head(AURL);
    except
      result := False;
    end;
  finally
    lHTTP.Free;
    lIOHandler.Free;
  end;
end;

Kod: Tümünü seç

procedure TForm6.UrlChange(Sender: TObject);
begin
  if IsHTTPSURLReachable(Url.Text) then
    Form6.Url.Font.Color := RGB(0, 100, 0)
  else
    Form6.Url.Font.Color := RGB(255, 0, 0);
end;