200分求救:用ActiveX控件连接FTP服务器 (200分)

要求:
用DELPHI编写ActiveX控件,
ActiveX在网页中,控件先连通FTP服务器,下载远程文件到本地,然后,
控件打开本地文件进行编辑,接着再保存回服务器.
1.可以内嵌在浏览器中运行.
2.控件OLE组件,可以打开WORD等文件.
3.可以在网页中设置FTP参数,如服务器地址等.
请高手们提供思路,分可以商量,不够再加!

没有人会吗？斑竹帮帮我！

1.delphi利用して、Activex控件的制作你会么？做个active form
2.在delphi中使用ftp控件上下载文件你会么？用本身的TMNFTP就可以了
3.在delphi中添加ole 会么？用来打开文件
4。在activex里添加几个参数会么？为了传入ftp server的几个参数
5.知道在网页里如何使用activex么？为你添加的参数赋值？

知道以上的，你还需要什么么？

就800来分，就敢叫分有的是，你真大胆。认识pp.么。人家分可能几万了。
我以前做过一个东西，也是上传到ftp的，用的就是上面的思路，

我想不用Active from,直接在接口中写FTP下载函数,这样就用不了DELPHI的NMFTP
控件, 因为CREATE不了,该如何写?

我现在正在做这种东东[]代码如下：

ACTIVEX中加参数
// Server_IP : 服务器的IP;
// Word_User : 用户;
// Word_pass : 密码

过程如下！在
procedure Tword._set;
var
TempDir: array[0..255] of Char;
s_mess : string
begin
GetTempPath(MAX_PATH,@TempDir);
temppath := TempDir
s_mess :='未知';
case strtoint(Oper_id) of
1 : //新建
begin
get_filename := Word_Dir+Type_code+'.doc'
s_mess :='新建';
end;
2 : //审批
begin
get_filename := Word_Dir+Word_id+'.doc'
s_mess :='审批';
end;
3 : //查阅
begin
get_filename := Word_Dir+Word_id+'.doc'
s_mess :='查阅';
end
4 : //新建
begin
get_filename := Word_Dir+Word_id+'.doc'
s_mess :='新建'

end;
end;
FTP_filename :=Word_Dir+Word_id+'.doc'
send_filename := temppath+Word_id+'.doc'
if Fileexists(send_filename) then
DeleteFile(send_filename);

///初始化ftp参数
lx_FTP.Host :=Server_IP;
Lx_FTP.Port := 21
Lx_FTP.UserID :=Word_User;
Lx_FTP.Password :=Word_pass;
Lx_FTP.TimeOut := 5000

try
Lx_FTP.Connect
except
showmessage('连接服务器出错，请检查网络')
end;

try
Lx_FTP.Download(get_filename,send_filename);
except
showmessage('建立文件出错，请检查网络');
end;


在某个接受参数的过程中调用以上过程如下：
procedure Tword.Set_Word_sendDir(const Value: WideString);
begin
Word_sendDir:=Value
_set;
end;

您的代码是否不全,lx_FTP的定义是什么?

Lx_FTP: TNMFTP;
以上的_set过程部分是获得参数和FTP连接上！后面在做TOleContainer控件的调用就可以打开自己想
要的部分了！我这里主要是处理WORD的自动化！
保存到本机后！因为我们客户端要求不能设置！所以使用ASP调用COM+完成写入服务器操作！

有使用FORM吗?
没有TComponent对象,你的Lx_FTP: TNMFTP如何在接口函数中创建?

肯定用ACTIVEFORMX呀！
要不你的TOleContainer控件！和操作的界面那里来！
数据库中的读出和写入都是通过ASP调用com+完成的！
这个Activex的功能是通过FTP(一开始是用SOCKET)读取服务器上的文件！然后打开编辑！最后在本地存盘！在通过ftp传到服务器上！
我们这里客户是用WEB访问！没有安装数据库的客户端！连ODBC都要求不用设置！所以采用这种方法！
不过这段应该可以满足你的需求了！

请问TNMFTP控件需要转换为ActiveX吗?如何转换?
在向导中没有这个选择!

同意lvxq

delphi的Activex控件的制作你会么？做个active form
然后加上TNMFTP控件！如果这个不清楚！最好先查查资料！

gz

做active form时,加入Tedit,Tlabel,TNMFTP要做什么特别的事吗?

是的！
Tedit一般是需要输入、修改的时候！
Tlabel是需要显示的时候！
TNMFTP是需要连接FTP的控件！
先查一下做active form的资料！很简单！当时我学的时候公司里有一本书！一个下午基本就可以上手了！[]
而FTP实现是最简单的！当初我开始用socket调试的时候都快疯了！[8D]

结了