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 := THTTPSend.Create;
l := TStringList.create;
try
if not HTTP.HTTPMethod('GET', 'https://www.kaspersky.com') then
begin
sock:=Http.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 écrit :
>> Yes i have rename all .so files but the problem still appears
>>
>>> You have not correct filenames of your openssl binaries. Names must be
>>> without version numbers. Lot of systems have symbolic links with these
>>> 'non-version' filenames. But some not (like Suse) and you must create
>>> these symbolic links by yourself.
>>>
>
> 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.
> 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,
> sock.ssl.lasterror, etc.
> --
> Lukas Gebauer.
>
> E-mail: [EMAIL PROTECTED]
> WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP
> 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=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> synalist-public mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/synalist-public
>
>
--
David Touzeau -------------------------- Linux Ubuntu Dapper 6.0.6
FreePascal-Lazarus,perl,delphi,php icq:160018849
-------------------------------------------------------------------------
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=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
