안녕하세욤!


Form.Create에서 가져 오셔도 되던가욤??  그게 되는진 모르겠지만,
다음과 같은 방식을 사용해 보십시오..

일단..


타입라이브러리에서 추가 해 주신다음 등록을 해 주셨는지요..

타입라이브러리에서 추가 후에 윗줄 버튼들중에 보시면

Register Type Library 버튼이 있습니다. 이 버튼을 클릭 해 주시면
등록 되었다는 메세지와 함께

본문에 다음과 같이 추가 됩니다.

== 예제로 참고 하세요 ==

unit ActiveFormImpl1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ActiveX, AxCtrls, ActiveFormProj1_TLB, StdVcl;

type
  TActiveFormX = class(TActiveForm, IActiveFormX)
  private
    { Private declarations }
    FEvents: IActiveFormXEvents;
    ...
    ...
    ...
    ...

  protected
    { Protected declarations }
    procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
    procedure EventSinkChanged(const EventSink: IUnknown); override;
    ...
    ...
    ...
    ...
    function Get_Property1: Integer; safecall;
    procedure Set_Property1(Value: Integer); safecall;

===================================================================

바로 윗 부분에 다음과 같이 추가 되고, 소스코드에 역시 펑션과, 프로시져
가 자동으로 생성이 됩니다.

이 펑션과 프로시져를 이용하셔서 파라메터 값을 가져 올 수 있습니다.
가져오는 예는 다음과 같습니다.

function  TActiveFormX.Get_Property1:WideString;
begin
  Result:= csMain.Address;
end;

procedure TActiveFormX.Set_Property1(Const Value:WideString);
begin
  csMain.Address:= Value;
  If csMain.Port <> 0 then csMain.Open;
end;

참고로 procedure TActiveFormX.Set_Property1(Const Value:WideString);
프로시져에서 데이터를 가져 올 수 있습니다. 저기 보이시는
Value 가 파라메터 값을 가지고 있는거죠. 즉 html param에서 지정된
값을 의미 합니다.

그럼! 즐코 되세요!