解决安全沙箱问题

上次发布的FLEX+Delphi,FLEX+Java，FLEX+C# 的聊天室 还有安全沙箱问题没有解决,

现在已经找到解决方法了，FLEX客户端在网站上运行的时候,先进行Socket连接，然后发“<policy-file-request/>”信息，即安全策略请求，如果没有通过安全策略的检验,socket时连接不成功.
如果安全策略的检验通过了，socket也会先断开，然后在连接一次，这个时候一切正常了。

Delphi代码

   if POS('<policy-file-request/>',Str)>0 then //是安全策略请求
   begin
     Lists:=TStringList.Create;
     Lists.LoadFromFile('socket-policy.xml');//然后装载socket-policy.xml文件
     xml:=Lists.Text;
     Socket.SendText(xml); //发送安全策略
     Socket.SendText(#$00);//结束标志
     Lists.Free;
     exit;
   end;

 

socket-policy.xml文件

<cross-domain-policy>
  <site-control permitted-cross-domain-policies="all"/>
  <allow-access-from domain="*" to-ports="8014" />
</cross-domain-policy>