Tim Young [Elevate Software] wrote:

>>use a THTMLForm instance with a TFileComboBox instance for specifying the file to upload.

Tim I was not aware of this method and I tried it out today, I which I had know about it I would have save hours.

The only way to send a login and password with the Submit is to have TEdit controls on the THTMLForm or is there away so I can add them in code?

KIm

Set the TEdit Visible := False - then set the values in code.

Walter

Walter Matte wrote:

>>Set the TEdit Visible := False - then set the values in code.

I placed three TEdit on the HTMLForm and on the module I only see this in the Request.RequestContent:

[0] ----------------------7e13e6332705cc
[1] Content-Disposition: form-data; name="FileCombobox1"; filename="C:\users\kim\myapppic\test.png
[2] Content-Type: image/bmp
[3]
[4] BM?:

No Edit.
How would extract the information if I get it. Is there a way to extract the filename?

Kim

Removed the FileComboBox and I got the Edit added the FileComboBox back now I get them all.
Is the away to extract the value or do I have to go through each string and do a text search?

Kim

Found it: RequestContentParams

Is there any return value to the HTMLForm1.Submit?

I can't find any in the documentation.

Kim

There is not exactly a return value.  

You can link a TBrowser component to the THTMLForm - it will receive the response. You can use the TBrowser.OnLoad event to triggger what you want to do next. Unfortunately you cannot programmatically interogate the contents returned to the TBrowser.....

If you look at the example FormSubmit project:

procedure TMainForm.SubmitButtonClick(Sender: TObject);
begin
  ClearErrorMessages;
  ClearErrorControls;
  if CheckHTMLForm then
     begin
     IncidentHTMLForm.Output:=ResultsDialog.ResultsBrowser;   // <<<<<<<<<<<<<
     IncidentHTMLForm.Submit;
     ResultsDialog.ResultsBrowser.tag := 1;
     ShowProgress('Doing Submit');
     ResultsDialog.ShowModal;
     end
  else
     MessageDlg('Please correct the following input errors:'+CRLF+CRLF+
                GetErrorMessages+CRLF+CRLF,'Input Errors',mtError,[mbOk],mbOk,AfterMessageDlg,True);
end;


Walter

Walter Matte wrote:


>>There is not exactly a return value.  

>>You can link a TBrowser component to the THTMLForm - it will receive the response. You can use the TBrowser.OnLoad event to triggger what you want to do next. Unfortunately you cannot programmatically interogate the contents returned to the TBrowser.....

Thanks
Kim

Kim,

<< Removed the FileComboBox and I got the Edit added the FileComboBox back now I get them all.
Is the away to extract the value or do I have to go through each string and do a text search? >>

Are you referring to getting the file names and their content on the server side ?

If so, then that is what this property is for:

http://www.elevatesoft.com/manual?action=viewprop&id=ewb2mod&product=rsdelphiwin32&version=10B&comp=TEWBServerRequest&prop=RequestMIMEParts

When the EWB Web Server encounters form-data with MIME parts for the files, it automatically splits them out into this property and removes them from the "normal" textual properties like RequestContentParams.

Tim Young
Elevate Software
www.elevatesoft.com

Walter Matte wrote:
>>You can use the TBrowser.OnLoad event to triggger

How will I see if I get a HTTP_OK or Error in the Onload of the Browser.

Kim