Bilgisayarın IP adresini almak
| ||||
öncelikle
function findHostIP(var IP: string): Boolean;
var
wsdata : TWSAData;
xhost : array [0..255] of char;
xhostEnt : PHostEnt;
addres : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (xhost, sizeof (xhost));
xhostEnt := gethostbyname (xhost);
if Assigned (xhostEnt ) then
if Assigned (xhostEnt ^.h_addr_list) then begin
addres := xhostEnt ^.h_addr_list^;
if Assigned (addres ) then begin
IP := Format (‘%d.%d.%d.%d’, [byte (addres [0]),
byte (addres [1]), byte (addres [2]), byte (addres [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var IPno: string;
begin
if DetectHostIP(IPno) then
edit1.text:= IPno
else
edit1.text:= ‘Ip Adresi alinamadi’;
end;
Etiketler : bilgisayarın ip adresini bulmak, bilgisayarın ip adresini almak, bilgisayarın ip adresini değiştirmek, delphi ve tcp ip, delphi ile ip değişme, bilgisayarın ip adresini düzenlemek, ip adresini düzenlemek, ip ayarlarını değiştirmek, ip ayarlarını düzeltmek
administrator2009-08-25 00:43:40
Benzer Yazılar:
- İnternet Adresi Aktifmi Kontrol Etmek
- Çalışma anında .db veya .mdb uzantılı veri tabanı oluşturmak
- Bilgisayardaki Sürücü Listesini Almak
- Yazılan Fiyatı Metine Çevirmek
- Metin İçerisinden Bir Karakter Silmek
- Program İçerisinden Harddisk Formatlamak
- Çalınan MSN Adresini Geri almak
- CxGrid de Arama Yapmak
- Metnin İçerisindeki Kelime Sayısını Bulan Kod
- ASCII Kodlarını Bulmak
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...