mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 09:39:09 +02:00
parent
14590fb859
commit
17330b94e3
@ -288,6 +288,8 @@ unit comobj;
|
|||||||
function ProgIDToClassID(const id : string) : TGUID;
|
function ProgIDToClassID(const id : string) : TGUID;
|
||||||
function ClassIDToProgID(const classID: TGUID): string;
|
function ClassIDToProgID(const classID: TGUID): string;
|
||||||
|
|
||||||
|
function StringToLPOLESTR(const Source: string): POLEStr;
|
||||||
|
|
||||||
procedure DispatchInvoke(const Dispatch: IDispatch; CallDesc: PCallDesc;
|
procedure DispatchInvoke(const Dispatch: IDispatch; CallDesc: PCallDesc;
|
||||||
DispIDs: PDispIDList; Params: Pointer; Result: PVariant);
|
DispIDs: PDispIDList; Params: Pointer; Result: PVariant);
|
||||||
procedure DispatchInvokeError(Status: HRESULT; const ExceptInfo: TExcepInfo);
|
procedure DispatchInvokeError(Status: HRESULT; const ExceptInfo: TExcepInfo);
|
||||||
@ -573,6 +575,17 @@ implementation
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function StringToLPOLESTR(const Source: string): POLEStr;
|
||||||
|
var
|
||||||
|
Src: WideString;
|
||||||
|
begin
|
||||||
|
Src := WideString(Source);
|
||||||
|
Result := CoTaskMemAlloc((Length(Src)+1) * SizeOf(WideChar));
|
||||||
|
if Result <> nil then
|
||||||
|
Move(PWideChar(Src)^, Result^, (Length(Src)+1) * SizeOf(WideChar));
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure SafeCallErrorHandler(err : HResult;addr : pointer);
|
procedure SafeCallErrorHandler(err : HResult;addr : pointer);
|
||||||
{$ifndef wince}
|
{$ifndef wince}
|
||||||
var
|
var
|
||||||
|
Loading…
Reference in New Issue
Block a user