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; |
Partager