Q&A

  • webbrowser명령


초보가 올립니다.



web브라우져를 만들려고 하는데



webbrowser를 등록해서 하려고 하는데 간단한 명령을 가르쳐 주시겠습니까.



사이트이동만이라도 navigate...

2  COMMENTS
  • Profile
    조규춘 2000.02.18 03:55
    김양재 wrote:

    >

    > 초보가 올립니다.

    >

    > web브라우져를 만들려고 하는데

    >

    > webbrowser를 등록해서 하려고 하는데 간단한 명령을 가르쳐 주시겠습니까.

    >

    > 사이트이동만이라도 navigate...





    안녕하십니까? 사이트이동 말씀이십니까? 안내해드리겠습니다.

    문의 하신 코드는

    procedure 폼의 주소 입력창(combobox1)에 키프레스;

    var

    MyVariant : OleVariant;

    begin

    if key = vk_return then

    begin

    if UpperCase(Copy(combobox1.Text, 1, 4)) = 'WWW.' then

    begin

    combobox1.Items.Add(address.text);

    combobox1.Text := 'http://'+ Address.Text;

    end;



    WebBrowser_V1.Navigate(combobox1.Text, MyVariant, MyVariant,

    MyVariant, MyVariant);

    end;

    end;



    그리고요!

    WebBrowser_V1.Refresh; 새로고치시고

    WebBrowser_V1.Stop; 중지하시고

    WebBrowser_V1.GoForward; 앞으로하시고

    WebBrowser_V1.GoBack; 뒤로하시고



    이용해 주셔서 감사합니다.



  • Profile
    김양재 2000.02.18 06:25
    조규춘 wrote:

    > 김양재 wrote:

    > >

    > > 초보가 올립니다.

    > >

    > > web브라우져를 만들려고 하는데

    > >

    > > webbrowser를 등록해서 하려고 하는데 간단한 명령을 가르쳐 주시겠습니까.

    > >

    > > 사이트이동만이라도 navigate...

    >

    >

    > 안녕하십니까? 사이트이동 말씀이십니까? 안내해드리겠습니다.

    > 문의 하신 코드는

    > procedure 폼의 주소 입력창(combobox1)에 키프레스;

    > var

    > MyVariant : OleVariant;

    > begin

    > if key = vk_return then

    > begin

    > if UpperCase(Copy(combobox1.Text, 1, 4)) = 'WWW.' then

    > begin

    > combobox1.Items.Add(address.text);

    > combobox1.Text := 'http://'+ Address.Text;

    > end;

    >

    > WebBrowser_V1.Navigate(combobox1.Text, MyVariant, MyVariant,

    > MyVariant, MyVariant);

    > end;

    > end;

    >

    > 그리고요!

    > WebBrowser_V1.Refresh; 새로고치시고

    > WebBrowser_V1.Stop; 중지하시고

    > WebBrowser_V1.GoForward; 앞으로하시고

    > WebBrowser_V1.GoBack; 뒤로하시고

    >

    > 이용해 주셔서 감사합니다.

    >

    감사합니다. ^.^