Delphi Forum

Merhaba,

Bu kodu Delphi 7 ile yazmıştım. Üzerinden çok zaman geçti ve uzun süredir delphi kullanmıyorum. Açıkçası bu kodu nasıl yazdığımı, ne işe yaradığını bile hatırlamıyorum :) Ben yardımcı olamam ama sonuçta kaynak kodu vermişim, eğer türettiğim sınıf delphi 9'da değiştirilmediysa biraz daha ...

@ulu coder

- Bir dahaki sefere kelime oyunu yapmadan direkt cevap yazarsan boşuna başlık işgal etmeyiz değil mi. Kimseyle yarışmıyoruz veya kimsenin bilgisini sınamıyoruz. Alt metin yazarak "böyle cevap geleceğini biliyordum" demekle olmuyor hocam. :wink:
Yazdığım şeyde alınacak bi şey yok.

Ben ...

ngul yazdı:ben indy ile sayfayı memo ya aktarıyorum sonra veriyi burada taratıyorum.

TStringList kullanıp AList.Text := şeklinde veriyi içine atmanızı ya da direkt String kullanmanızı tavsiye ederim.

ID dediğin kaç byte : Server sorusu #01 yani kimsin ise ( protokol senin belirleyeceğin bişeydir ) client cevap #255 derse mesela
bu sana 255 kişilik bir listenin 1 byte olarak cevabıdır. Bunun neresi trafik yapacak ? :wink:

- Ayrıca bildiğin bişey var ki yaz herkes öğrensin. Öyle bi bilgisayarla ...

mrmarman yazdı:hocam en başa döndürme bizi. Sen basit bir döngü kurarsın, Connection sayın kadar. Sonra bağlantısı olanlara KİMSİN: sorusu gönderirsin hemencecik yeni ID listen oluşur...

İletişimi bu kadar kullanmak sizin için sorun değilse, eyvallah...

OnDisconnect'de disconnect olan socket'in index'ini alabiliyor muyduk?

ek olarak, connect ve disconnect durumlarında hangi client ile ilgili olduğunu anlmak için Socket.RemoteAddress dediğimde ip'sini göremediğim bilgisayarlar da olmuştu. bağlantıyı nasıl kuruyorlardı anlamıyordum :lol ...

Araya girmiş gibi olacam, yalnız

TCP sürekli bağlantıda olduğundan - IP numarası burada önemsiz.
OnClientDisconnect
'212.126.222.11' ile başlayan bağlantıyı listeden sil.

Proxy bi kenera, aynı evden 2 kişi bağlansa disconnect durumunda kim silinecek?

Zamanında çok çektim de bu TCP/IP'den ...

var
tmpCheckBox: TCheckBox;
i: Integer;
begin
for i := 1 to 4 do
begin
tmpCheckBox := TCheckBox(FindComponent('A' + inttostr(i)));

//tmpCheckBox A1 olur, kodlar işler; A2 olur, çalışır, A3 olur, A4 olur...
end;//for

tmpCheckBox := nil;
end;

Ama ne yapmaya çalıştığınızı tam anlayamadım ...

Merhaba.

Daha önce konuşuldu bu
hangi and edit and reng*

Kolay yolu şudur ki her end kendisinden önce ve end'i bulunmayan ilk begin'indir. Sayarak gidebilirsiniz.

Daha önce de söylendiği gibi en güzeli begin yazar yazmaz altına end'i yapıştırıp açıklamasını yazmak, ama bence önemli olan bir diğer nokta da kod bloklarını (prosedür-fonksiyon) mümkün ...

her şeyin üstünde istenen bi formla o uyarının nasıl 'hiç alakası yok' anlamıyorum, bu tarzdan sonra anlamak da istemiyorum.

Kolay gelsin herkese.

şimdi aklıma geldi, @White Rose'un ezan_namaz diye bi programı vardı, onda da yine MSN'deki gibi bi bilgi kutusu çıkıyordu, oyun oynarken bile görülüyordu, White Rose'a danışmak lazım.

(Bkz. Amerika'yı yeniden keşfetmemek)

Jedi'ın içinde MSN'de çıkan pencerenin birebir aynısı olan bi bileşen vardı, ona da bi bakın derim. Jedi yüklü değil, bakamıyorum ben şimdi...

Soruyu doğru anladığımı umarak;

TStringProperty property editörünü inherit edip yeni bi özellik editörü oluşturacaksınız.

Control(TControl) ve PropertyName(String) property'lerine sahip bi bileşenim vardı. PropertyName'in seçimi için yazdığım editör (içinde ait olduğu nesneye erişim, get-set vs ...

Edit: