Mitec Komponentinde Sorgular Neden Boş Döner

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
uğur alkan
Üye
Mesajlar: 227
Kayıt: 29 Ağu 2004 04:49
Konum: Istanbul

Mitec Komponentinde Sorgular Neden Boş Döner

Mesaj gönderen uğur alkan »

Mitec Komponentini kurdum mesala cpu id yi bir edit içine yazdırmaya çalışıyorum dönen değer yok benmi birşeyi eksik yapıyorum. Makina
ACER 4050 notebook xp sp2 kullanıyorum neden sorgu değerleri boş dönüyor.
Bazen sert rüzgarlar eser başını öne eğmekten asla korkma
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7604
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

ilk önce Refresh komutunu çalıştırman lazım.

SystemInfo1.Refresh;
.... //bilgileri oku

Kolay gelsin.
Kullanıcı avatarı
uğur alkan
Üye
Mesajlar: 227
Kayıt: 29 Ağu 2004 04:49
Konum: Istanbul

Mesaj gönderen uğur alkan »

Mustafa hocam çok teşekkür ederim...
Bu arada refresh şeklinde değilde

Kod: Tümünü seç

......._refresh;
şeklinde ilk bakışta görünmüyor... :)
Bazen sert rüzgarlar eser başını öne eğmekten asla korkma
Kullanıcı avatarı
MicroChip
Kıdemli Üye
Mesajlar: 1119
Kayıt: 02 Ağu 2003 01:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip »

ya neyse ney işte bazen yanlış veya eksik harf yazabiliyoruz ;) o kadarcik olsun dimi ama.


saygılar...
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7604
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Belki sürüm farkı olabilir, çalışan koddan alıp kopyaladım ben :)

Kolay gelsin.
Kullanıcı avatarı
uğur alkan
Üye
Mesajlar: 227
Kayıt: 29 Ağu 2004 04:49
Konum: Istanbul

Mesaj gönderen uğur alkan »

Kimseye kusur bulmuyorum... yardımlarınız için çok teşekkür ederim tekrar, başka birisinede lazım olur boşyere zaman kaybetmesin diye belirtmek istedim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.MiTeC_SystemInfo1.RefreshData;
form1.MiTeC_CPU1.RefreshData;
form1.Edit1.Text:=form1.MiTeC_CPU1.GenericName;
form1.Edit2.Text:=form1.MiTeC_CPU1.CPUName;
form1.Edit3.Text:=form1.MiTeC_CPU1.CodeName;
form1.Edit4.Text:=form1.MiTeC_CPU1.Technology;
form1.Edit5.Text:=form1.MiTeC_SystemInfo1.CPU.SerialNumber;
form1.MiTeC_Storage1.RefreshData;
form1.Edit6.Text:=form1.MiTeC_Storage1.Physical[0].SerialNumber;
form1.Edit7.Text:=form1.MiTeC_Storage1.Physical[0].Model;
form1.MiTeC_SMBIOS1.RefreshData;
form1.Edit8.Text:=form1.MiTeC_SMBIOS1.SystemSerial;
end;
Bazen sert rüzgarlar eser başını öne eğmekten asla korkma
Cevapla