안녕하세요. 멀더입니다.

Builder나 Delphi에 기본으로 있는 TServerSocket과 TClientSocket을 이용하여
Blocking Mode로 동작하는 예제입니다. (Builder6로 만듬)

저두 공부삼아 만들었는데, 버그도 있을것 같구요.
버그를 발견하시면 바로 리플 부탁합니다. 또는 Mail (mulder@korea.com)

프로젝트 설명 :

1. FtpServerEx : ThreadBlocking Mode로 동작하는 서버입니다.
                 클라이언트로부터 파일을 받아서 지정된 디렉토리에 저장합니다.
                 Tcp Port : 9091
                 수신된 버퍼를 바로 파일로 저장하므로, 메모리 사용이 아주 적습니다.


아래의 소스에서처럼
   GetThread Event 에서 Client Worker Thread 를 만들어서 처리합니다.
   Worker Thread는 다른분의 예를 참조해서 제가 조금 수정했습니다. ;)
//---------------------------------------------------------------------------
void __fastcall TfmMain::ServerSocket1GetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket,
      TServerClientThread *&SocketThread)
{
    SocketThread = new TMyServerThread(ClientSocket);
}
//---------------------------------------------------------------------------


2. FtpClientEx : Blocking Mode로 동작하는 Client입니다.
       Test1 은 위의 Server와 함께 동작하는 FTP 파일 업로드 예제입니다.
       Test2 는 아주 간단하게 메일을 보내는 예제입니다.
            
       보시면 아실겁니다.... 별루 설명할게 없어요.. 동감하실겁니다. ;)


그럼 즐플~