问个socket的简单的通讯的问题,请大家指点一二,socket编程我不太熟悉
用TClientSocket和TServerSocket简单做了个程序,怎么客户端再发送第二个字符串后得不到服务端发送的信息呢?
在客户端中tempStr1 是空,我想得到的是 'filenameok',请大家指点下
客户端部分代码如下:
Socket.SendText('uplodpic');
tempStr:= Socket.ReceiveText;
if tempStr='uploadok' then //开始传输
begin
ClientSocket1.Socket.SendText('filename');
tempStr1:= ClientSocket1.Socket.ReceiveText;
.....
end
服务端部分代码如下:
tempStr:= Socket.ReceiveText;
if tempStr='uplodpic' then
begin
Socket.SendText('uploadok');
fileName:= Socket.ReceiveText;
if fileName<>'' then
begin
Socket.SendText('filenameok');
end;
end