关于socket的问题

2002-08-18 02:24:27 69 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

FPGA实现高效数字下变频：CORDIC与CIC滤波器的Verilog优化设计本文深入探讨了FPGA实现高效数字下变频的技术方案，重点介绍了CORDIC算法与CIC滤波器的Verilog优化设计。通过详细的算法原理分析、FPGA实现技巧和实战经验分享，展示了如何利用CORDIC的旋转运算替代乘法操作，以及CIC滤波器在降采样中的高效性能。文章还提供了完整的系统集成方案和资源优化策略，为无线通信和雷达信号处理领域的工程师提供了实用参考。阅读详情

在客户端建立一个socket并bind之后，启动一个线程函数，在线程之内调用recv函数，如果服务器没有发送数据，此时这个线程会进入阻塞状态，我的问题是此时还可不可以针对这个socket调用send方法？（在java中，可以对一个socket调用getInputStream和getOutputStream获取输入流和输出流，对这两个流的操作互不影响。但在delphi中，针对一个socket创建了两个TWinSocketStream，当一个流进入阻塞状态时，令一个流似乎也不再可用，请问有无解决办法？因为我想在接收数据的同时仍然向服务器发送数据）
谢谢

...全文

相衬成像介绍相衬成像介绍阅读详情

bjhua

VC/MFC 16,550 成员 421,606 内容

+ 关注 + 加入社区

切换为时间正序

cqjiang 2002-08-19

打赏
举报

可以，因为发送和接受缓冲是分开的，而且你可以重新设置缓冲大小。

bjhua 2002-08-19

打赏
举报

非常感谢蒋天书。那么我现在是否可以确认其实socket在同一时间内其实是单向的。也就是说，如果它在读数据（即正在调用recv），那么在读数据的操作完成之前，就不能再调用写数据的方法(send)?

cqjiang 2002-08-19

打赏
举报

http://idoor.xiloo.com 有篇文章，《TCP/IP Winsock编程要点》里面讲了同时收发方法。

yxh_yzh 2002-08-19

打赏
举报

当然不可以了。不过可以在非阻塞状态

bjhua 2002-08-19

打赏
举报

这个问题已经找到答案。winsock的send和recv是双向的，但delphi中确实有上述问题，可能是delphi的控件有一些问题。

bjhua 2002-08-19

打赏
举报

似乎不行啊（但在java里面确实是可以），如果你懂delphi，可以看看下面的代码。如果你有别的例子，发给我也行。

我写了下面的程序，但如果n := s_in.Read(buf[1],bufferSize);正在等待数据，那么
procedure TWorker.sendToServer(msg: String);
begin
msg := msg+ EOL;
s_out.Write(msg[1],Length(msg));
end;
就会也进入等待状态，这是为什么？

unit ClientUnit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, ConstUnit;

type
TWorker = class;
TForm2 = class(TForm)
mMsg: TMemo;
Edit1: TEdit;
btnSend: TButton;
procedure btnSendClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
worker:TWorker;
public
{ Public declarations }
procedure printMessage(msg:string);
end;

TWorker = class(TThread)
private
OutSocket,ClientSocket: TClientSocket;
socket:TCustomWinSocket;
s_in : TWinSocketStream;
s_out:TWinSocketStream;
public
procedure sendToServer(msg:String);
procedure Execute;override;
procedure Test;
constructor Create(createSuspended:boolean);
destructor Destroy;override;
end;
var
Form2: TForm2;

implementation

{$R *.dfm}

{ TWorker }

constructor TWorker.Create(createSuspended: boolean);
begin
ClientSocket := TClientSocket.Create(nil);
ClientSocket.Address := '10.8.6.70';
ClientSocket.Port := 8000;
ClientSocket.ClientType := ctBlocking;
ClientSocket.Active := true;
{
OutSocket := TClientSocket.Create(nil);
outSocket.Address := '10.8.6.70';
OutSocket.Port := 8000;
OutSocket.ClientType := ctBlocking;
OutSocket.Active := true;
}
socket := ClientSocket.socket;
self.FreeOnTerminate := true;
s_in := TWinSocketStream.Create(socket,60000);
s_out := TWinSocketStream.Create(socket,60000);
inherited Create(createSuspended);
end;

destructor TWorker.Destroy;
begin
s_in.Free;
s_out.Free;
ClientSocket.Close;
ClientSocket.Free;
//OutSocket.Close;
//OutSocket.Free;
end;

procedure TWorker.Execute;
var
buf,msg:string;
n:integer;
begin
//inherited;
//Form2.PrintMessage('Start Listening from server');
sendToServer('I have connected to u');
while socket.Connected do
begin
msg := '';
repeat
buf := '';
SetLength(buf,bufferSize);
n := s_in.Read(buf[1],bufferSize);
form2.printMessage('read bytes='+IntToStr(n));
if n = 0 then break;
SetLength(buf,n);
//form2.printMessage('+++++++++++++buf is '+buf);
msg := msg + buf;
until(Pos(EOL,buf)>0);

if msg <> '' then form2.printMessage('=========='+msg);
form2.printMessage('.........IDLE');
self.sendToServer('test');
//sleep(1300);
end;
end;

procedure TWorker.sendToServer(msg: String);
begin
msg := msg+ EOL;
s_out.Write(msg[1],Length(msg));
end;

procedure TWorker.Test;
begin
form2.printMessage('TWorker::Test');
end;

{ TForm2 }

procedure TForm2.printMessage(msg: string);
begin
mMsg.Lines.Add(msg);
end;

procedure TForm2.btnSendClick(Sender: TObject);
begin
worker.sendToServer(Edit1.Text);
//worker.Test;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
test:string;
begin
worker := TWorker.Create(False);
//worker.sendToServer(test);
//worker.Resume;
end;

end.

wjl_2001 2002-08-18

打赏
举报

99263 2002-08-18

打赏
举报

阻塞与非阻塞到底谁的效率高呢？

bjhua 2002-08-18

打赏
举报

非阻塞的编程模型是一种低效的办法，因为为了能够及时读取和发送数据，要不断的对缓冲区进行扫描，与其如此，还不如在一个线程中采用阻塞模式。再说，非阻塞的编程模型在某种意义上来说是不得已的情况下所采用的一种变通方式。

99263 2002-08-18

打赏
举报

你采用非阻塞的方式不就可以了，就你现在所说的情况，我认为是可以发送的。

关于socket的问题

相关推荐