如题,最好能附上源码,谢谢大家了!
解决方案 »
- 求救:Delphi与RS232串口通信的程序有谁做过?望高手指点.急!急!急!
- 请问各位在Delphi中怎样把pagecontrol上面的头(TabSheet1,TabSheet2...)去掉
- pascal中如何定义一个不确定几个子树的树阿?
- 一高兴,把以前的帖子都结了,很多没有答案的也结了!再问个问题:memo组件的背景图的问题。
- 大家来谈谈自己的工作环境吧
- 有人知道mp3的文件信息怎么读出来吗?
- bmp转化成ico
- 请问结婚的delphi程序员,老婆过生日买什么礼物好?UP有分!
- 怎样用ODBC ms text driver文本数据库?
- 寻找Qreport3.06!(马上加分!)
- 希望老鸟们都来给下完整的说法!昔日话题,用原生的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;