Kendi IP adresim
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Kendi IP adresim
Merhaba arkadaşlar programın kurulu olduğu bilgisayarın IP adresini alıp servera göndercem ama IP adresini nasıl alcam? İlginize teşekkürler..
İyi Çalışmalar.
İyi Çalışmalar.
"Şu deredeki su,kaç kere değişti,yıldızların akisleri hep yerinde."
- sadettinpolat
- Moderator
- Mesajlar: 2131
- Kayıt: 07 Ara 2003 02:51
- Konum: Ankara
- İletişim:
hazır teker istiyorsan hazır tekerler bölümüne bakacaksınrecepuncu yazdı:Pardon burası teker varken tekeri yeniden icad edenlerin mekanıymış!
sanırım adresi şuraydı
hazir teker servisi
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
ulen üyeliklerin açılmasını boşuna beklemişiz..
sanırsın cevap vercekler... bunların hepsi çocuk.. programcılık nasıl gelişcek Türkiye'de?... ne deyim Allah yolunuzu açık etsin...bu arada başlığı açtık bari boşa gitmesin cevap aşağıda...
sanırsın cevap vercekler... bunların hepsi çocuk.. programcılık nasıl gelişcek Türkiye'de?... ne deyim Allah yolunuzu açık etsin...bu arada başlığı açtık bari boşa gitmesin cevap aşağıda...
Kod: Tümünü seç
uses Winsock;
function DetectHostIP(var IP: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
var IPAdres: string;
begin
if DetectHostIP(IPAdres) then
Label1.Caption := IpAdres
else
Label1.Caption := 'Ip Adresi alinamadi';
end;
"Şu deredeki su,kaç kere değişti,yıldızların akisleri hep yerinde."
s.a.
burada
sizin verdiğiniz kodun aynısı (+) sı ve (-) si ile var.
amacınız öğrenmek ise araştırmalı, soruşturmalısınız.
amacınız ben biliyorum ya bakalım burdaki elemanların durumu nedir
şeklinde bizleri (tüm forumdaki arkadaşlardan bahsediyorum sadece kendim ve yönetim kademesinden değil) tartmaksa gene eski mesajlara tartabilirsin.
bu arada şimdi ben sana ipadresimi nasıl öğrenirim diye sorsam ne dersin.?
burada
sizin verdiğiniz kodun aynısı (+) sı ve (-) si ile var.
amacınız öğrenmek ise araştırmalı, soruşturmalısınız.
amacınız ben biliyorum ya bakalım burdaki elemanların durumu nedir
şeklinde bizleri (tüm forumdaki arkadaşlardan bahsediyorum sadece kendim ve yönetim kademesinden değil) tartmaksa gene eski mesajlara tartabilirsin.
kimse size zorla üye olun demedi.recepuncu yazdı:ulen üyeliklerin açılmasını boşuna beklemişiz..
5 tane cevap gelmiş. 5 i de forumda sayılan kişiler ve 5 i de aynı şeyi söylemiş. biraz düşün neden acaba...ayrıca recepuncu yazdı:sanırsın cevap vercekler
unutmaki akıl yaşta değil baştadır. çocuk mocuk ama adamlar forum yapmış her hangi bir karşılık beklemeden yetişen programcılara destek olmaya çalışıyorlar. (sen bir arama tuşuna basmaya bil eriniyorsun (eriniyorsun diyorum çünki artniyet aramıyorum))ve recepuncu yazdı:bunların hepsi çocuk
delphiturkiye (gibi forumlar, burdaki gibi programcılığa gönül vermiş insanlar) olduğu müddetce gelişmeye devam edecek. Programcı olmak için biraz araştırmacı olmak gerek. Bizde seni araştırmaya teşvik ettik amave dahi recepuncu yazdı:programcılık nasıl gelişcek Türkiye'de?
sağol Allah razı olsun. seninde yolun açık olsun.ayrıca recepuncu yazdı:ne deyim Allah yolunuzu açık etsin
bu arada şimdi ben sana ipadresimi nasıl öğrenirim diye sorsam ne dersin.?
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Tartışma kısmını okumadım artık ruhum sıkılıyor sadece şunun belirtmek isterim, benim verdiğim cevabın hazır kod yapıştırmaktan çok daha faydalı olduğu inancındayım. Yoksa arar, hazır kodlardan birini yapıştırırdım.
Bir insanın bilgisi : Bildikleri + Nerde, nasıl bulacağını bildikleri olduğuna inanıyorum.
Kolay gelsin.
Bir insanın bilgisi : Bildikleri + Nerde, nasıl bulacağını bildikleri olduğuna inanıyorum.
Kolay gelsin.
A.S. aslangeri saolasın kardiş, zahmet etmiş aramış bulmuşsun cevabı, bu duyarlılığı başında gösterseydin keşke, hepimiz programcıyız bazen acil lazım oluveriyo, vatandaşlarım duyarlı olmak yerine sözüm onlara dalga geçer gibi cevaplar verdiler..
İyi Çalışmalar.
İyi Çalışmalar.
"Şu deredeki su,kaç kere değişti,yıldızların akisleri hep yerinde."
s.a.
önemli değil.
valla işin açıkçası fazlada bi zahmet olmadı.
adminim verdiği cevapta söylediklerini yaptım.
5 dk. bile sürmedi. eğer acele lazımsa arama yaptığın zaman daha çabuk bulursun inan...
bide burda kimse kimseyle dalga geçmez.
geçilmesine müsade edilmez. birisi bu kuralı ihlal ettiği zaman yönetim tarafından gerekli müdahale yapılır.
ama sen soruma hala cevap vermedin.
ip adresimi nasıl öğrenebilirim.
önemli değil.
valla işin açıkçası fazlada bi zahmet olmadı.
adminim verdiği cevapta söylediklerini yaptım.
5 dk. bile sürmedi. eğer acele lazımsa arama yaptığın zaman daha çabuk bulursun inan...
bide burda kimse kimseyle dalga geçmez.
geçilmesine müsade edilmez. birisi bu kuralı ihlal ettiği zaman yönetim tarafından gerekli müdahale yapılır.
ama sen soruma hala cevap vermedin.
ip adresimi nasıl öğrenebilirim.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
-
- Kıdemli Üye
- Mesajlar: 1223
- Kayıt: 26 Nis 2005 04:08