关于ACTIVEX插件的问题，在线等！！！

Question

请问如何制作ACTIVEX插件将本地文件内容读入到网页中的的一个字段,文件是无类型的！
网页：
<OBJECT
           id="upload"
  classid="clsid:DDD47460-8145-4A3C-9CE9-35125ABD4303"
  codebase="http://TZP/uploadProj1.cab#version=1,0,5,0"
  width=350
  height=250
  align=center
  hspace=0
  vspace=0
>
</OBJECT><input type="file" onClick="alert(upload.getFile(file.value))" name="file" >
DELPHI：
function getFile(filepath: String):String;
var thestream:TmemoryStream;
var upfile:File;
begin
  thestream:=TmemoryStream.Create();
  thestream.loadFromFile(filepath);
  Result:= thestream;//不知如何写！！！
end;

Answer 1

现在将网页上改成
<input type="button" name="a" onClick="alert('upload.getFile(file.value)')" >
<input type="file" name="file">
DELPHI函数改成下面这个，
function getFile(filepath: String):integer;
var
  srcTypedFile: Integer;
  BytesRead: Integer;
  Buffer: array[0..15] of byte;
begin
  srcTypedFile := FileOpen(filepath, fmOpenRead);
  try
    repeat
      BytesRead := FileRead(srcTypedFile, buffer[0], SizeOF(buffer));
    until BytesRead<SizeOf(buffer);
  finally
    FileClose(srcTypedFile);
  end;
  Result:=srcTypedFile;
end;仍然无法处理！！！