ActiveX接收不到参数，不知是何原因

Question

我的ActiveX接收不到HTML传入的参数，没反应，代码如下:Delphi:(相应的接口已经在 View -> Type Library中添加成功;
procedure TFileUpload.Set_FileType(const Value: WideString);
begin
  Edit1.Text := Value;
end;
HTML:            <object classid="clsid:826E7826-D32E-4DFC-83D3-162A9DE28156" codebase="http://localhost/FileUploadProj1.inf"
                width="350" height="250" align="center" hspace="0" vspace="0">
                <param name="FileType" value="*.jpg||*.rar||*.doc" />
            </object>

Answer 1

要不换我这种试试，可以的。<object id="iOCX" classid="clsid:826E7826-D32E-4DFC-83D3-162A9DE28156" codebase="http://localhost/FileUploadProj1.inf" 
                width="350" height="250" align="center" hspace="0" vspace="0">
            </object> <script language="vbscript">
Sub Window_OnLoad()
document.Form1.iOCX.color=RGB(255,255,255)
document.Form1.iOCX.AxBorderStyle=0
document.Form1.iOCX.DBName="*.jpg||*.rar||*.doc
End Sub
       </script>

Answer 2

不好意思，发太快了，  你把 DBName 改成 FileType 即可。

Answer 3

不好意思，发太快了，  你把 DBName 改成 FileType 即可。

Answer 4

我知道为什么为出现这样的情况了；我删除了多余的Get项，也就是Set和Get没有成对出现（虽然我并不需要Get），所以参数传入时失败，估计这是Delphi中的一个Bug；
解决办法：让Get和Set成对出现，即使不使用也别删除，就能传入了。此问题我在网上找过很多资料，均无正确答案，浪费我一个上午时间，希望对今后遇到此类问题的朋友提供一个解决的参考方。谢谢以面各位热心的网友;