Q&A

  • 네트워크 드라이브 연결해 CopyFile로 2003서버에 파일전송하기???
안녕하세요...
질문대로 네트워크 드라이브를 연결해서 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;
0  COMMENTS