在3层系统中,我要传一个很大的字符串(widestring)(不传流)给服务端,可行吗,数据会丢失吗?
如传送XMLDocument1.XML.text!!
如传送XMLDocument1.XML.text!!
解决方案 »
- 如何提取股票每天的分笔成交数据
- 为什么ImageEnVect存图这么慢?估计这道问题还得沉底!!
- 谁有devpress DBtree for D6
- 如何由字符串得到它的每个字节信息,并对字节进行位操作,得到每个字节的高4位和低4位
- access数据库怎样备份?
- 三层架构中Client与ApplicationServer互相通讯的问题,特别邀请:chechy(我爱洁洁)
- 烦人的代码转换问题???
- 窗体上控件的焦点发生改变时的消息是什么?控件获得焦点是的消息是什么?
- 如何在安装程序中添加 ADO?
- Tcriticalsection?
- Active Form在网页里边刷新页面就出错!
- TreeView 节点重复增加,代码我已贴出(高分送出)
Erice(白雪公猪):可以给个代码看看吗,即把widestring变成OLEVARIANT类型
你们可以给个代码看看吗,即把widestring变成OLEVARIANT类型,到了服务端然后在转化为widestring
v:olevariant;
s:string;
i:integer;
begin
s:=memo1.Lines.Text;
i:=length(s);
showmessage(s[1]);
v:=VarArrayCreate([0,i],varByte);
for i :=1 to length(s)-1 do
v[i-1]:=ord(s[i]);
end;
v:olevariant;
s:string;
i:integer;
begin
s:=memo1.Lines.Text;
i:=length(s);
v:=VarArrayCreate([0,i-1],varByte);
for i :=1 to length(s) do
v[i-1]:=ord(s[i]);
end;
怎样把olevariant变成string呢?
var
v:olevariant;
s:string;
i,j:integer;
begin
//---------------------------
// string--->variant
//---------------------------
s:=memo1.Lines.Text;
i:=length(s);
v:=VarArrayCreate([0,i-1],varByte);
for i :=1 to length(s) do
v[i-1]:=ord(s[i]);//--------------------------
// variant--->string
//--------------------------
j:=VarArrayHighBound(v,1);
setlength(s,j+1);
for i :=0 to J do
byte(s[i+1]):=byte(v[i]);
memo1.Lines.Add('-----------------add new line:------------------------------');
memo1.Lines.Add(s);end;
var
b: WideString;
begin
b:=Memo1.Text ;
a:=b;
end;procedure TForm1.Button2Click(Sender: TObject);
var
c: WideString;
begin
c:=a;
Memo2.Text:=c;
end;