如何在 linux 网络服务器共享主机上运行 delphi 应用程序？

Question

我正在尝试将 delphi 代码转换为网页，但结果不一样。我试图找到一些将 delphi 转换为网页的软件，但我只找到了 windows 服务器，问题是我需要运行在 linux 服务器上使用此脚本那只是一个共享主机，所以我无法访问 root 来使用 wine 或其他模拟器，所以我只能使用 php 脚本或 javascript

delphi 代码：

procedure TForm1.Edit1Change(Sender: TObject);
var
  str2 : string;
 key  : TStringList;
 i: integer;
begin
   key := TStringList.create;

  for i := 0 To pred(length(edit1.Text)) do

      begin
        str2 := IntTostr(StrToInt(Copy(trim(edit1.Text),i, 1)) + 5);
        if (Length(str2) = 1)
        then
           key.Add(str2)
        else
         key.Add(Copy(str2,1, 1));
            end ;
      edit2.Text := key.Text;
    end;

html代码：

    <!DOCTYPE HTML SYSTEM>
<head>
<script type="text/javascript">
function magic() {
    var src = document.getElementById('src');
    var dst = document.getElementById('dst');

    var str = src.value;
    var key = '';

    var len = str.length;
    for (var i = 0; i < len; i++) {
        key += str[len - i - 1];
    }

    dst.value = key;
}
</script>
</head>
<body>
<input type="text" id="src">
<button onclick="magic()">Convert</button>
<input type="text" id="dst">
</body>

结果必须是：0123456789 = 5678901234

此致

Answer 1

这是工作代码

$test = $num1;

$result = $test;
for($i = 0; $i < strlen($test); $i++) {
    $result[$i] = ($test[$i] + 5) % 10;
}

如何在 linux 网络服务器共享主机上运行 delphi 应用程序？

how to run delphi application on a linux webserver shared hosting?

javascript

php

delphi

delphi-2010

delphi-xe2

如何在 linux 网络服务器共享主机上 运行 delphi 应用程序？

how to run delphi application on a linux webserver shared hosting?

javascript

php

delphi

delphi-2010

delphi-xe2

如何在 linux 网络服务器共享主机上运行 delphi 应用程序？