请问一个有关Socket的SendStream函数的问题

[haoel]

我的程序如下：

var
fStream : TFileStream;
begin
if (FileExists(FileName)) then
begin
fStream:=TFileStream.Create(FileName,fmOpenRead);
fStream.Position:=0;

Socket.SendStreamThenDrop(fStream);
end;
end;

这是我Server端的一然程序，我的客户端可以完整接收所有的文件内容。
但我的Server端要报一个错：External exception C000001D

通过调试，我发现，是Socket.SendStreamThenDrop(fStream);语句的问题。不知道我错在哪里了。
还请大家告诉我。

[xzisgood]

var
fStream : TFileStream;
begin
if (FileExists(FileName)) then
begin
fStream:=TFileStream.Create(FileName,fmOpenRead);
fStream.Position:=0;

Socket.SendStream(fStream);//这样可以么
end;
end;

• 打赏
• 举报

回复 赞

[haoel]

还是一样的错误!

• 打赏
• 举报

回复 赞

[BaldZhang]

把源代码编译进去，跟踪一下不就得了。。。

• 打赏
• 举报

回复 赞

[dragoncircle]

改用socket.connection[0].sendstream(fstream)；试试

• 打赏
• 举报

回复 赞

[LaoZheng]

服务端有多个Socket.是不是用错了Socket?

• 打赏
• 举报

回复 赞

[haoel]

不行啊。

对了，我的程序的思路是这样的。
由客户端请求发送文件——客户端发一个'$file$'的字串给服务器。
我在我服务器端的OnClientRead事件中写的这个程序。
我不知道那个出错代吗是什么意思？怎么改正。

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
fStream : TFileStream;
begin
......
......
if (FileExists(FileName)) then
begin
fStream:=TFileStream.Create(FileName,fmOpenRead);
fStream.Position:=0;

Socket.SendStreamThenDrop(fStream);
end;
end;

• 打赏
• 举报

回复 赞

[haoel]

请大家再给我一点提示，好不好。

• 打赏
• 举报

回复 赞