Question

我已经编写了一个位于我的远程服务器中的测试PHP脚本，并且我正在使用Delphi代码对该php文件执行Http_Post。

当我在本地服务器上执行此操作时它非常有效，但是在

时失败了

套接字错误＃10061 - 拒绝连接

错误。

以下是我用来做Http Post的代码：

function TForm1.doPost(Url : String): string;
var
  lHTTP: TIdHTTP;
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('service_test=Testing Server');

  lHTTP := TIdHTTP.Create(nil);
  try
    Result := lHTTP.Post(Url, lParamList);
    prgView.StepIt;
  finally
    lHTTP.Free;
    lParamList.Free;
  end;
end;

可以访问网址，浏览器和其他应用程序即。 [使用具有相同php脚本的Android应用程序测试]

网址：http://pbcserver.dlinkddns.com/users/priyabrata/contest.php

Php脚本：

if (isset($_POST["service_test"])){
    $val = $_POST["service_test"];
    if ($val == "Testing Server"){
        $response["Success"] = "1";
        echo (json_encode($response));
    }
    else{
        $response["Success"] = "0";
        echo (json_encode($response));
    }
}
else{
    $response["Success"] = "0";
    echo (json_encode($response));
}

新观察：

当我从Delphi中运行应用程序时，帖子不起作用并获得   上面的错误，但是当我从Windows运行创建的.exe时   任何其他应用程序，它的工作完美！

通过HTTP-POST连接到Delphi应用程序的php脚本[通过Internet]

0 个答案: