一个关于服务器端接收数据的问题 ( 积分: 100 )

P

popoaleck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-08

• #1

使用Indy的IdTcpServer控件,监听一个TCP端口,当客户端发送数据过来时接收该数据.客户端以字节流的方式发送数据.请帮我看看接受程序哪里有问题.现在只要执行到Read那里就会出错.

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
stream: TStream;
str1, str2: array [0..15] of char;
begin
try
if AThread.Connection.Connected then
begin
stream := TStream.Create;
Athread.Connection.ReadStream(stream);
FillChar(str1, 16, 0);
if stream.Read(str1, 16) > 0 then
memo1.Lines.Append('client send:' + str1);
end;
except
end;
end;

 

P

popoaleck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-09

• #2

咋没人回呀? 自己顶一下

 

M

muhx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-09

• #3

try
if AThread.Connection.Connected then
begin
stream := TMemoryStream.Create;
try
Athread.Connection.ReadStream(stream);
FillChar(str1, 16, 0);
if stream.Read(str1, 16) > 0 then
memo1.Lines.Append('client send:' + str1);
end;
finally
stream.Free;
except
end;

 

P

popoaleck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-09

• #4

不行,执行到ReadStream时报出"TStream.Seek not implemented"错误. 而且读不出来

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-09

• #5

读的方法我没试:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
stream: TStream;
str1, str2: array [0..15] of char;
begin
try
if AThread.Connection.Connected then
begin
stream := TMemoryStream.Create; //TStream是虚类,必须用它的子类
try
Athread.Connection.ReadStream(stream);
FillChar(str1, 16, 0);
if stream.Read(str1, 16) > 0 then
memo1.Lines.Append('client send:' + str1);
finally
stream.Free;
end;
end;
except
end;
end;

 

P

popoaleck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-09

• #6

应该用哪个子类呢? TStringStream, TMemoryStream还是TWinSocketStream?

 

P

popoaleck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-09

• #7

我在服务端用ReadChar能读出数据,但是用ReadBuffer或ReadStream就不行,读就没有响应了.是否要单实现一个线程来进行读取呢?

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-12

• #8

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
stream: TStream;
str1, str2: array [0..15] of char;
begin
try
if AThread.Connection.Connected then
begin
stream := TMemoryStream.Create; //TStream是虚类,必须用它的子类
try
Athread.Connection.ReadStream(stream);
FillChar(str1, 16, 0);
if stream.write(str1, 16) > 0 then //Write把？
memo1.Lines.Append('client send:' + str1);
finally
stream.Free;
end;
end;
except
end;
end;

 

小

小陵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-12

• #9

TStream是虚类，不能够实例化
只能用其子类实例化