OleVariant的值如何正常显示在Memo中,
请问高手如何类型进行转换.
请问高手如何类型进行转换.
解决方案 »
- 散分13(鄙视wintergoes坐我板凳)
- dephi socket编程
- 怎样不显示combobox 里重复的数据
- 谁有现成的全国各个省市的数据库,可以用在combobox的items中的,excel的也可以
- ListView的HotTrack设为true之后,相应的事件是什么?如何知道点了哪个Item?
- 吐血求助,给第一个圆满回答问题的人300,虽然一次100,但我可以给三次的
- code explorer里面的输入格式是overwrite如何使它变为normal??
- 关于Button的奇怪问题
- 伴水兄,小新师傅,Kingron大哥请进!
- 请问直接弹出输入字符串的对话框的函数是甚麽?
- ADO可以连接远程的MSSQL吗?
- 呼吸新鲜空气
通过winsock.getadata()得到,就是不能正常显示,得到全是???????或其它字符组成的串
在DataArrival事件中
var
strdata:OleVariant;
begin
winnsock.getdata(strdata);
memo1.lines.add(strData);
end;
str: String;
i: Integer;
strdata:OleVariant;
begin
{...}
if VarIsArray(strdata) then
for i := 0 to Length(strdata)-1 do
str := str + Chr(StrToInt(strdata[i]));
memo1.lines.add(str);
end;
v: variant;
i: integer;
// buffer: array[0..300-1] of byte;
buffer: byte;
temp,l,j,m,n: integer;
tmpstr: string;
tmpbin: string;
t1,t2: pchar;
begin
v:=mscomm1.Input;
j:=vararraydimcount(v);
l:=vararraylowbound(v,1);
k:=vararrayhighbound(v,1);
buff[1]:=v[0];
tmpbin:=bytetohex(buff[1]);
tmpstr:=buftostr(buff[1]); d1:=d1+' '+tmpbin+tmpstr;
memo1.Text:=d1+' '+inttostr(strlen(pchar(d1)))+' '+inttostr(j)+' '+inttostr(l)+' '+inttostr(k);