Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | procedure TEditPersonsForm.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
opencomport;
if radiogroup1.ItemIndex=1 then
begin
closecomport;
end;
end;
procedure TEditPersonsForm.closecomport;
begin
rt.Terminate;
CloseCom(ftHandle);
end;
procedure TEditPersonsForm.opencomport;
begin
ftHandle := InitCom(0);
if ftHandle <> COMInvHandle then
begin
rt := TReadCardThread.Create(true);
rt.HWND := Handle;
rt.usb := ftHandle;
rt.Resume;
end else
begin
end;
end;
|
выходит ошибка {access violation at address 00425EBC in module 'project1.exe'. Write of address 0000000D}
не подскажите как исправить?
16.09.2011, 09:08
ошибка при закрытии порта
Древовидный вид