Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
res: TMemoryStream;
ress: string;
p: PChar;
begin
p := PChar(ress);
res := TMemoryStream.Create;
idhttp1.Get('xxx?serial=1233', res);
SetLength(ress, res.Size);
res.Read( p, res.Size);
edit1.Text := ress;
end;
kriege in edit1.text keep ausgegeben obwohl der name peter ist hier nochmal der phpcode
Delphi-Quellcode:
<?php
mysql_connect("
localhost",
"xxxx","xxx")
or die
("Keine Verbindung moeglich");
mysql_select_db("xxxxx")
or die
("Die Datenbank existiert nicht");
$serial = $_GET["serial"];
$abfrage = "SELECT * FROM Kunden WHERE id Like '
$serial'"
or die
("Existiert nicht");
$ergebnis = mysql_query($abfrage);
while($row = mysql_fetch_object($ergebnis))
{
echo $row->Name;
}
?>