자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------

bpl을 이용한 MDI 방식의 구성에서 DB커넥션의 공유는 어떻게 하는건가요?

 

부모폼에서 fdConnection 의 포인터를 자식품으로 넘겨준 후 처리 하면 될까 했는데 생각대로 되지 않아 문의 드립니다.

 

---------------------------------------<부모폼 소스>-----------------------------------

......

 

procedure TMainForm.PackageLoad(bplFileName: string);
begin
  PackageModule := LoadPackage(bplFileName);


  if PackageModule <> 0 then
  try
    @ExecuteChild := GetProcAddress(PackageModule,'ExecuteChild');
  except
    ShowMessage ('Package not found');
  end;
end;

 

 

procedure TMainForm.FirstForm1Click(Sender: TObject);
begin
  if PackageModule = 0 then PackageLoad('pFirstForm.bpl');

  
  if Assigned(ExecuteChild) then ExecuteChild('string parameter test', @FDConnection1);
end;

 

......

-------------------------------------------------------------------------------------------

 

-----------------------------------------<자식폼 소스>----------------------------------

unit uFirstForm;

 

interface

 

uses
  ......

 

procedure ExecuteChild(pStr: string; pFdConn: Pointer);

 

......

 

var
  fmFirstForm: TfmFirstForm;
  fdConn: ^TFDConnection;

 

......

 

procedure TfmFirstForm.Button2Click(Sender: TObject);
begin
  FDQuery.Connection := fdConn^;

  FDQuery.Close;
  FDQuery.Open;
end;

 

procedure ExecuteChild(pStr: string; pFdConn: Pointer);
begin
  TfmFirstForm.Create(Application);

  new(fdConn);
  fdConn := pFdConn;

end;

exports
  ExecuteChild;

 

......

-------------------------------------------------------------------------------------------

필요한 내용만 발췌하여 소스 첨부하였습니다.  

 

잘못된 부분이나 참조할 만한 자료가 있으면 알려주시면 감사드리겠습니다.

샘플소스도 있다면 더할나위 없겠구요~

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20049
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
1239 pda폰 또는 안드로이드폰에 rfid 리더 모듈을 개발하려하는데 조언부탁드립니다. 여리낭군 2016.03.21 627
1238 [공유] WebServer와 연동하는 예제나 컴퍼넌트가 있을까요? 험프리 2016.03.21 223
1237 [공유] 파이어몽키 스타일 적용방법 험프리 2016.03.21 190
1236 [공유] 실행 중 도형등의 크기를 변경하려면 어떻게 하나요? 험프리 2016.03.21 224
1235 [도서][한 번에 개발하는 안드로이드/iOS with 델파이 1편] 7장.1.카메라로 사진찍기 - Invalid class typecast. 오류 발생 시 조치방법 file 험프리 2015.11.26 1185
1234 LME288 링크에러 [2] 한시민 2016.03.18 314
1233 XE7 안드로이드 9-patch image기번 스플래쉬화면 [1] 빨리빨리 2016.03.15 315
1232 XE8/XE10 DATASNAP SERVER 연결관련문의 (MARSHMALLOW) [1] 김하나 2016.03.16 252
1231 ListBox style에서 text를 추가했는데 livebinding으로 연결이 가능한가요?? [1] 손주영 2016.03.17 350
1230 XE10 Seattle에서 DBExpress로 원격지 Firebird서버에 접속시 의문점입니다. [1] 김태윤 2016.03.16 446
1229 Zigbee 통신 어떻게 하는지 알고 싶습니다. [1] 이노야 2016.03.14 358
» bpl을 이용한 MDI 방식의 구성에서 DB커넥션의 공유는 어떻게 하는건가요? [1] 박종원 2016.03.14 452
1227 Edit 내용입력 후 다음 버튼 클릭시 다음 Edit로 이용하는 방법 [4] 빨리빨리 2016.03.10 1627
1226 퀵리포트를 PDF로 변환하고자 합니다. [2] 손승규 2016.03.10 1519
1225 개발시 uses 절 관련 [1] 씨애틀 2016.03.08 456
1224 안드로이드 백버튼시 선택 가능한 알림창 띄우기 [2] 씨애틀 2016.03.09 699
1223 TEdit 에서 EJNIFatal with message 'Invoke error: [2] 빨리빨리 2016.02.27 332
1222 화면입력변수를 sql문에 적용하는 방법이 궁금합니다. [2] prince 2016.03.04 254
1221 FireDAC.MSSQL error seattle 10 [1] urong 2016.03.08 304
1220 안드로이드 날짜 팝업창 관련 [2] 씨애틀 2016.03.07 368