Pobranie źródła strony internetowej

Pobranie źródła strony internetowej
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
  • Rejestracja:ponad 19 lat
  • Ostatnio:około 3 lata
  • Lokalizacja:Świecie
0

Do tej pory pobierałem wyniki oraz ilość wygranych do Gry Mini Lotto. Teraz nie pobierają się do pliku. Fireox wyświetla i Chrome w przeglądarce. Internet Explorer nie. Jak mam dojść z poziomu delphi do tych danych?

Kopiuj
uses wininet;

procedure HttpGetFile(url,filename:string);
var
  F:File; 
  ResumePos,BufferLen,SumSize:DWORD;
  hSession, hURL: HInternet;
  Buffer: array[1..1024] of Byte; 
  err: boolean;
begin
  SumSize:=0;ResumePos:=0; 

  AssignFile(F,filename);
  IF FileExists(filename) then 
  begin 
    Reset(f,1); 
    ResumePos:=FileSize(F); 
    Seek(F,FileSize(F)); 
  end else ReWrite(f,1);
   
  //CloseFile(F); // TU nie
  hSession:=InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT)',0,nil,nil,0); 
  hURL:=InternetOpenURL(hSession,PChar(url),nil,0,0,0); 
  InternetQueryDataAvailable(hURL, SumSize,0,0); 
 //form1.label1.Caption:=IntToStr(SumSize); 
  if ResumePos>0 then InternetSetFilePointer(hURL,ResumePos,nil,0,0);

  repeat 
   err:=InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen);
   if err=false then begin Form1.Label3.Caption := 'BŁĄD !!!';exit;end; 
   BlockWrite(f,Buffer,BufferLen);
   Application.Processmessages;
  until (BufferLen=0); 

  Form1.Caption := 'GOTOWE !!!';
  CloseFile(F); // TU
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  HttpGetFile('http://app.lotto.pl/wyniki/?type=el', ExtractFilePath(Application.ExeName)+'WYNIKI1.txt');
  HttpGetFile('http://app.lotto.pl/wygrane/?type=el', ExtractFilePath(Application.ExeName)+'WYNIKI2.txt');
end;

olesio napomknę, że synapse też nie daję sobie rady z tym. Lotto od 18.06.2020 roku zrobiło remont strony internetowej.

Próbowałem https://pl.wikipedia.org/wiki/User_agent.

TO PYTANIE BARDZIEJ DO ZNAJĄCYCH SIĘ NA SILNIKACH PRZEGLĄDAREK INTERNETOWYCH.

Umysł pozytywny szuka sposobów, jak coś wykonać; umysł negatywny wyszukuje sposoby, by uzasadnić, że czegoś nie można zrobić.
~~ Napoleon Hill ~~
edytowany 7x, ostatnio: flowCRANE
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Mr.YaHooo
MY
Mr.YaHooo
MY
  • Rejestracja:ponad 9 lat
  • Ostatnio:11 dni
  • Postów:1082
3

Tutaj nie chodzi wcale o pobranie żadnej strony internetowej. Po prostu wysyłasz żądanie i w odpowiedzi otrzymujesz wynik. Zainteresuj się komponentami z zakładki INDY. Konkretnie chodzi Ci o komponent TidHTTP oraz jego metodę Get

Szybkie przeszukanie Googla pokazuje, że jest to API, tylko gdzieś dokumentacja oraz warunki korzystania wcięło. Jednak potwierdzam, że jak użyjesz tej metody to zadziała Ci nawet na Windows XP ;)

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
  • Rejestracja:ponad 19 lat
  • Ostatnio:około 3 lata
  • Lokalizacja:Świecie
0

Indy nie za działa. Dziwi mnie fakt, że Internet Explorer nie radzi sobie z tym ani synapse. Kiedyś była dokumentacja api w formie pliku pdf na stronie Totalizatora Sportowego. Tak samo jak ie ma problem z wyświetlaniem strony Lotto. Co Firefox ma takiego co nie potrafi tego ie? Jakies uwierzytelnienie SDL

