Q&A

  • TCP/IP 프로그램 문의드립니다.
아래와 같이 코딩을 했는데



<< 에러발생 >>

{========================================================}

" Project Project1.exe raised exception class ESocketError with message

'Asynchronous socket error 10061'.

Process stopped. Use Step or Run to Continue."



이렇게 에러가 나네요...

뭐가 문제인지 모르겠어요.. 좀가르쳐 주세요.. ^^





<< 코딩부분 >>

{========================================================}

procedure TForm1.SendBtnClick(Sender: TObject);

begin

ClientSocket1.Host := OtherComputerIP; // Client IP : 321.321.321.321

ServerSocket1.Active := True; // Server IP : 123.123.123.123

ClientSocket1.Active := True;

end;



procedure TForm1.SendBtnClick(Sender: TObject);

begin

ClientSocket1.Socket.SendText(Edit1.Text);

end;



procedure TForm1.ClientSocket1Read(Sender: TObject;

Socket: TCustomWinSocket);

begin

Memo1.Lines.Add(Socket.ReceiveText);

end;



procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

begin

Socket.SendText(Socket.ReceiveText);

end;





3  COMMENTS
  • Profile
    이경문 2001.04.20 09:18
    10061은 Remote의 IP, Port에서 listen하지 않을 때 나타나는 현상입니다.

    즉 ServerSocket이 Open되어 있지 않은 상황입니다.

    OtherComputerIP 컴퓨터에 ServerSocket이 열려 있는지,

    열려 있다면 Port번호는 제대로 설정되어 있는지 확인하시기 바랍니다.



    프리맨 wrote:

    > 아래와 같이 코딩을 했는데

    >

    > << 에러발생 >>

    > {========================================================}

    > " Project Project1.exe raised exception class ESocketError with message

    > 'Asynchronous socket error 10061'.

    > Process stopped. Use Step or Run to Continue."

    >

    > 이렇게 에러가 나네요...

    > 뭐가 문제인지 모르겠어요.. 좀가르쳐 주세요.. ^^

    >

    >

    > << 코딩부분 >>

    > {========================================================}

    > procedure TForm1.SendBtnClick(Sender: TObject);

    > begin

    > ClientSocket1.Host := OtherComputerIP; // Client IP : 321.321.321.321

    > ServerSocket1.Active := True; // Server IP : 123.123.123.123

    > ClientSocket1.Active := True;

    > end;

    >

    > procedure TForm1.SendBtnClick(Sender: TObject);

    > begin

    > ClientSocket1.Socket.SendText(Edit1.Text);

    > end;

    >

    > procedure TForm1.ClientSocket1Read(Sender: TObject;

    > Socket: TCustomWinSocket);

    > begin

    > Memo1.Lines.Add(Socket.ReceiveText);

    > end;

    >

    > procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

    > Socket: TCustomWinSocket);

    > begin

    > Socket.SendText(Socket.ReceiveText);

    > end;

    >

    >

  • Profile
    프리맨 2001.04.20 20:07
    이경문 wrote:

    > 10061은 Remote의 IP, Port에서 listen하지 않을 때 나타나는 현상입니다.

    > 즉 ServerSocket이 Open되어 있지 않은 상황입니다.

    > OtherComputerIP 컴퓨터에 ServerSocket이 열려 있는지,

    > 열려 있다면 Port번호는 제대로 설정되어 있는지 확인하시기 바랍니다.



    에러번호에 대해서 조치방법을 알수있는 자료가 없을까요?

  • Profile
    이경문 2001.04.20 22:05
    procedure TForm1.ClientSocket1Error(Sender: TObject;

    Socket: TCusteomWinSocket; ErrorEvent: TErrorEvent; ErrorCode: Integer);

    begin

    ShowMessage('어헐.... 에러가 났군 ' + IntToStr(ErrorCode));

    ErrorCode := 0;

    Socket.Close;

    end;





    프리맨 wrote:

    > 이경문 wrote:

    > > 10061은 Remote의 IP, Port에서 listen하지 않을 때 나타나는 현상입니다.

    > > 즉 ServerSocket이 Open되어 있지 않은 상황입니다.

    > > OtherComputerIP 컴퓨터에 ServerSocket이 열려 있는지,

    > > 열려 있다면 Port번호는 제대로 설정되어 있는지 확인하시기 바랍니다.

    >

    > 에러번호에 대해서 조치방법을 알수있는 자료가 없을까요?