高考问答海贼王弹硬币的人:winsock API编程（delphi）中send函数出现的问题
来源：百度文库 编辑：高考问答 时间：2024/04/29 10:08:42
procedure XXXXX;
var
buf:array [1..128] of byte;
pbuf:pbyte;
retlen:integer;
rettemp:integer;
begin
pbuf:=@buf[1];
retlen:=edit1.GetTextBuf(pchar(pbuf),128);
rettemp:=send(sclient,pbuf,retlen,0);//!
messagebox(0,pchar(format('%d chars sent',[rettemp])),'',mb_ok);
end;
说明：1：edit1是edit控件。
2：在send函数前后，pbuf指向的内容均正确
3：retlen和rettemp两个返回数值均正确
4：sclient已连接服务器（这条其实是多余的，不连接也一样的结果，只不过rettemp会=-1）
我的错误：
send内容（我用另外的可靠软件检查的）和pbuf指向的内容完全不符。
请指正
var
buf:array [1..128] of byte;
pbuf:pbyte;
retlen:integer;
rettemp:integer;
begin
pbuf:=@buf[1];
retlen:=edit1.GetTextBuf(pchar(pbuf),128);
rettemp:=send(sclient,pbuf,retlen,0);//!
messagebox(0,pchar(format('%d chars sent',[rettemp])),'',mb_ok);
end;
说明：1：edit1是edit控件。
2：在send函数前后，pbuf指向的内容均正确
3：retlen和rettemp两个返回数值均正确
4：sclient已连接服务器（这条其实是多余的，不连接也一样的结果，只不过rettemp会=-1）
我的错误：
send内容（我用另外的可靠软件检查的）和pbuf指向的内容完全不符。
请指正