Internet

Moduł internet (3)

Nazwa polska	Nazwa angielska	Opis
ping('adres_strony')	ping('adres_strony')	Sprawdza, czy dana strona internetowa odpowiada.
pobierz_plik('adres_pliku', 'ścieżka_docelowa')	download_file('adres_pliku', 'ścieżka_docelowa')	Pobiera plik z internetu i zapisuje go w wskazanej lokalizacji.
pobierz_strone('adres_strony', lista_tekstów, 'ścieżka_docelowa')	download_page('adres_strony', lista_textów, 'ścieżka_docelowa')	Pobiera stronę internetową, zapisuje jej zawartość w zmiennej typu lista_tekstów i do pliku.

Przykłady

Nazewnictwo polskie

program testpingnew
import internet

główny
  tekst weblink = 'www.programista.art'
  pisz_linie('Funkcja sprawdza, czy dana strona odpowiada. ')
  //użycie procedury
  ping_strony(weblink)
koniec.

procedura ping_strony(link:string)
początek
    jeżeli ping(link) wtedy
    początek
      pisz_linie('Strona', link , ' odpowiada!')
    koniec
    inaczej
      pisz_linie('Nie można nawiązać połączenia ', link)
koniec

Nazewnictwo angielskie

program testpingnew
import internet
main
    string weblink = 'www.programista.art'
    print_line('Funkcja sprawdza, czy dana strona odpowiada. ')
    //użycie procedury
    ping_webs_site(weblink)
end.

procedure ping_webs_site(link:string)
start
    if ping(link) then
    start
       print_line('Strona', link , ' odpowiada!')
    end
    else
       print_line('Nie można nawiązać połączenia ', link)
end

Nazewnictwo polskie

program pobieramzdjecie
importuj internet
główny
  pisz_linie('Witaj w programie pobierania zdjęcia ze strony dimitalart.pl' )
  tekst linkstr = 'https://avocado.doc.dimitalart.pl/Avocado-ustawienia-nowy-motyw.png'
  tekst pathstr = 'D:\bazy\info\ustawienia.jpg'
  //użycie procedury pobierania
  pobierzplik(linkstr,pathstr)
koniec.

procedure pobierzplik(link:string; path:string)
początek
  pobierz_plik(link, path)
koniec       

Nazewnictwo angielskie

program pobieramzdjecie
importuj internet
main
  print_line('Witaj w programie pobierania zdjęcia ze strony dimitalart.pl' )
  string linkstr = 'https://avocado.doc.dimitalart.pl/Avocado-ustawienia-nowy-motyw.png'
  string pathstr = 'D:\bazy\info\ustawienia.jpg'
  //użycie procedury pobierania
  download_file(linkstr,pathstr)
end.

procedure download_file(link:string; path:string)
start
  download_file(link, path)
end