以前用Delphi做的Web Service在XP调试环境和Windows 2003 SP1运行的都挺好,但是近日需要再次部署一下,于是装了一个Windows 2003 SP2,却在使用过程中发现一只链接不上数据库。

 ...... 

查看完整文章

Delphi中注册全局热键的话,可能有第三方实现,我也没有去找,因为全局热键这个操作不复杂,就调用几个API就可以了。也比较简单,也没有进行封装,我做了一个测试的功能,就是按下快捷键后,弹出一个界面。完整的代码如下,以备他人或以后参考。

unit unitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, unitCSHotkey, ExtCtrls, ...... 

查看完整文章

php的自带soap做出来的webservice和delphi交互一直产生错误。无论设置header为xml否。于是采用了nusoap,delphi可正常交互,只是产生乱码。乱码解决方法为,添加以下代码:

$server->soap_defencoding = ‘utf-8’;
$server->decode_utf8 = false;
$server->xml_encoding = ‘utf-8’;

全部示例代码如下:

<?php // Pull in the NuSOAP code require_once(‘common/nusoap/nusoap.php’); // Create the server instance $server = new soap_server(); $server->soap_defencoding = ‘utf-8’; $server->decode_utf8 = false; $server->xml_encoding = ‘utf-8’; // Initialize WSDL support $server->configureWSDL(‘hellowsdl’, ‘urn:hellowsdl’); // Put the WSDL schema types in the namespace with the tns prefix $server->wsdl->schemaTargetNamespace = ‘urn:hellowsdl’; // Register the method to expose $server->register(‘hello’,                // method name array(‘name’ => ‘xsd:string’),        // input parameters array(‘return’ => ‘xsd:string’),      // output parameters ‘urn:hellowsdl’,                      // namespace ‘urn:hellowsdl#hello’,                // soapaction ‘rpc’,                                // style ‘encoded’,                            // use ‘Says hello to the caller’            // documentation ); // Define the method as a PHP function function hello($name) { if($name == ”){ return new soap_fault(‘Client’,”,’Must supply a valid name.’); } return ‘Hello, ‘ . $name; } // Use the request to (try to) invoke the service $HTTP_RAW_POST_DATA = isset($HTTP_RAW_POST_DATA) ? $HTTP_RAW_POST_DATA : ”; $server->service($HTTP_RAW_POST_DATA); ?>

<?php// Pull in the NuSOAP coderequire_once(‘common/nusoap/nusoap.php’);// Create the server instance$server ...... 

查看完整文章