Q&A

  • webbrowser동적생성시 create된것을 화면상으로 보려면..
WebBrowser2 := tWebBrowser.Create(FImprnv);

WebBrowser2.Align :=alClient;

WebBrowser2.Left := 10;

WebBrowser2.Top := 100;

WebBrowser2.Width := 500;

WebBrowser2.Height := 500;

WebBrowser2.Visible := True;

WebBrowser2.OnCommandStateChange := OnCommandStateChange;

WebBrowser2.Focused;

WebBrowser2.Navigate(impov2.Nav_Str);



웹브라우저를 create해서.. 화면상에 보고싶은데..

위와같이 하니깐.. 화면에 보이지를 않아요..

create한 webbrowser2를 화면상으로 볼수 있게할려면 create할때

별도로 해줘야할게있나요?

답변부탁드립니다. 감사합니다.^^..



3  COMMENTS
  • Profile
    김지엽 2001.10.18 07:03
    생성을 이렇게 시켜주세요.



    WebBrowser2 := TWebBrowser.Create(Self);

    TControl(WebBrowser2).Parent := 폼이름;



    김은희 wrote:

    > WebBrowser2 := tWebBrowser.Create(FImprnv);

    > WebBrowser2.Align :=alClient;

    > WebBrowser2.Left := 10;

    > WebBrowser2.Top := 100;

    > WebBrowser2.Width := 500;

    > WebBrowser2.Height := 500;

    > WebBrowser2.Visible := True;

    > WebBrowser2.OnCommandStateChange := OnCommandStateChange;

    > WebBrowser2.Focused;

    > WebBrowser2.Navigate(impov2.Nav_Str);

    >

    > 웹브라우저를 create해서.. 화면상에 보고싶은데..

    > 위와같이 하니깐.. 화면에 보이지를 않아요..

    > create한 webbrowser2를 화면상으로 볼수 있게할려면 create할때

    > 별도로 해줘야할게있나요?

    > 답변부탁드립니다. 감사합니다.^^..

    >

  • Profile
    김은희 2001.10.18 18:57
    감사드립니다. 그렇게 하니까 되네요..



    제가 또 하나 해결하지 못한것이...

    webbrowser을 생성후

    webbrowser.navigate("http://~") 라는 명령을 주면 처음 몇번은 잘 되다가







    for i := 0 to ListBox1.items.count - 1 do

    begin

    Nav_Str := 'http://www.ncomasp.com/web_service/service/impo_sin/prn_out/off_prn_print.asp?'

    + 'impo_key=' + Copy(ListBox1.items[i],43,11) + '&impo_tcano=' + copy(ListBox1.items

    [i],28,5);

    FImprnv := TFImprnv.Create(Application);

    FImprnv.Showmodal;

    FImprnv.Free;

    end;



    라는 코딩을 넣구



    FImprnv폼을 show할때 다음과 같은 코딩을 넣었어요



    WebBrowser2 := TWebBrowser.Create(Self);

    TControl(WebBrowser2).Parent := FImprnv;



    WebBrowser2.Align :=alClient;

    WebBrowser2.Left := 10;

    WebBrowser2.Top := 10;

    WebBrowser2.Width := 500;

    WebBrowser2.Height := 500;

    WebBrowser2.Visible := True;

    WebBrowser2.OnCommandStateChange := OnCommandStateChange;

    WebBrowser2.Focused;

    WebBrowser2.Navigate(impov2.Nav_Str);



    이렇게하면 처음 몇번은 navigate가 잘 되는데..

    몇번을 계속 navigate를 하게되면... 그 사이트를 계속 찾고만 있어요..

    프로그램을 종료하고 다시 실행하면 바로 그 사이트로 접속을 하구요..

    뭣때문에 이런건지.. 좀 도와주세요....

  • Profile
    김지엽 2001.10.19 20:57
    음.. 별다른 문제점을 생각해낼 수가 없네요?

    어쩌면 ASP를 제공하는 서버의 문제가 아닐까요? 한꺼번에 날아온 리퀘스트를 처리하지 못한다던지, 처리상에 있어서 쓰레기값이 남아 있다던지...



    김은희 wrote:

    > 감사드립니다. 그렇게 하니까 되네요..

    >

    > 제가 또 하나 해결하지 못한것이...

    > webbrowser을 생성후

    > webbrowser.navigate("http://~") 라는 명령을 주면 처음 몇번은 잘 되다가

    >

    >

    >

    > for i := 0 to ListBox1.items.count - 1 do

    > begin

    > Nav_Str := 'http://www.ncomasp.com/web_service/service/impo_sin/prn_out/off_prn_print.asp?'

    > + 'impo_key=' + Copy(ListBox1.items[i],43,11) + '&impo_tcano=' + copy(ListBox1.items

    > [i],28,5);

    > FImprnv := TFImprnv.Create(Application);

    > FImprnv.Showmodal;

    > FImprnv.Free;

    > end;

    >

    > 라는 코딩을 넣구

    >

    > FImprnv폼을 show할때 다음과 같은 코딩을 넣었어요

    >

    > WebBrowser2 := TWebBrowser.Create(Self);

    > TControl(WebBrowser2).Parent := FImprnv;

    >

    > WebBrowser2.Align :=alClient;

    > WebBrowser2.Left := 10;

    > WebBrowser2.Top := 10;

    > WebBrowser2.Width := 500;

    > WebBrowser2.Height := 500;

    > WebBrowser2.Visible := True;

    > WebBrowser2.OnCommandStateChange := OnCommandStateChange;

    > WebBrowser2.Focused;

    > WebBrowser2.Navigate(impov2.Nav_Str);

    >

    > 이렇게하면 처음 몇번은 navigate가 잘 되는데..

    > 몇번을 계속 navigate를 하게되면... 그 사이트를 계속 찾고만 있어요..

    > 프로그램을 종료하고 다시 실행하면 바로 그 사이트로 접속을 하구요..

    > 뭣때문에 이런건지.. 좀 도와주세요....