이곳강의실에 올라온소스를 퍼다가 서비스 프로그램을 작성해서 잘됩니다.

그소스의 쓰레드 부분만 빼고 다 사용을 햇죠..

서비스 시작하면서 폼하나도 띄웠습니다. 서비스를 시작하고 멈추고 할때 폼이 잘 닫기고 열립니다.

그런데 그냥 실행중인 상태에서 컴퓨터 종료를 하면 말이죠....

항상에러가 납니다. 오류가 발생했다고 말이죠..

이벤트보기에가면 에러도 있는데 이 에러의 원인도 모르겠고 말이죠..

고수님들의 답변부탁드리겠습니다...꼭이여....종료할때마다 에러나서...ㅜㅜ;



아래는 소스의 일부입니다...

TStockService = class(TService)


//서비스 멈춤----------------------------
procedure TStockService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
//소켓닫고, 레코드연결끊고, 타이머 false로하고,  폼을 종료.
  form1.DisconnectTimeout;
  form1.StopSet;
  form1.Close;
  form1.free;
  Stopped := True;
end;

//서비스 시작--------------------------
procedure TStockService.ServiceStart(Sender: TService;
  var Started: Boolean);
begin
//서비스사작, 폼생성, 폼보이기,디비연결 , 타이머생성,
  Started := True;
  form1 := Tform1.Create(Application);
  form1.Show;
  form1.StartSet;
  form1.ConnectRequre;
end;