Q&A
- 쓰레드를 여러개 생성할때..
어떤 시점에서 쓰레드를 생성시키고.. 다른 시점에서 또 쓰레들 생성하고 싶습니다..
물론.. 쓰레드에서 하는 작업은.. 다르구요..
전..
/////////////////
procedure TForm1.Create_Thread;
var
hThread : THandle;
ThreadID: DWORD;
begin
hThread := CreateThread(nil,
0,
@My1Thread,
nil,
0,
ThreadID);
if hThread = 0 then
Application.MessageBox('Thread fail', 'ok', 0);
end;
procedure TForm1.Create_Thread2;
var
hThread : THandle;
ThreadID: DWORD;
begin
hThread := CreateThread(nil,
0,
@My2Thread,
nil,
0,
ThreadID);
if hThread = 0 then
Application.MessageBox('Thread fail', 'ok', 0);
end;
///////////
이렇게.. 함수를 2개 만들어 사용해 봤는데..
Create_Thread1는 실행 되는데.. Create_Thread2에서 My2Thread가 선언이 되지
않았다고..그래요..
Create_Thread1과 같이 선언했는데..
어떻게 해야 하는지.. 답변을 부탁드립니다..
물론.. 쓰레드에서 하는 작업은.. 다르구요..
전..
/////////////////
procedure TForm1.Create_Thread;
var
hThread : THandle;
ThreadID: DWORD;
begin
hThread := CreateThread(nil,
0,
@My1Thread,
nil,
0,
ThreadID);
if hThread = 0 then
Application.MessageBox('Thread fail', 'ok', 0);
end;
procedure TForm1.Create_Thread2;
var
hThread : THandle;
ThreadID: DWORD;
begin
hThread := CreateThread(nil,
0,
@My2Thread,
nil,
0,
ThreadID);
if hThread = 0 then
Application.MessageBox('Thread fail', 'ok', 0);
end;
///////////
이렇게.. 함수를 2개 만들어 사용해 봤는데..
Create_Thread1는 실행 되는데.. Create_Thread2에서 My2Thread가 선언이 되지
않았다고..그래요..
Create_Thread1과 같이 선언했는데..
어떻게 해야 하는지.. 답변을 부탁드립니다..
2
COMMENTS
-
-
안녕하세요.. 답변 감사합니다..
전 생성된 각각의 쓰레드 Execute 함수 안에서 작업을 다르게 하고 싶습니다..
그렇게 할려면 어떻게 해야 하나요??
님의 말처럼 하게 되면.. 같은 일을 하는 쓰레드 2개가 생성되는 것이 아닌가요??
구창민 wrote:
> 안녕하세요~ 구창민입니다.
>
> 쓰레드를 사용하는 간단한 방법을 말씀드릴께요
>
> 먼저 쓰레드 클래쓰를 하나 선언하는 방법입니다.
>
>
> TThread형이름 = class(TThread)
> protected
> procedure 함수명;
> public
> procedure Execute; override;
> end;
>
>
> 이렇게 쓰면 기본적으로 쓰레드를 사용할 수 있는 골격이 갖추어 집니다.
>
> 다음으로 쓰레드를 생성을 합니다.
>
> // 쓰레드 객체를 실제로 생성하는 코드입니다. 파라미터로 True를 넘기고 있습니다...
> // 파라미터 값을 false로 하면 생성과 동시에 쓰레드가 실행하게 되구요
> // True로 하게 되면 resume 메쏘드를 호출한 후에 비로소 실행하게 됩니다.
>
> Thread변수 := TThread변수형.Create(true);
> Thread변수.Priority := tpIdle;
>
> 위처럼 쓰면 님이 원하시는 대로 여러개의 쓰레드를 생성해서 사용하실 수 가 있습니다.
> 위에 상수대입에는 tpPiorty 또는 tp... 로 시작되는 여러가지 상수가 있습니다. 필요에 따라 선언해서 쓰시면 되죠.
> 일반적으로 tpNormal 를 쓰시면 됩니다.
>
> Thread변수.Resume; //실행합니다.
>
>
> // Suspend : 이 메쏘드는 동작중인 쓰레드를 멈추게 해주는 역할을 합니다.
> // Resume : 이 메쏘드는 suspend에 의해서 멈추어진 쓰레드를 다시 가동하게 합니다.
>
> CreateThread 와 머가 다른지 물어보시는 분들도 계신데
>
> 쓰레드를 생성하면 CreateThread 함수를 내부적으로 호출하므로 신경쓰지 않아도 됩니다.
>
> 해서, 이렇게 하면 쓰레드가 생성이 되며 동시에 실행이 됩니다.
>
> 실행이 되면 쓰레드의 Execute 가 실행되는건 아시죠?
>
>
>
> lthee wrote:
> > 어떤 시점에서 쓰레드를 생성시키고.. 다른 시점에서 또 쓰레들 생성하고 싶습니다..
> > 물론.. 쓰레드에서 하는 작업은.. 다르구요..
> >
> > 전..
> >
> > /////////////////
> > procedure TForm1.Create_Thread;
> > var
> > hThread : THandle;
> > ThreadID: DWORD;
> > begin
> > hThread := CreateThread(nil,
> > 0,
> > @My1Thread,
> > nil,
> > 0,
> > ThreadID);
> > if hThread = 0 then
> > Application.MessageBox('Thread fail', 'ok', 0);
> > end;
> >
> >
> > procedure TForm1.Create_Thread2;
> > var
> > hThread : THandle;
> > ThreadID: DWORD;
> > begin
> > hThread := CreateThread(nil,
> > 0,
> > @My2Thread,
> > nil,
> > 0,
> > ThreadID);
> > if hThread = 0 then
> > Application.MessageBox('Thread fail', 'ok', 0);
> > end;
> >
> > ///////////
> >
> >
> > 이렇게.. 함수를 2개 만들어 사용해 봤는데..
> > Create_Thread1는 실행 되는데.. Create_Thread2에서 My2Thread가 선언이 되지
> > 않았다고..그래요..
> > Create_Thread1과 같이 선언했는데..
> >
> > 어떻게 해야 하는지.. 답변을 부탁드립니다..
> >
(NOTICE) You must be logged in to comment on this post.
-
- 돌파이
- 2001.10.30 06:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 허접
- 2001.10.30 06:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이왕초보
- 2001.10.30 06:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 안단테
- •
- 2001.10.30 04:48
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.10.30 11:19안녕하세요~ 구창민입니다. GetSystemMetrics 란 API함수를 사용하시면 많은 시스템 정보를 얻어낼 수 ...
-
- lthee
- •
- 2001.10.30 04:30
- 2 COMMENTS
- /
- 0 LIKES
어떤 시점에서 쓰레드를 생성시키고.. 다른 시점에서 또 쓰레들 생성하고 싶습니다.. 물론.. 쓰레드에서 하는 작업은.. 다르구요.. 전.. ///////////////// procedure TForm1.Create_Thread; var hThread : THandle; ThreadID: DWORD; beg...-
구창민•2001.10.30 05:49안녕하세요~ 구창민입니다. 쓰레드를 사용하는 간단한 방법을 말씀드릴께요 먼저 쓰레드 클래쓰를 하...
-
lthee•2001.10.30 19:16안녕하세요.. 답변 감사합니다.. 전 생성된 각각의 쓰레드 Execute 함수 안에서 작업을 다르게 하고 싶...
-
- 이명호
- •
- 2001.10.30 04:22
- 3 COMMENTS
- /
- 0 LIKES
-
구창민•2001.10.30 05:51안녕하세요~ 구창민입니다. 얼른 떠오르는 건 프린트할 데이타를 먼저 통신으로 전송하고 전송된 데...
-
이명호•2001.10.30 07:48구창민님이 처음으로 답을 해주시네요 ^^ 여러번 질문을 했었는데 모두 답이 없었거든요 ^^; 친구의 ...
-
구창민•2001.10.30 11:01좋은 정보를 주셔서 감사합니다. 그럼~ 항상 즐거운 프로그래밍 하시길~~ 이명호 wrote: > 구창...
-
- dns
- •
- 2001.10.30 04:07
- 1 COMMENTS
- /
- 0 LIKES
-
dns•2001.11.01 03:01dns wrote: > > 개발 방법을 물어볼까해서 글을 올립니다. > 웹상 올려지는 게시판을 클라이언트 프...
-
- 이채성
- •
- 2001.10.30 03:11
- 2 COMMENTS
- /
- 0 LIKES
-
정종구•2001.10.30 04:07이채성 wrote: > Nbtstat와 같은 프로그램을 작성하고자 하는데요 혹시 샘플이나 예제가 있습니까? > 있...
-
이채성•2001.10.30 22:26정종구 wrote: > 이채성 wrote: > > Nbtstat와 같은 프로그램을 작성하고자 하는데요 혹시 샘플이나 예제...
-
- 나옹이
- •
- 2001.10.30 02:54
- 3 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2001.10.30 05:30안녕하세요. ^^ 예전에 팁란에 올렸던거 올립니다. 참고하세요. PopupMenu 동적생성 간단하...
-
나옹이•2001.10.30 06:52팝업메뉴는.... 음.. 잘 알았습니다. 근데 메인메뉴에서는 어케 할까요? 점.. 감이 오질 않네욤... ...
-
Black}{ole•2001.10.30 09:44팝업메뉴나, 메인메뉴나 똑같습니다. 위 소스를 메인메뉴에서 같이 적용해보세요. 그럼..20000.
-
- 급급급함
- •
- 2001.10.30 02:45
- 1 COMMENTS
- /
- 0 LIKES
-
김훈•2001.10.31 00:27혹.. services 쪽화일에 인터베이스 포트가 추가가 안된거 같군요. 그럼. 급급급함 wrote: > Win98...
-
- 바보
- 2001.10.30 02:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 꾸룽껭
- •
- 2001.10.30 02:42
- 1 COMMENTS
- /
- 0 LIKES
-
김훈•2001.10.31 00:30꾸룽껭 wrote: > interbase 에서 updatesql 쓰는 예제좀 부탁드립니다. > 아무리해봐도 안되네요... > ...
-
- 문상진
- 2001.10.30 02:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 이경문
- •
- 2001.10.30 02:19
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.10.30 02:34Anders Melander라는 개발자가 만든 라이브러리를 사용했는데(www.torry.ru) 다음과 같은 설명이 있네요. ...
-
-
sk3958•2001.10.30 01:53송태민 wrote: > 카메라를 이용하여 델파이form에 화면을 출력할려고 합니다. > 모터를 제어하고 델파이...
-
sk3958•2001.10.30 02:06송태민 wrote: > 답변감사합니다.제가 할려고 하는 것은 코드가 필요합니다.좀 더 자세한 설명부탁드리겠...
-
sk3958•2001.10.30 02:15송태민 wrote: > 어디에있는지 잘 모르겠습니다.가르쳐 주십시요. 자료실에서 'Video'로 검색하시면 됩...
-
-
- 통신왕초보
- •
- 2001.10.30 01:30
- 1 COMMENTS
- /
- 0 LIKES
-
sk3958•2001.10.30 02:13통신왕초보 wrote: > 고수님들의 조언을 부탁드립니다 > 특히 수페서님이나 나도초보 라는 닉네임으로 활...
-
- 박재권
- •
- 2001.10.30 01:49
- 2 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.10.30 04:26안녕하세요. 음. 질문이..머랄까 좀 상황을 잘 모르겟네요.. 디비로 보이는 부분 출력하시는건지..아님 ...
-
박재권•2001.10.30 18:26답변감사합니다. 허나 지가 델초자라 물론 디비 연결인데 한사람에 대해서 각각약품의 갯수가 다르고 한...
-
- sk3958
- 2001.10.30 01:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 정규성
- •
- 2001.10.30 01:01
- 2 COMMENTS
- /
- 0 LIKES
-
jing•2001.10.30 23:12정규성 wrote: > 아래의 내용은 MaskEdit를 잘라서 사용한것인데요. > 비교 검색을 하면, Maskedit에 아...
-
최석중•2001.10.30 05:49초보가 이런 말 해도 되나 모르겠내요... EditText 속성을 사용해서 잘라보면 안되나요? Text와 EditText...
-
- 한광현
- 2001.10.30 00:56
- 0 COMMENTS
- /
- 0 LIKES
쓰레드를 사용하는 간단한 방법을 말씀드릴께요
먼저 쓰레드 클래쓰를 하나 선언하는 방법입니다.
TThread형이름 = class(TThread)
protected
procedure 함수명;
public
procedure Execute; override;
end;
이렇게 쓰면 기본적으로 쓰레드를 사용할 수 있는 골격이 갖추어 집니다.
다음으로 쓰레드를 생성을 합니다.
// 쓰레드 객체를 실제로 생성하는 코드입니다. 파라미터로 True를 넘기고 있습니다...
// 파라미터 값을 false로 하면 생성과 동시에 쓰레드가 실행하게 되구요
// True로 하게 되면 resume 메쏘드를 호출한 후에 비로소 실행하게 됩니다.
Thread변수 := TThread변수형.Create(true);
Thread변수.Priority := tpIdle;
위처럼 쓰면 님이 원하시는 대로 여러개의 쓰레드를 생성해서 사용하실 수 가 있습니다.
위에 상수대입에는 tpPiorty 또는 tp... 로 시작되는 여러가지 상수가 있습니다. 필요에 따라 선언해서 쓰시면 되죠.
일반적으로 tpNormal 를 쓰시면 됩니다.
Thread변수.Resume; //실행합니다.
// Suspend : 이 메쏘드는 동작중인 쓰레드를 멈추게 해주는 역할을 합니다.
// Resume : 이 메쏘드는 suspend에 의해서 멈추어진 쓰레드를 다시 가동하게 합니다.
CreateThread 와 머가 다른지 물어보시는 분들도 계신데
쓰레드를 생성하면 CreateThread 함수를 내부적으로 호출하므로 신경쓰지 않아도 됩니다.
해서, 이렇게 하면 쓰레드가 생성이 되며 동시에 실행이 됩니다.
실행이 되면 쓰레드의 Execute 가 실행되는건 아시죠?
lthee wrote:
> 어떤 시점에서 쓰레드를 생성시키고.. 다른 시점에서 또 쓰레들 생성하고 싶습니다..
> 물론.. 쓰레드에서 하는 작업은.. 다르구요..
>
> 전..
>
> /////////////////
> procedure TForm1.Create_Thread;
> var
> hThread : THandle;
> ThreadID: DWORD;
> begin
> hThread := CreateThread(nil,
> 0,
> @My1Thread,
> nil,
> 0,
> ThreadID);
> if hThread = 0 then
> Application.MessageBox('Thread fail', 'ok', 0);
> end;
>
>
> procedure TForm1.Create_Thread2;
> var
> hThread : THandle;
> ThreadID: DWORD;
> begin
> hThread := CreateThread(nil,
> 0,
> @My2Thread,
> nil,
> 0,
> ThreadID);
> if hThread = 0 then
> Application.MessageBox('Thread fail', 'ok', 0);
> end;
>
> ///////////
>
>
> 이렇게.. 함수를 2개 만들어 사용해 봤는데..
> Create_Thread1는 실행 되는데.. Create_Thread2에서 My2Thread가 선언이 되지
> 않았다고..그래요..
> Create_Thread1과 같이 선언했는데..
>
> 어떻게 해야 하는지.. 답변을 부탁드립니다..
>