文件建立出错 在线等待

[zhangzh4072]

fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate);

运行到这里时,提示不能建立文件
为什么阿?
怎么解决

[dongxsoft]

该文件是否已存在

[zhangzh4072]

我是用socket编了一个文件传输程序

服务器启动后

客户端连接

后发送文件

可服务器按了保存后
提示不能建立文件

[zhangzh4072]

： dongxsoft(浮云化雨) (
没有此文件阿

[爱编程的老五]

处理方法:
查找一下是否已存在此文件,若已存在则先删除掉.然后再进行文件保存.

[zhangzh4072]

我把程序发给你, 你帮我调试好不好

[cbdiy]

fmCreate 改成 fmCreate or fmShareExclusive

[zhangzh4072]

客户端

procedure TForm1.Button1Click(Sender: TObject);
begin
cs.Address:=edit1.Text;
cs.Port:=2000;
cs.Active:=true;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Begin
cs.Socket.SendText(MP_QUERY+OpenDialog1.FileName);//FileSize???
end;

end;

procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
var
sTemp,srecv,MP_FILEPROPERTY:string;
bufSend:pointer;
fssend:tfilestream;
iBYTEPERSEND:integer;
begin
mp_fileproperty:= '发送开始:';
iBYTEPERSEND:=2048;
sRecv:=Socket.ReceiveText;
Case sRecv[1] of
MP_REFUSE:
ShowMessage('Faint,be refused!');
MP_ACCEPT:
begin
fsSend:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
//iBYTEPERSEND是个常量，每次发送包的大小。

Socket.SendText(MP_FILEPROPERTY+inttostr(Trunc(fsSend.Size/iBYTEPERSEND)+1));
end;
MP_NEXTWILLBEDATA:
begin
Socket.SendText(MP_NEXTWILLBEDATA);
end;
MP_DATA:
begin
try
GetMem(bufSend,iBYTEPERSEND+1);
if (fsSend.Position+1+iBYTEPERSEND) < fsSend.Size then
begin
fsSend.Read(bufSend^,iBYTEPERSEND);
Socket.SendBuf(bufSend^,iBYTEPERSEND);
fsSend.Free;
end//普通的发送，大小为iBYTEPERSEND
else
begin
fsSend.Read(bufSend^,fsSend.Size-fsSend.Position-1);
Socket.SendBuf(bufSend^,fsSend.Size-fsSend.Position-1);
end;//最后一次发送，发送剩余的数据
finally
FreeMem(bufSend,iBYTEPERSEND+1);
end;{of try}
end;
MP_ABORT:
begin
//被取消了:(
fsSend.Free;
end;
end;{of case}
//用Delphi编写点对点传文件程序(2)
end;




服务器端:
procedure TForm1.Button1Click(Sender: TObject);
begin
ss.Port:=2000;
ss.Open;
end;

procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
stemp:string;
bufrecv:pointer;
irecvlength:integer;
fsrecv:tfilestream;

begin
breadtext:=true;
if breadtext then
// if 1=1 then
begin
sTemp:=Socket.ReceiveText;
case sTemp[1] of
MP_QUERY:
begin
//在这里拒绝
SaveDialog1.FileName:=Copy(sTemp,2,Length(STemp)-1);
if SaveDialog1.Execute then
begin
Socket.SendText(MP_ACCEPT);
MessageBox( Handle, '建立前。', '提示信息',
MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 );

fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate);
MessageBox( Handle, '建立后。', '提示信息',
MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 );


end
else
Socket.SendText(MP_REFUSE+'去死');
end;
// MP_FILEPROPERTY:
// begin
//要发送StrToInt(Copy(sTemp,2,Length(sTemp))) 次
//时间进度显示。。。
// Socket.SendText(MP_NEXTWILLBEDATA);
// end;
MP_NEXTWILLBEDATA:
begin
Socket.SendText(MP_DATA);
bReadText:=false;
end;
// MP_END:
// begin
// fsRecv.Free
// bReadText:=true;
// end;
MP_ABORT:
begin
fsRecv.Free;
bReadText:=true;
end;
MP_CHAT:
begin
//Chat Msg
end;
end;{of case}
end
else
begin
try
GetMem(bufRecv,2000);//2000 must >iBYTESEND
Socket.ReceiveBuf(bufRecv^,iRecvLength);
fsRecv.WriteBuffer(bufRecv^,iRecvLength);
finally
FreeMem(bufRecv,2000);
end;{of try}
bReadText:=true;
Socket.SendText(MP_NEXTWILLBEDATA);
end;



end;

[ppbaobei123]

看看客户端有没有在服务器端进行写操作的权限

[爱编程的老五]

我们调试是没有问题的.
你也可以采用以下方法,从FileStream中读出串来自己写入文件中,通过文件IO来实现.

[dongxsoft]

是不是你没有该客户端的存取权限呀

[zhangzh4072]

怎么设置权限
我的服务端在windows2000server
客户端在win98

程序里怎么设置权限

[zhangzh4072]

大家帮帮我啊, 我都调试很久了

[爱编程的老五]

你能通过网络从服务器端操作客户端吗?比如在客户端的什么目录下建立一个文件试试.如果不行则表示没有写的权限.在程序里设置权限比较烦,建议人工设置.

[ppbaobei123]

你先在你要保存的目录下建立1.txt文件，再把
fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmOpenRead);
就是改成只读的形式，如果可以的话，哪就是权限的问题了，

[zhangzh4072]

对了,可能是权限问题
但是 我传过来过后
文件无法打开

[dongxsoft]

看一下文件的类型

[zhangzh4072]

我把程序都贴在上面
帮我调试把
问题究竟在哪儿
文件没有传到客户端

[zhangzh4072]

客户端的文件长度为0字节

[zhxfzhxf1]

1。文件长度大于1M时，可能出错
2。权限问题
3。是否创建的文件的上级目录不存在，如果是，则逐层创建目录后再创建文件

[dongxsoft]

'客户端的文件长度为0字节'
说明文件没有内容或传输不成功；
先保存在本地计算机，看看文件大小，没问题后再测试传输