🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: How to NOT download Images when using TCppWebBrowser?

#427
From: Eduardo Jauch
Date: Sat, 03 Feb 2007 03:36
74 lines
3111 bytes
Eduardo Jauch escreveu:
> Tom escreveu:
> 
>>  TIdMultiPartFormDataStream *PostData = new TIdMultiPartFormDataStream;
> 
> In what header is the definition for this?
> 

I think that there's no component like this at the Indy that I have (I 
don't know the version, but comes with the BCB 2006).

I try this instead:


   TMemoryStream *strm = new TMemoryStream;
   TStringList *values = new TStringList;

   AnsiString value;

   value = "MYLOGIN";
   values->Add("login=" + value);

   value = "MYPASSWORD";
   values->Add("senha=" + value);

   IdHTTP1->Post("http://www.visto-eua.com.br/agendamento-web/login", 
values, strm);

   strm->Position = 0;
   Memo1->Lines->Clear();
   Memo1->Lines->LoadFromStream(strm);

   delete values;
   delete strm;


But I get an error 500 internal server error

I put the LOGIN and 123456 between \' and \", because I think that the 
server is refusing the values I give. (login and password)

The password is encrypted no?

What am I doing wrong?


HTML (more complete):
This is the HTML in the FRAME

<script>
function enviar()
{
	var frm = document.forms[0];
	frm.action = "/agendamento-web/login";
	frm.task.value = 'login';
	frm.method = "POST";
	frm.submit();
}
</script>

<form name="loginForm" method="get" action="/agendamento-web/login">

<input type="hidden" name="task" value="">
<input type="hidden" name="item" value="">
<input type="hidden" name="tipo" value="AGENCIA DE VIAGEM">
<input type="hidden" name="redirect" value="/agenciadores.do">

<input name="login" type="text" class="box_tabela" size="30">
<input name="senha" type="password" class="box_tabela" size="30">

<a href="javascript: enviar();"><img 
src="/agendamento-web/images/pt_BR/bt_submeter.gif" border="0"></a>

</form>
Technical Details
Message-ID: <45c402df@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news2.volia.net!hwmnpeer01.ams!news.highwinds-media.com!feeder1.cambrium.nl!feed.tweaknews.nl!news2.euro.net!newsfeed.freenet.de!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail
References: <45c3b1be$1@newsgroups.borland.com> <45c3c514$1@newsgroups.borland.com> <45c3ced8@newsgroups.borland.com> <45c3dd00$1@newsgroups.borland.com> <45c3e8fe$1@newsgroups.borland.com> <45c3edbd$1@newsgroups.borland.com> <45c3f16d@newsgroups.borland.com> <45c3fb53$1@newsgroups.borland.com>

Show Full Headers
Complete Article Headers
X-Google-Thread: feeec,6f641b2ecb4f1ab6
X-Google-Attributes: gidfeeec,public
X-Google-Language: ENGLISH,ASCII-7-bit
Date: Sat, 03 Feb 2007 01:36:09 -0200
From: Eduardo Jauch <eduardo.jauch@gmail.com>
User-Agent: Thunderbird 1.5.0.9 (Windows/20061207)
MIME-Version: 1.0
Newsgroups: borland.public.cppbuilder.internet.web
Subject: Re: How to NOT download Images when using TCppWebBrowser?
References: <45c3b1be$1@newsgroups.borland.com> <45c3c514$1@newsgroups.borland.com> <45c3ced8@newsgroups.borland.com> <45c3dd00$1@newsgroups.borland.com> <45c3e8fe$1@newsgroups.borland.com> <45c3edbd$1@newsgroups.borland.com> <45c3f16d@newsgroups.borland.com> <45c3fb53$1@newsgroups.borland.com>
In-Reply-To: <45c3fb53$1@newsgroups.borland.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 201.15.254.107
Message-ID: <45c402df@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1170473695 201.15.254.107 (2 Feb 2007 19:34:55 -0800)
Lines: 78
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news2.volia.net!hwmnpeer01.ams!news.highwinds-media.com!feeder1.cambrium.nl!feed.tweaknews.nl!news2.euro.net!newsfeed.freenet.de!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail