Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/javascript/379.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Javascript 如何在linux Web服务器共享主机上运行delphi应用程序?_Javascript_Php_Delphi_Delphi Xe2_Delphi 2010 - Fatal编程技术网

Javascript 如何在linux Web服务器共享主机上运行delphi应用程序?

Javascript 如何在linux Web服务器共享主机上运行delphi应用程序?,javascript,php,delphi,delphi-xe2,delphi-2010,Javascript,Php,Delphi,Delphi Xe2,Delphi 2010,我正在尝试将一个delphi代码转换为网页,但结果不一样。 我试图找到一些将delphi转换为网页的软件,但我只找到了windows server,问题是我需要在linux服务器上运行此脚本,该服务器只是一个共享主机,因此我无法访问根目录以使用wine或其他模拟器,因此我只能使用php脚本或javascript delphi代码: procedure TForm1.Edit1Change(Sender: TObject); var str2 : string; key : TString

我正在尝试将一个delphi代码转换为网页,但结果不一样。 我试图找到一些将delphi转换为网页的软件,但我只找到了windows server,问题是我需要在linux服务器上运行此脚本,该服务器只是一个共享主机,因此我无法访问根目录以使用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>

函数magic(){
var src=document.getElementById('src');
var dst=document.getElementById('dst');
var str=src.value;
var键=“”;
var len=str.length;
对于(变量i=0;i
结果必须为:0123456789=5678901234


致以最诚挚的问候

这是工作代码

$test = $num1;

$result = $test;
for($i = 0; $i < strlen($test); $i++) {
    $result[$i] = ($test[$i] + 5) % 10;
}
$test=$num1;
$result=$test;
对于($i=0;$i
如果您对将基于Delphi的代码移植到基于web的应用程序感兴趣,那么我认为最好的选择是使用Smart Mobile Studio(),其目的是从基于Pascal的代码中生成基于HTML5的web应用程序。但是请注意,将您的Delphi代码移植到SMS可能需要的不仅仅是简单地复制粘贴您的Delphi代码,因为Delphi和SMS Pascal方言之间存在一些差异,您需要克服这些差异。但我想这将是最容易开始的。至于在Linux上直接运行Delphi应用程序。根据Embarcadero roadmap(),我们应该期待在年底的某个时候增加Linux服务器支持。非常感谢我昨天下载了mobile studio,我尝试了它,但我不知道如何运行代码,我已经创建了一个temple,当我运行代码时,我有一个空白屏幕,正如您在这张图片中看到的,用PHP或Javascript编写一个仿真器似乎是您的选择。除非你能清醒过来,将10行Delphi代码移植到PHP或Javascript中。@SilverWarior:他不需要等待Embarcadero(Idera)支持Linux。有一个类似于Delphi的环境Lazarus,它肯定支持Linux。Bouhlal:使用Lazarus,您的代码不需要太多更改,您可以在Linux中运行它。