如题,最好能附上源码,谢谢大家了!
解决方案 »
- 请教使用过TVCLZip控件的大侠一个比较简单的问题。
- BDE出错
- 如何避免更新数据后重新查询?
- 程序关闭出错的问题!请各位帮我看看!
- mdichild还真难控制
- 我的文本文件(.txt)的图标不知怎么变成(.dll)的图标了,如何把它改回来???
- 高手请进!当位图的大小只有几有百字节时为什么有ExtractFileExt()函数来得到文件的扩展名时出问题??。
- 怎样把某些端口屏蔽掉??
- 向Delphi高手请教一个问题
- 我做了一个多线程数据库查询的程序,出现以下错误Insufficient memory for this operation
- 希望老鸟们都来给下完整的说法!昔日话题,用原生的ADO好还是封装好的ADO组件
- remobjects 中取得消息的服务
IdHTTP,IdSSLOpenSSL;procedure TForm1.Button1Click(Sender: TObject);
var
phttp: TIdHTTP;
pOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
pHttp := TIdHTTP.Create(Nil);
try
pOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
try
phttp.IOHandler := pOpenSSL;
ShowMessage(phttp.Get('https://forums.codegear.com/thread.jspa;jsessionid=A821C611B7FFD10F9FB78A159C949973?messageID=69070𐷎'));
finally
pOpenSSL.Free;
end;
finally
phttp.Free;
end;
end;