Php 使用Delphi（FIREMONKEY-iOS）连接和选择数据库

我有一个数据库，想用DELPHI和FIREMONKEY CROSSOVER选择一个条目。 但我从未在DELPHI上使用过SQL。我不知道如何用DELPHI连接数据库。我不想要一手满是部件的东西。它应该是一个简单的连接，就像PHP一样

我使用XAMPP-mySQL。 假设我们有一个数据库“db_x”，带有一个选项卡“users”，该表中有以下条目： 姓名：迈克尔；姓氏：施耐德；年龄：22

数据库位于“localhost”或其他位置，登录名为“root”，密码为“rootpw”。要连接到PHP中的DB，我们使用：

mysql_connect("localhost","root","rootpw") or die ("Connection Error");
mysql_select_db("db_x") or die ("Error DB");

现在我想从一个名为“Michael”的用户那里获取姓氏：

$query=mysql\u query（“从name='Michael'的用户中选择姓氏”）
要死
（mysql_error（））；
while（$zeile=mysql\u fetch\u数组（$query））
{ 
echo$zeile[‘姓氏’]。“
”；
}  

现在这是关于PHP的，但是关于DELPHI呢？我有相同的数据库，想显示用户的姓氏，但我甚至不知道如何与DELPHI连接（，它还应该支持Firemonkey并在iOS上工作）

对不起，我犯了语法错误

---

感谢所有来自德国的回答和问候。

Delphi中有各种方法，在本例中，我有以下方法：

我在表单上有一个TSQLConnection对象（但这可以在代码中创建）。我在组件上设置了db连接和数据库设置

然后，在代码中

//variables
var Q: TSQLQuery;

//in function
Q := TSQLQuery.Create(nil);
try
  Q.SQLConnection := myConnectionObjectOnForm;
  Q.SQL.Text := "SELECT some stuff from TABLE";
  Q.Active := true;

  if not Q.Eof then
    //Do stuff eg
    result := Q.Fields[0].AsString;  //or reference FieldByName

  Q.Close;
finally
  Q.Free;
end;

---

TSQLQuery和TSQLDataSet最常用于数据检索

，以确保此恐龙的完整性。

我没有找到我当时使用的函数，但它与此类似：

http := TIdHttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 6000;
jsonToSend := TStringList.create;
jsonToSend.Text := 'json={"food":"Pizza"}';
Memo1.Lines.Text := http.Post('http://www.mypage.com/mydata.php', jsonToSend);
jsonToSend.free;
http.free;

---

在mydata.php中使用简单的mysql和json编码

您不应该使用mysql_*函数，它们除了名称之外都不推荐使用。请考虑切换到mysqli或pdo，谢谢，但是。。你知道的。。这个问题已经有一年半的历史了，在我提出这个问题的两周后，我找到了解决这个问题的方法。我甚至完全忘了我问过这个问题，特别是因为我已经不再使用Delphi开发了。我将挖掘我的旧delphi文件并发布我当时找到的解决方案。我知道这是一个非常古老的问题，但我碰巧发现了它，并认为我可以给出一个可能的解决方案：-）

http := TIdHttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 6000;
jsonToSend := TStringList.create;
jsonToSend.Text := 'json={"food":"Pizza"}';
Memo1.Lines.Text := http.Post('http://www.mypage.com/mydata.php', jsonToSend);
jsonToSend.free;
http.free;