Re: [Synalist] [SSL/HTTP]: Error 500 with THTTPSend in https mode
Pascal TCP/IP Library
Brought to you by:
geby
|
From: TOUZEAU D. <dav...@fr...> - 2006-11-27 22:23:10
|
I had added sock to get informations
this is the code and it answer to me
ERROR
Resultcode 500
Socket last error 0
Socket ssl last error -1
{$MODE DELPHI}
Program testssl;
uses
httpsend, classes,ssl_openssl,blcksock;
var
HTTP: THTTPSend;
l: tstringlist;
sock:TTCPBlockSocket;
begin
HTTP :=3D THTTPSend.Create;
l :=3D TStringList.create;
try
if not HTTP.HTTPMethod('GET', 'https://www.kaspersky.com') then
begin
sock:=3DHttp.sock;
writeln('ERROR');
writeln('Resultcode ',Http.Resultcode);
writeln('Socket last error ',sock.lasterror);
writeln('Socket ssl last error ',sock.ssl.lasterror);
end
else
begin
writeln(Http.Resultcode, ' ', Http.Resultstring);
writeln;
writeln(Http.headers.text);
writeln;
l.loadfromstream(Http.Document);
writeln(l.text);
end;
finally
HTTP.Free;
l.free;
end;
end.
Lukas Gebauer a =E9crit :
>> Yes i have rename all .so files but the problem still appears
>> =20
>>> You have not correct filenames of your openssl binaries. Names must b=
e=20
>>> without version numbers. Lot of systems have symbolic links with thes=
e=20
>>> 'non-version' filenames. But some not (like Suse) and you must create=
=20
>>> these symbolic links by yourself.
>>> =20
>
> I not saw 'rename', I saw 'create symbolic links'.. I am not sure, but =
> renamed libraries may not work, symbolic link are safe in this case.=20
> Anyway, hard to say exactly where you have a problem, we not know your =
> code, we not know your linux installation.
>
> Error 500 may be lot of problems, just you cannot connect to server by =
> some reason. It may be bad URL, invalid proxy settings, ...
>
> See for all other diagnostic informations... sock.lasterror,=20
> sock.ssl.lasterror, etc.
> --
> Lukas Gebauer.
>
> E-mail: geb...@ml...
> WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP=20
> Library
>
>
>
> -----------------------------------------------------------------------=
--
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share=
your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=3Djoin.php&p=3Dsourceforge&CID=3D=
DEVDEV
> _______________________________________________
> synalist-public mailing list
> syn...@li...
> https://lists.sourceforge.net/lists/listinfo/synalist-public
>
> =20
--=20
David Touzeau -------------------------- Linux Ubuntu Dapper 6.0.6=20
FreePascal-Lazarus,perl,delphi,php icq:160018849
|