기관서 wrote:

> Ocx를 만들려고 합니다.

> ActiveForm을 하나 생성하고, OCX컴파일도 정상적으로 생성햇습니다.

> 그래서 Html 문서에서 의 형식으로

> 태크를 주었는데 값이 넘어오질 않내요...

> 물론 _TLB.pas 파일에 프로퍼티를 추가했지요. Type은 'istrings'형으로요.

> 처음엔 값을 읽어올수가 있었는데 다른걸 추가하다보니 값을 읽으려하는곳에서 IE가

> '치명적인 오류'란 메세지가 뜨고 종료됩니다.

> 순서가 틀린건지 프로퍼티를 잘못 추가한건지 모르겠내요.........

> 이 게시판에 있는 'ActiveForm 인자전달...'을 읽어보구 그대로 했습니다.

> 프로퍼티 Type 설정만 빼구요..... 근대 Get_xx, Set_xx를 어떻게 입력해야

> 하는지두 모르겠어요...

>

> 도움을 부탁드립니다...

> 읽어주셔서 감사합니다.

> 좋은하루 되세요.................





제가 한 인자전달 방식입니다. 참고하셔용~!

우선 타입라이브러리에서 한 것은

http://user.chollian.net/~garam4g/type.jpg

를 참고하시구요..



그리고 소스에서는 다음과 같이 처리를 하였습니다.

procedure TActcineX.PlayMovie(ID, MovieID, Movie, Time, his1, his2, his3,

his4, his5, his6, his7, his8, his9, his10, bill: OleVariant);

begin

Frmmain := TFrmmain.Create(self);

Frmmain.ClientSocket.Active := true;

Frmmain.ID := ID;

Frmmain.Movie := Movie;

Frmmain.Time := Time;

Frmmain.MovieID := MovieID;

Frmmain.His1 := his1;

Frmmain.His2 := his2;

Frmmain.His3 := his3;

Frmmain.His4 := his4;

Frmmain.His5 := his5;

Frmmain.His6 := his6;

Frmmain.His7 := his7;

Frmmain.His8 := his8;

Frmmain.His9 := his9;

Frmmain.His10 := his10;

Frmmain.Bill := bill;

frmmain.Show;

end;



initialization

TActiveFormFactory.Create(

ComServer,

TActiveFormControl,

TActcineX,

Class_ActcineX,

1,

'',

OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,

tmApartment);

end.



그리고 html 소스에는



:

:

:

:
:

:

:

::



이런식으로 하였답니다.



행복하셔용~!