TRIGGER Bilgi cekmek

Firebird ve Interbase veritabanları ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
ekremkocak
Üye
Mesajlar: 24
Kayıt: 31 Oca 2015 03:24

TRIGGER Bilgi cekmek

Mesaj gönderen ekremkocak »

Kod: Tümünü seç

CREATE TRIGGER MUSTERILERCONNECT ON CONNECT
AS
begin
  post_event ('CLIENT_ADDRESS');
end^


procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
    if EventName='CLIENT_ADDRESS' then   //gelen bilgi baglantı yapan programın ip si olması lazım..
    showmessage(EventName);

end;
burada nasıl bir cod yazalımki vt'ye baglalan client programların İP adreslerini alalım.
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: TRIGGER Bilgi cekmek

Mesaj gönderen freeman35 »

ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Cevapla