灰鸽子远程登陆服务器问题?

Question

我在网上下载了 灰鸽子代码
编译运行以后 发现没有登陆对话框
然后 在源代码中 看到了 LOGIN.PAS
我现在想把登陆对话框加入到程序中
按F8 在H_Client 中 看到加载的程序
然后加入了  login in'LOGIN.PAS' {huigezilogin}
接着 返回到Main
加入
procedure THgzVip.FormShow(Sender: TObject);begin
  if huigeizilogin.Tag = 0 then
   begin
   huigeizilogin.ShowModal;
   huigeizilogin.Tag := 1;
   end;  try
    PageControl1.ActivePage := TabSheet1;    TreeView1.FullCollapse;
    Gauge1.Width := TreeView1.Width;
  except
  end;
end;
然后我单步调试的时候 到了if huigeizilogin.Tag = 0 then
就提示有错误了
我目前对delphi 还不是太熟悉
请高手指点一下下

Answer 1

huigeizilogin窗体已经建立了么？
  if huigeizilogin=nil then
      Application.CreateForm(Thuigeizilogin, huigeizilogin);
  if huigeizilogin.Tag = 0 then 
  begin 
      huigeizilogin.ShowModal; 
      huigeizilogin.Tag := 1; 
  end; 

Answer 2

我是通过 工程 加入到工程把LOGIN.PAS导入的
LOGIN.PAS是有窗体的
提示错误 为 huigeizilogin 没声明
这个huigezilogin 要在那里声明啊?

Answer 3

[alt]+[F11]，然后把huigeizilogin选中加进去。

Answer 4

估计是没有
huigeizilogin:=Thuigeizilogin.create(application);
的原因

Answer 5

我按了 ALT+F11 选项里面没有 huigeizilogin
然后 我在procedure THgzVip.FormShow(Sender: TObject); begin 
中间加入huigeizilogin:=Thuigeizilogin.create(application); 
也还是不行啊
到底是那里出了问题呢

Answer 6

服了，到现在都没搞明白你问题是哪里出的，前面说是调试的时候提示的错误，后面2楼又说是没声明是编译时候的错误。
到底是什么错误？
跟踪到
if huigeizilogin.Tag = 0 then 
看一下，huigeizilogin是不是nil

Answer 7

呵呵 不好意思了
我还是把错误提示贴出来吧
[Error] Main.pas(1892): Undeclared identifier: 'huigeizilogin'
[Error] Main.pas(1892): 'THEN' expected but identifier 'Tag' found
[Error] Main.pas(1894): Missing operator or semicolon
[Error] Main.pas(1895): Missing operator or semicolon

Answer 8

跟踪到 
if huigeizilogin.Tag = 0 then 的时候提示
[Error] Main.pas(1892): Undeclared identifier: 'huigeizilogin' 
[Error] Main.pas(1892): 'THEN' expected but identifier 'Tag' found 
[Error] Main.pas(1894): Missing operator or semicolon 
[Error] Main.pas(1895): Missing operator or semicolon
要怎么看 huigezilogin 是不是nil ?

Answer 9

怎么是跟踪呢？明明编译都没通过。[Alt]+[F11]，把LOGIN加入。

Answer 10

我按了 ALT+F11
在弹出 USE UNIT的对话框里面
没有LOGIN  
应该怎么办啊?

Answer 11

HgzVip.pas的文件头，加上uses Login;

Answer 12

implementation
uses Changyong, AboutUnit, UpIp, Sysinf,
  Login, ShowPic,
  Splash, RegEditUnit, RegHexEdit, DlgshowUnit, ConfigServerUnit, DownGifUnit, My_StreamManage,
  NewxpSer, FtpUpUnit1, FtpDownUnit, ExeToolUnit, BmpToAviUnit,
  FTPServerUnit, Scanover, LangObj, IconTypes, IconLibrary, IconTools,
  unitExIcon;{$R *.DFM}
是这个位置的加的LOGIN吧
因为没怎么接触DELPHI
不敢在乱下结论了

Answer 13

就是在这样的情况下
才出现的提示
[Error] Main.pas(1892): Undeclared identifier: 'huigeizilogin'
[Error] Main.pas(1892): 'THEN' expected but identifier 'Tag' found
[Error] Main.pas(1894): Missing operator or semicolon
[Error] Main.pas(1895): Missing operator or semico
是不是因为 Login.pas 有问题呢?

Answer 14

到加载100%的时候
弹出对话框
Project H_Client.exe raised exception class
EAccessViolation with message ' Access
violation at address 00594987 in module' H_Client.exe
Read of address 0000000C' Process stopped
use step or run to continue
下面一个 OK 按钮 一个HELP 按钮
点OK 之后 程序主界面也就出来了
但是 没有预期的 登陆对话框出来
这个应该怎么办啊
跪谢了