Delphi中TServerSocket和TClientSocket通信，流或二进制的发送与接收问题
本帖最后由 changpingcao 于 2013-01-29 20:05:40 编辑 我目前的做法不知道对不对，大家看看：

客户端发送消息：
procedure Tfrm_SocketClient.btn_SendDataClick(Sender: TObject);
var
buff: array of byte;
str: string;
ph: PChar;
begin
str:= mem_SendData.Text;//文本框的信息
SetLength(buff, Length(str)+1);
ph:= PChar(str);
CopyMemory(buff,ph,Length(str)+1);

clntsckt1.Socket.SendBuf(buff, length(buff));
mem_SendData.Clear;
end;


服务器接收：
var

iLength: Integer;
iReceived: Integer;
buff: array of byte;
showstr:string;
begin
iLength:= Socket.ReceiveLength;
while iLength>0 do
begin
SetLength(buff, iLength);
iReceived := Socket.ReceiveBuf(buff[0], iLength);
iLength := iLength - iReceived;
msgList.Lines.Add(IntToStr(iReceived));
end;


我不知道这样做对不对，我服务器接收后不知道怎么再转化为string，请指导！

如果我的做法不对，那么麻烦给个新的方式！
希望能贴出实际代码，刚接触这个，说理论我怕无法理解，非常感谢！

总之我需要做的就是客户端发送流或者二进制到服务器 ，然后服务器接收这样子的一个功能！！！ delphi tserversocket tclientsocket tcp 通信
[解决办法]
SetLength(str, Size);

copymemory(@str[1], @src, size)
[解决办法]
这玩意要看Delphi的版本的，分界线是D2009。估计你是在D2009及以上的版本中编辑的吧
[解决办法]
客户端发送：
procedure Tfrm_SocketClient.btn_SendDataClick(Sender: TObject);
var
str: string;
begin
str:= mem_SendData.Text;
clntsckt1.Socket.SendBuf(str[1],Length(str));
mem_SendData.Clear;
end;


服务器接收：
var
iLength: Integer;
readstr:string;
begin
iLength:= Socket.ReceiveLength;
SetLength(readstr,iLength);
Socket.ReceiveBuf(readstr[1],iLength);
msgList.Lines.Add(readstr);
end;