Discussion :

[ouiouioui]

Bonjour,

Je n'arrive pas à trouver comment récupérer la valeur d'un object dans un BPL chargé dynamiquement.

Mon BPL est chargé avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function TManageCapture.GetCapture: boolean;
Const
  cPackageName = 'mc_capture.bpl';
  cProcName    = 'CaptureImage';
Var
  phm: HModule;
  CaptureImage: Function(Var FIMG: TJpegGraphic): boolean;
Begin
  Result := False;
 
  If FileExists(MF.AppDir + cPackageName) Then
  Begin
    phm               := LoadPackage(MF.AppDir + cPackageName);
    If phm <> 0 Then
      Try
        @CaptureImage := GetProcAddress(phm, cProcName);
        If Assigned(CaptureImage) Then
        Begin
          Result      := CaptureImage(FIMG);
        End
        Else
        Begin
          MessageDlgLM(Lng_MsgDlgCaptions[mtError], Format(msg_FunctionNotFound, [cProcName, cPackageName]), mtError);
        End { if assigned }
      Finally
        UnloadPackage(phm);
      End   { try/finally }
    Else
    Begin
      MessageDlgLM(Lng_MsgDlgCaptions[mtError], Format(msg_PackageLoadError, [cPackageName, MF.AppDir]), mtError);
    End; { if hpm<>0 }
  End
  Else
  Begin
    MessageDlgLM(Lng_MsgDlgCaptions[mtError], Format(msg_PackageNotFound, [cPackageName, MF.AppDir]), mtError);
  End; { fileexists }
End;

et dans mon BPL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function CaptureImage(Var FIMG: TJpegGraphic): Boolean;
Begin
  Result := False;
 
  With TCapture.Create(Capture) Do
    Try
      If ShowModal = mrOk Then
      Begin
        FIMG.Assign(cxi1.Picture);
      End;
    Finally
      Free;
    End;
End;

Sa plante sur le assign, je veux récupérer dans l'application l'image contenu dans le cxi1.Picture (TcxImage.TPicture).

Quel est selon vous la meilleur méthode ?
Merci d'avance.

[jeromelef2]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Assigned(CaptureImage) Then
Begin
    Result      := CaptureImage(FIMG);
End

il est ou le create de FIMG ?

[ouiouioui]

Oups
Merci.