代码拉取完成,页面将自动刷新
program Project1;
{$APPTYPE CONSOLE}
uses
Winapi.Windows,
Unit_SSL in 'Unit_SSL.pas';
Const
pSend :PAnsiChar = 'GET / HTTP/1.1' + #13#10 +
'Host: github.com' + #13#10 +
'User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko' + #13#10 +
'Accept:*/*' + #13#10#13#10;
Var
lpSSL :TSSL_Socket;
Buffer :PAnsiChar;
begin
lpSSL := TSSL_Socket.Create;
lpSSL.UseSSL := True;
lpSSL.Connect('github.com', 443);
if lpSSL.Connected then
begin
If lpSSL.Send(pSend, lstrlenA(pSend)) > 0 Then
begin
Buffer := GetMemory(1024 * 1024 * 64);
lpSSL.Recv(Buffer, 1024 * 1024 * 64);
Writeln(Buffer);
FreeMemory(Buffer);
end;
lpSSL.Disconnect;
end;
lpSSL.Free;
Readln;
end.
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。