🚀 go-pugleaf

Remy Lebeau (TeamB) wrote:

> You cannot use it at all.  The IHTMLInputFileElement::value property is
> read-only.  This is by design as part of Microsoft's security model.

Ok. Thanks.

> The only way to fill in the field programmably is to set focus to the edit
> control itself (use IHTMLElement::focus()) and then send keystrokes to it.

Setting focus was possible with IHTMLElement2::focus()   // 2 added

But sending keystrokes took me hours before I had managed that.
It appears that using keybd_event() for a TEdit is easier then
to a TWebBrowser.

Using WM_CHAR like:

	 SendMessage(WebBrowser1->Handle, WM_CHAR, 'G', 2);

does nothing.

   SendMessage ( WebBrowser1->Handle, WM_KEYDOWN, 'w', 0);

does not work either. So I constructed a function ( see below )
that uses keybd_event(). This works but only after taking
special care for char's like : \ ' . - +

For the moment this function will do but as soon as there
are other special chars in filenames it will fail.

Isn't there a function that will convert a char to VK_XXXX ?

Hans.

void SendKeys(char *s)
   {
   if (s)
	{
	do
	  {
	  bool withshift = false;

	  char key= *s++;

	  if ( key == '.' )
		key = VK_OEM_PERIOD ;
	  else if ( key == ',' )
		key = VK_OEM_COMMA;
	  else if ( key == '-' )
		key = VK_OEM_MINUS;
	  else if ( key == '+' )
		key = VK_OEM_PLUS;
	  else if ( key == ':' )
		{
		key = VK_OEM_1;

		withshift = true;
		}
	  else if ( key == '\\' )
		key = VK_OEM_5 ;
	  else if ( isupper (key ) )
		{
		withshift = true;
		}
	  else key = UpCase (key);

	  if ( withshift )
		{
		WPARAM param =WPARAM(VK_LSHIFT);
		keybd_event(param,0,0, 0);
		}

	  WPARAM param =WPARAM(key);
	  keybd_event(param,0,0,0);
	  keybd_event(param,0,KEYEVENTF_KEYUP,0);

	  if ( withshift)
		{
		WPARAM param =WPARAM(VK_LSHIFT);
		keybd_event(param,0,KEYEVENTF_KEYUP,0);
		}

	  } while (*s);
	}
   }

> Otherwise, you will have to stop using TWebBrowser to submit the forms at
> all.  Use an HTTP library to program to the HTTP protocol directly.  Indy,
> for example, has a special TStream class specifically for uploading
> form-based fields, including files.

As can be seen in the source op the url tat I provided earlier there is
javascript onsubmit() to be executed. Will TIdHTTP care for that too?
I don't think so.

At the moment things run. The program can upload a directory with videos
to the specified url and extract the resulting url's for use in webpages.

Hans.