안녕하세요...
질문대로 네트워크 드라이브를 연결해서 COpyFile함수를 써서 2003서버에 파일을 전송하려고 합니다. 근데 이 함수가 2000쓰는 컴으로는 잘 먹는데 2003서버에는 잘 안 먹는 것 같네요... 혹시, 다른 함수 있나요?
다음이 소스입니다... 참고로 이 소소는 2000에서 2000으로는 잘 먹습니다...
2003에서 2000으로 잘 먹습니다. 그러나 2000이나 2003에서 2003으로가 문제...
네트워크 드라이브까지는 잡힙니다... 그러나 CopyFile이 안 됩니다...
좀 봐주세요...
function TForm1.TransferFile(FN: String): boolean;
var
wnetInfo : TNetResource;
bTemp : Boolean;
begin
result := true;
with wnetInfo do begin
dwType := RESOURCETYPE_ANY;
lpLocalName := PChar('Z:');
lpRemoteName := PChar('\\211.171.159.112\MPEG'); //PChar(gNetFullPath);
lpProvider := Pointer(nil);
end;
if WNetAddConnection2(wnetInfo, PChar('1111'), PChar('administrator'), 0) <> NO_ERROR then begin
result := false;
Exit;
end;
try
bTemp := CopyFile(PChar('C:\mpeg\010001\01000102.mp3'), PChar('Z:\01000102.mp3'), False);
if not bTemp then result := false;
finally
WNetCancelConnection2(PChar('Z:'), 0, true);
end;
end;