lfgmartins
asked on
Help me with this complicated code
1------------------------- ---------- ---------- ---------- ---------- ----
{ Test whether MAPI is available - if not, raise an exception }
procedure TEmail.CheckMapi;
{$IFDEF RESSTRING}
resourcestring
{$ELSE}
const
{$ENDIF RESSTRING}
SNoMapi = 'MAPI services are not available on this system';
begin
if not MapiAvailable then { call function in SMAPI.PAS }
raise EMapiUnavailable.Create(SN oMapi);
end;
2------------------------- ---------- ---------- ---------- --
procedure TEmail.DoMapiError(ErrorCo de: Integer);
begin
if Assigned(FOnMapiError) then
FOnMapiError(Self, ErrorCode);
end;
if MapiResult <> SUCCESS_SUCCESS then
DoMapiError(MapiResult);
Thanks, Luis
{ Test whether MAPI is available - if not, raise an exception }
procedure TEmail.CheckMapi;
{$IFDEF RESSTRING}
resourcestring
{$ELSE}
const
{$ENDIF RESSTRING}
SNoMapi = 'MAPI services are not available on this system';
begin
if not MapiAvailable then { call function in SMAPI.PAS }
raise EMapiUnavailable.Create(SN
end;
2-------------------------
procedure TEmail.DoMapiError(ErrorCo
begin
if Assigned(FOnMapiError) then
FOnMapiError(Self, ErrorCode);
end;
if MapiResult <> SUCCESS_SUCCESS then
DoMapiError(MapiResult);
Thanks, Luis
What exactly the problem is?
hi Luis,
what's the question??
what's the question??
ASKER
Sry, what I want is if you please comment the code because I don't understand these lines of code.
- resourcestring
- raise EMapiUnavailable.Create(SN oMapi);
- FOnMapiError(Self, ErrorCode);
- DoMapiError(MapiResult);
Thanks,
Luis
- resourcestring
- raise EMapiUnavailable.Create(SN
- FOnMapiError(Self, ErrorCode);
- DoMapiError(MapiResult);
Thanks,
Luis
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.