unit MultiLanguage;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $
// File generated on 12.11.2002 03:48:25 from Type Library described below.
// ************************************************************************ //
// Type Lib: \\prosys-srv\c$\Documents and Settings\sinclair\My Documents\Visual Studio Projects\MLT\Debug\MLT.tlb (1)
// LIBID: {275C23E0-3747-11D0-9FEA-00AA003F8646}
// LCID: 0
// Helpfile:
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb)
// (2) v4.0 StdVCL, (C:\WINDOWS\System32\stdvcl40.dll)
// Errors:
// Hint: Member 'type' of 'tagSTATSTG' changed to 'type_'
// Error creating palette bitmap of (TCMLangString) : Server C:\WINDOWS\System32\mlang.dll contains no icons
// Error creating palette bitmap of (TCMLangConvertCharset) : Server C:\WINDOWS\System32\mlang.dll contains no icons
// Error creating palette bitmap of (TCMultiLanguage) : Server C:\WINDOWS\System32\mlang.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
MultiLanguageMajorVersion = 0;
MultiLanguageMinorVersion = 2;
LIBID_MultiLanguage: TGUID = '{275C23E0-3747-11D0-9FEA-00AA003F8646}';
IID_IMLangStringBufW: TGUID = '{D24ACD21-BA72-11D0-B188-00AA0038C969}';
IID_IMLangStringBufA: TGUID = '{D24ACD23-BA72-11D0-B188-00AA0038C969}';
IID_IMLangString: TGUID = '{C04D65CE-B70D-11D0-B188-00AA0038C969}';
IID_IMLangStringWStr: TGUID = '{C04D65D0-B70D-11D0-B188-00AA0038C969}';
IID_IMLangStringAStr: TGUID = '{C04D65D2-B70D-11D0-B188-00AA0038C969}';
CLASS_CMLangString: TGUID = '{C04D65CF-B70D-11D0-B188-00AA0038C969}';
IID_IMLangLineBreakConsole: TGUID = '{F5BE2EE1-BFD7-11D0-B188-00AA0038C969}';
IID_IEnumCodePage: TGUID = '{275C23E3-3747-11D0-9FEA-00AA003F8646}';
IID_IEnumRfc1766: TGUID = '{3DC39D1D-C030-11D0-B81B-00C04FC9B31F}';
IID_IEnumScript: TGUID = '{AE5F1430-388B-11D2-8380-00C04F8F5DA1}';
IID_IMLangConvertCharset: TGUID = '{D66D6F98-CDAA-11D0-B822-00C04FC9B31F}';
CLASS_CMLangConvertCharset: TGUID = '{D66D6F99-CDAA-11D0-B822-00C04FC9B31F}';
IID_IMultiLanguage: TGUID = '{275C23E1-3747-11D0-9FEA-00AA003F8646}';
IID_IMultiLanguage2: TGUID = '{DCCFC164-2B38-11D2-B7EC-00C04F8F5D9A}';
IID_ISequentialStream: TGUID = '{0C733A30-2A1C-11CE-ADE5-00AA0044773D}';
IID_IStream: TGUID = '{0000000C-0000-0000-C000-000000000046}';
IID_IMLangCodePages: TGUID = '{359F3443-BD4A-11D0-B188-00AA0038C969}';
IID_IMLangFontLink: TGUID = '{359F3441-BD4A-11D0-B188-00AA0038C969}';
IID_IMLangFontLink2: TGUID = '{DCCFC162-2B38-11D2-B7EC-00C04F8F5D9A}';
IID_IMultiLanguage3: TGUID = '{4E5868AB-B157-4623-9ACC-6A1D9CAEBE04}';
CLASS_CMultiLanguage: TGUID = '{275C23E2-3747-11D0-9FEA-00AA003F8646}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum tagMLSTR_FLAGS
type
tagMLSTR_FLAGS = TOleEnum;
const
MLSTR_READ = $00000001;
MLSTR_WRITE = $00000002;
// Constants for enum tagMIMECONTF
type
tagMIMECONTF = TOleEnum;
const
MIMECONTF_MAILNEWS = $00000001;
MIMECONTF_BROWSER = $00000002;
MIMECONTF_MINIMAL = $00000004;
MIMECONTF_IMPORT = $00000008;
MIMECONTF_SAVABLE_MAILNEWS = $00000100;
MIMECONTF_SAVABLE_BROWSER = $00000200;
MIMECONTF_EXPORT = $00000400;
MIMECONTF_PRIVCONVERTER = $00010000;
MIMECONTF_VALID = $00020000;
MIMECONTF_VALID_NLS = $00040000;
MIMECONTF_MIME_IE4 = $10000000;
MIMECONTF_MIME_LATEST = $20000000;
MIMECONTF_MIME_REGISTRY = $40000000;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IMLangStringBufW = interface;
IMLangStringBufA = interface;
IMLangString = interface;
IMLangStringWStr = interface;
IMLangStringAStr = interface;
IMLangLineBreakConsole = interface;
IEnumCodePage = interface;
IEnumRfc1766 = interface;
IEnumScript = interface;
IMLangConvertCharset = interface;
IMultiLanguage = interface;
IMultiLanguage2 = interface;
ISequentialStream = interface;
IStream = interface;
IMLangCodePages = interface;
IMLangFontLink = interface;
IMLangFontLink2 = interface;
IMultiLanguage3 = interface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
CMLangString = IMLangString;
CMLangConvertCharset = IMLangConvertCharset;
CMultiLanguage = IMultiLanguage;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
wireHWND = ^_RemotableHandle;
wireHDC = ^_RemotableHandle;
wireHFONT = ^_RemotableHandle;
PWord1 = ^Word; {*}
PShortint1 = ^Shortint; {*}
PUserType1 = ^TGUID; {*}
PByte1 = ^Byte; {*}
PSYSUINT1 = ^SYSUINT; {*}
tagMIMECPINFO = packed record
dwFlags: LongWord;
uiCodePage: SYSUINT;
uiFamilyCodePage: SYSUINT;
wszDescription: array[0..63] of Word;
wszWebCharset: array[0..49] of Word;
wszHeaderCharset: array[0..49] of Word;
wszBodyCharset: array[0..49] of Word;
wszFixedWidthFont: array[0..31] of Word;
wszProportionalFont: array[0..31] of Word;
bGDICharset: Byte;
end;
tagRFC1766INFO = packed record
lcid: LongWord;
wszRfc1766: array[0..5] of Word;
wszLocaleName: array[0..31] of Word;
end;
tagSCRIPTINFO = packed record
ScriptId: Byte;
uiCodePage: SYSUINT;
wszDescription: array[0..47] of Word;
wszFixedWidthFont: array[0..31] of Word;
wszProportionalFont: array[0..31] of Word;
end;
tagMIMECSETINFO = packed record
uiCodePage: SYSUINT;
uiInternetEncoding: SYSUINT;
wszCharset: array[0..49] of Word;
end;
_LARGE_INTEGER = packed record
QuadPart: Int64;
end;
_ULARGE_INTEGER = packed record
QuadPart: Largeuint;
end;
_FILETIME = packed record
dwLowDateTime: LongWord;
dwHighDateTime: LongWord;
end;
tagSTATSTG = packed record
pwcsName: PWideChar;
type_: LongWord;
cbSize: _ULARGE_INTEGER;
mtime: _FILETIME;
ctime: _FILETIME;
atime: _FILETIME;
grfMode: LongWord;
grfLocksSupported: LongWord;
clsid: TGUID;
grfStateBits: LongWord;
reserved: LongWord;
end;
tagDetectEncodingInfo = packed record
nLangID: SYSUINT;
nCodePage: SYSUINT;
nDocPercent: SYSINT;
nConfidence: SYSINT;
end;
__MIDL_IWinTypes_0009 = record
case Integer of
0: (hInproc: Integer);
1: (hRemote: Integer);
end;
_RemotableHandle = packed record
fContext: Integer;
u: __MIDL_IWinTypes_0009;
end;
tagUNICODERANGE = packed record
wcFrom: Word;
wcTo: Word;
end;
tagSCRIPFONTINFO = packed record
scripts: Int64;
wszFont: array[0..31] of Word;
end;
// *********************************************************************//
// Interface: IMLangStringBufW
// Flags: (0)
// GUID: {D24ACD21-BA72-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangStringBufW = interface(IUnknown)
['{D24ACD21-BA72-11D0-B188-00AA0038C969}']
function GetStatus(out plFlags: Integer; out pcchBuf: Integer): HResult; stdcall;
function LockBuf(cchOffset: Integer; cchMaxLock: Integer; out ppszBuf: PWord1;
out pcchBuf: Integer): HResult; stdcall;
function UnlockBuf(var pszBuf: Word; cchOffset: Integer; cchWrite: Integer): HResult; stdcall;
function Insert(cchOffset: Integer; cchMaxInsert: Integer; out pcchActual: Integer): HResult; stdcall;
function Delete(cchOffset: Integer; cchDelete: Integer): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMLangStringBufA
// Flags: (0)
// GUID: {D24ACD23-BA72-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangStringBufA = interface(IUnknown)
['{D24ACD23-BA72-11D0-B188-00AA0038C969}']
function GetStatus(out plFlags: Integer; out pcchBuf: Integer): HResult; stdcall;
function LockBuf(cchOffset: Integer; cchMaxLock: Integer; out ppszBuf: PShortint1;
out pcchBuf: Integer): HResult; stdcall;
function UnlockBuf(var pszBuf: Shortint; cchOffset: Integer; cchWrite: Integer): HResult; stdcall;
function Insert(cchOffset: Integer; cchMaxInsert: Integer; out pcchActual: Integer): HResult; stdcall;
function Delete(cchOffset: Integer; cchDelete: Integer): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMLangString
// Flags: (0)
// GUID: {C04D65CE-B70D-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangString = interface(IUnknown)
['{C04D65CE-B70D-11D0-B188-00AA0038C969}']
function Sync(fNoAccess: Integer): HResult; stdcall;
function GetLength(out plLen: Integer): HResult; stdcall;
function SetMLStr(lDestPos: Integer; lDestLen: Integer; const pSrcMLStr: IUnknown;
lSrcPos: Integer; lSrcLen: Integer): HResult; stdcall;
function GetMLStr(lSrcPos: Integer; lSrcLen: Integer; const pUnkOuter: IUnknown;
dwClsContext: LongWord; var piid: TGUID; out ppDestMLStr: IUnknown;
out plDestPos: Integer; out plDestLen: Integer): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMLangStringWStr
// Flags: (0)
// GUID: {C04D65D0-B70D-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangStringWStr = interface(IMLangString)
['{C04D65D0-B70D-11D0-B188-00AA0038C969}']
function SetWStr(lDestPos: Integer; lDestLen: Integer; var pszSrc: Word; cchSrc: Integer;
out pcchActual: Integer; out plActualLen: Integer): HResult; stdcall;
function SetStrBufW(lDestPos: Integer; lDestLen: Integer; const pSrcBuf: IMLangStringBufW;
out pcchActual: Integer; out plActualLen: Integer): HResult; stdcall;
function GetWStr(lSrcPos: Integer; lSrcLen: Integer; out pszDest: Word; cchDest: Integer;
out pcchActual: Integer; out plActualLen: Integer): HResult; stdcall;
function GetStrBufW(lSrcPos: Integer; lSrcMaxLen: Integer; out ppDestBuf: IMLangStringBufW;
out plDestLen: Integer): HResult; stdcall;
function LockWStr(lSrcPos: Integer; lSrcLen: Integer; lFlags: Integer; cchRequest: Integer;
out ppszDest: PWord1; out pcchDest: Integer; out plDestLen: Integer): HResult; stdcall;
function UnlockWStr(var pszSrc: Word; cchSrc: Integer; out pcchActual: Integer;
out plActualLen: Integer): HResult; stdcall;
function SetLocale(lDestPos: Integer; lDestLen: Integer; locale: LongWord): HResult; stdcall;
function GetLocale(lSrcPos: Integer; lSrcMaxLen: Integer; out plocale: LongWord;
out plLocalePos: Integer; out plLocaleLen: Integer): HResult; stdcall;
end;