자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi FDEventAlerter사용에 대해 부탁드림니다.
2016.08.12 19:05
아래처럼 파이어버드, 코딩하고 실행하면 서버에서 파이어버드가메모리를 만이잡아먹는것같고 실행중 ip 가 끊어졌다고 메세지가 뜨면서 어디론가 사라져버림니다 약 2 분 ...
procedure TfrmMain.btnRegisterClick(Sender: TObject);
begin
try
if FDEventAlerter1.Activef then
Exit;
FDEventAlerter1.Active := False;
FDEventAlerter1.Connection := Order_DM_F.FDConnection1;
FDEventAlerter1.Unregister;
FDEventAlerter1.Names.clear;
With FDEventAlerter1.Names do
begin
Add('execute block as');
Add('begin');
Add(' post_event ''Order_UpdateEvent'';');
Add('end');
end;
FDEventAlerter1.Register;
Sleep(50);
FDEventAlerter1.OnAlert := FDEventAlerter1.OnAlert;
FDEventAlerter1.Options.Synchronize := True;
FDEventAlerter1.Active := True;
except
FreeAndNil(FDEventAlerter1);
FreeAndNil(Order_DM_F.FDConnection1);
end
// Table 구성
CREATE OR ALTER TRIGGER RMC_ORDERDEL_BI0 FOR RMC_ORDER
ACTIVE AFTER DELETE POSITION 0
AS
begin
POst_EvENT 'Order_DelEvent';
end
CREATE OR ALTER TRIGGER RMC_ORDERINS_BI0 FOR RMC_ORDER
ACTIVE AFTER INSERT POSITION 0
AS
begin
POst_EvENT 'Order_InsEvent';
end
CREATE OR ALTER TRIGGER RMC_ORDERUPDATE_BI0 FOR RMC_ORDER
ACTIVE AFTER UPDATE POSITION 0
AS
begin
POst_EvENT 'Order_UpdateEvent';
end
CREATE OR ALTER TRIGGER RMC_ORDER_BI0 FOR RMC_ORDER
ACTIVE BEFORE INSERT POSITION 0
AS
begin
IF (NEW.rmc_order_seq IS NULL) THEN
NEW.rmc_order_seq = GEN_ID(rmc_order_Gen,1);
end
댓글 0
Delphi FDEventAlerter사용에 대해 부탁드림니다.
2016.08.12 19:05
|
아래처럼 파이어버드, 코딩하고 실행하면 서버에서 파이어버드가메모리를 만이잡아먹는것같고 실행중 ip 가 끊어졌다고 메세지가 뜨면서 어디론가 사라져버림니다 약 2 분 ...
// Table 구성 CREATE OR ALTER TRIGGER RMC_ORDERDEL_BI0 FOR RMC_ORDER CREATE OR ALTER TRIGGER RMC_ORDERINS_BI0 FOR RMC_ORDER CREATE OR ALTER TRIGGER RMC_ORDERUPDATE_BI0 FOR RMC_ORDER CREATE OR ALTER TRIGGER RMC_ORDER_BI0 FOR RMC_ORDER |