Umysł pozytywny szuka sposobów, jak coś wykonać; umysł negatywny wyszukuje sposoby, by uzasadnić, że czegoś nie można zrobić.
~~ Napoleon Hill ~~
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
flowCRANE
flowCRANE
flowCRANE
flowCRANE
Moderator Delphi/Pascal
  • Rejestracja:ponad 13 lat
  • Ostatnio:około 9 godzin
  • Lokalizacja:Tuchów
  • Postów:12164
1
Bruno(M) napisał(a):

Co Firefox ma takiego co nie potrafi tego ie?

Jedno i drugie to g**no, ale Firefox przynajmniej jest żywy i rozwijany.

Pracuję nad własną, arcade'ową, docelowo komercyjną grą z gatunku action/adventure w stylu retro (pixel art), programując silnik i powłokę gry od zupełnych podstaw, przy użyciu Free Pascala i SDL3. Więcej informacji znajdziesz na moim mikroblogu.
edytowany 1x, ostatnio: flowCRANE
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Paweł Dmitruk
PD
Paweł Dmitruk
PD
  • Rejestracja:ponad 22 lata
  • Ostatnio:około 2 godziny
3

synapse bez problemu pobiera, tylko musisz obsłużyć przekierowania i https, ponieważ lotto przekierowuje ruch http na https, lub zamiast http://app.lotto.pl pobierać z https://app.lotto.pl:

Kopiuj
uses
   httpsend, ssl_openssl, ssl_openssl_lib, synautil;  //w katalogu z aplikacją muszą być biblioteki ssl_openssl.dll i ssl_openssl_lib.dll do obsługi połączeń szyfrowanych

procedure TForm1.Pobierz(url: String);
var
  HTTP: THTTPSend;
  newurl: String;
  i: Integer;
  outdata: TStringStream;
begin
  outdata:=TStringStream.Create('');
  HTTP:=THTTPSend.Create;
  HTTP.KeepAlive:=True;
  HTTP.Headers.Insert(0, 'Accept: text/plain');
  HTTP.MimeType:='text/plain';
  HTTP.UserAgent:='Mozilla';
  if HTTP.HTTPMethod('Get', url) then
  begin
    if (HTTP.ResultCode=301) or (HTTP.ResultCode=302) then  //jeżeli przekierownie na inny adres
    begin
      for i:=0 to HTTP.Headers.Count-1 do
      begin
        if Copy(HTTP.Headers[i], 1, 8)='Location' then
        begin
          newurl:=Copy(HTTP.Headers[i], 11, Length(HTTP.Headers[i])-10);
          if not SameText(Copy(newurl, 1, 4), 'http') then
          begin
            if Copy(newurl, 1, 1)='/' then
            newurl:=url+newurl
            else
            newurl:=url+'/'+newurl;
          end;
        end;
      end;
      if Length(newurl)>1 then
      Pobierz(newurl);
    end
    else if HTTP.ResultCode=200 then
    begin
      outdata.CopyFrom(HTTP.Document, 0);
      Memo1.Lines.Text:=outdata.DataString
    end
    else
    begin
      Memo1.Lines.Text:='Błąd pobierania: '+IntToStr(HTTP.ResultCode)+' > '+HTTP.ResultString+' ['+url+']';
    end;
  end
  else
  Memo1.Lines.Text:='Nie można pobrać danych';
  HTTP.Free;
  outdata.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Pobierz('http://app.lotto.pl/wygrane/?type=el')
end;
pozdrawiam
paweld
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Mr.YaHooo
MY
Mr.YaHooo
MY
  • Rejestracja:ponad 9 lat
  • Ostatnio:11 dni
  • Postów:1082
4

A ja podam jeszcze prostszą moim zdaniem metodę na pobranie tego pliku. Oczywiście należy wgrać biblioteki OpenSSL do kakalogu z programem:

Kopiuj
procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  IdSSL: TIdSSLIOHandlerSocketOpenSSL;
  ResponseData: TStringStream;
  Request: AnsiString;
  RetVal: AnsiString;
