┌─────────────┐

│ │ button1 을 누르면 이페이지에 로긴 정보( 아이디와 │ web : TwebBrowser │ 패스워드)를 post 값을 전달해서 페이지를 부르게

│ │ 되지엽.. 이렇게 되면 그페이지는 그아이디와

└─────────────┘ 패스워드를 가지고 윈도우의 익스플로어를 새로 불러서 로긴된 웹을 익스플로어로 보여주는 그러한 방법인데... 부르는 것 까지는 잘되었는데... 그 페이지에 들어가면.. 이궁.. 쿠키 정보(세션이라고도 하던데..) 가 없다고 로그아웃 되어 버리더라구엽. 어떻게 하면.. 로그 아웃이 안될까엽. 혹시 아시는 분 있나엽??

쿠키(세션) 정보 를 델파이로짠 프로그램에서 써서.. 윈도우의 익스플로어가 읽을수 있게 하는 법좀 갈켜 주세엽..



* 참고로.. 밑에는 누군가 짜놓으신 포스트 데이타를 전달하는 소스의 일부입니다.



Procedure TForm1.Navigate(stURL, stPostData: String; Var wbWebBrowser: TWebBrowser);

Var

vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;

iLoop: Integer;

Begin

If Length(stPostData) > 0 Then

Begin

vHeaders := 'Content-Type: application/x-www-form-urlencoded' + #10#13#0;

vPostData := VarArrayCreate([0, Length(stPostData)], varByte);

For iLoop := 0 To Length(stPostData) - 1 Do // Iterate

Begin

vPostData[iLoop] := Ord(stPostData[iLoop + 1]);

End;



vPostData[Length(stPostData)] := 0;

TVarData(vPostData).vType := varArray;

End;

vWebAddr := stURL;

wbWebBrowser.Navigate2(vWebAddr, vFlags, vFrame, vPostData, vHeaders);

End;



procedure TForm1.Button1Click(Sender: TObject);

begin

Navigate('Http://www.freechal.com/test/Login.asp','userID=00000&userPass=00000', WebBrowser1);

end;