Скачать: CL | DM;

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

← →
_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 там этого добра с исходниками можно спокойно скачать

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c