W
wjp1226
Unregistered / Unconfirmed
GUEST, unregistred user!
局域网中,客户端和服务器都在域内,客户端用域用户登陆,服务器以管理员身份登陆。
我的程序想从客户端向服务器拷贝文件,并且要创建文件夹。
我用CreateDir('//server/d:/测试/20070623'); 来创建文件夹,但是并没有创建成功,用FileCopy和CopyFile拷贝文件都不行,回报i/o错误。我自己在服务器上创建好目录,直接拷贝文件也报错,请问是怎么回事啊?需要怎么改啊?
procedure FileCopy(SFileName, TFileName: string);
var
S, T: TFileStream;
begin
S := TFileStream.Create(SFileName, fmOpenRead);
try
T := TFileStream.Create(TFileName, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size);
finally
T.Free;
end;
finally
S.Free;
end;
end;
procedure CopyFile(FromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,FromFileName);//指定源文件名
AssignFile(f2,ToFileName); //指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0 Then
showmessage('文件复制错误')
Finally
CloseFile(f2); //关闭 f2
End;
Finally
// Until length(sLine)<=0;
CloseFile(f1);
End;
End;
我的程序想从客户端向服务器拷贝文件,并且要创建文件夹。
我用CreateDir('//server/d:/测试/20070623'); 来创建文件夹,但是并没有创建成功,用FileCopy和CopyFile拷贝文件都不行,回报i/o错误。我自己在服务器上创建好目录,直接拷贝文件也报错,请问是怎么回事啊?需要怎么改啊?
procedure FileCopy(SFileName, TFileName: string);
var
S, T: TFileStream;
begin
S := TFileStream.Create(SFileName, fmOpenRead);
try
T := TFileStream.Create(TFileName, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size);
finally
T.Free;
end;
finally
S.Free;
end;
end;
procedure CopyFile(FromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,FromFileName);//指定源文件名
AssignFile(f2,ToFileName); //指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0 Then
showmessage('文件复制错误')
Finally
CloseFile(f2); //关闭 f2
End;
Finally
// Until length(sLine)<=0;
CloseFile(f1);
End;
End;