[SOLVED][HTTPServer] How to get the Combobox value?
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Focus77 · 2019-06-07 17:53

Hi everyone

I try to insert rows with "GET" Method.
All the fieldsvalues are added normally except the combobox one:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  Add('
<select name="Option">');       OPTION.First;      while not
OPTION.EOF do begin      Add('<option
value="">'+OPTION.FieldValues['NOM_OPT']+'</option>');     
OPTION.Next;      end;      Add('</select>');
The whole code:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TFPWebModule1.insertRequest(Sender: TObject; ARequest: TRequest; 
AResponse: TResponse; var Handled: Boolean);  var    Conn:
TSQLConnector;    CLASSE,OPTION: TSQLQuery;   
LId,LNom,LOption:String;  begin    Conn := TSQLConnector.Create(nil); 
  with Conn do begin      ConnectorType := 'Firebird';     
DatabaseName := 'E:/web/database/NOTES.fdb';      Username:='sysdba'; 
    Password:='masterkey';      Transaction :=
TSQLTransaction.Create(Conn);    end;     CLASSE:=
TSQLQuery.Create(nil);    OPTION:= TSQLQuery.Create(nil);   
CLASSE.DataBase := Conn;    OPTION.DataBase := Conn;    with
AResponse.Contents do begin      Clear;      Add('<!doctype html>'); 
   Add('<html>');      Add('  <head>');      Add('  
 <title>Example</title>');      Add('<meta http-equiv="content-type"
content="text/html; charset=UTF-8">');      Add('  </head>');     
Add('  <body>');       Add('<HR>');      OPTION.SQL.Text := 'select *
from OPTIONS';      OPTION.Open;       CLASSE.SQL.Text := 'select *
from CLASSE';      CLASSE.Open;      
LId:=ARequest.QueryFields.Values['Id'];     
LNom:=ARequest.QueryFields.Values['Nom'];     
LOption:=ARequest.QueryFields.Values['Option'];        with
AResponse.Contents do      Add('<form action="' + ARequest.URI + '"
method="GET"');      Add('      <tr>');      Add('<INPUT type="text"
name="Id" size="2"  maxlength="2" align="left">');      Add('<INPUT
type="text" name="Nom" size="4"  maxlength="4" align="left">');     
 Add(' <select name="Option">');       OPTION.First;      while not
OPTION.EOF do begin      Add('<option
value="">'+OPTION.FieldValues['NOM_OPT']+'</option>');     
OPTION.Next;      end;      Add('</select>');       Add('<input
type="submit" value="Send" />');      Add('      </tr>');     
Add('</form>');       if (LId<>EmptyStr)  then      begin       
CLASSE.Insert;       CLASSE.FieldByName('COD_CLS_CL').AsString:=LId; 
    CLASSE.FieldByName('NOM_CLS').AsString:=LNom;     
 CLASSE.FieldByName('OPT_CL').AsString:=LOption;     
 CLASSE.ApplyUpdates(-1);       conn.Transaction.CommitRetaining;    
 end;       Add('    <table border="1" cellspacing="2"
cellpadding="2">');      Add('      <tr>');      Add('      
 <th>Id</th>');      Add('        <th>Nom</th>');      Add('      
 <th>Option</th>');      Add('      </tr>');        while not
CLASSE.EOF do begin        Add('        <tr>');        Add('      
 <td>'+CLASSE.FieldByName('COD_CLS_CL').AsString+'</td>');       
Add('        <td>'+CLASSE.FieldByName('NOM_CLS').AsString+'</td>');  
    Add('      
 <td>'+CLASSE.FieldByName('OPT_CL').AsString+'</td>');        Add('  
  </tr>');        CLASSE.Next;      end;      Add('    </table>');   
 Add('  </body>');      Add('</html>');     end;    Handled:=True;   
CLASSE.Close;    CLASSE.Free;    Conn.Free;  end;        Any idea?

----------------------------------------------------------------------
Focus77 · 2019-06-09 16:42

Hi everyone

Although I have improved the code, the problem still remains.
I think that the answer  is with "CBOnChange" event, but I'm not sure 
I can use it! 

New code:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TFPWebModule1.insertRequest(Sender: TObject; ARequest: TRequest; 
AResponse: TResponse; var Handled: Boolean);  var    Conn:
TSQLConnector;    CLASSE,OPTION: TSQLQuery;   
LId,LNom,LOption:String;  begin    Conn := TSQLConnector.Create(nil); 
  with Conn do begin      ConnectorType := 'Firebird';     
DatabaseName := 'E:/web/database/NOTES.fdb';      Username:='sysdba'; 
    Password:='masterkey';      Transaction :=
TSQLTransaction.Create(Conn);    end;     CLASSE:=
TSQLQuery.Create(nil);    OPTION:= TSQLQuery.Create(nil);   
CLASSE.DataBase := Conn;    OPTION.DataBase := Conn;    with
AResponse.Contents do begin      Clear;      Add('<!doctype html>'); 
   Add('<html>');      Add('  <head>');      Add('<meta http-
equiv="content-type" content="text/html; charset=UTF-8">');      Add('
   <title>Insert</title>');      Add('  </head>');      Add('
 <body>');      Add('<strong><u><FONT COLOR="Blue"><em> How to insert
a new record?</em></FONT></u></strong>');      Add('<BR>');
Add('<BR>');Add('<BR>');Add('<BR>');      OPTION.SQL.Text := 'select *
from OPTIONS';      OPTION.Open;       CLASSE.SQL.Text := 'select *
from CLASSE';      CLASSE.Open;      
LId:=ARequest.QueryFields.Values['Id'];     
LNom:=ARequest.QueryFields.Values['Nom'];     
LOption:=ARequest.QueryFields.Values['Option'];        with
AResponse.Contents do       Add('<form action="' + ARequest.URI + '"
method="GET"');       Add('      <tr>');       Add('&nbsp');     
 Add('        <th><FONT COLOR="#ff0000"><em>Id</em></FONT></th>');   
  Add('&nbsp');Add('&nbsp');Add('&nbsp');Add('&nbsp');       Add('   
   <th><FONT COLOR="#ff0000"><em>Nom</em></FONT></th>');     
 Add('&nbsp');Add('&nbsp');Add('&nbsp');Add('&nbsp');       Add('    
  <th><FONT COLOR="#ff0000"><em>Option</em></FONT></th>');       Add('
     </tr>');       Add('<BR>');       Add('      <tr>');     
 Add('<INPUT type="text" name="Id" size="2"  maxlength="2"
align="left">');       Add('<INPUT type="text" name="Nom" size="4"
 maxlength="4" align="left">');        Add(' <select
name="Option">');        Add('<option value="">&nbsp &nbsp &nbsp &nbsp
&nbsp &nbsp---o---       </option>');       OPTION.First;      while
not OPTION.EOF do       begin      Add('<option
value="">'+OPTION.FieldValues['NOM_OPT']+'</option>');     
OPTION.Next;      end;      Add('</select>');       Add('<input
type="submit" value="Post" />');      Add('      </tr>');     
Add('</form>');       if (LId<>EmptyStr)  then      begin       
CLASSE.Insert;       CLASSE.FieldByName('COD_CLS_CL').AsString:=LId; 
    CLASSE.FieldByName('NOM_CLS').AsString:=LNom;     
 CLASSE.FieldByName('OPT_CL').AsString:=LOption;     
 CLASSE.ApplyUpdates(-1);       conn.Transaction.CommitRetaining;    
 end;      Add('<BR>');      Add('    <table border="1"
cellspacing="2" cellpadding="2">');      Add('      <tr>');      Add('
       <th>Id &nbsp &nbsp &nbsp; </th>');      Add('        <th>Nom
&ensp;&ensp;  </th>');      Add('        <th>Option &emsp; &emsp;
&emsp;&emsp; &ensp; &nbsp</th>');      Add('      </tr>');       while
not CLASSE.EOF do begin        Add('        <tr>');        Add('     
 <td>'+CLASSE.FieldByName('COD_CLS_CL').AsString+'</td>');       
Add('        <td>'+CLASSE.FieldByName('NOM_CLS').AsString+'</td>');  
    Add('        <td>'+CLASSE.FieldByName('OPT_CL').AsString+
'</td>');        Add('      </tr>');        CLASSE.Next;      end;   
 Add('    </table>');      Add('  </body>');      Add('</html>');   
 end;    Handled:=True;    CLASSE.Close;    OPTION.Close;   
Conn.Free;  end;

----------------------------------------------------------------------
Soner · 2019-06-09 17:17

You must answer the request. I don't worked with TWebModule but  I
think it is the Event TWebModule.OnRequest.
It must be like this:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Procedure
TWebModule1.OnRequest(Sender : TObject; ARequest : TRequest; AResponse
: TResponse; Var Handled : Boolean);begin 
 Writeln(ARequest.ContentFields.Values['Option']); //Option is your
combobox, you called it self.end; 
I am using TFPHTTPServer directly without modules. It is easier to
maintenance the application.

----------------------------------------------------------------------
sash · 2019-06-09 18:40

Select's option value attribute should be filled
Code: HTML5  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i <option
value="111">Display text for key 111</option><option
value="112">Display text for key 112</option>preferably with unique
key, this is what you get back in form submit request.

https://www.w3schools.com/html/tryit.asp?filename=tryhtml_elem_select

----------------------------------------------------------------------
Focus77 · 2019-06-09 22:18

Hi everyone!

The tip that the combobox is known by its name:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  Add('
<select name="List_Opt">');
and thus the value can be collected:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
LOption:=ARequest.QueryFields.Values['List_Opt'];

I transformed the code of "sash" like this:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
 OPTION.First;      while not OPTION.EOF do       begin     
 val:=OPTION.FieldValues['NOM_OPT'];  //Val:AnsiString;     
Add('<option value='+val+'>'+val+'</option>');      OPTION.Next;     
end;       
Finally:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
CLASSE.FieldByName('OPT_CL').AsString:=LOption;
Soner & sash thank you for your help.