Danke für die Arbeit. Ich werde mir das auch mal genau ansehen.
Das erste was mir aufgefallen ist beim Test, es läuft nicht unter Delphi < 2007
Da solltest du CharInSet einfügen, da das noch nicht implementiert ist in älteren Delphi Versionen:
Delphi-Quellcode:
//...
CoSearchAssistantOC = class
class function Create: ISearchAssistantOC3;
class function CreateRemote(const MachineName: string): ISearchAssistantOC3;
end;
{$IFNDEF DELPHI12}
function CharInSet(const C: Char; const testSet: TSysCharSet): boolean;
{$ENDIF}
implementation
uses ComObj;
{$IFNDEF DELPHI12}
function CharInSet(const C: Char; const testSet: TSysCharSet): boolean;
begin
Result := C in testSet;
end;
{$ENDIF}
{ TEventDispatch }
constructor TEventDispatch.Create(Control: TWebBrowser; EventIID : TGUID);
begin
FControl := Control;
FEventIID := EventIID;
end;
//...