Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

>dimonf © (15.12.02 12:56)
Для начала в destructor TMySmtp.Destroy попробуй воткнуть также и inherited



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.028 c
3-85817
Romkin
2002-12-06 11:17
2002.12.26
attempted update of read-only column


1-85908
FDel
2002-12-16 13:04
2002.12.26
StringGrid


3-85846
ДМ
2002-12-06 07:09
2002.12.26
BLOB- поля в базах Microsoft


7-86194
BJValentine
2002-10-23 21:07
2002.12.26
Службы


8-86041
Дельфятник
2002-09-09 16:54
2002.12.26
Помогите разобраться с рисованием, пожалуйста.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский