안녕하세요..한수 부탁드립니다..

네트웍으로 두개의 컴을 연결해서 각각의 상태를 체크하는 프로그램을 짜려고 합니다..

그러니까 각각이 쓰레드를 돌려야될꺼 같은데..먼저 첫번째 컴에 대해 아래처럼 쓰레드를 생성시키려고합니다..TClientSocket 컴포넌트를 메인에서 만들어놓구요..

첫번째 쓰레드에서 그놈으로 연결할려구 하는데 도무지 반응이 없습니다..이벤트에서 체크해봐도 들어오지 않구요..

시스템이 다운된것두 아니고 그냥 멀뚱히 있네요..

어떻게 해야하는지..부탁드립니다..



procedure TForm1.Btn1Click(Sender: TObject);

var

MyThread :TMyThread;



begin



//전체 릴레이 정보 보기 쓰레드 생성..

MyThread := TMyThread.Create(true);

MyThread.Priority := tpHigher;

MyThread.Resume;

end;

// 쓰레드 실행 프로시져 : 연결해서 정보를 가져오고 싶어요..

procedure TAllRelay_Thread.Execute;

begin

Form1.ClientSocket1.Host := '211.63.13.131';

Form1.ClientSocket1.Port := 4200;

Form1.ClientSocket1.Active := True; -> 이이후로 소식이 없습니다..

....

end;