initialization
HTTP := TIDHTTP.Create(nil);
FTP := TNMFTP.Create(nil);
RetTest := TTest.Create;
GetDir(0, Path);
FtpData := TIniFile.Create(Path + '\FtpCfg.ini');
while True do
begin
FTP.Host := FtpData.ReadString('FTP配置信息', 'IP地址', 'LocalHost');
FTP.Port := FtpData.ReadInteger('FTP配置信息', '端口', 21);
FTP.UserID := FtpData.ReadString('FTP配置信息', '用户名', 'Anonymous');
FTP.Password := FtpData.ReadString('FTP配置信息', '密码', '');
FTP.TimeOut := 5000;
try
FTP.Connect;
FTP.OnFailure := RetTest.AFailure;
Break;
except
MessageBox(FTP.Handle, PChar('FTP连接失败,请配置FTP设置'), PChar(str_PrjEasyStar), MB_OK + MB_ICONSTOP);
FtpCfgForm := TFtpCfgForm.Create(nil);
try
FtpCfgForm.ShowModal;
finally
FtpCfgForm.Free;
end;
end;
end;
finalization
HTTP.Free;
FTP.Free;
FtpData.Free;
RetTest.Free;
end.
1 这段程序作什么用
2 initialization起什么作用
3 这段程序在什么状态下会运行
解决方案 »
- 从Java转向Delphi?
- 软件的多语言问题
- 我想做一个小程序,只要运行程序后就弹出一个提示窗口就完了,不要窗体怎么做?
- 是农民的儿子就来看看。
- 大家帮忙!帮我看一下我的代码!
- 数据库连接已经建立,为什么我的QUERY还要再连接一次?
- 如何多个线程之间的并发处理?
- 谁来救救我的Delphi程序资料
- 怎样捕捉CTRL+鼠标左键?
- 我刚开始学Delphi,感到与c有太大的区别。以前学c能编不少小程序,但学Delphi却好像没法下手,请问各位有什么好的学习方法?谢谢!
- 大哥们帮个忙:怎样在一个form上按下"del"键执行我Button1上的代码?
- 把菜单 文件(&F)放到 toolBar中,为什么按 F键就激活它了,而不是ALT+F
2,3这段程序在程序加载的时候自动运行,单元加载时会自动调用initialization节的代码。单元卸载时会自动调用finalization段的代码(相当于程序的启动和关闭)