delphi Dns ve İp adresleri girme
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Re: delphi Dns ve İp adresleri girme
o satırı sil çalışır. delphi 2007 ile eklenmiş bir satırdır.
-
- Üye
- Mesajlar: 107
- Kayıt: 01 May 2013 05:30
Re: delphi Dns ve İp adresleri girme
mrmarman yazdı:o satırı sil çalışır. delphi 2007 ile eklenmiş bir satırdır.
Sorun düzeldi peki burda sadece bluetooht görünüyor diğer ag kartlarını nasıl gösterecem
![Resim](http://i.hizliresim.com/LPyDNo.png)
Sevgiler Yalan Olmuş Yalan Sahtekar Bırakıpta Bir Gün Seni Gitmeyecek Mi?
Re: delphi Dns ve İp adresleri girme
registry açıp başvurulan yere bir bakıver. orada senin ağ kartı nasıl isimlendiriliyor bakıp kodda ilgili yere yaz.
EK : WMI ile aşağıdaki kodu kullanarak öğrenmeyi dene... Dilersen yine bu metod ile hiç registry bulaşmadan ayarlamaları yapabilirsin ama önce öğrenmek için bu linki incele...
Kullanımı :
EK : WMI ile aşağıdaki kodu kullanarak öğrenmeyi dene... Dilersen yine bu metod ile hiç registry bulaşmadan ayarlamaları yapabilirsin ama önce öğrenmek için bu linki incele...
Kod: Tümünü seç
Uses ActiveX, ComObj;
Function NetworkBaglantilar_WMI: String;
const
WbemUser ='';
WbemPassword ='';
WbemComputer ='localhost';
wbemFlagForwardOnly = $00000020;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
strCihaz : String;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter','WQL',wbemFlagForwardOnly);
oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, iValue) = 0 do
begin
strCihaz := String(FWbemObject.Caption);
System.Delete( strCihaz, 1, Pos(']', strCihaz) );
Result := Result + Trim(strCihaz) + #13;
FWbemObject:=Unassigned;
end;
end;
Kod: Tümünü seç
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ComboBox1.Items.Text := NetworkBaglantilar_WMI;
ComboBox1.ItemIndex := 0;
end;
-
- Üye
- Mesajlar: 107
- Kayıt: 01 May 2013 05:30
Re: delphi Dns ve İp adresleri girme
![Resim](http://i.hizliresim.com/b8rnJG.png)
Arkadaşlar burda gereksiz şeylerde çıktı benim bilgisayarımda sadece şunların görünmesini istiyorum orada diğerlerini nasıl silebiliriz.
![Resim](http://i.hizliresim.com/ml3Q4P.png)
RAD Studio Kullanılmıştır.
En son kaan_karabey tarafından 13 May 2014 11:19 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Sevgiler Yalan Olmuş Yalan Sahtekar Bırakıpta Bir Gün Seni Gitmeyecek Mi?
-
- Üye
- Mesajlar: 107
- Kayıt: 01 May 2013 05:30
Re: delphi Dns ve İp adresleri girme
Yardımcı Olabilecek Yok mu Arkadaşlar
Sevgiler Yalan Olmuş Yalan Sahtekar Bırakıpta Bir Gün Seni Gitmeyecek Mi?
Re: delphi Dns ve İp adresleri girme
WMI kullanacaksanız bolca MSDN'e başvurmak zorundasınız. Kullandığınız kodda Win32_NetworkAdapter sınıfını kullanıyorsunuz. Öncelikle bunu araştırmalısınız. Hangi özellikleri işinize yarayabilir bir bakmalısınız. Tahminim bu sınıfın AdapterType yada AdapterTypeID özelliği sizin işiniz görecektir.
ExecQuery içerisinde kullandığınız WQL cümlesine WHERE koşulu ekleyerek sadece sizin belirttiğiniz koşula uyanları listeletebilirsiniz.
Örneğin;
SELECT * FROM Win32_NetworkAdapter WHERE AdapterTypeID=0
ExecQuery içerisinde kullandığınız WQL cümlesine WHERE koşulu ekleyerek sadece sizin belirttiğiniz koşula uyanları listeletebilirsiniz.
Örneğin;
SELECT * FROM Win32_NetworkAdapter WHERE AdapterTypeID=0
There's no place like 127.0.0.1
-
- Üye
- Mesajlar: 107
- Kayıt: 01 May 2013 05:30
Re: delphi Dns ve İp adresleri girme
SimaWB yazdı:WMI kullanacaksanız bolca MSDN'e başvurmak zorundasınız. Kullandığınız kodda Win32_NetworkAdapter sınıfını kullanıyorsunuz. Öncelikle bunu araştırmalısınız. Hangi özellikleri işinize yarayabilir bir bakmalısınız. Tahminim bu sınıfın AdapterType yada AdapterTypeID özelliği sizin işiniz görecektir.
ExecQuery içerisinde kullandığınız WQL cümlesine WHERE koşulu ekleyerek sadece sizin belirttiğiniz koşula uyanları listeletebilirsiniz.
Örneğin;
SELECT * FROM Win32_NetworkAdapter WHERE AdapterTypeID=0
Teşekkür Ederim Sorun çözülmüştür.
Sevgiler Yalan Olmuş Yalan Sahtekar Bırakıpta Bir Gün Seni Gitmeyecek Mi?