begin
  IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Application);
  IdSSL.SSLOptions.Method := sslvSSLv23;

  IdHTTP := TIdHTTP.Create(Application);
  IdHTTP.IOHandler := IdSSL;
  IdHTTP.HandleRedirects := true;

  ResponseData := TStringStream.Create();
  Request := 'https://app.lotto.pl/wyniki/?type=dl';

  IdHTTP.Get(Request,ResponseData);
  RetVal := ResponseData.DataString;
  ShowMessage(RetVal);
end;

Jak widać większość kodu to tworzenie komponentów i ustawianie ich właściwości. Samo pobranie to jedna linijka :) Oczywiście można by było sprawdzać czy IdHTTP.ResponseCode jest równe 200 ale żeby nie zaciemniać przykładu pominąłem sprawdzanie błędów. Tak samo jak warto by było usuwać przydzieloną pamięć na koniec.

PS. Nie pisze na co dzień w Delphi, tylko w C++. Ale udało mi się i nawet działa ;)

screenshot-20200620231022.png

edytowany 1x, ostatnio: Mr.YaHooo
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
  • Rejestracja:ponad 19 lat
  • Ostatnio:około 3 lata
  • Lokalizacja:Świecie
0

Paweł Dmitruk
Mr.YaHooo dziękuję wam bardzo.

https://app.lotto.pl/wyniki/?type=dl - Lotto
https://app.lotto.pl/wyniki/?type=lp - Lotto Plus
https://app.lotto.pl/wyniki/?type=el - Mini Lotto
https://app.lotto.pl/wyniki/?type=ep - Ekstra Pensja
https://app.lotto.pl/wyniki/?type=mm14 - Multi Multi
https://app.lotto.pl/wyniki/?type=mm22 - Multi Multi
https://app.lotto.pl/wyniki/?type=ej - EurojackPot => tylko 5 liczb pokazuje a powinno być 7
https://app.lotto.pl/wyniki/?type=ss14 - Super Szansa
https://app.lotto.pl/wyniki/?type=ss22 - Super Szansa

http://serwis.mobilotto.pl/mapi_v6/index.php?json=getGames - ostatnie wyniki
http://app.lotto.pl/losowania/kumulacja.txt - Kumulacja Lotto

Potrzebuję adresów do Ekstra Premia.

Umysł pozytywny szuka sposobów, jak coś wykonać; umysł negatywny wyszukuje sposoby, by uzasadnić, że czegoś nie można zrobić.
~~ Napoleon Hill ~~
edytowany 4x, ostatnio: Mariusz Bruniewski
SK
SuperSzansa jest w pliku JSON, do którego URL podałeś: http://serwis.mobilotto.pl/mapi_v6/index.php?json=getGames Poza tym w tym pliku chyba są wszystkie wyniki, więc IMO bez sensu pobierać z innych URL pozostałe wyniki Można też pobierać wyniki stąd: https://www.lotto.pl/api/lotteries/draw-results/by-gametype?game=EkstraPremia&index=1&size=10&sort=drawDate&order=DESC gdzie size = ilość ostatnich losowań
Mariusz Bruniewski
Mariusz Bruniewski
skrzat strzał w 10
Mariusz Bruniewski
Mariusz Bruniewski
A jak wyświetlić wygrane z poszczególnych gier?
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
Mariusz Bruniewski
  • Rejestracja:ponad 19 lat
  • Ostatnio:około 3 lata
  • Lokalizacja:Świecie
0

Pytanie do skrzat czy w jakimś pliku są wygrane z poszczególnych gier?

Umysł pozytywny szuka sposobów, jak coś wykonać; umysł negatywny wyszukuje sposoby, by uzasadnić, że czegoś nie można zrobić.
~~ Napoleon Hill ~~
Mariusz Bruniewski
Mariusz Bruniewski
Zależało by mi bardzo, aby wyświetlać tak jak podałeś wcześniej link na zasadzie wyboru poszczególnej gry w tym przypadku np. Szybkie600. https://www.lotto.pl/api/lotteries/draw-results/by-gametype?game=Szybkie600&index=1&size=10&sort=drawDate&order=DESC
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
adolf
AD
adolf
AD
  • Rejestracja:prawie 2 lata
  • Ostatnio:5 dni
  • Postów:29
0
Mariusz Bruniewski napisał(a):

Pytanie do skrzat czy w jakimś pliku są wygrane z poszczególnych gier?

Są Np. wygrane EJ dla polski. https://app.lotto.pl/wygrane/?type=ej. I ja mam pytanie, czy ktoś wie jak pobrać te wyniki dla EJ dla pozostałych krajów, tak jak to pokazuje na stronie lotto ?

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
skrzat
SK
skrzat
SK
  • Rejestracja:około 7 lat
  • Ostatnio:około 23 godziny
  • Postów:98
0
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
robertz68
robertz68
robertz68
robertz68
  • Rejestracja:około 18 lat
  • Ostatnio:około 15 godzin
  • Lokalizacja:Zielona Góra
0

oho, chyba ktoś wrócił z zaświatów :)

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Treść
Podgląd
Kliknij, aby dodać treść...
Kliknij, aby dodać załącznik lub wklej ze schowka.
Instrukcja obsługi Markdown
Pomoc 1.18.8

Typografia

Edytor obsługuje składnie Markdown, w której pojedynczy akcent *kursywa* oraz _kursywa_ to pochylenie. Z kolei podwójny akcent **pogrubienie** oraz __pogrubienie__ to pogrubienie. Dodanie znaczników ~~strike~~ to przekreślenie.

Możesz dodać formatowanie komendami , , oraz .

Ponieważ dekoracja podkreślenia jest przeznaczona na linki, markdown nie zawiera specjalnej składni dla podkreślenia. Dlatego by dodać podkreślenie, użyj <u>underline</u>.

Komendy formatujące reagują na skróty klawiszowe: Ctrl+B, Ctrl+I, Ctrl+U oraz Ctrl+S.

Linki

By dodać link w edytorze użyj komendy lub użyj składni [title](link). URL umieszczony w linku lub nawet URL umieszczony bezpośrednio w tekście będzie aktywny i klikalny.

Jeżeli chcesz, możesz samodzielnie dodać link: <a href="link">title</a>.

Wewnętrzne odnośniki

Możesz umieścić odnośnik do wewnętrznej podstrony, używając następującej składni: [[Delphi/Kompendium]] lub [[Delphi/Kompendium|kliknij, aby przejść do kompendium]]. Odnośniki mogą prowadzić do Forum 4programmers.net lub np. do Kompendium.

Wspomnienia użytkowników

By wspomnieć użytkownika forum, wpisz w formularzu znak @. Zobaczysz okienko samouzupełniające nazwy użytkowników. Samouzupełnienie dobierze odpowiedni format wspomnienia, zależnie od tego czy w nazwie użytkownika znajduje się spacja.

Znaczniki HTML

Dozwolone jest używanie niektórych znaczników HTML: <a>, <b>, <i>, <kbd>, <del>, <strong>, <dfn>, <pre>, <blockquote>, <hr/>, <sub>, <sup> oraz <img/>.

Skróty klawiszowe

Dodaj kombinację klawiszy komendą notacji klawiszy lub skrótem klawiszowym Alt+K.

Reprezentuj kombinacje klawiszowe używając taga <kbd>. Oddziel od siebie klawisze znakiem plus, np <kbd>Alt+Tab</kbd>.

Indeks górny oraz dolny

Przykład: wpisując H<sub>2</sub>O i m<sup>2</sup> otrzymasz: H2O i m2.

Składnia Tex

By precyzyjnie wyrazić działanie matematyczne, użyj składni Tex.

<tex>arcctg(x) = argtan(\frac{1}{x}) = arcsin(\frac{1}{\sqrt{1+x^2}})</tex>

Kod źródłowy

Krótkie fragmenty kodu

Wszelkie jednolinijkowe instrukcje języka programowania powinny być zawarte pomiędzy obróconymi apostrofami: `kod instrukcji` lub ``console.log(`string`);``.

