Hi, that server cannot handle port information in host use http.AddPortNumberToHost:=false;
Brona; On 8.4.2012 0:35, Benito van der Zander wrote: > Hi, > I'm trying to download https://sourceforge.net/account/login.php, but it > doesn't work (although it used to). > Does anyone know, what's wrong with sourceforge? > Other sites (e.g. https://www.google.de, > https://www.npm.org/assets/verify.html) work fine. > > program: > > program synwget; > > {$mode objfpc}{$H+} > > uses > {$IFDEF UNIX}{$IFDEF UseCThreads} > cthreads, > {$ENDIF}{$ENDIF} > Classes, httpsend, ssl_openssl, ssl_openssl_lib > { you can add units after this }; > > var sl:TStringList; > HTTP: THTTPSend; > begin > if not IsSSLloaded then writeln(stderr, 'Not loaded'); > > > sl := TStringList.Create; > writeln('getting ', paramstr(1)); > HTTP := THTTPSend.Create; > (*didn't change anything: > http.AddPortNumberToHost:=false; > http.Protocol := '1.1'; > http.UserAgent:='Mozilla/5.0 (X11; Linux i686 on x86_64; rv:6.0) > Gecko/20100101 Firefox/6.0';*) > > HTTP.HTTPMethod('GET', paramstr(1)); > sl.LoadFromStream(http.Document); > writeln(sl.Text); > > writeln; > writeln('Headers out:'); > writeln(http.Headers.text); > sl.free; > end. > > failed sourceforge tcp stream: > > 00000000 16 03 03 01 3b 01 00 01 37 03 03 4f 80 bb 89 0a ....;... 7..O.... > 00000010 2c c3 1d 17 32 ba 71 ab ca 30 b0 b9 9c 94 5e f3 ,...2.q. .0....^. > 00000020 31 ba c8 97 a9 97 97 45 61 26 f4 00 00 9e c0 30 1......E a&.....0 > 00000030 c0 2c c0 28 c0 24 c0 14 c0 0a c0 22 c0 21 00 a3 .,.(.$.. ...".!.. > 00000040 00 9f 00 6b 00 6a 00 39 00 38 00 88 00 87 c0 32 ...k.j.9 .8.....2 > 00000050 c0 2e c0 2a c0 26 c0 0f c0 05 00 9d 00 3d 00 35 ...*.&.. .....=.5 > 00000060 00 84 c0 12 c0 08 c0 1c c0 1b 00 16 00 13 c0 0d ........ ........ > 00000070 c0 03 00 0a c0 2f c0 2b c0 27 c0 23 c0 13 c0 09 ...../.+ .'.#.... > 00000080 c0 1f c0 1e 00 a2 00 9e 00 67 00 40 00 33 00 32 ........ .g.@.3.2 > 00000090 00 9a 00 99 00 45 00 44 c0 31 c0 2d c0 29 c0 25 .....E.D .1.-.).% > 000000A0 c0 0e c0 04 00 9c 00 3c 00 2f 00 96 00 41 c0 11 .......< ./...A.. > 000000B0 c0 07 c0 0c c0 02 00 05 00 04 00 15 00 12 00 09 ........ ........ > 000000C0 00 14 00 11 00 08 00 06 00 03 00 ff 02 01 00 00 ........ ........ > 000000D0 6f 00 0b 00 04 03 00 01 02 00 0a 00 34 00 32 00 o....... ....4.2. > 000000E0 0e 00 0d 00 19 00 0b 00 0c 00 18 00 09 00 0a 00 ........ ........ > 000000F0 16 00 17 00 08 00 06 00 07 00 14 00 15 00 04 00 ........ ........ > 00000100 05 00 12 00 13 00 01 00 02 00 03 00 0f 00 10 00 ........ ........ > 00000110 11 00 23 00 00 00 0d 00 22 00 20 06 01 06 02 06 ..#..... ". ..... > 00000120 03 05 01 05 02 05 03 04 01 04 02 04 03 03 01 03 ........ ........ > 00000130 02 03 03 02 01 02 02 02 03 01 01 00 0f 00 01 01 ........ ........ > > Benito > > ------------------------------------------------------------------------------ > For Developers, A Lot Can Happen In A Second. > Boundary is the first to Know...and Tell You. > Monitor Your Applications in Ultra-Fine Resolution. Try it FREE! > http://p.sf.net/sfu/Boundary-d2dvs2 > _______________________________________________ > synalist-public mailing list > synalist-public@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/synalist-public ------------------------------------------------------------------------------ For Developers, A Lot Can Happen In A Second. Boundary is the first to Know...and Tell You. Monitor Your Applications in Ultra-Fine Resolution. Try it FREE! http://p.sf.net/sfu/Boundary-d2dvs2 _______________________________________________ synalist-public mailing list synalist-public@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/synalist-public
