C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[39249] Re:web브라우져에 포스트로 내용전송.
2HB [thigon] 1718 읽음    2005-02-24 09:22
38946번 글과 그 밑에 붙어있는 글을 보시면 여기에 대한 내용이 나와있습니다.
저도 한번 사용해 본 결과 잘 사용되구요. 다만 중요(하진 않은)한 것은 저기에 있는 구분자를 &로 하면 안되고 &&를 쓰셔야 하더군요.
그니까.. 이런 식으로 쓰시면 됩니다.

/*38946번에 있는 함수 그대로 복사한 것 -_-;;;; */
void TForm1::WebPostData ( TCppWebBrowser * CppWebBrowser, String sURL, String sPostData )
{
    BSTR        bstrHeaders = NULL;
    TVariant    vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
    LPSAFEARRAY psa;
    LPCTSTR     cszPostData = sPostData.c_str();
    UINT        cElems = lstrlen (cszPostData);
    LPSTR       pPostData;
    LPVARIANT   pvPostData;


    WideString Head = "Content-Type: application/x-www-form-urlencoded\r\n"
                              "Accept-Language: ko\r\n"
                              "Accept-Encoding: gzip, deflate\r\n";
                              //"Referer: http://127.0.0.1/login.htm\r\n";

    bstrHeaders = SysAllocString(Head);
     
    if (!bstrHeaders)
    {
        Application->MessageBox("Could not allocate bstrHeaders", "Warning", MB_OK | MB_ICONWARNING);
        return;
    }

    V_VT(&vHeaders) = VT_BSTR;
    V_BSTR(&vHeaders) = bstrHeaders;

    pvPostData = vPostData;

    if (pvPostData)
    {
        VariantInit(pvPostData);

        psa = SafeArrayCreateVector (VT_UI1, 0, cElems);
        if (!psa)
        {
            return;
        }

        SafeArrayAccessData(psa, (LPVOID*)&pPostData);
        memcpy(pPostData, cszPostData, cElems);
        SafeArrayUnaccessData(psa);

        V_VT(pvPostData) = VT_ARRAY | VT_UI1;
        V_ARRAY(pvPostData) = psa;
    }
    CppWebBrowser->Navigate2(&(TVariant)sURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}
/*38946번에 있는 함수 그대로 복사한 것 -_-;;;; */

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String sTemp = "";

    sTemp = "userid=" +Edit1->Text.Trim()+
            "&&passwd=" +Edit2->Text.Trim()+
            "&&sender=" +Edit3->Text.Trim()+
            "&&reciver=" +Edit4->Text.Trim()+
            "&&message="+Edit5->Text.Trim()+
            "&&receiver_name="+Edit6->Text.Trim()+
            "&&email2="+Edit7->Text.Trim();

    WebPostData ( WebBrowser, "http://www.winc7788.co.kr/MSG/send/web_admin_send.htm",sTemp);
}

이성제 님이 쓰신 글 :
: 포맷 메소드를 쓰면 된다고 하던데.. 잘 모르겠습니다. (머쓱)
:
:  form method=post name=all target=hidfrm action=http://www.winc7788.co.kr/MSG/send/web_admin_send.htm>  
:  input type=hidden name=userid value=문자나라아이디>  
:  input type=hidden name=passwd value=문자나라비밀번호>  
:  input type=hidden name=sender value=보내는번호>  
:  Input type=hidden name=receiver value=받는번호>  
:  input type=hidden name=message value=보내는메시지>

+ -

관련 글 리스트
39248 쪼금 괴상한 질문?! 자바소스를 BCB 소스로좀.. 이성제 859 2005/02/24
39249     Re:web브라우져에 포스트로 내용전송. 2HB 1718 2005/02/24
39259         Re:Re:web브라우져에 포스트로 내용전송. 이성제 4025 2005/02/24
39266             Re:Re:Re:^^;; 2HB 4671 2005/02/24
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.