안녕하세요 언제나 초보 바보감자입니다 꾸벅..ㅠㅅㅠ
흑흑 지금 이거때문에 엄청 고생했는데 방법을 못찾겠습니다..
고수님들의 조언 을 부탁드리겠습니다...
내용은...
인디 서버와 인디 클라이언트가 있는데..
클라에서 서버로 자료를 보내면 잘받습니다..
문제는 다시 서버에서 보내줘야하는데...
보내주는 루틴은 에러가 안나는데...
클라이언트에서 ReadBuffer <-- 요함수만 들어가면 뻑 멈춰버리네요..
데이타 올때까장 기달리는거같은데...
확실하게 몰르겠습니다..소스 첨부하니 부탁바랍니다..


///////////////////////////////////////////////////////////////
//
//클라이언트 부분..
//
///////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);
var
bcp: BILL_COM_PACKET;
spp: MacsHeaderPkt;
url: string;
begin
with IdTCPClient1 do
begin
   Connect;
   try
     url := 'http://hanmail.net';

     GetMem(bcp.data_buff, length(url));

     strcopy(@bcp.data_buff, @url);

     bcp.BIL.PacketLength := length(url);

     WriteBuffer(bcp, sizeof(bcp));

//      ReadBuffer(spp.bil, sizeof(spp.bil));  <--문제의부분...ㅡㅡ;;;

   finally

     Disconnect;

   end;

end;

end;

///////////////////////////////////////////////////////////////
//
//서버 부분..
//
///////////////////////////////////////////////////////////////

procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var
bcp: BILL_COM_PACKET;
spp: MacsHeaderPkt;
tmp_buff: string;
begin
with AThread.Connection do
begin
   inc(scount);

   ReadBuffer(bcp.bil, sizeof(bcp.BIL));

   Getmem(bcp.data_buff, bcp.BIL.PacketLength);

   ReadBuffer(bcp.data_buff, sizeof(bcp.BIL.PacketLength));
//받기 끝. 보내기 시작.
   tmp_buff := cp_bil(string(bcp.data_buff));

   GetMem(spp.data_buff, length(tmp_buff));

   strcopy(@spp.data_buff, @tmp_buff);

   spp.bil.uiLen := length(tmp_buff);

//보내기
   WriteBuffer(spp, sizeof(spp));

   scount := scount - 1;

   Disconnect;

end;

end;



ㅠㅅㅠ
긴 소스 읽어주셔서 감사합니다..별로 길진 않지만 ^^;;;
부탁드리겠습니다. 고수님들... 회사에서 오래 못버티겠군요..ㅠㅠ..