Q&A
- 쓰레드의 종료가 안되는데요...
쓰레드는 처음인 허접입니다.
다음과 같은 CODE를 실행시키니 TEvent의 Destroy시 TEvent의 WaitFor가 응답을 않네요.
Help에는 wrAbandoned로 return값을 가지고 WaitFor가 응답을 한다고 나와 있는데...
뭐가 문제일까요.
부디 고수님의 조언을 부탁드립니다.
//-------------
// 여기 부터...
//-------------
type
TTestThread = class(TThread)
private
Evt: TEvent;
public
constructor Create;
procedure DestroyEvent;
procedure Execute; override;
procedure ExecuteEvent;
end;
TfrmMan = class(TForm)
btnCrt: TButton;
btnDty: TButton;
btnExe: TButton;
procedure btnCrtClick(Sender: TObject);
procedure btnDtyClick(Sender: TObject);
procedure btnExeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMan: TfrmMan;
implementation
{$R *.DFM}
var
TestThread: TTestThread;
constructor TTestThread.Create;
begin
inherited Create(True);
Evt := TEvent.Create(nil, false, false, 'Event');
Resume;
end;
procedure TTestThread.DestroyEvent;
begin
Evt.Destroy;
end;
procedure TTestThread.ExecuteEvent;
begin
Evt.SetEvent;
end;
procedure TTestThread.Execute;
begin
while True do begin
if (Evt.WaitFor(INFINITE) = wrAbandoned) then begin
ShowMessage('Abandoned');
break;
end;
ShowMessage('Execute');
end;
end;
procedure TfrmMan.btnCrtClick(Sender: TObject);
begin
TestThread := TTestThread.Create;
end;
procedure TfrmMan.btnDtyClick(Sender: TObject);
begin
TestThread.DestroyEvent;
end;
procedure TfrmMan.btnExeClick(Sender: TObject);
begin
TestThread.ExecuteEvent;
end;
//-------------
// 여기까지 ...
//-------------
다음과 같은 CODE를 실행시키니 TEvent의 Destroy시 TEvent의 WaitFor가 응답을 않네요.
Help에는 wrAbandoned로 return값을 가지고 WaitFor가 응답을 한다고 나와 있는데...
뭐가 문제일까요.
부디 고수님의 조언을 부탁드립니다.
//-------------
// 여기 부터...
//-------------
type
TTestThread = class(TThread)
private
Evt: TEvent;
public
constructor Create;
procedure DestroyEvent;
procedure Execute; override;
procedure ExecuteEvent;
end;
TfrmMan = class(TForm)
btnCrt: TButton;
btnDty: TButton;
btnExe: TButton;
procedure btnCrtClick(Sender: TObject);
procedure btnDtyClick(Sender: TObject);
procedure btnExeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMan: TfrmMan;
implementation
{$R *.DFM}
var
TestThread: TTestThread;
constructor TTestThread.Create;
begin
inherited Create(True);
Evt := TEvent.Create(nil, false, false, 'Event');
Resume;
end;
procedure TTestThread.DestroyEvent;
begin
Evt.Destroy;
end;
procedure TTestThread.ExecuteEvent;
begin
Evt.SetEvent;
end;
procedure TTestThread.Execute;
begin
while True do begin
if (Evt.WaitFor(INFINITE) = wrAbandoned) then begin
ShowMessage('Abandoned');
break;
end;
ShowMessage('Execute');
end;
end;
procedure TfrmMan.btnCrtClick(Sender: TObject);
begin
TestThread := TTestThread.Create;
end;
procedure TfrmMan.btnDtyClick(Sender: TObject);
begin
TestThread.DestroyEvent;
end;
procedure TfrmMan.btnExeClick(Sender: TObject);
begin
TestThread.ExecuteEvent;
end;
//-------------
// 여기까지 ...
//-------------
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보공주
- •
- 2001.09.01 21:26
- 4 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.01 22:56초보공주 wrote: > 안녕하세요..ㅎㅎ > 서버소켓을 동적생성 했습니다.. > 그런다음 클라이언트 쪽에서 ... -
나그네•2001.09.04 01:38컴포넌트 동적으로 생성해서 이벤트 연결 시켜주는 법에 대해 말씀 드리겠습니다. 가장 쉬운 예로 TButt...
-
초보공주•2001.09.01 23:18답변 감사합니다. 하지만 그래도 안되는 걸요... 위에서 선언한 Myprocedure의 인자값을 써주지 않아서 ...
-
홍성락•2001.09.02 00:24초보공주 wrote: > 답변 감사합니다. > 하지만 그래도 안되는 걸요... > 위에서 선언한 Myprocedure의 ...
-
- 델초보
- •
- 2001.09.01 21:09
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.02 00:32안녕하세요. 최용일입니다. 윈도우핸들(THandle)도 정수형값입니다... IntToStr, StrToInt를 이용해...
-
- chobo
- 2001.09.01 20:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 김남주
- •
- 2001.09.01 20:34
- 1 COMMENTS
- /
- 0 LIKES
-
바람개비•2001.09.01 22:26당근 가능함다. QRDBimage(혹은 QRImage),QRDBtext(혹은 QRLabel)를 사용하면 되져. 바라미~ 김남주...
-
- 초보자
- •
- 2001.09.01 20:30
- 1 COMMENTS
- /
- 0 LIKES
-
stoney•2001.09.01 22:05uses 구에 db라고 선언이 않됐나보네요... ftblob 선언은 db.pas에 선언되어 있을텐데... 초보자 wro...
-
- 바보
- •
- 2001.09.01 19:52
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2001.09.01 20:01바보 wrote: > db는 파라독스이고 > 프로그램실행중 메모리부족으로 강제종료시 > 종료후 다시 들어와...
-
- 아직도 초보
- •
- •
- 2001.09.01 19:25
- 1 COMMENTS
- /
- 10 LIKES
쓰레드는 처음인 허접입니다. 다음과 같은 CODE를 실행시키니 TEvent의 Destroy시 TEvent의 WaitFor가 응답을 않네요. Help에는 wrAbandoned로 return값을 가지고 WaitFor가 응답을 한다고 나와 있는데... 뭐가 문제일까요. 부디 고수님의...-
아직도 초보•2001.09.04 04:36아직도 초보가 다시 씁니다. Delphi Help에는 TEvent의 Destroy시 WaitFor에 반응한다고 되어있지만, T...
-
- 이원택
- •
- 2001.09.01 18:38
- 1 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.09.02 03:26내용을 보니 하나의 송수신되는 Packet에는 _STX 지시자, _ETX 지시자가 있는것 같네요. 그리고 전 A...
-
- 헬프미
- •
- 2001.09.01 17:38
- 2 COMMENTS
- /
- 0 LIKES
-
major•2001.09.01 18:39헬프미 wrote: > 안녕하세요... > 오늘이 벌써 토요일 이군요... > > 다름이 아니오라... > 오라클 r...
-
헬프미•2001.09.01 19:08> ====================================================== > 안녕하세여.. > 제가 좀 바빠서리 오랜...
-
- 비루스
- 2001.09.01 14:56
- 0 COMMENTS
- /
- 0 LIKES
-
- christians
- 2001.09.01 13:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네
- •
- 2001.09.01 12:02
- 2 COMMENTS
- /
- 0 LIKES
-
찡찡•2001.09.01 19:12CREATE TABLE "employee.db" ( LAST_NAME CHAR(20), FIRST_NAME CHAR(15), SALARY NUMERIC(10,2), DEP...
-
나그네•2001.09.03 08:52넘 감사합니다.
-
- 델초
- •
- 2001.09.01 09:23
- 1 COMMENTS
- /
- 0 LIKES
-
바람개비•2001.09.01 17:37#13#10을 이용해서 라인을 추가한다는말을 이해 못하겠네요. 두가지 모두 라인피드와 관게있는 문자들입니...
-
- 이진파일
- •
- 2001.09.01 04:22
- 4 COMMENTS
- /
- 0 LIKES
-
류종택•2001.09.01 09:12Uses JPeg; Procedure LoadJPeg(FileName:String; PicIn:TPicture); Var JPegImage : TJPegImag...
-
이진파일•2001.09.01 20:05류종택 wrote: > Uses > JPeg; > > Procedure LoadJPeg(FileName:String; PicIn:TPicture); > Var ...
-
류종택•2001.09.02 00:37테스트하신 소스를 첨부하세요.. 제가 테스트 후 올린 소스이니.. 사용하는 방법에서 문제가 발생한 듯.....
-
1cm•2001.09.01 08:37uses에 jpeg를 추가해보세요..^^ 이진파일 wrote: > Timge 컴포에 특정 디렉토리에 있는 그림(xx.jpeg)...
-
- 파이공주
- 2001.09.01 04:19
- 0 COMMENTS
- /
- 0 LIKES
-
- christians
- •
- 2001.09.01 13:02
- 2 COMMENTS
- /
- 0 LIKES
-
aparadin•2001.09.01 18:51christians wrote: > > 저좀 도와 주세요 실행버튼누르면 이런 메시지가 뜸니다. > field Main000MForm...
-
christians•2001.09.02 06:17> ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ > 불러오려는 프로젝트에 사용...
-
- 처버...
- 2001.09.01 03:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.09.01 03:07
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.01 03:50안녕하세요. 최용일입니다. 그리기 모드가 pmXor이라면 다시 한번 더 그려주면 간단히 되지만 그렇지 않...
-
델초보•2001.09.01 20:38감사함다..... 최용일 wrote: > 안녕하세요. 최용일입니다. > > 그리기 모드가 pmXor이라면 다시 한번...
-
- 무지한
- •
- 2001.09.01 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
데빠이•2001.09.01 02:30무지한 wrote: > 데이타베이스에서 > > 제품코드가.. 500001 --> 500200번까지 있습니다 > 그런...
-
- 델초보
- •
- 2001.09.01 01:53
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.01 03:46안녕하세요. 최용일입니다. 아래와 같이 형선언을 해서 사용하세요... type TMyArray = array[0...
Delphi Help에는 TEvent의 Destroy시 WaitFor에 반응한다고 되어있지만,
TEvent의 source를 봤더니, WaitForSingledObject를 call하더군요.
WaitForSingleObject의 Return값이 Abnormal인 경우는 Mutex의 경우에 한정
된다고 Help에 나와 있군요.
결국, 저는 Delphi Help에 속은 겁니다.
그래서 다음과 같이 source를 수정했습니다.
아직도 초보 wrote:
> 쓰레드는 처음인 허접입니다.
>
> 다음과 같은 CODE를 실행시키니 TEvent의 Destroy시 TEvent의 WaitFor가 응답을 않네요.
> Help에는 wrAbandoned로 return값을 가지고 WaitFor가 응답을 한다고 나와 있는데...
> 뭐가 문제일까요.
>
> 부디 고수님의 조언을 부탁드립니다.
>
> //-------------
> // 여기 부터...
> //-------------
> type
> TTestThread = class(TThread)
> private
> Evt: TEvent;
> public
> constructor Create;
> procedure DestroyEvent;
> procedure Execute; override;
> procedure ExecuteEvent;
> end;
>
> TfrmMan = class(TForm)
> btnCrt: TButton;
> btnDty: TButton;
> btnExe: TButton;
> procedure btnCrtClick(Sender: TObject);
> procedure btnDtyClick(Sender: TObject);
> procedure btnExeClick(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> frmMan: TfrmMan;
>
> implementation
>
> {$R *.DFM}
> var
> TestThread: TTestThread;
>
> constructor TTestThread.Create;
> begin
> inherited Create(True);
> Evt := TEvent.Create(nil, false, false, 'Event');
> Resume;
> end;
>
> procedure TTestThread.DestroyEvent;
> begin
> //Evt.Destroy;
>> Terminate;
> end;
>
> procedure TTestThread.ExecuteEvent;
> begin
> Evt.SetEvent;
> end;
>
> procedure TTestThread.Execute;
> begin
>> FreeOnTerminate := True;
>>
>> while not Terminated do begin
>> ShowMessage('Execute');
>> Evt.WaitFor(INFINITE);
> end;
> end;
>
> procedure TfrmMan.btnCrtClick(Sender: TObject);
> begin
> TestThread := TTestThread.Create;
> end;
>
> procedure TfrmMan.btnDtyClick(Sender: TObject);
> begin
> TestThread.DestroyEvent;
> end;
>
> procedure TfrmMan.btnExeClick(Sender: TObject);
> begin
> TestThread.ExecuteEvent;
> end;
>
> //-------------
> // 여기까지 ...
> //-------------
>
>