有關串列埠的讀取,以及串列埠配置檔案的建立

2021-06-26 15:02:39 字數 1647 閱讀 5105

1、讀取串列埠個數並繫結到指定控制項

procedure tform1.formcreate(sender: tobject);

varcoms : tstringlist;

bands : string;

index : integer;

begin

coms := tstringlist.create;

enumcomports(coms);

cbbport1.items.assign(coms);

freeandnil(coms);

//update comnum

bands := com1.port;

index := self.cbbport1.items.indexof(bands);

self.cbbport1.itemindex := index;

//update bandrate

bands := baudratetostr(com1.baudrate);

index := self.cbbband1.items.indexof(bands);

self.cbbband1.itemindex := index;

//update data num

bands := databitstostr(com1.databits);

index := self.cbbdata1.items.indexof(bands);

self.cbbdata1.itemindex := index;

//update stopdata

bands := stopbitstostr(com1.stopbits);

index := self.cbbstop1.items.indexof(bands);

self.cbbstop1.itemindex := index;

end;

2、建立串列埠配置檔案,並寫入配置

procedure tform1.mbtnbtn1click(sender: tobject);

varconf : string;

begin

com1.port := self.cbbport1.text;

com1.baudrate := strtobaudrate(self.cbbband1.text);

com1.databits := strtodatabits(self.cbbdata1.text);

com1.stopbits := strtostopbits(self.cbbstop1.text);

comport.loadsettings(stregistry, 'hkey_local_machine\software\dejan');//把配置檔案屬性存到登錄檔中

close;

end;

3、讀取串列埠資料

procedure tform1.com1rxchar(sender: tobject; count: integer);

varstr:string;

begin

com1.readunicodestring(str,count);

end;

4、寫入串列埠程式可以用writereadunicodestring(str);

5、開啟串列埠

com1.open;

讀取配置檔案

類載入器 1 直接用class.forname 類的路徑名 class.forname com.hsf.classloader.classloader 2 用classloder 類載入器 inputstream in classloader.getsystemresourceasstream aa...

配置檔案的讀取

配置檔案的讀取是程式中必要部分,雖然不算複雜,但如果每次都寫配置檔案的分析提取 也是件煩人的事。現在流行的配置檔案格式有 ini,xml 簡單name value對等格式,acl庫中實現了最簡單的 name value對格式的配置檔案,該檔案格式有點類似於 xinetd.conf 的格式,檔案格式如...

C語言配置檔案讀取以及修改

include paramread.h include common.h 讀取字元型別的值 int getinikeystring char dst,const char title,const char key,const char filename else else fclose fp str...