请教dll问题,多谢(50分)

  • 主题发起人 主题发起人 xmjli
  • 开始时间 开始时间
X

xmjli

Unregistered / Unconfirmed
GUEST, unregistred user!
请教各位dll问题,多谢
在下,写了一个dll,实现ftp,在dll中添加了form,和nmftp控件如下:
unit formftp;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMFtp, ComCtrls;

type
TForm1 = class(TForm)
NMFTP1: TNMFTP;
StatusBar1: TStatusBar;
Edit1: TEdit;
procedure NMFTP1Connect(Sender: TObject);
procedure NMFTP1ConnectionFailed(Sender: TObject);
procedure NMFTP1PacketRecvd(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
procedure ftptest (); stdcall;
implementation

{$R *.DFM}
procedure ftptest ();stdcall;
var
Form1:TForm1;
begin

Form1 := TForm1.Create (Application);
Form1.Show;
Form1.NMFTP1.host:='10.1.101.45';
Form1.NMFTP1.port:=21;
Form1.NMFTP1.UserID :='test';
Form1.NMFTP1.Password :='ftptest';

try
Form1.NMFTP1.connect;
except
end;
end;

procedure TForm1.NMFTP1Connect(Sender: TObject);
var
Form1 : TForm1;
begin

try
Form1.nmftp1.Download('test1m.dat' ,'c: est1m.dat' );
except

end;
//Form1.nmftp1.Disconnect;
//Form1.free;

end;

procedure TForm1.NMFTP1ConnectionFailed(Sender: TObject);
var
Form1 : TForm1;
begin

end;

procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
var
Form1 : TForm1;
begin

end;

end.

此时,执行无误,但如果在TForm1.NMFTP1Connect中把Form1.nmftp1.Disconnect;或Form1.free;加入后,就不传输文件了,但同样的方法在exe程序中却是可以用的.
在此,请教各位,如何把nmftp disconnect掉,并把form 关掉.多谢!

 
你为什么要在connect事件中disconnect呢? 我觉得你在exe中成功是偶然.

看看你的代码, form1还没Create呢!
procedure TForm1.NMFTP1Connect(Sender: TObject);
var
[red]Form1 : TForm1;[/red]
begin

try
Form1.nmftp1.Download('test1m.dat' ,'c: est1m.dat' );
except

end;
//Form1.nmftp1.Disconnect;
//Form1.free;

end
 
在ftptest()中已经创建了
Form1 := TForm1.Create (Application);
Form1.Show;
在NMFTP1Connect还要再创建一遍吗?
如果在procedure TForm1.NMFTP1PacketRecvd中加上
Form1.Edit1.text:='Received'+inttostr(Form1.nmftp1.bytesrecvd)+'Bytes';
也不进行传输,ftp 连接一下就断.
感觉上只要在除了ftptest()以外的任何地方用formftp的控件就会这样
在connect中用disconnect是为了传输结束后就断开
高手请指导如何在传输后把nmftp1断掉,并把formftp关掉
 
好像是nmftp控件在dll中不能正常运行,
如果在procedure TForm1.NMFTP1PacketRecvd中加上
Form1.Edit1.text:='Received'+inttostr(Form1.nmftp1.bytesrecvd)+'Bytes';
就不进行ftp,而同样的代码在exe文件中却没有问题.
 
接受答案了.
 
后退
顶部