Q&A

  • 파일공유를 하고 싶은데;;
WNetAddConnection2 를 써서 서버쪽에 디렉토리나 파일을 넣을려고 합니다.

procedure TIMG01_01A000.Button4Click(Sender: TObject);
var
wResult : Word;
pcRemotePath, pcUserID, pcPassword : PChar;
NetResource :  _NETRESOURCE;
rc : integer;
begin

  NetResource.dwType := RESOURCETYPE_DISK;
  NetResource.lpLocalName := nil;
  NetResource.lpRemoteName := PChar('\\파일서버ip\LOCALTAX$');
  NetResource.lpProvider := nil;
  rc := WNetAddConnection2(NetResource, Pchar('sky'), Pchar('administrator'), CONNECT_REDIRECT);

  CreateDirectory(Pchar('\\파일서버ip\LOCALTAX$\aaa'),nil);

end;

요렇게 했는데.. 디렉토리가 생성이 안되더군요;;
로그인만 하면 되긴하는데. 로그인이 안되는 듯합니다;;

제컴은 xp 이고 서버는 윈도우2000서버 구요..

아시는 분은 답변을 달아주시면 감사하겠습니다.
그럼..꾸벅..
3  COMMENTS
  • Profile
    최용일 2007.12.13 03:01
    음... 함수호출후에 에러코드를 확인해서 어떠한 이유로 접근이 안되는가 보세요...

    <!--CodeS-->
    var
      NetRes: TNetResource;
      ErrorCode: LongWord;
    begin
      FillChar(NetRes, SizeOf(NetRes), 0);
      NetRes.dwType := RESOURCETYPE_DISK;
      NetRes.lpRemoteName := PChar('\\192.168.10.60\Shared');
      ErrorCode := WNetAddConnection3(Handle, NetRes, 'password', 'userid', 0);
      if ErrorCode <> NO_ERROR then
        ShowMessage(SysErrorMessage(GetLastError));
      CopyFile('c:\test.zip', PChar('\\192.168.10.60\Shared\test.zip'), False);
    end;
    <!--CodeE-->

  • Profile
    한상진 2007.12.13 18:10
    답변 감사드려요;ㅎㅎ
    해보니까 에러코드가 1326 이 뜨는데 머가 문제일까요?
    사용자는 administrator 패스워드도 맞는데;;



  • Profile
    최용일 2007.12.13 19:03
    0000052E (1326) 로그온 실패: 알 수 없는 사용자 이름이거나 암호가 틀립니다

    아이디나 암호가 잘못되었다는데요...

    정안되면 아이디에 ip주소까지 같이 적어보세요...

    id: administrator
    ==>파일서버ip\administrator