Господа плиз, помогите разобраться в классах!!!

← →
dimonf © (2002-12-15 12:56) [0]

Дочернее окно!
...
type
TMySmtp = class(TComponent)
MySmtpClient : TSmtpCli;
MyDnsQuery : TDnsQuery;
private
ADnsName: String;
ADnsMXName: String;
AHost: String;
AFromSMTP: String;
AToSMTP: String;
AMessageSMTP: TStringList;
ASmtpCount: Integer;
AError: Integer;

RequestIsDone : boolean;
FDnsList : TStringList;

procedure CommSmtp(Idx: Integer);
procedure BuildRcptList;
procedure DnsRequestDone(Sender: TObject; Error: Word);
procedure SmtpDisplay(Sender: TObject; Msg: String);
procedure SmtpHeaderLine(Sender: TObject; Msg: PChar; Size: Integer);
procedure SmtpRequestDone(Sender: TObject; RqType: TSmtpRequest; Error: Word);
procedure SmtpGetData(Sender: TObject; LineNum: Integer; MsgLine: PChar;
MaxLen: Integer; var More: Boolean);
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
end;

TfrSmtpVizard = class(TForm)
procedure Button1Click(Sender: TObject);
private
public
end;

var
frSmtpVizard: TfrSmtpVizard;

implementation

uses frMain_pas;

{$R *.DFM}

{ TMySmtp }

constructor TMySmtp.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FDnsList := TStringList.Create;
AMessageSMTP := TStringList.Create;

MyDnsQuery := TDnsQuery.Create(self);
MyDnsQuery.OnRequestDone := DnsRequestDone;

MySmtpClient := TSmtpCli.Create(self);
MySmtpClient.OnDisplay := SmtpDisplay;
MySmtpClient.OnHeaderLine := SmtpHeaderLine;
MySmtpClient.OnRequestDone := SmtpRequestDone;
MySmtpClient.OnGetData := SmtpGetData;
end;

destructor TMySmtp.Destroy;
begin
FDnsList.Free;
AMessageSMTP.Free;
MySmtpClient.Free;
MyDnsQuery.Free;
end;

procedure TfrSmtpVizard.Button1Click(Sender: TObject);
begin

For i:=0 to frMain.memSMTPTable.RecordCount-1 do
begin
MySmtp := TMySmtp.Create(self);

MySmtp.SmtpTran;

Application.ProcessMessages;
Sleep(100);

IF ButtonFlag=true then exit;
SmtpGauge.Progress:=SmtpGauge.Progress+1;
frmain.memSMTPTable.Next;
MySmtp.Free;
end;

end;

procedure TMySmtp.SmtpTran;
begin
Чтото делаем!
end;
...
В главном окне вызываю дочернее окно:
....
var MyForm : TfrSmtpVizard;
begin
MyForm := TfrSmtpVizard.Create(application);
MyForm.Show;
MyForm.OnSmtpVizard;
MyForm.Free;
end;

Почему при закрытии окна MyForm появляеться ошибка:
"MyForm не имеет дескриптор окна"

← →
Alx2 © (2002-12-15 13:26) [1]

Господа плиз, помогите разобраться в классах!!! Найти похожие ветки