Q&A

  • ActiveX 파라미터...??
ocx 생성중입니다.
type library에서 property 를 만들었습니다.

델파이 소스 :
function TActiveFormX.Get_ServerDBIP: OleVariant;
begin
//
end;

procedure TActiveFormX.Set_ServerDBIP(Value: OleVariant);
begin
     m_strServerIP := Value ;
end;

function TActiveFormX.Get_Login: OleVariant;
begin
//
end;

procedure TActiveFormX.Set_Login(Value: OleVariant);
begin
     m_strLogin := Value ;
end;

function TActiveFormX.Get_DatabaseName: OleVariant;
begin
//
end;

procedure TActiveFormX.Set_DatabaseName(Value: OleVariant);
begin
     m_strDatabaseName := Value ;
end;

htm소스:

<OBJECT
          classid="clsid:5F8FE004-2B9B-4793-9703-867C69CAE950"
          codebase="xxx.cab#version=1,0,21,0"
          width=894
          height=575
          align=center
          hspace=0
          vspace=0
>
<PARAM NAME="ServerDBIP" VALUE="111.111.111.111">
<PARAM NAME="Login" VALUE="aaaaa">
<PARAM NAME="DatabaseName" VALUE="bbbbb">
</OBJECT>


ActiveFormCreate 함수안에서 m_strServerIP, m_strLogin, m_strDatabaseName 변수에 아무런 값이 들어있지 않습니다.
뭘 잘못했는지...
꼭 가르쳐 주십시오.
감사합니다.
3  COMMENTS
  • Profile
    최용일 2002.02.21 02:59
    안녕하세요. 최용일입니다.

    HTML에서 파라매터 받으실려면 Object ID가 필요합니다. HTML에다가 ID를 추가해주세요...

    <OBJECT
              classid="clsid:5F8FE004-2B9B-4793-9703-867C69CAE950"
              id="My Program"
              ......
    </OBJECT>

    ^^ 항상 즐코하세요...

  • Profile
    신용탁 2002.02.21 05:29
    님... 답변 감사합니다.
    님께서 id를 추가하라고 하셨는데요...
    id란게 ocx나 cab 파일 이름을 의미하는건지요.
    id에 ocx나 cab 파일 이름(xxx)을 넣어봤는데...
    그래도 변수에 값이 들어가지 않습니다.
    어케 해야 되는지...
    다시 답변 부탁드립니다.
    감사합니다.

  • Profile
    최용일 2002.02.21 19:31
    Object ID는 아무 이름이나 상관없구요...

    저는 아래와 같은 식으로 사용하는데 이상없이 잘 들어오는데요...

    type
    TCstmInst = class(TActiveForm, ICstmInst)
        private
            FServerIP: string;
        protected
            function Get_ServerIP: WideString; safecall;
            procedure Set_ServerIP(const Value: WideString); safecall;
        ......
    end;

    function TCstmInst.Get_ServerIP: WideString;
    begin
        Result := WideString(FServerIP);
    end;

    procedure TCstmInst.Set_ServerIP(const Value: WideString);
    begin
        FServerIP := string(Value);
    end;

    ^^