babel fish

[spydaz]

im just building an insaller file... tricky process ..

gathering all ther parts .dlls etc

[onthecuttingedge2005]

I installed Babylon translator to my PC, I looked up ProgID's to create an instance of Babylon Translator from RegEdit in HKEY_CLASSES_ROOT: where ProgID's are stored.

Set BabIEPI = CreateObject("BabylonIEPI.BabylonProxy")
Set BabOffice = CreateObject("BabylonOfficeAddin.OfficeAddin")

These are the only two ProgID's that could be created from Babylon, the rest could not be created.


Here are functions from the IE tool bar: BabylonIEToolBar.dll

//BabylonTB 1.0 Type Library
//Version: 1.0
BabylonTBLib;
GUID = {162484B8-B114-453F-A344-C0B24B0F1D99};


//BabylonTB Class
CoClass BabylonTB;
GUID = {965B54B0-71E0-4611-8DE7-F73FA0B20E26};

//disp Interface
Dispatch IBabylonTB;
GUID = {499BD1D6-2D1D-4641-8DBA-A0B07C86033A};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //method Translate
  function Translate(out word: BSTR; out windowDisp: Variant); stdcall;

//BabylonTBProxy Class
CoClass BabylonProxyObj;
GUID = {1EF5CFE5-3AD3-4300-9AAC-517715BBCA39};

//TB_Utils Class
CoClass TB_Utils;
GUID = {49320284-A785-4FBE-AD4E-30CAF313573B};

//ITB_Utils Interface
Dispatch ITB_Utils;
GUID = {9EA35643-E7D6-4259-8719-5AEB3A3816A0};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;

with a little programming skill one could use the created object to use as a translator in Vbscript code.

I hilighted the important function in Red.

Jerry[8D]