如果能,怎么做?
解决方案 »
- VCLZip解压的问题
- 求教format或formatfloat使用问题,怎样将ADOQuery1.FieldByName('总金额').AsFloat))进行格式化输出
- 请教ERP中的库存控制方法!
- 请帮我看看这段代码有什么错误?
- 如何把dbgrid的某列分成若干小列。示意图如下。谢谢!
- 一个查询记录的问题。高手看看!
- 有人说:“软件开发就是制造问题,然后解决问题”,大家谈谈看法!
- 用sqlserver做后台,可以在程序中实现备分和恢复吗,如何实现
- 怎么删除TList中的重复内容?
- 查找一个贴子:关于讨论10000的阶乘的贴子,谁能告诉我这个贴子的URL?
- 求DevExpressV39
- 用idtcpclient 实现用户登录日志
{
IdHttp1 : TIdHTTP
Memo1 : TMemo
Button1 : TButton
}
procedure TForm1.Button1Click(Sender: TObject);
var
Rsps: TStringStream;
SS: TStringList;
begin
SS := TStringList.Create;
Rsps := TStringStream.Create('');
Self.IdHTTP1.Post('http://localhost/SetCookie.php', SS, Rsps);
Memo1.Lines.Assign(Self.IdHTTP1.Response.RawHeaders);
SS.Free;
Rsps.Free;
end;
在我这里测试返回的Header内容是:(注意红色部分)Date: Sun, 14 Dec 2008 09:59:47 GMT
Server: Apache/2.2.3 (APMServ) mod_ssl/2.2.3 OpenSSL/0.9.8d PHP/5.2.0
X-Powered-By: PHP/5.2.0
Set-Cookie: MyCookie=The+Cookie+Value%A3%AC1229248787
Content-Length: 23
Keep-Alive: timeout=5, max=100
Connection: Keep-Alive
Content-Type: text/html附: *.php
//SetCookie.php
<?PHP
setcookie("MyCookie","The Cookie Value,".Time());
echo "MyCookie 已写入客户端,".$_COOKIE["MyCookie"];
?>//ReadCookie.php
<?PHP
echo "从客户端读出的MyCookie值:".$_COOKIE["MyCookie"];
?>