Registro online

[harpo]

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 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.

[harpo]

El silencio me da miedo ...