I send multiple parameters to my module using TServerRequest using the following code:

with ServerRequest do
  begin
     Method := rmPost;
     URL := 'modules/ewbmodule';
     Params.Clear;
     Params.Add('SessionAddress='+frmhoofdmenu.L_Ftpserverparameters.columns['HOST'].asstring);
     Params.Add('SessionUser='+frmhoofdmenu.L_Ftpserverparameters.columns['USERID'].asstring);
     Params.Add('SessionPassword='+frmhoofdmenu.L_Ftpserverparameters.columns['Password'].asstring);
     Params.Add('SessionDb='+frmhoofdmenu.L_Ftpserverparameters.columns['USERID'].asstring);
     Params.Add('ContactID='+IntToStr(v_contact_ID));
     Execute;
  end;

Now I need to send the same parameters when I upload files to the server using TFileComboBox in combination with THtmlForm using the following code:

with HTMLForm1 do
    begin
    url := 'modules/ewbmodule';
    submit;
    end;

How can I send the parameters??

Paul Waegemans wrote:

> with HTMLForm1 do
>      begin
>      url := 'modules/ewbmodule';
>      submit;
>      end;
>
> How can I send the parameters??

Create edit boxes on the form with the name property set to the names of the parameters, and set them to the values you need. You can have them invisible if you wish.

--

Matthew Jones

Paul,

<< How can I send the parameters?? >>

Per email:

Just set the parameters in-line as part of the URL:

MyHTMLForm.URL:='http://www.mysite.com/submitform?param1=value&param2=value&param3=value

Tim Young
Elevate Software
www.elevatesoft.com