🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.internet.web
Article #1594

Re: Post

#1594
From: Francisco Navarro
Date: Wed, 27 Oct 2004 10:49
60 lines
2733 bytes
I never thought that make an Post was so hard....

I have tried with
    TVariant Datos = "usuario=paco123&password=paco123";
    MyTccpWebBrowser -> Navigate
(http://www.iberware.com/enercut/parametros.php",NULL,NULL,Datos);

    The url is the real url, and the usuario and password are real too. this
pages is made only for try, and it show in screen the
parametros that catch with Get. Is written in asp

I try with with this code too.

void 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;

  bstrHeaders = SysAllocString(L"Content-Type:
application/x-www-form-urlencodedrn");
  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->Navigate((TVariant)sURL, &vFlags, &vTargetFrameName,
&vPostData, &vHeaders);
}

but send noting..

is impossible to pass two string ?
Technical Details
Message-ID: <417f7c6c$1@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!border2.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!news-hub.cableinet.net!blueyonder!news-peer-test!btnet!newsfeed.bt.es!195.5.65.34.MISMATCH!caladan.arrakis.es!caladan.landsraad.net!newsgroups.borland.com!not-for-mail
References: <417e4d44@newsgroups.borland.com> <417e519d@newsgroups.borland.com> <417e6e3e@newsgroups.borland.com> <417e7974$1@newsgroups.borland.com>

Show Full Headers
Complete Article Headers
X-Google-Thread: feeec,77418a7a384f2c1c
X-Google-Attributes: gidfeeec,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: "Francisco Navarro" <newtuningmad@telefonica.net>
Newsgroups: borland.public.cppbuilder.internet.web
References: <417e4d44@newsgroups.borland.com> <417e519d@newsgroups.borland.com> <417e6e3e@newsgroups.borland.com> <417e7974$1@newsgroups.borland.com>
Subject: Re: Post
Date: Wed, 27 Oct 2004 12:49:23 +0200
Lines: 64
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
NNTP-Posting-Host: 83.34.211.104
Message-ID: <417f7c6c$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1098873964 83.34.211.104 (27 Oct 2004 03:46:04 -0700)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!border2.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!news-hub.cableinet.net!blueyonder!news-peer-test!btnet!newsfeed.bt.es!195.5.65.34.MISMATCH!caladan.arrakis.es!caladan.landsraad.net!newsgroups.borland.com!not-for-mail