🚀 go-pugleaf

For TWebBrowser in Turbo C++ I'm puzzled how to use put_value()
for <input type="file">

I can handle that for <input type="text" > using IHTMLInputElement.

IHTMLInputFileElement used for <input type="file"> does find the input
but put_value() has no effect.

To demonstrate the problem take a TForm and put two TSpeedButtons
on it a a TWebBrowser.

The first speedbutton will load a specific url:

void __fastcall TForm3::SpeedButton1Click(TObject *Sender)
{
	WebBrowser1->Navigate ( "http://video.tinypic.com/vidiframe.php" );
}

That page has the following <input>'s which I try to fill:
void __fastcall TForm3::SpeedButton2Click(TObject *Sender)
{
//<input type="file" name="the_file" size="30">
//<input type="text" name="the_tag" size="25" maxlength="30">

   PlaceInputFileText ( "the_file",  "a filename" );
   PlaceInputText ( "the_tag", "a title" );
}

Only the title is set.

Here the two used functions:

#include <mshtml.h>
bool __fastcall TForm3::PlaceInputText ( char *inputname, AnsiString Text )
{
bool done = false;

IHTMLDocument2 *HTMLDoc = NULL;

if(SUCCEEDED(WebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&HTMLDoc)))
{
	IHTMLElementCollection *pAll = NULL;
	if(SUCCEEDED(HTMLDoc->get_all(&pAll)))
	{
	  // <input type="text" name="the_tag">

	  Variant name = inputname;
	  Variant index = 0;

	  IDispatch *pDisp = NULL;

	   if(SUCCEEDED(pAll->item(name, index, &pDisp)))
		  {
		  if ( pDisp )
				{
			   //	IHTMLInputFileElement *pInput = NULL;     // mshtml.h
				IHTMLInputElement *pInput = NULL;     // mshtml.h
			   // IHTMLFormElement *pForm = NULL;         // mshtml.h

				pDisp->QueryInterface(IID_IHTMLInputElement, (LPVOID*)&pInput);
				pDisp->Release();

				if(pInput)
						{
						pInput->put_value(WideString(Text));

						done = true;

						/*
						WideString mybuffer;
						pInput->get_value ( &mybuffer );
						ShowMessage ( mybuffer );
						*/

						pInput->Release();
						}
				}
		  }
		  pAll->Release();
		}

	 HTMLDoc->Release();
	 }

  return done;
}


bool __fastcall TForm3::PlaceInputFileText ( char *inputname, AnsiString Text )
{
bool done = false;

IHTMLDocument2 *HTMLDoc = NULL;

if(SUCCEEDED(WebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&HTMLDoc)))
	{
	IHTMLElementCollection *pAll = NULL;
	if(SUCCEEDED(HTMLDoc->get_all(&pAll)))
	{
			// <input type="file" name="the_file">

	  Variant name = inputname;
	  Variant index = 0;

	  IDispatch *pDisp = NULL;

	   if(SUCCEEDED(pAll->item(name, index, &pDisp)))
		  {
		  if ( pDisp )
				{
				IHTMLInputFileElement *pInput = NULL;     // mshtml.h
				//  IHTMLInputElement *pInput = NULL;     // mshtml.h
			   // IHTMLFormElement *pForm = NULL;         // mshtml.h

			  //	pDisp->QueryInterface(IID_IHTMLInputElement, (LPVOID*)&pInput);
				pDisp->QueryInterface(IID_IHTMLInputFileElement, (LPVOID*)&pInput);
				pDisp->Release();

				if(pInput)
						{
						pInput->put_value(WideString(Text.c_str()));

						done = true;

						/*
						WideString mybuffer;
						pInput->get_value ( &mybuffer );

						ShowMessage ( mybuffer );
						*/

						pInput->Release();
						}
				}
		  }
		  pAll->Release();
		}

	 HTMLDoc->Release();
	 }

  return done;
}

Who knows how to set Video input prgammatically?

Hans.