草庐IT

php - 使用 Delphi TidHttp 抓取时检测客户端重定向

我是一名Delphi开发人员,负责抓取和meta面向公众的网站的描述和关键字。一直很好,直到我遇到一个self重定向但未使用HTTP302/301重定向的网站。例如,如果我输入example.com在url中,会自动跳转到example-b.com-但在客户端-不是通过HTTP301或302。我的目标是获取example-b.com的标题、描述和关键字.如果有帮助,我会在delphi中使用TidHttp。编辑我试过这个answer但据说只适用于HTTP301和302。我已经处理了这些重定向。我想弄清楚如何处理refersh标签或其他执行重定向的html命令。编辑2刚刚找到这个命令:he

php - TPLockBox3 和 PHP - AES 在 Delphi 中加密,在 PHP 中解密

我在使用lockbox3和PHPmcrypt时遇到了麻烦。我无法将IV传递给PHP。Delphicode:varCodec:TCodec;CL:TCryptographicLibrary;PlainStream:TStringStream;CipherStream:TMemoryStream;beginPlainStream:=TStringStream.Create(Edit1.Text);CipherStream:=TMemoryStream.Create;CL:=TCryptographicLibrary.Create(nil);Codec:=TCodec.Create(nil)

php - 在没有smtp的情况下在Delphi中发送电子邮件并在服务器上使用php函数

使用Delphi,我想使用winsock将文本消息发送到我的Web服务器,然后使用服务器上的电子邮件php功能来发布消息。首先我完成了发送程序(ProcedureSendEmail):它读取一个文本文件(日志)并将其发布到我的服务器。在服务器上,邮件由名为email.php的电子邮件php函数接收(请参阅下面该函数的内容):ProcedureSendEmail;varWSADat:WSAData;//winsock.pasTexto:TextFile;Client:TSocket;Info,Posting,Linha,Content:String;SockAddrIn:SockAddr

php - 如何将 REAL48 float 转换为 double

我正在连接到一个PervasiveSQL数据库,该数据库将一些数据拆分为两个字段。DOUBLE字段实际上分为fieldName_1和fieldName_2,其中_1是2字节int,_2是4字节int。我想获取这些值并使用PHP将它们转换为可用值。我有一些示例代码来进行转换,但它是用我不理解的Delphi编写的:{ReconstitutesaSmallIntandLongIntthatform}{aRealintoadouble.}FunctionEntConvertInts(ConstInt2:SmallInt;ConstInt4:LongInt):Double;StdCall;Var

PHP 附加到 ClientDataSet CDS 文件

我有一个空的DelphiClientDataSetCDS文件设置,其中包含我需要的所有列/标题/数据类型。我想使用PHP将关联数组附加到CDS行中。这可能吗?数组可以是:{1:{Name:Captain,Phone:18001234567}2:{Name:Jack,Phone:18009876543}3:{Name:Sparrow,Phone:18887892345}}我选择PHP是因为我精通这门语言,而且我的网络服务器是共享Linux主机。基本上我不能在这里运行Delphi。我对可以在这种环境中工作的其他选项持开放态度。谢谢!编辑:请参阅这篇文章的评论以了解我的解决方案。

如何在Delphi中删除数组类型声明?

我需要标记为弃用数组类型声明(嗯,实际上不仅仅是一个),以帮助将我们的代码迁移到更高级和灵活的TArray通用类型。我已经尝试了:typeTArrayChars=arrayofChardeprecated;但是我有一个汇编错误:E2029';'expectedbutidentifier'deprecated'found如果声明的类型不是数组,则相同的作品,例如:typeTFieldChars=setofChardeprecated;请注意,这应该可以通过设计可行。我想念什么?这似乎是Delphi(至少10.1柏林和10.2东京)的错误。我接受的答案提出了整洁的解决方法,那是:typeTArra

php - Delphi 实现 REST 服务器

我在服务器上有一个mysql数据库,我使用我编写的脚本在其中插入数据。我必须打开www.mywebsite.com/rest/create.php?param=value¶m2=value2来创建一个新资源,然后我必须打开另一个php文件来编辑一个项目等等。这是基本方法:一个php文件接受一些参数,然后将文件存储在数据库中。我正在使用TIdHTTP因为我有可能做类似的事情:TIdHTTP1.Get(www.mywebsite.com/rest/create.php?param=value¶m2=value2);create.php页面正在返回一些以json编码的数据。在

php - 如何将数据发送到 PHP 脚本并立即从同一脚本中取回数据

我有一个类似的问题here,但它是面向PHP端的。看起来PHP能够接收数据包并立即(在同一session中)发送并回复。我的问题是德尔福能做到吗?据我所知,答案是否定的。我需要分两步(两个程序)来完成。问题是session可能会在第一个过程结束时关闭。我能否在两个过程调用之间保持session打开。 最佳答案 我将为您提供PHP和Delphi的示例代码。我们将使用GET请求方法,因为它更容易,如果您不需要发送太多数据就足够了。我将从PHP脚本开始,因为它可以单独测试,无需Delphi应用程序(我们将使用浏览器对其进行测试)。这是PH

php - 使用 DCPcrypt 的 Delphi 程序在升级到 XE2 后无法从 PHP 解密

我有一个用Delphi2007开发的应用程序,其中一个值由PHP加密并在应用程序中解密。加密算法是RIJNDAEL128。当我移动XE2并安装最新版本的DCPcrypt时,应用程序运行但不再能够从PHP解密加密的字符串。结果看起来像汉字,所以我想知道是否需要修改我对加密key、向量或加密字符串的处理,以说明XE2使用Unicode字符这一事实。PHP加密是通过以下方式执行的:(mcrypt_cbc(MCRYPT_RIJNDAEL_128,$key,$date_str,MCRYPT_ENCRYPT,$iv))两个相关的Delphi函数在这里:functionPadWithZeros(co

java - 哪些选项可用于在 Delphi 中使用 SOAP 实现长轮询?

我有一个Delphi企业应用程序,它充当Java后端(SOAP、Axis2)的客户端。我的一些请求需要不确定或特别长的时间才能完成,我想为SOAP请求实现长轮询解决方案。据我所知,我通常会为此使用WS-Addressing。然而,DelphiSOAP客户端(WCF)似乎没有实现WS-Addressing。我被Java和Delphi所困。我使用Axis2组件,例如生命周期,但我可以转换到另一个Web服务引擎。我控制服务器端和客户端。在Delphi和Java中实现长轮询有哪些选择? 最佳答案 您说Java已经在服务器端使用,并且您在那里