Подключение к php-скрипту из приложения Delphi через HTTP-POST [через Интернет]

Я написал тестовый скрипт php, расположенный на моем удаленном сервере, и
Я использую код Delphi, чтобы сделать Http_Post для этого файла php.

Он отлично работает, когда я делаю это на локальном сервере, но не работает с

Ошибка сокета # 10061 — соединение отклонено

ошибка.

Вот код, который я использую, чтобы сделать сообщение Http:

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;

URL доступен для браузера, а также для других приложений. [Протестировано с приложением для Android с тем же PHP-скриптом]

URL: 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, сообщение не работает и
выше ошибка, однако, когда я запускаю созданный .exe из Windows, как
любое другое приложение, оно отлично работает!

1

Решение

Задача ещё не решена.

Другие решения

Других решений пока нет …

По вопросам рекламы [email protected]