Kod wielolinijkowy

Dodaj fragment kodu komendą . Fragmenty kodu zajmujące całą lub więcej linijek powinny być umieszczone w wielolinijkowym fragmencie kodu. Znaczniki ``` lub ~~~ umożliwiają kolorowanie różnych języków programowania. Możemy nadać nazwę języka programowania używając auto-uzupełnienia, kod został pokolorowany używając konkretnych ustawień kolorowania składni:

```javascript
document.write('Hello World');
```

Możesz zaznaczyć również już wklejony kod w edytorze, i użyć komendy  by zamienić go w kod. Użyj kombinacji Ctrl+`, by dodać fragment kodu bez oznaczników języka.

Tabelki

Dodaj przykładową tabelkę używając komendy . Przykładowa tabelka składa się z dwóch kolumn, nagłówka i jednego wiersza.

Wygeneruj tabelkę na podstawie szablonu. Oddziel komórki separatorem ; lub |, a następnie zaznacz szablonu.

nazwisko;dziedzina;odkrycie
Pitagoras;mathematics;Pythagorean Theorem
Albert Einstein;physics;General Relativity
Marie Curie, Pierre Curie;chemistry;Radium, Polonium

Użyj komendy by zamienić zaznaczony szablon na tabelkę Markdown.

Lista uporządkowana i nieuporządkowana

Możliwe jest tworzenie listy numerowanych oraz wypunktowanych. Wystarczy, że pierwszym znakiem linii będzie * lub - dla listy nieuporządkowanej oraz 1. dla listy uporządkowanej.

Użyj komendy by dodać listę uporządkowaną.

1. Lista numerowana
2. Lista numerowana

Użyj komendy by dodać listę nieuporządkowaną.

* Lista wypunktowana
* Lista wypunktowana
** Lista wypunktowana (drugi poziom)

Składnia Markdown

Edytor obsługuje składnię Markdown, która składa się ze znaków specjalnych. Dostępne komendy, jak formatowanie , dodanie tabelki lub fragmentu kodu są w pewnym sensie świadome otaczającej jej składni, i postarają się unikać uszkodzenia jej.

Dla przykładu, używając tylko dostępnych komend, nie możemy dodać formatowania pogrubienia do kodu wielolinijkowego, albo dodać listy do tabelki - mogłoby to doprowadzić do uszkodzenia składni.

W pewnych odosobnionych przypadkach brak nowej linii przed elementami markdown również mógłby uszkodzić składnie, dlatego edytor dodaje brakujące nowe linie. Dla przykładu, dodanie formatowania pochylenia zaraz po tabelce, mogłoby zostać błędne zinterpretowane, więc edytor doda oddzielającą nową linię pomiędzy tabelką, a pochyleniem.

Skróty klawiszowe

Skróty formatujące, kiedy w edytorze znajduje się pojedynczy kursor, wstawiają sformatowany tekst przykładowy. Jeśli w edytorze znajduje się zaznaczenie (słowo, linijka, paragraf), wtedy zaznaczenie zostaje sformatowane.

  • Ctrl+B - dodaj pogrubienie lub pogrub zaznaczenie
  • Ctrl+I - dodaj pochylenie lub pochyl zaznaczenie
  • Ctrl+U - dodaj podkreślenie lub podkreśl zaznaczenie
  • Ctrl+S - dodaj przekreślenie lub przekreśl zaznaczenie

Notacja Klawiszy

  • Alt+K - dodaj notację klawiszy

Fragment kodu bez oznacznika

  • Alt+C - dodaj pusty fragment kodu

Skróty operujące na kodzie i linijkach:

  • Alt+L - zaznaczenie całej linii
  • Alt+, Alt+ - przeniesienie linijki w której znajduje się kursor w górę/dół.
  • Tab/⌘+] - dodaj wcięcie (wcięcie w prawo)
  • Shit+Tab/⌘+[ - usunięcie wcięcia (wycięcie w lewo)

Dodawanie postów:

  • Ctrl+Enter - dodaj post
  • ⌘+Enter - dodaj post (MacOS)