Delphi Indy 以西里尔文发送 POST 数据

2024-01-13

我想使用 indy 10 通过 delphi 发送西里尔文帖子数据。 好吧,我知道如何发送数据,但是当我发送书面或西里尔文的内容时,发布数据响应带有一些编码符号。 这是我的代码

  http := TIDHttp.Create(nil);
  http.HandleRedirects := true;
  http.ReadTimeout := 5000;
  http.Request.ContentType:='multipart/form-data';
  param:=TIdMultiPartFormDataStream.Create;
  param.AddFormField('com','offers');
  param.AddFormField('op','new');
  param.AddFormField('MAX_FILE_SIZE','1048576');
  param.AddFormField('offer[secid]','34');
  param.AddFormField('offer[fullname]',UserArray[0], 'utf-8');
  param.AddFormField('offer[email]',UserArray[1]);
  param.AddFormField('offer[phone]',UserArray[2]);
  param.AddFormField('offer[url]',UserArray[4]);
  param.AddFormField('offer[city]','София', 'utf-8');
  param.AddFormField('offer[offer_buysell]','sell');
  param.AddFormField('offer[catid]','95');
  param.AddFormField('offer[title]',AdArray[0], 'utf-8');

  param.AddFile( 'image[0]', AdArray[3], 'image/jpeg' );

  param.AddFormField('offer[description]',AdArray[1], 'utf-8');
  param.AddFormField('offer[price]',AdArray[2]);
  param.AddFormField('offer[offer_end]','180');
  param.AddFormField('offer[email_onquestion]','1');
  param.AddFormField('iagree','1');
  param.AddFormField('btnSaveOffer','Изпрати', 'utf-8');
  valid:=true;
  url:='http://127.0.0.1/POST.php';
  text:=http.Post(url,param);

这是我的 POST.php 的响应

<?php print_r($_POST); ?>

你正在告诉AddFormField()使用 UTF-8 对文本值进行编码,然后在传输过程中使用 MIME 对 UTF-8 八位字节进行额外编码quoted-printable编码,这是默认设置TIdFormDataField.ContentTransfer文本数据的属性。您将在 PHP 输出中看到引用的可打印文本。如果您希望 PHP 接收原始 UTF-8 八位字节,请设置TIdFormDataField.ContentTransfer属性改为“8bit”或“binary”,例如:

param.AddFormField('offer[fullname]',UserArray[0], 'utf-8').ContentTransfer := '8bit';

否则,您的 PHP 代码将必须使用以下命令对引用的可打印数据进行解码引用打印解码() http://www.php.net/manual/en/function.quoted-printable-decode.php功能。

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

Delphi Indy 以西里尔文发送 POST 数据 的相关文章

随机推荐

  • 如何使用 Java 中的参数运行 VBS 函数并将结果分配给变量

    我有这个Excel宏 Function Calculate Something StartDate As Date EndDate As Date As Double some math is here not important Calc
  • 从代码中调用单击命令

    我有一个使用以下命令包装为命令的函数click http click pocoo org 5 所以它看起来像这样 click command click option w width type int help Some helping m
  • Docker 使用不同的参数运行镜像的多个实例

    我是码头工人的新手 所以这听起来可能是一个有点基本的问题 我有一个 VS Net core2 控制台应用程序 它能够接受一些命令行参数并提供不同的服务 所以在正常的命令提示符下我可以运行类似的命令 c gt dotnet myapplica
  • 如何获得 LinkedIn r_fullprofile 访问权限?

    我目前正在开发与 LinkedIn 集成的自定义应用程序 特定于公司 我已收到具有基本个人资料访问权限的数据 可以获取并填写我的应用程序中的某些字段 现在我需要完整的个人资料权限 但正如回答中这个问题 https stackoverflow
  • 如何迭代字符串并检查每个字符的字节值?

    我有代码 cell val CStr Nz fld value Dim iter As Long For iter 0 To Len cell val 1 Step 1 If Asc Mid cell val iter 1 gt 127 T
  • RxJS Observables 是否只能由一个订阅者处理?

    我试图了解 Observables 和 RxJS 是如何工作的 所以这可能根本不是如何使用它们的重点 我有一个 Angular2 应用程序 并且还使用 RxJS Observables 来发送事件 现在 对于特殊类型的错误事件 我想知道该事
  • 在 Swift 中将可选字符串转换为 int

    我在将可选字符串转换为 int 时遇到麻烦 println str VAR str VAR println str VAR toInt 结果是 str VAR Optional 100 nil 我希望它是 str VAR Optional
  • 动态列表视图内的翻转视图不可滑动

    我有一个在运行时从网络服务填充的列表视图 在列表视图的数据模板中 我制作了翻转视图 每个翻转视图都会获得用户可以滑动的三个图像 我附上了我正在寻找的图片 ISSUE Flipview 无法进行用户交互 这是下面的xaml
  • FastApi与其他Api通信

    我最近正在使用 fastapi 作为练习 我想将我的 fastapi api 与其他服务器上的验证服务连接 但我不知道如何做到这一点 我还没有在官方文档中找到对我有帮助的东西 我必须用python代码来做吗 或者有什么办法吗 FastApi
  • Java 语句,处理优先级(“悬空 else”)

    给出以下有效代码 Boolean a false if a System out println A else System out println A 根据文档 https docs oracle com javase tutorial
  • 列表索引更改多个元素

    我找不到任何与我的问题相匹配的内容 所以希望这还没有在某处提到过 我太愚蠢了 找不到它 thelist a 0 for i in range 5 thelist append a print thelist 此时程序返回 0 0 0 0 0
  • Django MEDIA_URL 和 MEDIA_ROOT

    我正在尝试通过 Django 管理上传图像 然后在前端页面或仅通过 URL 查看该图像 请注意 这一切都在我的本地计算机上 我的设置如下 MEDIA ROOT home dan mysite media MEDIA URL media 我已
  • 在 DataGridView 中隐藏行,绑定在我的项目中不起作用

    我面临一个有关项目中 DataGridView 行隐藏的问题 我粘贴的代码适用于单独的测试项目 但不适用于我的项目 请帮我解决这个问题 我正在测试的代码 public partial class frmTestGirdBinding For
  • 将行为附加到 Silverlight 中的所有文本框

    是否可以将行为附加到 Silverlight 应用程序中的所有文本框 我需要向所有文本框添加简单的功能 选择焦点事件上的所有文本 void Target GotFocus object sender System Windows Route
  • 在 Python 2 中编码转义字符而不杀死 Unicode 的正确方法是什么?

    我想我对 Python 的 unicode 字符串很着迷 我正在尝试对 Unicode 字符串中的转义字符进行编码without转义实际的 Unicode 字符 我得到这个 In 14 a u Example n In 15 b u n I
  • JQuery选择包含行中td内特定文本的所有行

    我有一个表 我试图选择其中包含文本 Test 的 td 的所有行 然后在所有匹配的行上隐藏带有 ms vb icon 类的 td 我最初有下面的代码 但这只隐藏了最后一个匹配行上的类 td contains test last parent
  • 在 Rails 中放置用户定义的类的位置

    我正在尝试使用这个类 http robbyonrails com articles 2005 05 11 parsing a rss feed http robbyonrails com articles 2005 05 11 parsin
  • 使用 restart=always 停止失败的容器

    我想停止一个无法重新启动的容器 它的状态是Restarting 该容器有restart always Doing docker stop
  • 使用本机脚本转换器

    我现在正在尝试使用 javascript 来连接 NativeScript 并有一个非常基本的问题 let costFormatter toView value console log Got value return value toMo
  • Delphi Indy 以西里尔文发送 POST 数据

    我想使用 indy 10 通过 delphi 发送西里尔文帖子数据 好吧 我知道如何发送数据 但是当我发送书面或西里尔文的内容时 发布数据响应带有一些编码符号 这是我的代码 http TIDHttp Create nil http Hand