Php script ile iletişim kurmak ve mysql veritabanında bazı veri eklemek için Delphi 7 ve ICS bileşenleri kullanıyorum ...
Http yazıyı kullanarak unicode veri göndermek nasıl?
Utf8encode tnt denetimlerden kullandıktan sonra ben PHP komut dosyası göndermek için yapıyorum
<?php
echo "Note = ". $_POST['note'];
if($_POST['action'] == 'i')
{
/*
* This code will add new notes to the database
*/
$sql = "INSERT INTO app_notes VALUES ('', '" . mysql_real_escape_string($_POST['username']) . "', '" . mysql_real_escape_string($_POST['note']) . "', NOW(), '')";
$result = mysql_query($sql, $link) or die('0 - Ins');
echo '1 - ' . mysql_insert_id($link);
?>
Delphi kodu:
data := Format('date=%s&username=%s&password=%s&hash=%s¬e=%s&action=%s',
[UrlEncode(FormatDateTime('yyyymmddhh:nn',now)),
UrlEncode(edtUserName.Text),
UrlEncode(getMd51(edtPassword.Text)),
UrlEncode(getMd51(dataHash)),UrlEncode(Utf8Encode(memoNote.Text)),'i'
]);
// try function StrHtmlEncode (const AStr: String): String; from IdStrings
HttpCli1.SendStream := TMemoryStream.Create;
HttpCli1.SendStream.Write(Data[1], Length(Data));
HttpCli1.SendStream.Seek(0, 0);
HttpCli1.RcvdStream := TMemoryStream.Create;
HttpCli1.URL := Trim(ActionURLEdit.Text);
HttpCli1.PostAsync;
Ama unicode değeri sonra Tnt Not bakın orijinal biri tamamen farklı olduğunu sonrası
Ben eksik bir şey var mı?!
Ayrıca herkes Indy ile bunu nasıl bilir?
Teşekkürler.