Antwort auf: Internetverbindung und Webadresse prüfen

[Klaus Major]

So, da haben wir eine Funktion, die auch prüft, ob eine URL gültig ist.
Diese Funktion fragt aber nur die HEADER einer URL ab, ist daher schneller als meine erste Lösung oben!

function checkURLAvailable tURL
  put tsNetHeadSync(tURL, tSentHeaders, tResult, tBytes)  into tHeaders  
  if (tResult < 400) then
    return true
  else
    return false
  end if
end checkURLAvailable

Und so wird sie angewendet:

...
put "http://DeineUrl_hier.com" into tUrl
if checkURLAvailable(tURL) = FALSE then
  answer "Ungültige URL, Du Eierkopp!"
  exit to top
end if
## URL ist gültig, nun kannst Du sie ganz laden oder was immer Du damit anstellen möchtest
put url tUrl into fld 1
...

Gruß

Klaus