Buenas
He probado con el segundo método y no en principio funcionó, pero misteriosamente ha dejado de hacerlo y no consigo ponerlo de nuevo en marcha.
Tengo este codigo php
Código PHP:
<?PHP
if (isset($_POST['send']))
{
$dbhost="localhost";
$dbusuario="root";
$dbpassword="h0o";
$db="ultra";
$conexion = mysql_connect($dbhost, $dbusuario, $dbpassword);
mysql_select_db($db, $conexion);
$result=mysql_query('INSERT INTO `customers` (`UID`, `SERIALNUM`, `KEY`) VALUES (\'c\', \'c\', \''.$_POST['Key'].'\');',$conexion);
mysql_close($conexion);
echo "Done";
}
?>
Que funciona desde el navegador. Y este codigo delphi
Código:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
idHttp: TIdHTTP;
datosPost:TIdMultiPartFormDataStream;
params:TStrings;
begin
datosPost := TIdMultiPartFormDataStream.Create;
params:=TStringList.Create;
try
datosPost.AddFormField('Key',Edit3.Text);
params.Add('Key='+Edit3.Text);
idHttp := TIdHTTP.Create(Self);
try
Memo1.Text:=idHttp.post('http://localhost/registro/sendform.php',params);
finally
idHttp.Free;
end;
finally
datosPost.Free;
end;
end;
En Memo1.Text no sale nada
y en la base de datos menos.