Я написал тестовый скрипт 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, как
любое другое приложение, оно отлично работает!
Задача ещё не решена.
Других решений пока нет …