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...