{"id":954,"date":"2010-03-13T15:17:00","date_gmt":"2010-03-13T07:17:00","guid":{"rendered":""},"modified":"2013-11-17T16:03:46","modified_gmt":"2013-11-17T08:03:46","slug":"%e6%b1%82%e8%a7%a3%e4%b9%9d%e5%ae%ab%e6%a0%bc%e7%9a%84web%e5%ba%94%e7%94%a8%e7%a8%8b%e5%ba%8f","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/954.html","title":{"rendered":"\u6c42\u89e3\u4e5d\u5bab\u683c\u7684WEB\u5e94\u7528\u7a0b\u5e8f"},"content":{"rendered":"

\u6628\u5929\u60f3\u4e86\u4e00\u4e2a\u70b9\u5b50\uff0c\u5229\u7528Delphi\u7684DataSnap\uff0c\u7ed3\u5408HTML\u4e0eJavaScript\uff0c\u7528AJAX\u6280\u672f\uff0c\u5b9e\u73b0WEB\u5e94\u7528\u7a0b\u5e8f\u3002\u4eca\u5929\u53c8\u505a\u4e86\u4e00\u4e2a\u5b9e\u9a8c\u7a0b\u5e8f\uff0c\u6bd4\u8f83\u6210\u529f\u3002\u5177\u4f53\u65b9\u6cd5\u4e0d\u591a\u8bf4\u4e86\uff0c\u4e0a\u4e00\u7bc7\u5df2\u7ecf\u8bb2\u8fc7\uff0c\u76f4\u63a5\u5e16\u4e0a\u5173\u952e\u4ee3\u7801\u3002<\/p>\n

\n

DataSnap\u7684CGI\u7a0b\u5e8f\u4ee3\u7801(ServerMethod\u5355\u5143)\uff1a<\/p>\n

\r\nunit ServerMethodsUnit1;\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils, Classes, DSServer, DBXJSON;\r\n\r\nvar\r\n  GG: array[0..8] of array[0..8] of Integer;\r\nconst\r\n  QQ:array[0..8] of integer=(0,0,0,3,3,3,6,6,6);\r\nvar\r\n  GG2: TJSONObject;\r\n\r\ntype\r\n{$METHODINFO ON}\r\n  JSShuDu = class(TPersistent)\r\n  private\r\n    { Private declarations }\r\n  public\r\n    { Public declarations }\r\n    function EchoString(Value: string): string;\r\n    function JieSuan(shudu: string): TJSONObject;\r\n  end;\r\n{$METHODINFO OFF}\r\nfunction IsValid(i,j:integer):boolean;\r\nprocedure calc(n:integer);\r\nfunction OutGG: TJSONObject;\r\nprocedure SetGG(shudu: string);\r\n\r\nimplementation\r\n\/\/\u68c0\u67e5\u4e5d\u5bab\u683c\u662f\u5426\u5408\u683c\r\nfunction IsValid(i,j:integer):boolean;\r\nvar n,t,u:integer;\r\nbegin\r\n  Result:=true;\r\n  n:=GG[i,j];\r\n  for t := 0 to 9 - 1 do\r\n    if(((t<>i) and (GG[t,j]=n)) or ((t<>j) and (GG[i,t]=n))) then result:=false;\r\n\r\n  for t := QQ[i] to QQ[i]+2 do\r\n    for u := QQ[j] to QQ[j] +2 do\r\n      if(((t<>i) or (u<>j)) and (GG[t,u]=n)) then result:=false;\r\nend;\r\n\/\/\u89e3\u7b97\u4e5d\u5bab\u683c\r\nprocedure calc(n:integer);\r\nvar i,j,k:integer;\r\nbegin\r\n  if(n=81) then\r\n  begin\r\n    GG2 := OutGG;\r\n    Exit;\r\n  end;\r\n\r\n  i:=n div 9; j:=n mod 9;\r\n\r\n  if(GG[i,j]<>0) then\r\n  begin\r\n    calc(n+1);\r\n    exit;\r\n  end;\r\n\r\n  for k := 0 to 9 - 1 do\r\n  begin\r\n    GG[i,j]:=GG[i,j]+1;\r\n    if(IsValid(i,j)) then\r\n    begin\r\n      calc(n+1);\r\n    end;\r\n  end;\r\n\r\n  GG[i,j]:=0;\r\nend;\r\n\/\/\u4ee5JSON\u683c\u5f0f\u5c06\u4e5d\u5bab\u683c\u8f93\u51fa\r\nfunction OutGG: TJSONObject;\r\nvar\r\n  I: Integer;\r\n  j,temp: Integer;\r\nbegin\r\n  Result := TJSONObject.Create;\r\n  temp := 1;\r\n  for I := 0 to 9 - 1 do\r\n    for j := 0 to 9 - 1 do\r\n      begin\r\n        Result.AddPair(TJSONPair.Create('id'+IntToStr(temp),IntToStr(GG[i,j])));\r\n        temp := temp+1;\r\n      end;\r\nend;\r\n\/\/\u521d\u59cb\u5316\u4e5d\u5bab\u683c\u6570\u7ec4\r\nprocedure SetGG(shudu: string);\r\nvar\r\n  I: Integer;\r\n  j: Integer;\r\nbegin\r\n  for I := 0 to 9 - 1 do\r\n    for j := 0 to 9 - 1 do\r\n      begin\r\n        GG[i,j] := StrToInt(Copy(shudu,1,1));\r\n        shudu := Copy(shudu,2,Length(shudu)-1);\r\n      end;\r\nend;\r\n\r\nfunction JSShuDu.JieSuan(shudu: string): TJSONObject;\r\nbegin\r\n  SetGG(shudu);\r\n  calc(0);\r\n  Result := GG2;\r\nend;\r\n\r\nfunction JSShuDu.EchoString(Value: string): string;\r\nbegin\r\n  Result := Value;\r\nend;\r\n\r\nend.\r\n<\/pre>\n
HTML\u7248\u7684\u5ba2\u670d\u7aef\u4ee3\u7801\uff1a<\/p>\n
\r\n<!DOCTYPE html PUBLIC "-\/\/W3C\/\/DTD XHTML 1.0 Transitional\/\/EN" "http:\/\/www.w3.org\/TR\/xhtml1\/DTD\/xhtml1-transitional.dtd">\r\n\r\n<html xmlns="http:\/\/www.w3.org\/1999\/xhtml">\r\n\r\n<head>\r\n\r\n<meta http-equiv="Content-Type" content="text\/html; charset=utf-8" \/>\r\n\r\n<title>\u89e3\u7b97\u6570\u72ec<\/title>\r\n\r\n<script type="text\/javascript" src="JQuery.js"><\/script>\r\n\r\n<style type="text\/css">\r\n\r\ninput{width:25px; margin:5px 5px;}\r\n\r\ndiv{text-align:center; margin-top:50px;}\r\n\r\n<\/style>\r\n\r\n<script type="text\/javascript">\r\n\r\n$(document).ready(function(){   \/\/\u9875\u9762\u52a0\u8f7d\u65f6\u88c5\u5165\u6570\u636e\r\n\r\nvar text=\u2019040203050580001003000000002000000000650000890300006000200704000863000007009360000\u2032;\r\n\r\nvar j=0;\r\n\r\n$("input").each(function(){\r\n\r\n         $(this).val(text[j]);\r\n\r\n         j++;\r\n\r\n         })\r\n\r\n});\r\n\r\nfunction JieSD()\r\n\r\n{\r\n\r\nvar text=\u201d;\r\n\r\n$("input").each(function(){\r\n\r\n        text=text+$(this).val();\r\n\r\n        });\r\n\r\ntext=text.substring(0,text.length-2); \/\/\u53bb\u6389input\u6309\u94ae\u7684\u5b57\r\n\r\nif(text==""){text=\u2019040203050580001003000000002000000000650000890300006000200704000863000007009360000\u2032;}\r\n\r\n\/\/alert(text);\r\n\r\n$.ajax({\r\n\r\n      type:"get",\r\n\r\n      url:"http:\/\/127.0.0.1\/cgi-bin\/ShuDu.exe\/DataSnap\/rest\/JSShuDu\/jiesuan\/"+text,\r\n\r\n      dataType:"json",\r\n\r\n      success:function(data){\r\n\r\n       var i=1;\r\n\r\n        $("input").each(function(){                     \/\/\u904d\u5386\u6240\u6709\u7684input\u6846\r\n\r\n        $(this).val(data.result[0]["id"+i]); \/\/\u5e38\u91cf\u4e0e\u53d8\u91cf\u8fde\u63a5:"id"+i\r\n\r\n        i++;\r\n\r\n        });\r\n\r\n      $(\u2018#button\u2019).val(\u2018\u6c42\u89e3\u2019);                       \/\/\u6062\u590dinput\u6309\u94ae\u7684\u5b57\r\n\r\n      }\r\n\r\n      });\r\n\r\n}\r\n\r\n<\/script>\r\n\r\n<\/head>\r\n\r\n<body>\r\n\r\n<div>\r\n\r\n<h3>\u8f93\u5165\u4e5d\u5bab\u683c\u6570\u72ec\uff0c\u75280\u4ee3\u66ff\u8981\u6c42\u7684\u6570<\/h3>\r\n\r\n<\/div>\r\n\r\n<div id="main">\r\n\r\n<input id="id1" \/><input id="id2" \/><input id="id3" \/><input id="id4" \/><input id="id5" \/><input id="id6" \/><input id="id7" \/><input id="id8" \/><input id="id9" \/><br \/>\r\n\r\n<input id="id10" \/><input id="id11" \/><input id="id12" \/><input id="id13" \/><input id="id14" \/><input id="id15" \/><input id="id16" \/><input id="id17" \/><input id="id18" \/><br \/>\r\n\r\n<input id="id19" \/><input id="id20" \/><input id="id21" \/><input id="id22" \/><input id="id23" \/><input id="id24" \/><input id="id25" \/><input id="id26" \/><input id="id27" \/><br \/>\r\n\r\n<input id="id28" \/><input id="id29" \/><input id="id30" \/><input id="id31" \/><input id="id32" \/><input id="id33" \/><input id="id34" \/><input id="id35" \/><input id="id36" \/><br \/>\r\n\r\n<input id="id37" \/><input id="id38" \/><input id="id39" \/><input id="id40" \/><input id="id41" \/><input id="id42" \/><input id="id43" \/><input id="id44" \/><input id="id45" \/><br \/>\r\n\r\n<input id="id46" \/><input id="id47" \/><input id="id48" \/><input id="id49" \/><input id="id50" \/><input id="id51" \/><input id="id52" \/><input id="id53" \/><input id="id54" \/><br \/>\r\n\r\n<input id="id55" \/><input id="id56" \/><input id="id57" \/><input id="id58" \/><input id="id59" \/><input id="id60" \/><input id="id61" \/><input id="id62" \/><input id="id63" \/><br \/>\r\n\r\n<input id="id64" \/><input id="id65" \/><input id="id66" \/><input id="id67" \/><input id="id68" \/><input id="id69" \/><input id="id70" \/><input id="id71" \/><input id="id72" \/><br \/>\r\n\r\n<input id="id73" \/><input id="id74" \/><input id="id75" \/><input id="id76" \/><input id="id77" \/><input id="id78" \/><input id="id79" \/><input id="id80" \/><input id="id81" \/><br \/>\r\n\r\n<input type="button" id="button" value="\u6c42\u89e3" style="width:80px;" onclick="JieSD();"\/>\r\n\r\n<\/div>\r\n\r\n<\/body>\r\n\r\n<\/html>\r\n<\/pre>\n
\"\"\u622a\u56fe\uff1a<\/p>\n
\"\"<\/p>\n
\u6b32\u6c42\u89e3\u7684\u4e5d\u5bab\u683c<\/p>\n
\"\"<\/p>\n
\u6c42\u89e3\u540e\u7684\u4e5d\u5bab\u683c<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
\u6628\u5929\u60f3\u4e86\u4e00\u4e2a\u70b9\u5b50\uff0c\u5229\u7528Delphi\u7684DataSnap\uff0c\u7ed3\u5408HTML\u4e0eJavaScript\uff0c\u7528AJAX\u6280\u672f\uff0c\u5b9e\u73b0 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-954","post","type-post","status-publish","format-standard","hentry","category-diary"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/954","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=954"}],"version-history":[{"count":2,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/954\/revisions"}],"predecessor-version":[{"id":4648,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/954\/revisions\/4648"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=954"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=954"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=954"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}