PC de comport yoksa...

[şimal]

Apro Com iletişim nesnesini kullanarak yazdığım bir programı alıp USB ler ile dolu bir laptopa aktardığımda com portu olmadığından ardarda hata vermeye başlıyor.
Bir converter kullandım. Bu converter (USB-RS232) takılı olmadığında exe çalışmadan main formun creatinde hata vermeye başlıyor.
Com portun olup olmadığını nasıl kontrol edebilirim?
"iE_BadId - sepecific com port doesn't exist"
Hatasını nasıl önleyebilirim? Bir uyarı verdirip applicationu nasıl terminate ettirtebilirim

[mege]

Kod: Tümünü seç

procedure MainForm.FormCreate(Sender: TObject);
begin
  try
   Com.ComNumber:= PORT_NO;
   Com.Open:= TRUE;
  except
   on E: Exception do
   begin
    if e.ClassName = 'EBadId' then
     begin
      Messagedlg('Com'+inttostr(com.ComNumber)+' Bulunamadı !', 
                  +#13+'Lütfen Ayarları Kontrol Ediniz...',mtError,[mbOk],0);
      Halt;
     end
     else
     begin
      Messagedlg('Com'+inttostr(com.ComNumber)+' Açılamadı !'
                  +#13+e.Message,mtError,[mbOk],0);
      Halt;
     end
    end;
  end;
end;

[şimal]

Teşekkür ederim mege bey zahmet oldu...