Hej. Nie wiem co jest nie tak. Fire Wall oraz Anty Wirus wyłączyłem testowo. Pod Fire Fox tę samą stronę otwiera mi ok. Kod z przykład w Google w PHP też działa mi ok, pobranie strony z tym samym adresem po HTTP w nagłówkach daje kod 301 z przekierowaniem na adres po HTTPS. W katalogu są odpowiednie pliki dll, do sekcji uses dodane są moduły ssl_openssl
oraz ssl_openssl_lib
. A mimo to dostaje kod błędu 500 no i brak zwróconej zawartości strony. Inna strona na przykład https://google.com pobiera się mi prawidłowo.
Nie umiem dojść przyczyny. Ustawianie AddPortNumberToHost
na False czy też True - również nic nie daje. Prosił bym o nakierowanie co może być nie tak. Czy to kwestia indywidualna na komputerze? To samo dzieje się z videopenny. A wcześniej akurat ze stroną vod.tvp.pl nie miałem takim kodem problemów.
A jak może niektórzy tutaj wiedzą u mnie od dawna trwa ciągle życie w biegu, przeplatane sportem, jeśli już coś klepię to rzadko i raczej w PHP. Także nie daję rady ogarnąć. I odbijam się od ściany niemocy przy Synpase, gdzie nie umiem znaleźć przyczyny niedziałania kodu poniżej i błędu 500 akurat dla tego adresu.
Dodam też, że oczywiście nie dodawanie niczego ekstra do nagłówków nic nie zmienia i dalej nie działa. W Memo2 nie ma nadal nic. Z góry dziękuję za wszelkie podpowiedzi.
var
HTTP : THTTPSend;
begin
HTTP := THTTPSend.Create;
try
HTTP.Clear;
HTTP.Protocol := '1.1';
HTTP.KeepAlive := True;
HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:63.0) Gecko/20100101 Firefox/63.0';
HTTP.Headers.Insert(0, 'Upgrade-Insecure-Requests: 1');
HTTP.Headers.Insert(0, 'Accept-Language: pl,en-US;q=0.7,en;q=0.3');
HTTP.HTTPMethod('GET', 'https://vod.tvp.pl/video/barwy-szczescia,odc-1943,39659687');
Memo1.Lines.Assign(HTTP.Headers);
Memo2.Lines.LoadFromStream(HTTP.Document);
finally
HTTP.Free;
end;