자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
2359 [질문]Delphi XE7 Fastreport PDF 한글 깨짐 [1] 라다 2019.01.11 644
2358 RIO 에서 TWebbrowser 문제해결 차선책 [1] 지병철 2019.01.10 247
2357 TLocationSensor 의 중지가 안됩니다. silkroad99 2019.01.11 153
2356 도쿄에서의 문제 RIO에서 해결된 부분과 아닌부분(앱제작 시) [4] 지병철 2018.12.14 532
2355 RTTI로 집합 타입의 내용을 출력하고 싶어요. [1] 험프리 2019.01.08 314
2354 델파이에서 정규식을 어떻게 사용하나요. [1] devdev 2019.01.07 322
2353 RIS TWebBrowser 버그 [3] 아가머하노 2018.12.17 279
2352 안드로이드 8.0이상 즉 신형 스마트폰에서 form의 SaveState는 왜 안먹을까요? 화이부동 2019.01.06 277
2351 mousedown 에서의 shift상태 [1] 100jk 2018.12.27 156
2350 rio 10.3 에서 프로젝트 file (.dpr) 편집하는 방법 [1] 닉네임없음 2019.01.03 157
2349 [이벤트 당첨자 발표] 개발자 Q&A 게시판을 가장 잘 활용해주신 개발자는?! 관리자 2019.01.03 163
2348 [연말 이벤트] 개발자 Q&A 게시판을 가장 잘 활용해주신 분 상품 증정 관리자 2018.11.12 255
2347 윈도우10 보안 업데이트 이후 FastReport 출력문제 박군80 2018.12.31 270
2346 Uses Permissions Target [3] file 헌터 2018.12.06 231
2345 델파이 RIO Webbrowser size 문의? [2] silkroad99 2018.12.27 330
2344 Delphi 10.3 리오 rest 컴포넌트 오류 [4] 호호 2018.12.22 309
2343 TStringGrid를 스타일 제외하기 [2] 나도몰라 2016.10.05 406
2342 델파이 Style과 Grid [2] file 크림슨킹 2018.12.27 314
2341 Xe10으로 앱개발 배포할때 델파이가 지원하는 안드로이드 , ios 버전 문제? [2] 미스터리 2018.12.26 258
2340 Delphi 10.3 Rio 에서 bpl 프로젝트 설치 문제. [2] 대마왕 2018.12.24 628