Q&A

  • ActiveForm에서 HTML로 값 넘기기입니다..ㅡㅡ^
질문 많이 올리네요..ㅡㅡ
산넘어 산이니 이거...죽갔습니다..
다름이 아니라 ActiveForm에서 완료 버튼을 클릭하면 자바스크립트같은 함수를 호출해서 값을 넘기려고 합니다. 값은 스트링으로 4개가 넘어가구요..
이리저리 질답 찾아서 프로퍼티 생성과 메소드 생성을 했긴했는데요..
어디다가 값을 세팅해야 할지 모르겠네요..
예를 들어...
LiveFing이란 프로퍼티를 생성했습니다. 레지스트리 등록을 하니 아래와 같은 function과 procedure가 생기더군요.. 그렇다면 HTML로 넘길려고하는 값을 어디다 세팅해야 하나요?ㅡㅡ

function TJuminVerify.Get_LiveFing: OleVariant;
begin
//
end;

procedure TJuminVerify.Set_LiveFing(Value: OleVariant);
begin
//
end;

그리고, 메소드를 하나 생성했죠.. gTemp란 메소드로요.. 다음과 같이 생기더군요.. 뭘 코딩해야하는지..ㅡㅡ^
procedure TJuminVerify.gTemp();
begin

end;

정리를 하자면 프로퍼티 4개 만들고 메소드에서 자바스크립트 호출하면 자바스크립트에서 프로퍼티 4개를 가져갈 수 있다는건 알겠는데 어케 기술해야하는지 모르겠네요... ㅡㅡ
그리고, 자바스크립트 내용은 어케 기술해야하는지.. 도통 답이 나오질 않네요..
좀 질문 내용도 어지럽고 답해주시려면 써주셔야할 것두 많을 것 같은 생각이 드네요...
번거로우시고 귀찮으시더라도... 답변 부탁드립니다.. 꾸벅...(__)
어쨌든 매번 읽어봐주시고 답변 주신 분들께 감사드립니다...^^
1  COMMENTS
  • Profile
    델초보 2003.11.21 21:53
    출처
    http://www.howtodothings.com/showarticle.asp?article=111"



    With the Delphi Active Form it is easy to create an ActiveX (OCX)
    component what can be integrated into programs like VB, VBA
    (Word, Excel, Access, and Outlook), Delphi, C++, and in this case
    the IE Web-Browser via a HTML document.

    From the Delphi IDE File | New menu, display the New Item dialog box,
    and from the ActiveX tab select the Active Form option.

    The Active Form creates a new Active Form, which is a simpler
    ActiveX control (descended from the TActiveForm) pre-configured to
    run in a Web Browser. The ActiveX Control Wizard appears to guide
    you through the creation process, allowing you to add controls to
    the form. The Wizard creates an ActiveX Library project (if needed),
    a type library, a form, an implementation unit, and a unit containing
    corresponding type library declarations.

    Enter the New ActiveX Name in the Active Form Wizard. Change the
    Implementation Unit name and Project name as needed.

    Choose the threading model to indicate how COM serializes calls to
    your ActiveX control.

    Note: The threading model you choose determines how the object is
    registered. You must make sure that your object implementation
    adheres to the model selected.

    Before activate the OK button check the required Control Options.
    For more information use the Help button.


    Add a property:
    Display the projects xx_TLB.Pas file. From the Edit Window hit the
    F12 to display the .Tlb form.
    Under the Project you will find the Interface entry. If you expand
    the entry you will see several pre-created properties. Right click
    in the outline area and select the New | Property option. Two
    Properties is added to the outline: The get and the put Property.
    Enter the name and the type for the Properties.

    In the protected area of the Class you will find a function and a
    procedure matching the new Property. In the implementation section
    you also will find the two functions and procedure. Add the
    appropriated code to the function and the procedure.

    function TActiveXtest1.Get_Entry: WideString;
    begin
      Result := EditEntry.Text; // Read the TEdit text
    end;

    procedure TActiveXtest1.Set_Entry(const Value: WideString);
    begin
      EditEntry.Text := Value; // Set the TEdit text
    end;



    Add an Event:
    Open the Event section in the outline and right click. Select the
    New | Method option. Give the Method a name like OnSubmit.

    Lets say you want to assign a button click on the form with the new
    event. Insert the following code under the button click procedure.

    procedure TActiveXtest1.ButtonSubmitClick(Sender: TObject);
    begin
      If FEvents <> Nil Then
      Begin
        FEvents.OnSubmit; // OnSubmit is the new event
      End;
    end;

    Compile the application. From the IDE Run menu you can register and
    unregister the ActiveX with the registry.

    The IDE can create an HTML test document for you to test the ActiveX.

    <HTML>
    <H1> Delphi 5 ActiveX Test Page </H1><p>
    You should see your Delphi 5 forms or controls embedded in the form below.
    <HR><center><P>
    <OBJECT
    classid="clsid:83613669-F82A-4EF6-AADB-F7BD04559711"
    codebase="C:/A/Delphi5/Test/ActiveX/Test1/ActiveXtest1Proj1.inf"
    id="ActiveXtest1"
    width=217
    height=89
    align=center
    hspace=0
    vspace=0
    </OBJECT>
    </HTML>

    You can change the code base to use the OCX instead of the INF file:

    codebase="C:/NTS/Check/CheckIt.Ocx"

    The code base is where the ActiveX is located so if it is not
    registered with the registry the Web Browser knows where to find the
    OCX.

    When loaded from a web-site the code base should point to the URL
    where the OCX can be found.

    codebase="\activex\checkit.ocx"

    You need to read a write the ActiveX property, which can be done with
    a VBScript:

    <script language="VBScript">
    <!-- hide from old browsers
    Sub NewAccount(Account)
        NtsCheckIt.AccountNo = Account
    End Sub
    //-->
    </script>

    Or it can be done with a JavaScript:

    <script language="JavaScript">
    <!-- hide from old browsers
    function new_account_no(account)
    {
      NtsCheckIt.AccountNo = account;
    }
    //-->
    </script>

    So fare so good. Now we get to the best part connecting the event
    in the ActiveX OCX and the HTML document.

    In the VBScript world you would do the following:

    <!--VBScript eg-->
    <script language="VBScript">
    <!-- hide from old browsers
    Sub NtsCheckIt_OnSubmit()
        MsgBox NtsCheckIt.AccountNo
    End Sub
    </script>

    The same can also be done in the JavaScript:

    <SCRIPT LANGUAGE="JavaScript" EVENT="OnSubmit" FOR="NtsCheckIt">
    <!--
    alert("Account # " + NtsCheckIt.AccountNo);
    // -->
    </SCRIPT>

    Conclusion:
    With the Delphi Active Form you can easily develop ActiveX OCX.
    Drop TEdits and TButtons on the form and you have input and output
    to the OCX. With the .TLB form you can add Properties and Event
    which can be connected to an HTML document via VBScript or JavaScript.
    • 김배성
    • 2003.11.20 02:40
    • 1 COMMENTS
    • /
    • 0 LIKES
    • pbi12
      2003.11.22 08:04
      안녕하세요. 저도 살짝해본적은 있는데, 트리뷰를 보시면은 / root가 있고, 그 아래 서브트리구조가 생성...
    • 양진영
    • 2003.11.20 01:02
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이추형
      2003.11.21 02:31
      프로젝트를 새로 만드시고요 delphi 3.0에서 delphi 5.0으로 Up되면서 바뀐내용을 적요하시야 겠네요 ...
    • 임진묵
      2003.11.20 00:50
      안녕 하세요. 델 5사용자인데요. 님의 말을 들어 보면..페스트넷에 있는 것을 사용할때 나타나는 증...
    • 곰다방~미스김
      2003.11.20 01:24
      델 6이구요...인디 깔려있어서 인디에 있는 idSMTP사용했습니다. 인증타입을 atLogin으로 하면 인증실패라...
    • 임진묵
      2003.11.20 18:16
      안녕 하세요. 인증 받으려면...인증 체크 하시고  당연 아이디 하고 비밀번호가 있어야 겠지...
    • 곰다방~미스김
      2003.11.20 23:44
      그렇게도 해보고 저렇게도 해봤는데... 안되네요.... 데모도 없고.... 메일서버세팅값을 변경하는 방법...
    • 임진묵
      2003.11.21 19:50
      이상하군요... 제가  센드 메일 8.11.6 과 8.12.5 에서 테스트 하기엔 잘 되는데요.. 제가 처...
    • 최인권
    • 2003.11.19 23:31
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 초초보
      2003.11.20 12:12
      못열어 보는 방법은 당근 없구요... 차라리 그냥 문자열 자체를 별도의 암호화 함수 가져오셔서 암호화 ...
    • 최윤호
    • 2003.11.19 23:13
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 남영석
      2003.11.19 23:46
      해당기능은 저도 몇번해봤는데 안되더라구요. 익스플로러를 임베딩은 되는데 그 안에서 발생하는 키의...
    • 김광호
    • 2003.11.19 23:09
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 이진균
    • 2003.11.19 21:23
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 박동호
      2003.11.19 23:20
      됩니다. 그리드에다 Canvas.Brush.Color  해 놓고 색깔 넣어주면 됩니다.
    • 이진균
      2003.11.22 03:05
      Canvas.Brush.Color를 두번 쓰니 되네요
    • 이추형
      2003.11.21 02:32
      Locate 명령을 쓰셔서 첫번째 스트링그리드의 값에 해당하는 두번째 스트링그리드의 값에 Locate명령주...
    • 채수정
    • 2003.11.19 10:09
    • 10 COMMENTS
    • /
    • 0 LIKES
    • 김경록
      2003.11.23 00:58
      이건, Sub-Query가 없다면, 해결할 수 없는 문제이군여.. Paradox는 Sub-Query를 지원하지 않으므로 편법...
    • 최진술
      2003.11.21 00:03
      원하시는게 SQL 한 문장으로 JOIN 해서 답을 얻고자 하신다면 아래의 방법을 써보세요.. FROM 이후절에 S...
    • 채수정
      2003.11.21 04:19
      관심과 도움 말씀에 감사드림돠.(-.-)(_._) 도움 말씀대로 해 보았습니다..만.. From 이후 Select 절에...
    • 최진술
      2003.11.22 19:15
      코딩하신 소스를 보면 생략된 부분이 있긴하지만  잘못된 부분은 없는 것 같네요.. 하지만 MESSA...
    • 채수정
      2003.11.22 21:03
      부족한 소스를 정리까지 해주시고 정말 고맙습니다. 헌데 역쉬..님께서 테스트 하신 버젼과 DB 차이의 ...
    • 너구리
      2003.12.02 02:49
      아 updatesql만 붙이는게 아니라요.. cachedupdate도 tru로 해주고 requestlive도 true로 해주시면 ...
    • 열심히
      2003.11.22 13:27
      전에 Delphi 4.0 쓸때에 저도 그런적이 있는데.. 그냥 Query1에 updatesql을 연결해 보세요 그러니깐 ...
    • • • •
    • 김동석
      2003.11.21 02:06
      구체적으로 어떤 처리를 하려는 것인지 모르겠지만 TStrings를 써도 될거 같네요... TStrings의 Load...
    • 손희석
      2003.11.19 19:56
      fmCreate         If the file exists, open for write acces...
    • 선게
    • 2003.11.19 08:30
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 델초보
    • 2003.11.19 06:37
    • 1 COMMENTS
    • /
    • 9 LIKES
    • 델초보
      2003.11.21 21:53
      출처 http://www.howtodothings.com/showarticle.asp?article=111" With the Delphi Active Form i...
    • 공왕주
    • 2003.11.19 06:34
    • 1 COMMENTS
    • /
    • 0 LIKES
    • LDS
      2003.11.21 00:39
      꼭 dbGrid를 사용 하셔야 한다면 작업결과가 배열로 넘어 온는 것을 새 테이블을 만들면 간단 할것 같습...
    • goodlsw
    • 2003.11.19 05:54
    • 1 COMMENTS
    • /
    • 0 LIKES
    • skysoft
      2003.11.19 19:53
      만약 텍스트에디터에서 델파이5의 DFM 파일이 열린다면 텍스트에디터에서 제공하는 파일에서 바꾸기(AcroE...
    • 작스
    • 2003.11.19 04:07
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 초초보
      2003.11.20 12:14
      통신관련 부분은 윈도우API를 포장해서 쓰거든요 아마 인디컨포넌트면 될꺼 같은데 근데 ㅡ.ㅡㅋ 왜케 낮...
    • 김종곤
    • 2003.11.19 03:25
    • 0 COMMENTS
    • /
    • 0 LIKES
    • ^자]물병[리^
      2003.11.22 00:22
      제가 찾은 쿼리를 함 올려볼까 합니다.. sqler라는 사이트에서 참고한 겁니다. SELECT   (SE...