clientsocket 阻塞到底怎么接收和发送数据！

[zahlink]

是用线程吗？给个简单的例子吧

[vargent77]

不需要线程。
发送可以用ClientSocket1.Socket.SendText(发的东西)
接收就是ClientSocket1.Socket.ReceiveText(接受的内容)
组赛就用ClientSocket1.Socket.clienttype:=ctBlocking;
就行了

[outer2000]

This example shows the execute method of a thread used to send requests to a server over a socket connection:

procedure TMyClientThread.Execute;

var
TheStream: TWinSocketStream;
buffer: string;
begin
{ create a TWinSocketStream for reading and writing }
TheStream := TWinSocketStream.Create(ClientSocket1.Socket, 60000);
try
{ fetch and process commands until the connection or thread is terminated }
while (not Terminated) and (ClientSocket1.Active) do
begin
try
GetNextRequest(buffer); { GetNextRequest must be a thread-safe method }

{ write the request to the server }
TheStream.Write(buffer, Length(buffer) + 1);
{ continue the communication (eg read a response from the server) }
...
except
if not(ExceptObject is EAbort) then
Synchronize(HandleThreadException); { you must write HandleThreadException }
end;
end;
finally
TheStream.Free;
end;
end;

[outer2000]

from delphi help;

[zahlink]

不行啊，现在是连在服务端上，服务端可能在任何时候发过来信息！我自己这端也是如果库里有东西就发送！如果不用线程怎么办呢！肯定要不断的查看端口有没有过来的信息吧

[outer2000]

唉；
线程里有个循环看到了没有？
一般来说这个循环总是在运行的；等SERVER的消息；或者发自己的消息；
自己看看吧

[halfdream]

呵呵。。这种用异步的非阻塞方式容易处理些。
用阻塞方式，多半得使用一个工作线程主动的读它。。

[zahlink]

TtestsendThread = class(TThread)
private
FQuery: TADoQuery; { 线程中的查询组件 }
FSocket:TClientSocket;
protected
procedure Execute;override;
public
constructor Create(CreateSuspended: Boolean); virtual; { 线程构造器 }
end;
TtestreadThread = class(TThread)
private
FSocket:TClientSocket;
protected
procedure Execute;override;
public
constructor Create(CreateSuspended: Boolean); virtual; { 线程构造器 }
end;
constructor TtestsendThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
self.FreeOnTerminate:=true;
FSocket:=TClientSocket.Create(Application);
FSocket.Host:='127.0.0.1';
FSocket.Port:=8801;
PSocket.clienttype:=ctBlocking;
FQuery:=TADOQuery.Create(Application);
Fquery.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=mybase;Data Source=zhangaihua';
end;

constructor TtestreadThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
self.FreeOnTerminate:=true;
FSocket:=TClientSocket.Create(Application);
FSocket.Host:='127.0.0.1';
FSocket.Port:=8801;
PSocket.clienttype:=ctBlocking;
end;

procedure TtestsendThread.Execute;
begin
if WaitForSingleObject(hMutex,INFINITE)=WAIT_OBJECT_0 then
begin
try
FSocket.Active:=true;
if Fsocket.Active then
begin
CoInitialize(Nil);
FQuery.SQL.Clear;
FQuery.SQL.Add('select * from cmppwait');
FQuery.Open;
if FQuery.RecordCount>0 then
begin
FSocket.Socket.SendText('好好！');
end;
end;
finally
CoUninitialize;
end;
end;
ReleaseMutex(hMutex);
end;

procedure TtestreadThread.Execute;
begin
if WaitForSingleObject(hMutex,INFINITE)=WAIT_OBJECT_0 then
begin
FSocket.Active:=true;
if Fsocket.Active then
begin
showmessage(Fsocket.Socket.ReceiveText);
end;
end;
ReleaseMutex(hMutex);
end;
这个是我写的东西！我也不知道到底该怎么写！反正是阻塞的这边写的时候那边不会发送东西的！但是我写的东西和我的服务端连不上，帮我看看吧是什么问题！