Prelevare dati

[intimoviro]

Salve ragazzi, ho un programma scritto in delphi che invia questi dati tramite http ad una pagina php, ora come prelveo il i dati?

giace.First;
           While Not giace.eof do
             begin
               parametri.Clear;
               if TTArtbase.Locate('Articolo etichetta',giaceArticolo.AsString,[]) then
                 begin
                  parametri.Values['Variante1'] :=  TTArtbaseVariante1.AsString;
                  parametri.Values['Variante2'] :=  TTArtbaseVariante2.AsString;
                 end;
               parametri.Values['products_attributes_id'] :=  giaceArticolo.AsString;
               giacvar := giaceQtainiziale.AsInteger + giaceQtacarico.AsInteger - giaceQtascarico.AsInteger;
               if giacvar < 0 then
                  giacvar := 0;
               giac := giac + giacvar;
               parametri.Values['options_quantity'] := inttostr(giacvar);
               parametri.Values['action'] := 'setstockvar' ;
               risposta.Text := Config_ecomm.HttpClient.Post(Config_ecomm.TConfigEcommHostPath.asstring,parametri);
               giace.Next;
             end;

Ora nella mia pagina(p.php) ho scritto una funzione per prelevare il valore che m'interessa cioè Variante1

function MOSC_setstockvar($params) {
	$sqltext = "select * from products_options where products_options_name = '" . $params['Variante1'] . "'";

	$query = tep_db_query($sqltext);
	while ($row = tep_db_fetch_array($query))
	{
		$pvar = $row['products_options_id'];
	};
//prelevo i dati da un'altra funzione
$pid = getproductid($params['Model']);

$query = "INSERT INTO products_attributes (products_attributes_id, products_id, options_id, options_values_id, product_attribute_is_free, attributes_discounted, attributes_price_base_included) VALUES ('', '$pid', '$pvar', '1', '1', '1', '1')";
$insert = mysql_query($query);
   if(!$insert) die(mysql_error());
};

Però non mi preleva alcun dato.

Grazie

 

[Eliox]

cosa intendi per prelevare i dati?

 

[intimoviro]

Voglio il valore contenuto nel parametro Variante 1, qui:

parametri.Values['Variante1'] :=  TTArtbaseVariante1.AsString;

Quel codice scritto in delphi invia quei parametri come un form, però non riesco a prelevare il valore.

Grazie

 

[alessandro1997]

Scusami, ma tu devi prelevare da PHP un parametro inviato come POST tramite il protocollo HTTP, che però è definito da un programma scritto in Delphi, esatto? Ma non puoi usare $_POST['nome']?

 

[intimoviro]

Purtroppo ho provato, ma comunque non mi da alcun valore

 

[alessandro1997]

Credo che tu debba prima impostare gli header necessari, ma non ne sono sicuro perché non ho mai passato parametri POST a PHP con linguaggi fuori dall'HTML che in fatto di header fa tutto da solo. Non c'è una funzione per l'invio degli header in Delphi?

 

[intimoviro]

Purtroppo non conosco delphi, questo è un codice di un gestionale che permette di allineare il gestionale stesso con il sito.