Q&A
- DHTML Edit Control를 델파이 쓰레드에서 사용할때 문제점 질문
쓰레드를 사용하지 않고 DHTML Edit 컴포넌트를 사용했을때는
에러없이 잘돌아가는데..
쓰레드를 사용할경우 에러가 납니당...
현제 VB에서 지원하지 않는 몇가지 문제점을 해결하기 위해
델파이로 단위 테스트를 하며 컨버젼 작업을 수행하려하는데..
문서, URL 페이지 로딩시 CUP부하가 많아 쓰레드 처리를 하려는데
델파이에서 에러가 나네용...
혹시나 해서 JAVA++에서 만들어 보았더니.. 잘 돌아가는군요..
샘플 소스를 올립니다.. 프로젝트 파일은 첨프 하겠습니다..
문제점, 해결방안을 지적 해주십시요.
델파이에서는 5.0, 6.0에서 테스트 해보았는데..
5.0에서는 에러처리는 하지 않는데, 결과(로딩)이 안나오네요.
6.0에서는 엑세스 바이올레이션 에러가 처리 됩니다.
감사합니다.
=============================
Source (.pas)
=============================
unit Test;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, OleCtrls, DHTMLEDLib_TLB, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
DHTMLEdit1: TDHTMLEdit;
ProgressBar1: TProgressBar;
Animate1: TAnimate;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ActionView();
end;
TDHTML_Thread = class(TThread)
private
protected
public
procedure Execute; override;
end;
TProBar_Thread = class(TThread)
private
protected
public
procedure Execute; override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ActionView();
begin
DHTMLEdit1.LoadURL(Edit1.Text);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text <> '') then
begin
TProBar_Thread.Create(false);
TDHTML_Thread.Create(false);
end
else
begin
ShowMessage('Url을 입력하세요');
ActiveControl := Edit1;
end;
end;
// DHTML Edit Thread //
procedure TDHTML_Thread.Execute;
begin
Form1.ActionView();
end;
// Progress Bar Thread //
procedure TProBar_Thread.Execute;
var
i : integer;
begin
for i:=0 to 100000 do
begin
Form1.ProgressBar1.Position := i;
end;
for i:=100000 downto 0 do
begin
Form1.ProgressBar1.Position := i;
end;
end;
end.
에러없이 잘돌아가는데..
쓰레드를 사용할경우 에러가 납니당...
현제 VB에서 지원하지 않는 몇가지 문제점을 해결하기 위해
델파이로 단위 테스트를 하며 컨버젼 작업을 수행하려하는데..
문서, URL 페이지 로딩시 CUP부하가 많아 쓰레드 처리를 하려는데
델파이에서 에러가 나네용...
혹시나 해서 JAVA++에서 만들어 보았더니.. 잘 돌아가는군요..
샘플 소스를 올립니다.. 프로젝트 파일은 첨프 하겠습니다..
문제점, 해결방안을 지적 해주십시요.
델파이에서는 5.0, 6.0에서 테스트 해보았는데..
5.0에서는 에러처리는 하지 않는데, 결과(로딩)이 안나오네요.
6.0에서는 엑세스 바이올레이션 에러가 처리 됩니다.
감사합니다.
=============================
Source (.pas)
=============================
unit Test;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, OleCtrls, DHTMLEDLib_TLB, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
DHTMLEdit1: TDHTMLEdit;
ProgressBar1: TProgressBar;
Animate1: TAnimate;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ActionView();
end;
TDHTML_Thread = class(TThread)
private
protected
public
procedure Execute; override;
end;
TProBar_Thread = class(TThread)
private
protected
public
procedure Execute; override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ActionView();
begin
DHTMLEdit1.LoadURL(Edit1.Text);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text <> '') then
begin
TProBar_Thread.Create(false);
TDHTML_Thread.Create(false);
end
else
begin
ShowMessage('Url을 입력하세요');
ActiveControl := Edit1;
end;
end;
// DHTML Edit Thread //
procedure TDHTML_Thread.Execute;
begin
Form1.ActionView();
end;
// Progress Bar Thread //
procedure TProBar_Thread.Execute;
var
i : integer;
begin
for i:=0 to 100000 do
begin
Form1.ProgressBar1.Position := i;
end;
for i:=100000 downto 0 do
begin
Form1.ProgressBar1.Position := i;
end;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김정식
- •
- 2001.11.10 00:50
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 01:17안녕하세요. 최용일입니다. 델5에서는 EmptyParam이 System유닛에 선언되어있습니다. 델6에서는 유닛... -
김정식•2001.11.10 01:47답변에 감사드립니다. EmptyParam Undefined Error는 잘해결되었습니다. 그런데 이번엔 VarArrayCreate U...
-
최용일•2001.11.10 01:55헉~~~ 제가 델6은 써본적이 없어서... ㅠ'ㅠ... 아무래도 헬프에서 찾아보시는 것이 좋을거 같네요.....
-
- 짱아
- 2001.11.10 00:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍성호
- 2001.11.09 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이보학
- •
- 2001.11.09 23:48
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.10 02:26이보학 wrote: > 텍스트 파일을 생성해서 > 로그를 남기려구 합니다. > 그런데 텍스트 파일은 잘 생성되...
-
- 이제 조금..
- 2001.11.09 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2001.11.09 22:57
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.09 23:24초보자 wrote: > Label3.Caption := FormatFloat('#,;-#,',StrToFloat( > StringReplace...
-
느티나무•2001.11.09 23:18초보자 wrote: > Label3.Caption := FormatFloat('#,;-#,',StrToFloat( > StringReplace...
-
- 궁금이
- •
- 2001.11.09 22:34
- 6 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.10 05:27
-
궁금이•2001.11.10 05:46
-
홍성락•2001.11.10 06:05
-
최용일•2001.11.10 10:32
-
궁금이•2001.11.10 17:38
-
궁금이•2001.11.10 05:41
-
- smileye
- 2001.11.09 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 지훈
- 2001.11.09 22:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재현
- •
- 2001.11.09 21:53
- 1 COMMENTS
- /
- 0 LIKES
-
test•2001.11.10 04:05FilterIndex 사용해보세요 .. procedure TForm1.Button1Click(Sender: TObject); var I: int...
-
- 철
- •
- 2001.11.09 21:16
- 1 COMMENTS
- /
- 0 LIKES
-
LostJuly•2001.11.09 21:55철 wrote: > 오라클 서버에 로그인 한후 현제 연결된 세션이 > 끊어진 상태인지 연결된 상태인지 테이블...
-
- 델파이언
- 2001.11.09 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- rainsad@hihome.com
- 2001.11.09 21:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보*규리*
- 2001.11.09 20:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지홍
- •
- •
- 2001.11.09 20:42
- 1 COMMENTS
- /
- 2 LIKES
쓰레드를 사용하지 않고 DHTML Edit 컴포넌트를 사용했을때는 에러없이 잘돌아가는데.. 쓰레드를 사용할경우 에러가 납니당... 현제 VB에서 지원하지 않는 몇가지 문제점을 해결하기 위해 델파이로 단위 테스트를 하며 컨버젼 작업을 수행...-
김지홍•2001.11.17 00:23김지홍 wrote: > 쓰레드를 사용하지 않고 DHTML Edit 컴포넌트를 사용했을때는 > 에러없이 잘돌아가는데....
-
- 초보자
- •
- 2001.11.09 20:24
- 6 COMMENTS
- /
- 0 LIKES
-
빅용철•2001.11.10 00:14Table과 DBGrid의 ReadOnly가 False이어야 합니다. (Query의 경우 RequestLive속성) 초보자 wrote: >...
-
빅용철•2001.11.10 00:20Query의 경우 RequestLive속성은 True여야 합니다. 빅용철 wrote: > > Table과 DBGrid의 ReadOnly가 ...
-
초보자•2001.11.10 01:54빅용철 wrote: > Query의 경우 RequestLive속성은 True여야 합니다. > > 빅용철 wrote: > > > > Tab...
-
빅용철•2001.11.13 01:37Token 에러가 난나면, Query의 SQL문에 오류가 있기 때문이죠. SQL문을 바로 잡으세요. RequestLive를 안...
-
Rain Boy•2001.11.09 20:38edit 박스의 MaxLength를 살펴보세요 아마 자리수 때문인것 같은데.. 초보자 wrote: > dbgrid에 뿌려...
-
초보자•2001.11.09 22:20Rain Boy wrote: > edit 박스의 MaxLength를 살펴보세요 > 아마 자리수 때문인것 같은데.. > > 초보자...
-
- 초보자
- •
- 2001.11.09 20:18
- 2 COMMENTS
- /
- 0 LIKES
-
Rain Boy•2001.11.09 20:31Function Str_Replace(Source: String): String; var cData: String; i : Integer; begin ...
-
홍성락•2001.11.09 20:42Rain Boy님 그냥 함수알려드릴려고 했습니다. 달리 생각마세요. //문자에서 특정문자를 다른문자로 대체하...
-
- 나초보
- •
- 2001.11.09 20:17
- 1 COMMENTS
- /
- 0 LIKES
-
지나가는넘•2001.11.09 21:49if lenth(SU) > 50 then temp_SU := copy(SU,1,49); else temp_SU := SU; 대충 이렇게 하면 되겠...
-
- moon
- •
- 2001.11.09 20:38
- 2 COMMENTS
- /
- 0 LIKES
-
bingyou•2001.11.09 20:19moon wrote: > 그냥 소스를 올려놓으면... > > Procedure LibraryCall(Mainapp : TApplication; Const ...
-
moon•2001.11.09 20:51bingyou wrote: > moon wrote: > > 그냥 소스를 올려놓으면... > > > > Procedure LibraryCall(Mainap...
-
- 짱아
- 2001.11.09 19:53
- 0 COMMENTS
- /
- 0 LIKES
> 쓰레드를 사용하지 않고 DHTML Edit 컴포넌트를 사용했을때는
> 에러없이 잘돌아가는데..
> 쓰레드를 사용할경우 에러가 납니당...
>
> 현제 VB에서 지원하지 않는 몇가지 문제점을 해결하기 위해
> 델파이로 단위 테스트를 하며 컨버젼 작업을 수행하려하는데..
> 문서, URL 페이지 로딩시 CUP부하가 많아 쓰레드 처리를 하려는데
> 델파이에서 에러가 나네용...
>
> 혹시나 해서 JAVA++에서 만들어 보았더니.. 잘 돌아가는군요..
>
> 샘플 소스를 올립니다.. 프로젝트 파일은 첨프 하겠습니다..
> 문제점, 해결방안을 지적 해주십시요.
>
> 델파이에서는 5.0, 6.0에서 테스트 해보았는데..
> 5.0에서는 에러처리는 하지 않는데, 결과(로딩)이 안나오네요.
> 6.0에서는 엑세스 바이올레이션 에러가 처리 됩니다.
> 감사합니다.
>
>
> =============================
> Source (.pas)
> =============================
> unit Test;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> ComCtrls, OleCtrls, DHTMLEDLib_TLB, StdCtrls, Buttons;
>
> type
> TForm1 = class(TForm)
> Label1: TLabel;
> Edit1: TEdit;
> BitBtn1: TBitBtn;
> DHTMLEdit1: TDHTMLEdit;
> ProgressBar1: TProgressBar;
> Animate1: TAnimate;
> procedure BitBtn1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> procedure ActionView();
> end;
>
> TDHTML_Thread = class(TThread)
> private
> protected
> public
> procedure Execute; override;
> end;
>
> TProBar_Thread = class(TThread)
> private
> protected
> public
> procedure Execute; override;
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.ActionView();
> begin
> DHTMLEdit1.LoadURL(Edit1.Text);
> end;
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
> if (Edit1.Text <> '') then
> begin
> TProBar_Thread.Create(false);
>
> TDHTML_Thread.Create(false);
> end
> else
> begin
> ShowMessage('Url을 입력하세요');
> ActiveControl := Edit1;
> end;
> end;
>
> // DHTML Edit Thread //
> procedure TDHTML_Thread.Execute;
> begin
> Form1.ActionView();
> end;
>
> // Progress Bar Thread //
> procedure TProBar_Thread.Execute;
> var
> i : integer;
> begin
> for i:=0 to 100000 do
> begin
> Form1.ProgressBar1.Position := i;
> end;
>
> for i:=100000 downto 0 do
> begin
> Form1.ProgressBar1.Position := i;
> end;
> end;
>
> end.
>
>
>
>
DHTML Edit 함수의 호출시 동기화의 문제였습니다...
자바에서는 동기화 하지 않았는데 돌아가더군요.....
한가지더 참고하실점은.. DHTML Edit의 함수(LoadUrl.. 등등) 처리시
Thread로 조금이나마 CPU점유를 해결하려 했는데.. 별다른 효과가 없었습니다.
DHTML Edit 컴포넌트에 뭔가 문제가 있는듯 하네용...
좀더 Low 레벨에서 생각한다면.. 해결 방안이 있을것도 같은데.. 델파이실력이
미치질 않는군요...