Q&A
- 쓰레드가 제대로 작동되지 않는군요.
고수님들의 도움을 부탁드립니다.
쓰레드 프로그램을 작성하는 데 원하는대로 동작하지 않는군요..
제가 원하는 것은 어떤 작업이 진행되는 동안 ProgressBar에 진행상태를
나타낼려고 합니다.
그래서 아래와 같은 테스트 프로그램을 만들어 봤지만 역시 원하는대로
작동하지 않는군요.
Button1을 누르면 쓰레드를 생성하고 sleep 함수를 사용하여 잠시멈춰 있도록
했는데, 멈춰있는 동안 쓰레드가 작동을 해서 ProgressBar에 진행상태를 표시해야
되는데, sleep 함수가 완료되고 나서야만 쓰레드가 실행되더군요..
혹시 문제점이나 해결책을 알고계신 고수분이 계시면 답변을 부탁드립니다.
감사합니다.
//-------------------------------------------------------------------
// 메인프로그램
//-------------------------------------------------------------------
unit Unit1;
interface
;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ProgressBar1: TProgressBar;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2;
var ProgressThread1: TProgressThread;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressThread1 := TProgressThread.create(false);
sleep(5000); <-- 여기서 sleep함수가 완료된 후에만
<-- 쓰레드가 실행
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ProgressThread1.terminate;
end;
end.
//----------------------------------------------------------------
// 쓰레드 프로그램
//----------------------------------------------------------------
unit Unit2;
interface
uses
Classes, Windows;
type
TProgressThread = class(TThread)
private
{ Private declarations }
procedure UpdateProgress;
protected
procedure Execute; override;
end;
implementation
uses unit1;
procedure TProgressThread.UpdateProgress;
begin
form1.ProgressBar1.Position := form1.ProgressBar1.Position + 10;
end;
procedure TProgressThread.Execute;
begin
while not Terminated do begin
synchronize(UpdateProgress);
beep(200,200);
sleep(1000);
end;
end;
end.
쓰레드 프로그램을 작성하는 데 원하는대로 동작하지 않는군요..
제가 원하는 것은 어떤 작업이 진행되는 동안 ProgressBar에 진행상태를
나타낼려고 합니다.
그래서 아래와 같은 테스트 프로그램을 만들어 봤지만 역시 원하는대로
작동하지 않는군요.
Button1을 누르면 쓰레드를 생성하고 sleep 함수를 사용하여 잠시멈춰 있도록
했는데, 멈춰있는 동안 쓰레드가 작동을 해서 ProgressBar에 진행상태를 표시해야
되는데, sleep 함수가 완료되고 나서야만 쓰레드가 실행되더군요..
혹시 문제점이나 해결책을 알고계신 고수분이 계시면 답변을 부탁드립니다.
감사합니다.
//-------------------------------------------------------------------
// 메인프로그램
//-------------------------------------------------------------------
unit Unit1;
interface
;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ProgressBar1: TProgressBar;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2;
var ProgressThread1: TProgressThread;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressThread1 := TProgressThread.create(false);
sleep(5000); <-- 여기서 sleep함수가 완료된 후에만
<-- 쓰레드가 실행
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ProgressThread1.terminate;
end;
end.
//----------------------------------------------------------------
// 쓰레드 프로그램
//----------------------------------------------------------------
unit Unit2;
interface
uses
Classes, Windows;
type
TProgressThread = class(TThread)
private
{ Private declarations }
procedure UpdateProgress;
protected
procedure Execute; override;
end;
implementation
uses unit1;
procedure TProgressThread.UpdateProgress;
begin
form1.ProgressBar1.Position := form1.ProgressBar1.Position + 10;
end;
procedure TProgressThread.Execute;
begin
while not Terminated do begin
synchronize(UpdateProgress);
beep(200,200);
sleep(1000);
end;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 황도연
- 2000.10.13 19:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 초
- •
- 2000.10.13 19:39
- 1 COMMENTS
- /
- 0 LIKES
-
linuxwiz•2000.10.15 01:22update문법이 틀렸읍니다.. insert와 update를 혼동하신듯... update table명 set 필드1 = 필드값, ...
-
- delpo
- •
- 2000.10.13 19:37
- 1 COMMENTS
- /
- 0 LIKES
-
이광형•2000.10.13 22:49쿼리의발행을이렇게 한번 해보세요 with queryone do begin close; sql.Clear; sql.a...
-
- 주재홍
- •
- 2000.10.13 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
신성철•2000.10.13 20:23begin Screen.ActiveForm.PrintScale := poPrintToFit; //poNone, poProportional, poPrint...
-
- 어린왕자
- •
- 2000.10.13 19:23
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.16 20:15음..이건 수학적식을 이용하면 되는데요.. 직선상의 두개의 선분이 있을때 겹칠조건을 써야져.. 사각형은...
-
-
투덜이•2000.10.13 23:19저두 이제 공부하는 초짜 입니다 dll로 짜면 좋은점은 나중에 배포할 프로그램의 전체 크기가 줄어든다고 ...
-
-
- 초보
- 2000.10.13 18:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 박기웅
- •
- 2000.10.13 17:50
- 2 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.14 04:05안녕하세요? 고드름 김정입니다. 두 가지 정도로 생각할 수 있습니다. 1. Unix에 접속해 파일을 특정 ...
-
강호규•2000.10.14 01:31박기웅 wrote: > 델파이 프로그램에서 어는 한 버턴을 누르면 pc에 있는 한글 프로그램이 > 실행됨과 동...
-
- 델파이를 사랑하는 초
- •
- 2000.10.13 11:39
- 1 COMMENTS
- /
- 0 LIKES
-
coolling•2000.10.13 20:54델파이 메뉴의 project/option/의 Auto Create설정을 말씀하시는것 같은데.. 꼭 그렇게 순서를 정해야 하...
-
- Cha
- •
- 2000.10.13 09:32
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.10.13 09:49Cha wrote: > 스트링그리드 에서 DBGrid처럼 PickList를 구현하구 싶은데.. > 스트링그리드에 그런 속성...
-
- richard
- •
- 2000.10.13 07:47
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.14 04:01안녕하세요? 고드름 김정입니다. Win32 API 함수들은 DLL 로 구현되어 있으며, MS는 DLL은 OS에 포함...
-
- delpo
- •
- 2000.10.13 06:29
- 1 COMMENTS
- /
- 0 LIKES
-
이광형•2000.10.13 08:14query2.open; 을 한 다음 showmessage(query2.fieldByName('kh').asstring); 하셔서 실제로 쿼리해온 값이...
-
- 정한주
- •
- 2000.10.13 05:48
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.10.13 10:19델세상(http://www.freechal.com/delphiworld)에다가 답변해놨어요~
-
- 유창덕
- •
- 2000.10.13 04:17
- 5 COMMENTS
- /
- 0 LIKES
-
s6763•2000.12.14 22:01유창덕 wrote: > 아시는분 코치바랍니다. > > winzeos 컴포넌트를 사용하여 자료를 연결하고 > select...
-
안젤726•2000.12.07 10:09Mysql을 한지 얼마안되었습니다. 다만 혹 insert 할 때 Execsql 을 사용하셨다면 Componet Transact 에서 ...
-
parkisu•2000.10.13 09:46제가 리눅스를 사용하지 않는 관계로 정확한 답변이 아닐 수도 있겠군요. Mysql버전을 확인해 보세요. 3.2...
-
유창덕•2000.10.13 04:20유창덕 wrote: > 아시는분 코치바랍니다. > > winzeos 컴포넌트를 사용하여 자료를 연결하고 > select...
-
parkisu•2000.10.14 09:35유창덕 wrote: > 유창덕 wrote: > > 아시는분 코치바랍니다. > > > > winzeos 컴포넌트를 사용하여 자...
-
- 어린백성
- •
- 2000.10.13 03:56
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2000.10.13 15:52헐~~ 일단은 속도문제를 생각하면 인뎃스가 있어야합니다 파라독스니까 database desktop에서 관리번호...
-
- 투덜이
- 2000.10.13 03:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 초초보
- 2000.10.13 03:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재호
- •
- 2000.10.13 19:45
- 1 COMMENTS
- /
- 0 LIKES
-
이재호•2000.10.13 22:14이재호 wrote: > 안녕하세요? > MDI Form에서 FormStyle이 Normal인 Password Dialog에서 Modal Form Ope...
-
- 정성환
- 2000.10.13 02:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 이선주
- •
- 2000.10.13 02:32
- 1 COMMENTS
- /
- 0 LIKES
고수님들의 도움을 부탁드립니다. 쓰레드 프로그램을 작성하는 데 원하는대로 동작하지 않는군요.. 제가 원하는 것은 어떤 작업이 진행되는 동안 ProgressBar에 진행상태를 나타낼려고 합니다. 그래서 아래와 같은 테스트 프로그램을 만들...-
김정•2000.10.14 03:54안녕하세요? 고드름 김정입니다. Sleep() 함수는 프로세스 자체를 멈춰버립니다. 따라서 자식 쓰레드...
고드름 김정입니다.
Sleep() 함수는 프로세스 자체를 멈춰버립니다.
따라서 자식 쓰레드가 있더라도, 프로세스의 일부이기 때문에 같이 쉽니다. ^^;
이런 경우, WaitForSingleObject( Thread.handle, timeout ); API 함수를 사용하세요.
그럼.
이선주 wrote:
> 고수님들의 도움을 부탁드립니다.
>
> 쓰레드 프로그램을 작성하는 데 원하는대로 동작하지 않는군요..
> 제가 원하는 것은 어떤 작업이 진행되는 동안 ProgressBar에 진행상태를
> 나타낼려고 합니다.
>
> 그래서 아래와 같은 테스트 프로그램을 만들어 봤지만 역시 원하는대로
> 작동하지 않는군요.
>
> Button1을 누르면 쓰레드를 생성하고 sleep 함수를 사용하여 잠시멈춰 있도록
> 했는데, 멈춰있는 동안 쓰레드가 작동을 해서 ProgressBar에 진행상태를 표시해야
> 되는데, sleep 함수가 완료되고 나서야만 쓰레드가 실행되더군요..
>
> 혹시 문제점이나 해결책을 알고계신 고수분이 계시면 답변을 부탁드립니다.
>
> 감사합니다.
>
>
>
> //-------------------------------------------------------------------
> // 메인프로그램
> //-------------------------------------------------------------------
> unit Unit1;
>
> interface
> ;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> Button2: TButton;
> ProgressBar1: TProgressBar;
> Edit1: TEdit;
> procedure Button1Click(Sender: TObject);
> procedure Button2Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> uses unit2;
>
> var ProgressThread1: TProgressThread;
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> ProgressThread1 := TProgressThread.create(false);
>
> sleep(5000); <-- 여기서 sleep함수가 완료된 후에만
> <-- 쓰레드가 실행
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> ProgressThread1.terminate;
> end;
>
> end.
>
>
> //----------------------------------------------------------------
> // 쓰레드 프로그램
> //----------------------------------------------------------------
> unit Unit2;
>
> interface
>
> uses
> Classes, Windows;
>
> type
> TProgressThread = class(TThread)
> private
> { Private declarations }
> procedure UpdateProgress;
> protected
> procedure Execute; override;
> end;
>
> implementation
>
> uses unit1;
>
> procedure TProgressThread.UpdateProgress;
> begin
> form1.ProgressBar1.Position := form1.ProgressBar1.Position + 10;
> end;
>
> procedure TProgressThread.Execute;
> begin
> while not Terminated do begin
> synchronize(UpdateProgress);
> beep(200,200);
> sleep(1000);
> end;
> end;
>
> end.
>