TNMHTTP로 Post메쏘드로 로그인까지는 되는데..
다음 페이지에도 Post메쏘드로 데이터를 전송하고자 한다면 어떻게 해야하는지요?
웹페이지는 반드시 로그인페이지를 거쳐 세션을 받아야지만 갈수 있습니다.
소스는...."시간이 만료되었습니다. \n\n 다시 로그인해주세요."가 출력됩니다.
AnsiStrng myCookie;
//---------------------------------------------------------------------------
void __fastcall TForm1::LoginClick(TObject *Sender)
{
AnsiString S;
S = "action=login.asp&User_ID=username&User_PWD=1234";
NMHTTP1->Post("
http://XXX.XXX.XXX.XXX/login.asp", S);
Next->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NextClick(TObject *Sender)
{
AnsiString S;
S = "action=emp_list.asp&User_ID=";
S += Edit2->Text;
NMHTTP1->Post("
http://XXX.XXX.XXX.XXX/emp_list.asp", S);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMHTTP1Success(CmdType Cmd)
{
if (NMHTTP1->CookieIn != "")
Memo4->Text = NMHTTP1->CookieIn;
Memo1->Text = NMHTTP1->Header;
Memo2->Text = NMHTTP1->Body;
myCookie = NMHTTP1->CookieIn;
}
//---------------------------------------------------------------------------
//////////////////////
//상대방 웹서버 소스 (수정불가함 T.T;;)
//emp_list.asp의 javascript
//If session("User_ID") = "" Then
// alert("시간이 만료되었습니다. \n\n 다시 로그인해주세요.");
/////////////////////
//////////////////////
//로그인시...login.asp
//Session("User_ID")=rs("ID")