MyThread를 Class안에 선언하지 말고 외부에 선언하세요.

원래 Class의 Method는 맨 처음 Object의 Pointer를 Stack에 Push하고 Call을 하게 되는데

thread function은 그렇게 하면 안됩니다.





체리 wrote:

> 책을 쭉보면 이해가 되거든요..실지로 코딩해 보니깐 에러가 나네요..

> 어떻게 해야할지 모르겠어요..좀 도와주세요..*^^*..

>

>

> public

> { Public declarations }

> function MyThread(P:pointer):Longint;Stdcall; 선언하구요..

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

>

> 쓰레드사용해서 함수호출

> procedure TForm1.Button1Click(Sender: TObject);

> var

> hThread:THandle;

> ThreadID:DWORD;

> begin

> hThread:=CreateThread(nil,

> 0,

> @MyThread, <<**************************여기서 에러가나요..?

> nil,

> 0,

> ThreadID);

> if hThread = 0 then

> Application.MessageBox('쓰레드 생성실패','확인',0);

> end;

>

> 그냥 함수호출

> procedure TForm1.Button2Click(Sender: TObject); begin

> Mythread(nil);

> end;

>

>

> 이함수는 그냥 1에서 1000까지합을구해서 메모에 출력해주는 간단한..그쵸

> function TForm1.MyThread(P:pointer):LongInt;StdCall

> var

> i,j:integer;

> begin

> j:= 0;

> Memo1.Clear;

> ProgressBar1.Position:=0;

> for i:=0 to 1000 do

> begin

> inc(j);

> form1.Memo1.Lines.Add(intTostr(j));

> ProgressBar1.Position:=j;

> end;

> end;

>

정말루 감사하구요..

그럼 어디다 선언해줘야 할지 모르겠어요..

쪼금만 갈쳐주세여...감사합니다...^^

unit untthread;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, StdCtrls;



type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

ProgressBar1: TProgressBar;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }



end;



var

Form1: TForm1;







implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

hThread:THandle;

ThreadID:DWORD;

begin

hThread:=CreateThread(nil,

0,

@MyThread,

nil,

0,

ThreadID);

if hThread = 0 then

Application.MessageBox('쓰레드 생성실패','확인',0);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

Mythread(nil);

end;



function TForm1.MyThread(P:pointer):LongInt;StdCall

var

i,j:integer;

begin

j:= 0;

Memo1.Clear;

ProgressBar1.Position:=0;

for i:=0 to 1000 do

begin

inc(j);

form1.Memo1.Lines.Add(intTostr(j));

ProgressBar1.Position:=j;

end;

end;



end.

MyThread라는 function을 TForm Class의 객체로 선언하지 말고

다음과 같이 일반 procedure로 선언한 다음 사용하면 됩니다.

그런데 예제를 보니 ProgressBar를 진행시키는 것을

Thread로 처리하시려고 하는 것 같은데

VCL관련 콘트롤을 thread에서 처리하는 것은

좋은 방법이 아닙니다.

제 생각에는 CreateThread win32 API를 사용하는 것 보다

TThread라는 것을 우선 숙지하시는 것이 좋을 것 같네요.

델파이 관련 책이나 예제를 보면

TThread 사용방법을 쉽게 알 수 있을 겁니다.





unit untthread;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, StdCtrls;



type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

ProgressBar1: TProgressBar;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }



end;



function MyThread(P:pointer):LongInt;StdCall;



var

Form1: TForm1;







implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

hThread:THandle;

ThreadID:DWORD;

begin

hThread:=CreateThread(nil,

0,

@MyThread,

nil,

0,

ThreadID);

if hThread = 0 then

Application.MessageBox('쓰레드 생성실패','확인',0);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

Mythread(nil);

end;



function MyThread(P:pointer):LongInt;StdCall;

var

i,j:integer;

begin

j:= 0;

Form1.Memo1.Clear;

Form1.ProgressBar1.Position:=0;

for i:=0 to 1000 do

begin

inc(j);

form1.Memo1.Lines.Add(intTostr(j));

Form1.ProgressBar1.Position:=j;

end;

end;



end.

그렇게 하니깐 되네여..정말루 감사 드려요..

첨이라서 아직 잘 몰라요..*^^*....

더 열심히 공부할수 있게 해 주셔서 고맙습니다..