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.