procedure TPerformSocket.PerfromFindKW(kw, SocketID: string);
var
wl: string;
SocketTo: TCustomWinSocket;
wSend: widestring;
temp: string;
i: integer;
begin
SocketTo := TCustomWinSocket.Create(StrToInt(SocketID));
wl := 'Hello'; //要传输得内容
wSend := wl; //为了能传输中文
SocketTo.SendBuf(wSend[1], Length(wl) * 2);
end;
//我想知道我共传输了多少字节得怎么弄?
var
wl: string;
SocketTo: TCustomWinSocket;
wSend: widestring;
temp: string;
i: integer;
begin
SocketTo := TCustomWinSocket.Create(StrToInt(SocketID));
wl := 'Hello'; //要传输得内容
wSend := wl; //为了能传输中文
SocketTo.SendBuf(wSend[1], Length(wl) * 2);
end;
//我想知道我共传输了多少字节得怎么弄?
解决方案 »
- Delphi官方的论坛木有?找不到,给个网址吧
- 使用hjy2:=inttohex(hjy,4);方法假设得到2个(hjy2):1A 01 和 DE 21,那能推出这2个之前的10进制相差多少吗?
- 各位前辈请教一个delphi调用vc dll问题
- delphi 中如何将汉字转化成字模 ,急用,UP有分!
- 安装程序的制作问题
- 怎么样把access的ldb文件去掉.
- 各位老大,我的光驱总是找不到,放入光盘后,总是找不到
- 晕,谁第一个解决我的问题,100分全给了。关于TStack的
- 高分啊,帮我解决画布的问题,必给分!!!
- 求购关于求购序列号
- 100分求如何用VSS搭建团队开发环境?
- 各位大虾能否提供小菜delphi 6或5的下载地址啊,我是adsl上网的
Length(wl) Length(wSend) * 2應該就是你要的啊!
一個中文也就是占用兩個 char 而已, 你用string也沒問題啊
这个不是字符串的长度么,求多少字节也可以么?
SocketTo.SendBuf(wl, length(wl));
length(wl)就是你传送的字节数
直接用length(wl)就行
这样试试