Создание класса

← →
_saha_ (2002-12-05 11:00) [0]

Привет!
хочу сделать класс для работы с сом, пока есть конструктор и деструктор. При создании класса в конструкторе при попытке открытия порта вылетает ошибка, если все тоже проделать без класса, а просто в функции, то все ок. Я начинающий, предполагаю что с портом это никак не связано, просто что-то не так в описании класса, про готовые компоненты работы с портом знаю, но не хочу использовать, важен сам процесс. Текст программы:
.....
{стандартная фигня}
.....
TComPort=class(TObject)
protected
HPort:Cardinal;
public
constructor Create;
destructor Destroy;
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

constructor TComPort.Create;
var ct : TCommTimeouts;
dcb: TDCB;
begin
inherited Create;
HPort := CreateFile(PChar("COM2"), //<< тут ошибка
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if (HPort < 0) or (HPort=INVALID_HANDLE_VALUE) then begin
frmMain.Memo.Lines.Add("

← →
Skier (2002-12-05 11:10) [1]

>_saha_
Для начала поставь override

TComPort=class(TObject)
protected
HPort:Cardinal;
public
constructor Create;
destructor Destroy; override;
end;

← →
_saha_ (2002-12-06 09:33) [2]

Ок. Но только ошибка в конструкторе не пропала.

← →
Skier (2002-12-06 10:24) [3]

>_saha_

Ты неправильно создаёшь экземпляр класса...

Вот правильный код :

var AComPort : TComPort; begin AComPort := TComPort.Create; try finally FreeAndNil(AComPort); end; //try end;

И вот сюда сходи :
http://delphi.mastak.ru/articles/components-rt.html

← →
Mike_Goblin (2002-12-06 20:44) [4]

или сюда www.torry.ru там этого добра с исходниками можно спокойно скачать

Создание класса Найти похожие ветки