Delphi : Metni bölmek – explode

type
  TStrArray = array of string;
function Explode(var a: TStrArray; Border, S: string): Integer;
var
  S2: string;
begin
  Result  := 0;
  S2 := S + Border;
  repeat
    SetLength(A, Length(A) + 1);
    a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);
    Delete(S2, 1,Length(a[Result] + Border));
    Inc(Result);
  until S2 = '';
end;
procedure TForm1.btn1Click(Sender: TObject);
var 
A:TStrArray;
metin:string;
begin
metin:= 'elma,armut,üzüm';
 
Explode(A, ',', metin);
 
showmessage(A[1]);
// sonuç armut;
end;

Delphi : Metin içinde arama Fonksiyonu

Uses strutils;
 function CountStr(const ASearchFor, ASearchIn : string) : Integer;
var
  Start : Integer;
begin
  Result := 0;
  Start := Pos(ASearchFor, ASearchIn);
  while Start > 0 do
    begin
      Inc(Result);
      Start := PosEx(ASearchFor, ASearchIn, Start + 1);
    end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var 
sonuc:integer;
metin:string;
begin
metin:= 'Merhaba dünya!';
 
sonuc := CountStr('dünya', metin);
// sonuç 1;
sonuc := CountStr('Nerede?', metin);
// sonuç 0;
end;

IdHTTPProxyServer Basic Authentication

HTTPBeforeCommand event ına aşağıdaki kod ile istemciye şifre doğrulama ekranı gönderebilirsiniz. Gelen header bilgisi ile doğrulama işlemini yapabilir ve oturum kaydı tutabilirsiniz.

      AContext.Connection.IOHandler.WriteLn('HTTP/1.1 407 Proxy Authentication Required');
      AContext.Connection.IOHandler.WriteLn('Proxy-Authenticate: Basic realm="Proxy Kullanıcı Bilgileri"');
      AContext.Connection.IOHandler.WriteLn('Content-Length: 0');
      AContext.Connection.IOHandler.WriteLn('Connection: close');
      AContext.Connection.IOHandler.WriteLn('');
      Acontext.Connection.Disconnect;

IdHTTPProxyServer IP adresine göre bağlantı izini verme

IdHTTPProxyServer bileşeninin OnConnect Event ına aşağıdaki kodları girerek sadece izin verilen IP adresinden gelen bağlantıların ProxyServer üzerinden geçiş yapmasına izin verebilirsiniz.

if acontext.Connection.Socket.Binding.PeerIP <> '192.168.2.10' then
acontext.Connection.Disconnect;

Bu aralar…

Yaklaşık 20 senedir bilgisayar ile haşır neşir olduk yaş artık 31 oldu yavaş yavaş vücut alarm vermeye başladı 🙂 3-4 ay kadar önce sabahları kalktığımda sol elimin serce parmağının altındaki ince dokuda sızılar olmaya başladı. Elle dokunsan bile inanılmaz bir acı veriyordu bir iki saat sonra kendiliğinden geçiyordu.

Kendiliğinden geçtiği için pek fazla üzerinde durmadım bir önceki gün yoğun iş temposundan ve klavye kullanımına bağlı olarak bir zorlama olduğu düşüncesinde idim… Yanılmışım.

Geçen haftalarda yine sabah kalktığımda aynı bölgede inanılmaz bir acı vardı. Bileğimi yukarı aşağı hareket ettirdiğimde acı artıyor yine yumusak dokuya dokunduğunda aynı şekilde acı artıyordu. Daha önce de aynı durumu bildiğim için işin yolunu tuttum. Ancak akşama kadar ağrı geçmeyince bir anormallik olduğunu düşündüm. İşin kötü yanı hafta sonuna denk geldiği için herhangi bir polikliniğe de gösteremedim elimi.

2 gün boyunca dayanılmaz acılar cektikten sonra ilk iş günü soluğu hastanede aldım. Fizik tedavi uzmanına yönlendirildim. Doktor bileğimi inceledi tendom sıkışması ve iltihap olduğunu söyledi. Sonrasında çürük dişim olup olmadığını sordu ** Ne alaka diye kafamdan geçirdim ** evet bir kırık dişim olduğunu 2 tane de gömülü 20lik dişim olduğunu söyledim. Dişlerimi kontrol ettikten sonra bu dişlerinde bu tarz sorun yaratabileceğini sinir sistemini etkileyebileceğini söyledi.

Bir takım ağrı kesici, kas gevşetici ve bilek desteği verdikten sonra bir hafta sonrasına randevulaştık.
Bu hafta içerisinde de diş hekimine gidip dişlerimi kontrol ettireceğim.

Özetle uzun süre bilgisayar kullanıyorsanız bilek, el ve dirseklerinizde olabilecek herhangi bir ağrı için önleminizi alın.

Klavyenizi çok yakın kullanmayın, klavyeniz ve mouse nuz sizden yüksekte olmasın. Dirsekleriniz mümkün olduğunca bükük bir vaziyette olmamalı.

Nacizane fikirlerimi sizinle paylaşmak istedim…

Sağlıcakla.

Korumalı: VMware ESXI – Cacti Monitörleme

Bu içerik parola ile korunmaktadır. Görmek için lütfen aşağı parolanızı girin:

BİZE NE OLDU.. ?

Eski Günler

Bizim çocukluğumuzda annelerimiz çalışmazdı.

Okuldan eve geldiğimde boynumdaki anahtarla kapıyı hiç açmadım.
Hatta Babamın bile anahtarı yoktu.
Annem evimizin bir parçası gibiydi, hep evdeydi.
Her yere birlikte giderdik, zaten öyle çok da gidilecek bir yer yoktu ki…..

Sonraki Sayfa »

Facebook kullanıcı isimleri ve e-posta adreslerini birleştiriyor

facebook-kullanici-adi-1

Eğer Facebook’ta henüz bir kullanıcı adı belirlemediyseniz artık zamanı gelmiş olabilir. Çünkü Facebook yayınladığı bir bildiri ile bundan sonra kullanıcı isimleri ile Facebook e-posta servisinde aynı isimlerin kullanılacağını duyurdu. Bu uygulamanın amacı site içerisindeki kullanıcı ismi tutarlığını artırmak. Sonraki Sayfa »

Facebook’un piyasa değeri 100 milyar doları geçti

3nsan

Facebook‘un halka arzı için resmi başvurular yapıldı. Muhtemelen tüm internet şirketlerinin ve interneti önemseyen markaların gözü bu halka arza çevrilmiş durumda. Facebook müdavimi sokaktaki insan her ne kadar bu durumdan bihaber olsa da, dünya devi sosyal ağın son hisse satış fiyatına göre piyasa değeri 100 milyar doları geçti.
Sonraki Sayfa »

Korumalı: Nginx Kurulumu (Fedora)

Bu içerik parola ile korunmaktadır. Görmek için lütfen aşağı parolanızı girin: