간단하게 test용 프로그램으로 파일 전송 프로그램을 만들어 볼라고 합니다.

server의 특정버튼(Button1)을 클릭하면 server pc의 c:/aa.jpg(1436byte)파일을
client로 전송(indy이용)하여
client의 d:/bb.jpg로 저장하는 간단한 프로그램입니다.
(당연히 server와 client 연결은 됩니다.)

아래와 같이 짰는데 안되네요..ㅠㅠ 지도 부탁드립니다..

-- server ------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

        TFileStream* inHandle;
        unsigned char *pszBuffer;
        inHandle = new TFileStream("c:\\aa.jpg", fmOpenRead);          
        pszBuffer = new char[1436];                                  
        inHandle->ReadBuffer(pszBuffer, 1436);   
        delete inHandle;

        int Loop;
        TList *List;                                                
        TIdPeerThread *AThread;

        List = IdTCPServer1->Threads->LockList();                     

        try {
                for(Loop=1;Loop<List->Count;Loop++){          
                        AThread = (TIdPeerThread *) List->Items[Loop]; 
                        AThread->Connection->WriteBuffer(pszBuffer, 1436);
                }
        }  __finally {
                IdTCPServer1->Threads->UnlockList();   
        }

}

-- client ------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        if(IdTCPClient1->Connected()==true){
                TFileStream* outHandle;
                unsigned char *pszBuffer;
                pszBuffer = new char[1436];
                outHandle = new TFileStream("d:\\bb.jpg", fmCreate);        
                IdTCPClient1->ReadBuffer(pszBuffer,1436);        
        }
}

----------------------------------------------------------------

읽어주셔서 감사합니다. 모두모두 복 받으세요~~