혹시...

NT서버쪽에 익스체인지 깔아 놓으셨죠.......

함 확인 해보시고.....

그리고 깔아 놓으셨다면

서비스에서 FTP가 올라왔는지 함 봐보심이

좋을듯 싶군요..

그리고 그것도 않되면

지금 보니까 IP가 사설IP인듯 싶은데... 공인 IP로 바꿔보세요..

그리고 코딩상에는 문제가 없습니다..

만약 그렇게 다되어있다면 다시한번 질문에 올려놔보세요..

봐드리져.........

그럼 즐코........

답변해 주셔서 감사 합니다.
서버쪽에는 제가 공부를  더 해야 할 것 같습니다.

그래서 File Copy로 한번 해 볼려고 했습니다. 어떻습니까 아래 방법은
무모한 방법 일까요?

다음과 같이 했습니다. 테스트용으로다...

procedure TForm1.BitBtn5Click(Sender: TObject);
var dtDate,ctDate : Tdatetime;
    fh1,fh2 : integer;
    Buffer : array[1..1024] of char;
    icount : integer;
begin
   //업그레이드 되어 보관되는 서버쪽 프로그램
   dtDate := FileDateToDateTime(FileAge'V:BoardProgramab.exe'));
   //User가 사용하는  프로그램  
   ctDate := FileDateToDateTime(FileAge('C:Traffic2pasab.exe'));
   if dtdate = ctdate then begin
      showmessage('프로그램이 변경되지 않았네요.!!');
   end else
   if dtdate <> ctdate then begin
      showmessage('프로그램이 변경되었네요.!!');
      fh1 := FileOpen('V:BoardProgramab.exe', fmOpenRead);
      if fh1 <> -1 then begin
         fh2 := FileOpen('C:TempTestab.exe', fmOpenWrite);
         if fh2 <> -1 then begin
            icount := FileRead(fh1,buffer, sizeof(buffer));
            while icount <> 0 do begin
               fileWrite(fh2, buffer, icount);
               icount := FileRead(fh1, buffer,Sizeof(buffer));
            end;
            //복사한 프로그램의 바뀐 시간이 현재시간이 들어감....
            showmessage('파일복사 완료');
         end else
         begin
           showmessage('복사대상이 없네요');
         end;
         Fileclose(fh2);
         Fileclose(fh1);
      end else
      begin
        showmessage('서버에 프로그램이 없네요');
      end;  
   end;

end;

end.

또 문제발생.... 제대로 하는게 하나도 없넹.....

복사된 디렉토리로 가서 확인 해보면 복사가 되긴 되었는데....
날짜가 프로그램 을 실행한 날짜(현재시간(2002-06-01 오전 10:56:14)로 저장이 됩니다.   ab.exe를 업그레이드 한 날짜(2002-05-30 오후 20:10:30)가 저장 되어야 하는데...

이를 어찌하면 좋겠습니까?....

저도 자동업데이트 플그램을 제작하고 있죠

파일 복사 방법은 서버가 NT, 2000이상이면 98사용자는 모두 사용자 등록을 해야 가능하죠

하지만 FTP, HTTP를 이용하여 다운하면 사용자 등록없이도 가능한 거구여

FTP 서버 접속이 실패 했다면 해당 서버의 FTP 서비스가 되고 있는지 확인을 해야 하죠

이 MS 관련 서버이면 사용자 권한 설정을 잘하셔야 합니다.

자치 잘못하면 서버가 해킹등의 보안 문제가 발생하죠