发送
var
buf:array of byte;
len:integer;
data:string;
beign
len:=length(edit1.text);
setlength(buf,len);
copymemory(@buf[0],@data[1],len);
send(s,buf,length(buf));
...
end;
var
buf:array of byte;
len:integer;
data:string;
beign
len:=length(edit1.text);
setlength(buf,len);
copymemory(@buf[0],@data[1],len);
send(s,buf,length(buf));
...
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货