Доброго времени суток!
В программе нужно общаться с интернет- поисковиками (NMHTTP.Get), в том числе с Google. А он работает в UTF-8. Как осуществить перекодировку из 1251 в UTF-8 и обратно? Подозреваю, что надо использовать WideCharToMultiByte, но не нашел какие ей параметры указать. Delphi5, системы 2K и 98. В help и Win32help, msdn (правда, 98, новее нет) смотрел . Там про UTF-8 ни слова. Кто делал, помогите примером, плиииз или ткните меня мордой куда рыть.
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
18-06-2003 10:44
На rsdn.ru это уже обсуждалось.
Есть технология от MicroSoft (смотри MSDN).
Некий хлопец часть оформил под паскаль:
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.
{$WRITEABLECONST ON}
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum tagMLSTR_FLAGS
type
tagMLSTR_FLAGS = TOleEnum;
const
MLSTR_READ = $00000001;
MLSTR_WRITE = $00000002;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
CMLangString = IMLangString;
CMLangConvertCharset = IMLangConvertCharset;
CMultiLanguage = IMultiLanguage;
__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;
// *********************************************************************//
// Interface: IMLangStringAStr
// Flags: (0)
// GUID: {C04D65D2-B70D-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangStringAStr = interface(IMLangString)
['{C04D65D2-B70D-11D0-B188-00AA0038C969}']
function SetAStr(lDestPos: Integer; lDestLen: Integer; uCodePage: SYSUINT;
var pszSrc: Shortint; cchSrc: Integer; out pcchActual: Integer;
out plActualLen: Integer): HResult; stdcall;
function SetStrBufA(lDestPos: Integer; lDestLen: Integer; uCodePage: SYSUINT;
const pSrcBuf: IMLangStringBufA; out pcchActual: Integer;
out plActualLen: Integer): HResult; stdcall;
function GetAStr(lSrcPos: Integer; lSrcLen: Integer; uCodePageIn: SYSUINT;
out puCodePageOut: SYSUINT; out pszDest: Shortint; cchDest: Integer;
out pcchActual: Integer; out plActualLen: Integer): HResult; stdcall;
function GetStrBufA(lSrcPos: Integer; lSrcMaxLen: Integer; out puDestCodePage: SYSUINT;
out ppDestBuf: IMLangStringBufA; out plDestLen: Integer): HResult; stdcall;
function LockAStr(lSrcPos: Integer; lSrcLen: Integer; lFlags: Integer; uCodePageIn: SYSUINT;
cchRequest: Integer; out puCodePageOut: SYSUINT; out ppszDest: PShortint1;
out pcchDest: Integer; out plDestLen: Integer): HResult; stdcall;
function UnlockAStr(var pszSrc: Shortint; 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;
// *********************************************************************//
// Interface: IMLangLineBreakConsole
// Flags: (0)
// GUID: {F5BE2EE1-BFD7-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangLineBreakConsole = interface(IUnknown)
['{F5BE2EE1-BFD7-11D0-B188-00AA0038C969}']
function BreakLineML(const pSrcMLStr: IMLangString; lSrcPos: Integer; lSrcLen: Integer;
cMinColumns: Integer; cMaxColumns: Integer; out plLineLen: Integer;
out plSkipLen: Integer): HResult; stdcall;
function BreakLineW(locale: LongWord; var pszSrc: Word; cchSrc: Integer; cMaxColumns: Integer;
out pcchLine: Integer; out pcchSkip: Integer): HResult; stdcall;
function BreakLineA(locale: LongWord; uCodePage: SYSUINT; var pszSrc: Shortint;
cchSrc: Integer; cMaxColumns: Integer; out pcchLine: Integer;
out pcchSkip: Integer): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IEnumCodePage
// Flags: (0)
// GUID: {275C23E3-3747-11D0-9FEA-00AA003F8646}
// *********************************************************************//
IEnumCodePage = interface(IUnknown)
['{275C23E3-3747-11D0-9FEA-00AA003F8646}']
function Clone(out ppEnum: IEnumCodePage): HResult; stdcall;
function Next(celt: LongWord; out rgelt: tagMIMECPINFO; out pceltFetched: LongWord): HResult; stdcall;
function Reset: HResult; stdcall;
function Skip(celt: LongWord): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IEnumRfc1766
// Flags: (0)
// GUID: {3DC39D1D-C030-11D0-B81B-00C04FC9B31F}
// *********************************************************************//
IEnumRfc1766 = interface(IUnknown)
['{3DC39D1D-C030-11D0-B81B-00C04FC9B31F}']
function Clone(out ppEnum: IEnumRfc1766): HResult; stdcall;
function Next(celt: LongWord; out rgelt: tagRFC1766INFO; out pceltFetched: LongWord): HResult; stdcall;
function Reset: HResult; stdcall;
function Skip(celt: LongWord): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IEnumScript
// Flags: (0)
// GUID: {AE5F1430-388B-11D2-8380-00C04F8F5DA1}
// *********************************************************************//
IEnumScript = interface(IUnknown)
['{AE5F1430-388B-11D2-8380-00C04F8F5DA1}']
function Clone(out ppEnum: IEnumScript): HResult; stdcall;
function Next(celt: LongWord; out rgelt: tagSCRIPTINFO; out pceltFetched: LongWord): HResult; stdcall;
function Reset: HResult; stdcall;
function Skip(celt: LongWord): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMLangConvertCharset
// Flags: (0)
// GUID: {D66D6F98-CDAA-11D0-B822-00C04FC9B31F}
// *********************************************************************//
IMLangConvertCharset = interface(IUnknown)
['{D66D6F98-CDAA-11D0-B822-00C04FC9B31F}']
function Initialize(uiSrcCodePage: SYSUINT; uiDstCodePage: SYSUINT; dwProperty: LongWord): HResult; stdcall;
function GetSourceCodePage(out puiSrcCodePage: SYSUINT): HResult; stdcall;
function GetDestinationCodePage(out puiDstCodePage: SYSUINT): HResult; stdcall;
function GetProperty(out pdwProperty: LongWord): HResult; stdcall;
function DoConversion(var pSrcStr: Byte; var pcSrcSize: SYSUINT; var pDstStr: Byte;
var pcDstSize: SYSUINT): HResult; stdcall;
function DoConversionToUnicode(var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT): HResult; stdcall;
function DoConversionFromUnicode(var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMultiLanguage
// Flags: (0)
// GUID: {275C23E1-3747-11D0-9FEA-00AA003F8646}
// *********************************************************************//
IMultiLanguage = interface(IUnknown)
['{275C23E1-3747-11D0-9FEA-00AA003F8646}']
function GetNumberOfCodePageInfo(out pcCodePage: SYSUINT): HResult; stdcall;
function GetCodePageInfo(uiCodePage: SYSUINT; out pCodePageInfo: tagMIMECPINFO): HResult; stdcall;
function GetFamilyCodePage(uiCodePage: SYSUINT; out puiFamilyCodePage: SYSUINT): HResult; stdcall;
function EnumCodePages(grfFlags: LongWord; out ppEnumCodePage: IEnumCodePage): HResult; stdcall;
function GetCharsetInfo(const Charset: WideString; out pCharsetInfo: tagMIMECSETINFO): HResult; stdcall;
function IsConvertible(dwSrcEncoding: LongWord; dwDstEncoding: LongWord): HResult; stdcall;
function ConvertString(var pdwMode: LongWord; dwSrcEncoding: LongWord; dwDstEncoding: LongWord;
var pSrcStr: Byte; var pcSrcSize: SYSUINT; var pDstStr: Byte;
var pcDstSize: SYSUINT): HResult; stdcall;
function ConvertStringToUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT): HResult; stdcall;
function ConvertStringFromUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT): HResult; stdcall;
function ConvertStringReset: HResult; stdcall;
function GetRfc1766FromLcid(locale: LongWord; out pbstrRfc1766: WideString): HResult; stdcall;
function GetLcidFromRfc1766(out plocale: LongWord; const bstrRfc1766: WideString): HResult; stdcall;
function EnumRfc1766(out ppEnumRfc1766: IEnumRfc1766): HResult; stdcall;
function GetRfc1766Info(locale: LongWord; out pRfc1766Info: tagRFC1766INFO): HResult; stdcall;
function CreateConvertCharset(uiSrcCodePage: SYSUINT; uiDstCodePage: SYSUINT;
dwProperty: LongWord;
out ppMLangConvertCharset: IMLangConvertCharset): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMultiLanguage2
// Flags: (0)
// GUID: {DCCFC164-2B38-11D2-B7EC-00C04F8F5D9A}
// *********************************************************************//
IMultiLanguage2 = interface(IUnknown)
['{DCCFC164-2B38-11D2-B7EC-00C04F8F5D9A}']
function GetNumberOfCodePageInfo(out pcCodePage: SYSUINT): HResult; stdcall;
function GetCodePageInfo(uiCodePage: SYSUINT; LangId: Word; out pCodePageInfo: tagMIMECPINFO): HResult; stdcall;
function GetFamilyCodePage(uiCodePage: SYSUINT; out puiFamilyCodePage: SYSUINT): HResult; stdcall;
function EnumCodePages(grfFlags: LongWord; LangId: Word; out ppEnumCodePage: IEnumCodePage): HResult; stdcall;
function GetCharsetInfo(const Charset: WideString; out pCharsetInfo: tagMIMECSETINFO): HResult; stdcall;
function IsConvertible(dwSrcEncoding: LongWord; dwDstEncoding: LongWord): HResult; stdcall;
function ConvertString(var pdwMode: LongWord; dwSrcEncoding: LongWord; dwDstEncoding: LongWord;
var pSrcStr: Byte; var pcSrcSize: SYSUINT; var pDstStr: Byte;
var pcDstSize: SYSUINT): HResult; stdcall;
function ConvertStringToUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT): HResult; stdcall;
function ConvertStringFromUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT): HResult; stdcall;
function ConvertStringReset: HResult; stdcall;
function GetRfc1766FromLcid(locale: LongWord; out pbstrRfc1766: WideString): HResult; stdcall;
function GetLcidFromRfc1766(out plocale: LongWord; const bstrRfc1766: WideString): HResult; stdcall;
function EnumRfc1766(LangId: Word; out ppEnumRfc1766: IEnumRfc1766): HResult; stdcall;
function GetRfc1766Info(locale: LongWord; LangId: Word; out pRfc1766Info: tagRFC1766INFO): HResult; stdcall;
function CreateConvertCharset(uiSrcCodePage: SYSUINT; uiDstCodePage: SYSUINT;
dwProperty: LongWord;
out ppMLangConvertCharset: IMLangConvertCharset): HResult; stdcall;
function ConvertStringInIStream(var pdwMode: LongWord; dwFlag: LongWord; var lpFallBack: Word;
dwSrcEncoding: LongWord; dwDstEncoding: LongWord;
const pstmIn: ISequentialStream;
const pstmOut: ISequentialStream): HResult; stdcall;
function ConvertStringToUnicodeEx(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT; dwFlag: LongWord;
var lpFallBack: Word): HResult; stdcall;
function ConvertStringFromUnicodeEx(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT;
dwFlag: LongWord; var lpFallBack: Word): HResult; stdcall;
function DetectCodepageInIStream(dwFlag: LongWord; dwPrefWinCodePage: LongWord;
const pstmIn: ISequentialStream;
var lpEncoding: tagDetectEncodingInfo; var pnScores: SYSINT): HResult; stdcall;
function DetectInputCodepage(dwFlag: LongWord; dwPrefWinCodePage: LongWord;
var pSrcStr: Shortint; var pcSrcSize: SYSINT;
var lpEncoding: tagDetectEncodingInfo; var pnScores: SYSINT): HResult; stdcall;
function ValidateCodePage(uiCodePage: SYSUINT; var hwnd: _RemotableHandle): HResult; stdcall;
function GetCodePageDescription(uiCodePage: SYSUINT; lcid: LongWord; lpWideCharStr: PWideChar;
cchWideChar: SYSINT): HResult; stdcall;
function IsCodePageInstallable(uiCodePage: SYSUINT): HResult; stdcall;
function SetMimeDBSource(dwSource: tagMIMECONTF): HResult; stdcall;
function GetNumberOfScripts(out pnScripts: SYSUINT): HResult; stdcall;
function EnumScripts(dwFlags: LongWord; LangId: Word; out ppEnumScript: IEnumScript): HResult; stdcall;
function ValidateCodePageEx(uiCodePage: SYSUINT; var hwnd: _RemotableHandle;
dwfIODControl: LongWord): HResult; stdcall;
end;
// *********************************************************************//
// Interface: ISequentialStream
// Flags: (0)
// GUID: {0C733A30-2A1C-11CE-ADE5-00AA0044773D}
// *********************************************************************//
ISequentialStream = interface(IUnknown)
['{0C733A30-2A1C-11CE-ADE5-00AA0044773D}']
function RemoteRead(out pv: Byte; cb: LongWord; out pcbRead: LongWord): HResult; stdcall;
function RemoteWrite(var pv: Byte; cb: LongWord; out pcbWritten: LongWord): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IStream
// Flags: (0)
// GUID: {0000000C-0000-0000-C000-000000000046}
// *********************************************************************//
IStream = interface(ISequentialStream)
['{0000000C-0000-0000-C000-000000000046}']
function RemoteSeek(dlibMove: _LARGE_INTEGER; dwOrigin: LongWord;
out plibNewPosition: _ULARGE_INTEGER): HResult; stdcall;
function SetSize(libNewSize: _ULARGE_INTEGER): HResult; stdcall;
function RemoteCopyTo(const pstm: ISequentialStream; cb: _ULARGE_INTEGER;
out pcbRead: _ULARGE_INTEGER; out pcbWritten: _ULARGE_INTEGER): HResult; stdcall;
function Commit(grfCommitFlags: LongWord): HResult; stdcall;
function Revert: HResult; stdcall;
function LockRegion(libOffset: _ULARGE_INTEGER; cb: _ULARGE_INTEGER; dwLockType: LongWord): HResult; stdcall;
function UnlockRegion(libOffset: _ULARGE_INTEGER; cb: _ULARGE_INTEGER; dwLockType: LongWord): HResult; stdcall;
function Stat(out pstatstg: tagSTATSTG; grfStatFlag: LongWord): HResult; stdcall;
function Clone(out ppstm: ISequentialStream): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMLangCodePages
// Flags: (0)
// GUID: {359F3443-BD4A-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangCodePages = interface(IUnknown)
['{359F3443-BD4A-11D0-B188-00AA0038C969}']
function GetCharCodePages(chSrc: Word; out pdwCodePages: LongWord): HResult; stdcall;
function GetStrCodePages(var pszSrc: Word; cchSrc: Integer; dwPriorityCodePages: LongWord;
out pdwCodePages: LongWord; out pcchCodePages: Integer): HResult; stdcall;
function CodePageToCodePages(uCodePage: SYSUINT; out pdwCodePages: LongWord): HResult; stdcall;
function CodePagesToCodePage(dwCodePages: LongWord; uDefaultCodePage: SYSUINT;
out puCodePage: SYSUINT): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMLangFontLink
// Flags: (0)
// GUID: {359F3441-BD4A-11D0-B188-00AA0038C969}
// *********************************************************************//
IMLangFontLink = interface(IMLangCodePages)
['{359F3441-BD4A-11D0-B188-00AA0038C969}']
function GetFontCodePages(var hDC: _RemotableHandle; var hFont: _RemotableHandle;
out pdwCodePages: LongWord): HResult; stdcall;
function MapFont(var hDC: _RemotableHandle; dwCodePages: LongWord;
var hSrcFont: _RemotableHandle; out phDestFont: wireHFONT): HResult; stdcall;
function ReleaseFont(var hFont: _RemotableHandle): HResult; stdcall;
function ResetFontMapping: HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMLangFontLink2
// Flags: (0)
// GUID: {DCCFC162-2B38-11D2-B7EC-00C04F8F5D9A}
// *********************************************************************//
IMLangFontLink2 = interface(IMLangCodePages)
['{DCCFC162-2B38-11D2-B7EC-00C04F8F5D9A}']
function GetFontCodePages(var hDC: _RemotableHandle; var hFont: _RemotableHandle;
out pdwCodePages: LongWord): HResult; stdcall;
function ReleaseFont(var hFont: _RemotableHandle): HResult; stdcall;
function ResetFontMapping: HResult; stdcall;
function MapFont(var hDC: _RemotableHandle; dwCodePages: LongWord; chSrc: Word;
out pFont: wireHFONT): HResult; stdcall;
function GetFontUnicodeRanges(var hDC: _RemotableHandle; var puiRanges: SYSUINT;
out pUranges: tagUNICODERANGE): HResult; stdcall;
function GetScriptFontInfo(sid: Byte; dwFlags: LongWord; var puiFonts: SYSUINT;
out pScriptFont: tagSCRIPFONTINFO): HResult; stdcall;
function CodePageToScriptID(uiCodePage: SYSUINT; out pSid: Byte): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IMultiLanguage3
// Flags: (0)
// GUID: {4E5868AB-B157-4623-9ACC-6A1D9CAEBE04}
// *********************************************************************//
IMultiLanguage3 = interface(IMultiLanguage2)
['{4E5868AB-B157-4623-9ACC-6A1D9CAEBE04}']
function DetectOutboundCodePage(dwFlags: LongWord; lpWideCharStr: PWideChar;
cchWideChar: SYSUINT; var puiPreferredCodePages: SYSUINT;
nPreferredCodePages: SYSUINT;
var puiDetectedCodePages: SYSUINT;
var pnDetectedCodePages: SYSUINT; var lpSpecialChar: Word): HResult; stdcall;
function DetectOutboundCodePageInIStream(dwFlags: LongWord; const pStrIn: ISequentialStream;
var puiPreferredCodePages: SYSUINT;
nPreferredCodePages: SYSUINT;
var puiDetectedCodePages: SYSUINT;
var pnDetectedCodePages: SYSUINT;
var lpSpecialChar: Word): HResult; stdcall;
end;
// *********************************************************************//
// The Class CoCMLangString provides a Create and CreateRemote method to
// create instances of the default interface IMLangString exposed by
// the CoClass CMLangString. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCMLangString = class
class function Create: IMLangString;
class function CreateRemote(const MachineName: string): IMLangString;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCMLangString
// Help String : MLangString Class
// Default Interface: IMLangString
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCMLangStringProperties= class;
{$ENDIF}
TCMLangString = class(TOleServer)
private
FIntf: IMLangString;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCMLangStringProperties;
function GetServerProperties: TCMLangStringProperties;
{$ENDIF}
function GetDefaultInterface: IMLangString;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMLangString);
procedure Disconnect; override;
function Sync(fNoAccess: Integer): HResult;
function GetLength(out plLen: Integer): HResult;
function SetMLStr(lDestPos: Integer; lDestLen: Integer; const pSrcMLStr: IUnknown;
lSrcPos: Integer; lSrcLen: Integer): HResult;
function GetMLStr(lSrcPos: Integer; lSrcLen: Integer; const pUnkOuter: IUnknown;
dwClsContext: LongWord; var piid: TGUID; out ppDestMLStr: IUnknown;
out plDestPos: Integer; out plDestLen: Integer): HResult;
property DefaultInterface: IMLangString read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCMLangStringProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCMLangString
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCMLangStringProperties = class(TPersistent)
private
FServer: TCMLangString;
function GetDefaultInterface: IMLangString;
constructor Create(AServer: TCMLangString);
protected
public
property DefaultInterface: IMLangString read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoCMLangConvertCharset provides a Create and CreateRemote method to
// create instances of the default interface IMLangConvertCharset exposed by
// the CoClass CMLangConvertCharset. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCMLangConvertCharset = class
class function Create: IMLangConvertCharset;
class function CreateRemote(const MachineName: string): IMLangConvertCharset;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCMLangConvertCharset
// Help String :
// Default Interface: IMLangConvertCharset
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCMLangConvertCharsetProperties= class;
{$ENDIF}
TCMLangConvertCharset = class(TOleServer)
private
FIntf: IMLangConvertCharset;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCMLangConvertCharsetProperties;
function GetServerProperties: TCMLangConvertCharsetProperties;
{$ENDIF}
function GetDefaultInterface: IMLangConvertCharset;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMLangConvertCharset);
procedure Disconnect; override;
function Initialize(uiSrcCodePage: SYSUINT; uiDstCodePage: SYSUINT; dwProperty: LongWord): HResult;
function GetSourceCodePage(out puiSrcCodePage: SYSUINT): HResult;
function GetDestinationCodePage(out puiDstCodePage: SYSUINT): HResult;
function GetProperty(out pdwProperty: LongWord): HResult;
function DoConversion(var pSrcStr: Byte; var pcSrcSize: SYSUINT; var pDstStr: Byte;
var pcDstSize: SYSUINT): HResult;
function DoConversionToUnicode(var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT): HResult;
function DoConversionFromUnicode(var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT): HResult;
property DefaultInterface: IMLangConvertCharset read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCMLangConvertCharsetProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCMLangConvertCharset
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCMLangConvertCharsetProperties = class(TPersistent)
private
FServer: TCMLangConvertCharset;
function GetDefaultInterface: IMLangConvertCharset;
constructor Create(AServer: TCMLangConvertCharset);
protected
public
property DefaultInterface: IMLangConvertCharset read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoCMultiLanguage provides a Create and CreateRemote method to
// create instances of the default interface IMultiLanguage exposed by
// the CoClass CMultiLanguage. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCMultiLanguage = class
class function Create: IMultiLanguage;
class function CreateRemote(const MachineName: string): IMultiLanguage;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCMultiLanguage
// Help String :
// Default Interface: IMultiLanguage
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCMultiLanguageProperties= class;
{$ENDIF}
TCMultiLanguage = class(TOleServer)
private
FIntf: IMultiLanguage;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCMultiLanguageProperties;
function GetServerProperties: TCMultiLanguageProperties;
{$ENDIF}
function GetDefaultInterface: IMultiLanguage;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMultiLanguage);
procedure Disconnect; override;
function GetNumberOfCodePageInfo(out pcCodePage: SYSUINT): HResult;
function GetCodePageInfo(uiCodePage: SYSUINT; out pCodePageInfo: tagMIMECPINFO): HResult;
function GetFamilyCodePage(uiCodePage: SYSUINT; out puiFamilyCodePage: SYSUINT): HResult;
function EnumCodePages(grfFlags: LongWord; out ppEnumCodePage: IEnumCodePage): HResult;
function GetCharsetInfo(const Charset: WideString; out pCharsetInfo: tagMIMECSETINFO): HResult;
function IsConvertible(dwSrcEncoding: LongWord; dwDstEncoding: LongWord): HResult;
function ConvertString(var pdwMode: LongWord; dwSrcEncoding: LongWord; dwDstEncoding: LongWord;
var pSrcStr: Byte; var pcSrcSize: SYSUINT; var pDstStr: Byte;
var pcDstSize: SYSUINT): HResult;
function ConvertStringToUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT): HResult;
function ConvertStringFromUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT): HResult;
function ConvertStringReset: HResult;
function GetRfc1766FromLcid(locale: LongWord; out pbstrRfc1766: WideString): HResult;
function GetLcidFromRfc1766(out plocale: LongWord; const bstrRfc1766: WideString): HResult;
function EnumRfc1766(out ppEnumRfc1766: IEnumRfc1766): HResult;
function GetRfc1766Info(locale: LongWord; out pRfc1766Info: tagRFC1766INFO): HResult;
function CreateConvertCharset(uiSrcCodePage: SYSUINT; uiDstCodePage: SYSUINT;
dwProperty: LongWord;
out ppMLangConvertCharset: IMLangConvertCharset): HResult;
property DefaultInterface: IMultiLanguage read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCMultiLanguageProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCMultiLanguage
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCMultiLanguageProperties = class(TPersistent)
private
FServer: TCMultiLanguage;
function GetDefaultInterface: IMultiLanguage;
constructor Create(AServer: TCMultiLanguage);
protected
public
property DefaultInterface: IMultiLanguage read GetDefaultInterface;
published
end;
{$ENDIF}
procedure Register;
resourcestring
dtlServerPage = 'ActiveX';
implementation
uses ComObj;
class function CoCMLangString.Create: IMLangString;
begin
Result := CreateComObject(CLASS_CMLangString) as IMLangString;
end;
class function CoCMLangString.CreateRemote(const MachineName: string): IMLangString;
begin
Result := CreateRemoteComObject(MachineName, CLASS_CMLangString) as IMLangString;
end;
procedure TCMLangString.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IMLangString;
end;
end;
procedure TCMLangString.ConnectTo(svrIntf: IMLangString);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCMLangString.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCMLangString.GetDefaultInterface: IMLangString;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
destructor TCMLangString.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCMLangString.GetServerProperties: TCMLangStringProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TCMLangString.Sync(fNoAccess: Integer): HResult;
begin
Result := DefaultInterface.Sync(fNoAccess);
end;
function TCMLangString.GetLength(out plLen: Integer): HResult;
begin
Result := DefaultInterface.GetLength(plLen);
end;
function TCMLangString.SetMLStr(lDestPos: Integer; lDestLen: Integer; const pSrcMLStr: IUnknown;
lSrcPos: Integer; lSrcLen: Integer): HResult;
begin
Result := DefaultInterface.SetMLStr(lDestPos, lDestLen, pSrcMLStr, lSrcPos, lSrcLen);
end;
function TCMLangString.GetMLStr(lSrcPos: Integer; lSrcLen: Integer; const pUnkOuter: IUnknown;
dwClsContext: LongWord; var piid: TGUID; out ppDestMLStr: IUnknown;
out plDestPos: Integer; out plDestLen: Integer): HResult;
begin
Result := DefaultInterface.GetMLStr(lSrcPos, lSrcLen, pUnkOuter, dwClsContext, piid, ppDestMLStr,
plDestPos, plDestLen);
end;
function TCMLangStringProperties.GetDefaultInterface: IMLangString;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoCMLangConvertCharset.Create: IMLangConvertCharset;
begin
Result := CreateComObject(CLASS_CMLangConvertCharset) as IMLangConvertCharset;
end;
class function CoCMLangConvertCharset.CreateRemote(const MachineName: string): IMLangConvertCharset;
begin
Result := CreateRemoteComObject(MachineName, CLASS_CMLangConvertCharset) as IMLangConvertCharset;
end;
procedure TCMLangConvertCharset.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IMLangConvertCharset;
end;
end;
procedure TCMLangConvertCharset.ConnectTo(svrIntf: IMLangConvertCharset);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCMLangConvertCharset.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCMLangConvertCharset.GetDefaultInterface: IMLangConvertCharset;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
destructor TCMLangConvertCharset.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCMLangConvertCharset.GetServerProperties: TCMLangConvertCharsetProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TCMLangConvertCharset.Initialize(uiSrcCodePage: SYSUINT; uiDstCodePage: SYSUINT;
dwProperty: LongWord): HResult;
begin
Result := DefaultInterface.Initialize(uiSrcCodePage, uiDstCodePage, dwProperty);
end;
function TCMLangConvertCharset.GetSourceCodePage(out puiSrcCodePage: SYSUINT): HResult;
begin
Result := DefaultInterface.GetSourceCodePage(puiSrcCodePage);
end;
function TCMLangConvertCharset.GetDestinationCodePage(out puiDstCodePage: SYSUINT): HResult;
begin
Result := DefaultInterface.GetDestinationCodePage(puiDstCodePage);
end;
function TCMLangConvertCharset.GetProperty(out pdwProperty: LongWord): HResult;
begin
Result := DefaultInterface.GetProperty(pdwProperty);
end;
function TCMLangConvertCharset.DoConversion(var pSrcStr: Byte; var pcSrcSize: SYSUINT;
var pDstStr: Byte; var pcDstSize: SYSUINT): HResult;
begin
Result := DefaultInterface.DoConversion(pSrcStr, pcSrcSize, pDstStr, pcDstSize);
end;
function TCMLangConvertCharset.DoConversionToUnicode(var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT): HResult;
begin
Result := DefaultInterface.DoConversionToUnicode(pSrcStr, pcSrcSize, pDstStr, pcDstSize);
end;
function TCMLangConvertCharset.DoConversionFromUnicode(var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT): HResult;
begin
Result := DefaultInterface.DoConversionFromUnicode(pSrcStr, pcSrcSize, pDstStr, pcDstSize);
end;
function TCMLangConvertCharsetProperties.GetDefaultInterface: IMLangConvertCharset;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoCMultiLanguage.Create: IMultiLanguage;
begin
Result := CreateComObject(CLASS_CMultiLanguage) as IMultiLanguage;
end;
class function CoCMultiLanguage.CreateRemote(const MachineName: string): IMultiLanguage;
begin
Result := CreateRemoteComObject(MachineName, CLASS_CMultiLanguage) as IMultiLanguage;
end;
procedure TCMultiLanguage.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IMultiLanguage;
end;
end;
procedure TCMultiLanguage.ConnectTo(svrIntf: IMultiLanguage);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCMultiLanguage.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCMultiLanguage.GetDefaultInterface: IMultiLanguage;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
destructor TCMultiLanguage.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCMultiLanguage.GetServerProperties: TCMultiLanguageProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TCMultiLanguage.GetNumberOfCodePageInfo(out pcCodePage: SYSUINT): HResult;
begin
Result := DefaultInterface.GetNumberOfCodePageInfo(pcCodePage);
end;
function TCMultiLanguage.GetCodePageInfo(uiCodePage: SYSUINT; out pCodePageInfo: tagMIMECPINFO): HResult;
begin
Result := DefaultInterface.GetCodePageInfo(uiCodePage, pCodePageInfo);
end;
function TCMultiLanguage.GetFamilyCodePage(uiCodePage: SYSUINT; out puiFamilyCodePage: SYSUINT): HResult;
begin
Result := DefaultInterface.GetFamilyCodePage(uiCodePage, puiFamilyCodePage);
end;
function TCMultiLanguage.EnumCodePages(grfFlags: LongWord; out ppEnumCodePage: IEnumCodePage): HResult;
begin
Result := DefaultInterface.EnumCodePages(grfFlags, ppEnumCodePage);
end;
function TCMultiLanguage.GetCharsetInfo(const Charset: WideString; out pCharsetInfo: tagMIMECSETINFO): HResult;
begin
Result := DefaultInterface.GetCharsetInfo(Charset, pCharsetInfo);
end;
function TCMultiLanguage.IsConvertible(dwSrcEncoding: LongWord; dwDstEncoding: LongWord): HResult;
begin
Result := DefaultInterface.IsConvertible(dwSrcEncoding, dwDstEncoding);
end;
function TCMultiLanguage.ConvertString(var pdwMode: LongWord; dwSrcEncoding: LongWord;
dwDstEncoding: LongWord; var pSrcStr: Byte;
var pcSrcSize: SYSUINT; var pDstStr: Byte;
var pcDstSize: SYSUINT): HResult;
begin
Result := DefaultInterface.ConvertString(pdwMode, dwSrcEncoding, dwDstEncoding, pSrcStr,
pcSrcSize, pDstStr, pcDstSize);
end;
function TCMultiLanguage.ConvertStringToUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Shortint; var pcSrcSize: SYSUINT;
var pDstStr: Word; var pcDstSize: SYSUINT): HResult;
begin
Result := DefaultInterface.ConvertStringToUnicode(pdwMode, dwEncoding, pSrcStr, pcSrcSize,
pDstStr, pcDstSize);
end;
function TCMultiLanguage.ConvertStringFromUnicode(var pdwMode: LongWord; dwEncoding: LongWord;
var pSrcStr: Word; var pcSrcSize: SYSUINT;
var pDstStr: Shortint; var pcDstSize: SYSUINT): HResult;
begin
Result := DefaultInterface.ConvertStringFromUnicode(pdwMode, dwEncoding, pSrcStr, pcSrcSize,
pDstStr, pcDstSize);
end;
function TCMultiLanguage.ConvertStringReset: HResult;
begin
Result := DefaultInterface.ConvertStringReset;
end;
function TCMultiLanguage.GetRfc1766FromLcid(locale: LongWord; out pbstrRfc1766: WideString): HResult;
begin
Result := DefaultInterface.GetRfc1766FromLcid(locale, pbstrRfc1766);
end;
function TCMultiLanguage.GetLcidFromRfc1766(out plocale: LongWord; const bstrRfc1766: WideString): HResult;
begin
Result := DefaultInterface.GetLcidFromRfc1766(plocale, bstrRfc1766);
end;
function TCMultiLanguage.EnumRfc1766(out ppEnumRfc1766: IEnumRfc1766): HResult;
begin
Result := DefaultInterface.EnumRfc1766(ppEnumRfc1766);
end;
function TCMultiLanguage.GetRfc1766Info(locale: LongWord; out pRfc1766Info: tagRFC1766INFO): HResult;
begin
Result := DefaultInterface.GetRfc1766Info(locale, pRfc1766Info);
end;
function TCMultiLanguage.CreateConvertCharset(uiSrcCodePage: SYSUINT; uiDstCodePage: SYSUINT;
dwProperty: LongWord;
out ppMLangConvertCharset: IMLangConvertCharset): HResult;
begin
Result := DefaultInterface.CreateConvertCharset(uiSrcCodePage, uiDstCodePage, dwProperty,
ppMLangConvertCharset);
end;
// Decodes the string in the specified encoding to the windows-native code page
// for example from DOS (cp: 866, charset: 'cp866') to Windows (cp:1251)
function Decode(Source: String): String;
// Encodes the string in the windows-native encoding to the specified code page
// for example to DOS (cp: 866, charset: 'cp866') from Windows (cp:1251)
function Encode(Source: String): String;
end;
implementation
uses SysUtils;
{ TCharsetDecoder }
constructor TCharsetDecoder.Create;
var
hr: HRESULT;
begin
inherited Create;
hr := CoCreateInstance(Class_CMultiLanguage, nil, CLSCTX_INPROC_SERVER, IID_IMultiLanguage, FMultiLanguage);
Assert(Succeeded(Hr), 'Failed to create the Multilanguage class instance');
end;
constructor TCharsetDecoder.Create(CharsetName: String);
begin
Create;
SetCharsetName(Charsetname);
end;
constructor TCharsetDecoder.Create(CodePage: DWORD);
begin
Create;
SetCodePage(CodePage);
end;
function TCharsetDecoder.Decode(Source: String): String;
begin
Result:= Recode(Source, True);
end;
function TCharsetDecoder.Encode(Source: String): String;
begin
Result:= Recode(Source, False);
end;
function TCharsetDecoder.GetCharsetName: String;
begin
Result:= WideCharToString(@FCPInfo.wszWebCharset);
end;
function TCharsetDecoder.GetCodePage: DWORD;
begin
Result:= FCPInfo.uiCodePage;
end;
function TCharsetDecoder.NativeCodePage: DWORD;
begin
Result:= FCPInfo.uiFamilyCodePage;
end;
function TCharsetDecoder.Recode(Source: String; ToNative: boolean): String;
var
HR: HRESULT;
dwMode: DWORD;
SrcSize, DstSize: UINT;
begin
dwMode:=0;
SrcSize:= Length(Source);
DstSize:= SrcSize;
SetLength(Result, DstSize);
if ToNative
then
HR:= FMultiLanguage.ConvertString(dwMode, FCPInfo.uiCodePage,
FCPInfo.uiFamilyCodePage, BYTE(Source[1]), SrcSize, BYTE(Result[1]), DstSize)
else
HR:= FMultiLanguage.ConvertString(dwMode, FCPInfo.uiFamilyCodePage,
FCPInfo.uiCodePage, BYTE(Source[1]), SrcSize, BYTE(Result[1]), DstSize);
Assert(Succeeded(HR), 'Couldn''t convert the string');
end;
procedure TCharsetDecoder.SetCharsetName(const Value: String);
var
CSInfo: tagMIMECSETINFO;
HR: HRESULT;
begin
if GetCharsetName <> Value
then begin
HR:= FMultiLanguage.GetCharsetInfo(WideString(Value), CSInfo);
if Succeeded(hr)
then begin
FMultiLanguage.GetCodePageInfo(CSInfo.uiInternetEncoding, FCPInfo);
end;
end;
end;
procedure TCharsetDecoder.SetCodePage(const Value: DWORD);
begin
if GetCodePage <> Value
then begin
FMultiLanguage.GetCodePageInfo(Value, FCPInfo);
end;
end;
Тьфу ты... снова очепятка, конечно WideChar(Unic[ord(String[i])]).
17-06-2003 23:11
Прошу прощения, не Unic[ord(String[i])], а WideCharUnic[ord(String[i])].
Есть библиотека fundamentals, автор David Butler, http://www.eternallines.com/fundamentals
в которой есть функции для нужной перекодировки.
У меня не получилось ее установить в Дельфи, были некотор. ошибки, не буду вдаваться в детали.
Оттуда:
const
Win1251Map: Array[$80..$BF] of WideChar = (
#$0402, #$0403, #$201A, #$0453, #$201E, #$2026, #$2020, #$2021,
#$20AC, #$2030, #$0409, #$2039, #$040A, #$040C, #$040B, #$040F,
#$0452, #$2018, #$2019, #$201C, #$201D, #$2022, #$2013, #$2014,
#$0000, #$2122, #$0459, #$203A, #$045A, #$045C, #$045B, #$045F,
#$00A0, #$040E, #$045E, #$0408, #$00A4, #$0490, #$00A6, #$00A7,
#$0401, #$00A9, #$0404, #$00AB, #$00AC, #$00AD, #$00AE, #$0407,
#$00B0, #$00B1, #$0406, #$0456, #$0491, #$00B5, #$00B6, #$00B7,
#$0451, #$2116, #$0454, #$00BB, #$0458, #$0405, #$0455, #$0457);
function Win1251ToWideChar(const P: Char): WideChar;
begin
Case Ord(P) of
$00..$7F : Result := WideChar(Ord(P));
$80..$BF :
begin
Result := Win1251Map[Ord(P)];
if Result = #$0000 then
raise EConvertError.Create('Invalid Windows-1251 encoding');
end;
$C0..$FF :
Result := WideChar(Ord(P) + $0350);
else
raise EConvertError.Create('Invalid Windows-1251 encoding');
end;
end;
17-06-2003 19:33
utf-8 - это одна из схем кодирования уникода (подробности можно посмотреть на www.unicode.org).
Есть такой вариант перекодировки: смотрите где-нибудь уникодовские коды для русских букв и составляете массив (назовем его Unic)такой, что Unic[i], где i - windows-1251 код для русской буквы, так вот Unic[i] - соотв. значение для этой буквы в уникоде. Потом все символы aString[i] в строке меняете на Unic[ord(String[i])]. Примерно так.
16-06-2003 16:45 | Сообщение от автора вопроса
в том-то и дело. Я вчера 8 часов листал конфы. На Java, VB, и проч, проч способов полно. Кроме того, я наконец-то понял, что UTF-8 это не Unicode :) Но как осуществить перекодировку строки CP1251 введенной в мое окошко -> UTF-8 для передачи Google в строке запроса? И обратно?
Я делал подобную задачу на JScripte - делал два окошка Internet Explorerа - одно с Windows-1251, другое с UTF-8 - и между ними копировал строку - она автоматом передавалась в нужной кодировке...
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
