Delphi 取 Cookie 的问题，急！！高手请指教呵

2001-11-07 10:54:10 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

上传多张图片，实际只成功一张 codeigniter multi file 欢迎关注笔者，你的支持是持续更博的最大动力目录问题描述代码其他问题描述在实现多个图片上传的时候，数据库只能传一张图，orig_name显示都是同一张。然而print_r($_FILES['files']['name'][$i]); 又确确实实能打印出每张图，如下：这样表示获取文件没错啊，可是上传为什么出错？找了很久的原因，发现是因为config，for loop 中: 上传每张图都需要config $this->upload->do_upload('file') 后，$this. 阅读详情

我在 ASP 中向客户端写了如下 cookies
response.cookies("site")("aaa") = "abc"
response.cookies("site")("bbb") = "efg"
response.cookies("ccc") = "xyz"
现在用 Delphi 做 ISAPI 时只能用 Request.CookieFields.Values['ccc'] 读到"xyz", 而另外两个却不知怎么读，帮助里也没有说明。要么只能读['site']的所有值：aaa=abc&bbb=efg, 高手帮忙啊！！！

...全文

vue项目自己封装图片(只一张)上传在做某vue项目的后台管理时，本来是直接引用的element-ui组件库中的Upload上传组件，奈何，和想要的效果不一，不是出现bug（有些图片上不去）就是样式也不甚符合，于是自己封装了一个，效果图如下：只需上传一张图片，鼠标放上去可以选择放大查看或者删除重新上传组件代码：（注意一下29行的imageUpload方法引入和引用，就是api） <template> <div class="img-upload"> <div class="img_display" 阅读详情

neweb

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

neweb 2001-11-26

打赏
举报

谢谢你UP！

看来 BORLAND 也没有注意到这个问题。:(

cobi 2001-11-18

打赏
举报

帮你up

geliang 2001-11-08

打赏
举报

我用的是delphi5,肯定能用,delphi6到没试过

dongys_2000 2001-11-07

打赏
举报

关注，不错

cobi 2001-11-07

打赏
举报

一、 Cookie概述：

要求相关知识：网页服务器、ISAPI编程或JavaScrpt脚本。
Cookie(意为小甜饼)就是在客户浏览网站时网页保存在客户机
内的一些变量，由于被起了这个词不达义的名字，使人觉得深不可
测，其实Cookie很简单，可称为 Web变量，就是一种保存客户变量
的机制, 下次再次访问网页时，网页中的程序就可再次访问到上次
所保存的这些变量，当然客户可以关闭浏览器Cookie这项功能，网
页中的程序就不能访问或保存这些变量，所以利用Cookie纯属雕虫
小技，没有它照样可以；但利用Cookie，网页设计就可将方便客户，
使客户上次输入的一些内容再次把它找出来，免于录入重复的内容；

二、JavaScript脚本对Cookie变量的存取：
JavaScript是运行在客户端的脚本程序，用它可将文本输入
框的内容以Cookie变量的形式保存下来，在客户端保存Cookie可稍
微减轻Web服务器的一点负担：

1>读出Cookie:
JavaScript中可通过document.cookie访问到所有Cookie:
"变量1=值1;变量2=值2;变量3=值3;"
需经过串分解就可得到每一个变量名及值；
2>写Cookie:
email="bush@usa.com";
firstname="jorge";
lastname="bush";
expireDate="Thursday,01-Jan-2099 12:00:00 GMT";
document.cookie="email="+email+";expires="+expireDate;
document.cookie="firstname="+firstname+";expires="+expireDate;
document.cookie="lastname="+lastname+";expires="+expireDate;
下页一例，将网页的文本输入框域变量NAME自动保存下来：

<script language="JavaScript">
</script>
..................

<body bgcolor="#00FFFF" onload="getName();
form1.TEXT.focus()" onunload="newCookie()">
<!进入本网页时将执行onload中的getName()>
<!退出本网页时将执行onunload中的newCookie()>
..................

三、BCB与Delphi中用ISAPI对Cookie的存取：
[注：Delphi用 .代替BCB的->]

与JavaScript不同的是，ISAPI是运行在Web服务器端的程序，
它也可以读取与存入Cookie变量：

假设处理用户提交的方法如下：
void __fastcall TWebModule1::WebModule1Action(TObject *Sender,
TWebRequest *Request, TWebResponse *Response, bool &Handled)

1>从客户机中读取Cookie:
Request->CookieFields是个串数组TStrings *,如果不为
空，每一行都将是如下形式：
Cookie变量名=值
共有Request->CookieFields->Count个变量，
变量名为Request->CookieFields->Names[i]; (i>=0)
Reauest->CookieFields->Values["变量名"]就是对应的值;
请注意: 客户首次访问网页时，客户机中并不存在你将要设的
Cookie变量，所以第一次Request->CookieFields将是空的；

2>将Cookie变量保存客户机中：
TCookie *pNewCookie = Response->Cookies->Add();
pNewCookie->Name="变量名1";
pNewCookie->Value="值1";
pNewCookie->Expires = Now()+366; // 保存一年
就可设定Cookie变量的新值，并不改变未作修改的原有其它变量；

举一例：利用两个Cookie变量计数，并显示给用户，当向网页服务器提交
.DLL后，每刷新一次浏览器，将看到计数值将变化一次:

void __fastcall TWebModule1::WebModule1WebActionItem1Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
TStrings *cookies=Request->CookieFields;
String oldvalue1=cookies->Values["count1"]; // 取count1旧值
String oldvalue2=cookies->Values["count2"];

String newvalue1=oldvalue1.ToIntDef(0)+1; // 算新值
String newvalue2=oldvalue2.ToIntDef(0)+100;

TCookie *pNewCookie1 = Response->Cookies->Add();
pNewCookie1->Name="count1"; //更新Cookie
pNewCookie1->Value=newvalue1;
pNewCookie1->Expires = Now()+366; // 保存一年

TCookie *pNewCookie2 = Response->Cookies->Add();
pNewCookie2->Name="count2"; //更新Cookie
pNewCookie2->Value=newvalue2;
pNewCookie2->Expires = Now()+31; // 保存一月

// 向客户显示Cookie的值
String h0="<html><head></head><body>";
String h1="</body></html>";
String s1="计数值1="+newvalue1+" ";
String s2="计数值2="+newvalue2+" ";

Response->Content=h0+s1+" "+
s2+" "+ h1;

黑颈 2001-11-07

打赏
举报

关注

neweb 2001-11-07

打赏
举报

我用的 D6，上面的代码好象不管用

geliang 2001-11-07

打赏
举报

var
Params: TParamsList;
begin
Params := TParamsList.Create;
try
Params.AddParameters(Request.CookieFields);
Response.Content := '参数一'+ Params['site'];
finally
Params.Free;
end;

neweb 2001-11-07

打赏
举报

请注意我设置的 cookie 是
cookies("site")("aaa")
而不是
cookies("aaa")
如果把 "site" 的值全部读出来再分解字符串岂不是很没效率的做法，我在找直接读 cookies("site")("aaa") 的办法。

Delphi 取 Cookie 的问题，急！！高手请指教呵

相关推荐