Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

1. Использование TTable + TApollo:

=== Cut ====

TTable.Open;

TApollo.SetTranslate(True);

TTable.Refresh;

=== Cut ====

2. Использование TApTable:

=== Cut ====

TApTable.Open;

TApTable.SetTranslate(True);

TApTable.Refresh;

=== Cut ====

И вместо закорючек будут родные русские буквы. Правда, только при выполнении программы. В дизайнере на этапе проектирования псевдографика так и останется.

Nomadicотвечает:

A: (SM): Дело в том что в VCL твои команды OLE2 передаются Excel'у в русском контексте (не знаю, как это правильно назвать). Для исправления необходимо найти в файле OLEAUTO.pas в функции GetIDsOfNames строчку

ifDispatch.GetIDsOfNames(GUID_NULL, @NameRefs, NameCount, LOCALE_SYSTEM_DEFAULT, DispIDs) <> 0 then

и заменить ее на

ifDispatch.GetIDsOfNames(GUID_NULL, @NameRefs, NameCount, ((LANG_ENGLISH+SUBLANG_DEFAULT*1024)+SORT_DEFAULT* 65536), DispIDs) <> 0 then

После этого у меня Excel стал понимать нормальные английские команды :)). Необходимая комбинация для установки английского языка взята из C-шных хедеров.

Nomadicсоветует:

В копилку. Исходный код, FAQ — желающие могут взять с Internet сами (информация взята с http://www.softmosis.ca, проверено — работает).

…

public

{ Public declarations }

FWordApp: _Application;

FWordDoc: _Document;

FWordSink: TWordConnection;

…

procedureStartWordConnection(WordApp: _Application; WordDoc: _Document; varWordSink: TWordConnection);

var

PointContainer: IConnectionPointContainer;

Point: IConnectionPoint;

begin

try

// TWordConnection is the COM object which receives the

// notifications from Word. Make sure to free WordSink when

// you are done with it.

WordSink := TWordConnection.Create;

WordSink.WordApp := WordApp;

WordSink.WordDoc := WordDoc;

// Sink with a Word application

OleCheck(WordApp.QueryInterface(IConnectionPointContainer, PointContainer));

ifAssigned(PointContainer) then begin

OleCheck(PointContainer.FindConnectionPoint(ApplicationEvents, Point));

ifAssigned(Point) thenPoint.Advise((WordSink asIUnknown), WordSink.AppCookie);

end;

// Sink with a Word document advise

OleCheck(WordDoc.QueryInterface(IConnectionPointContainer, PointContainer));

ifAssigned(PointContainer) then begin

OleCheck(PointContainer.FindConnectionPoint(DocumentEvents, Point));

ifAssigned(Point) thenPoint.Advise((WordSink asIUnknown), WordSink.DocCookie);

end;

exceptonE: Exception do

ShowMessage(E.Message);

end;

end;

procedureTmainForm.btnStartClick(Sender: TObject);

begin

FWordApp := CoApplication_.Create;

FWordDoc := FWordApp.Documents.Add(EmptyParam, EmptyParam);

FWordApp.Visible := True;StartWordConnection(FWordApp, FWordDoc, FWordSink);

end;

procedureTmainForm.btnExitClick(Sender: TObject);

begin

FWordApp := CoApplication_.Create;

FWordDoc := FWordApp.Documents.Add(EmptyParam, EmptyParam);

FWordApp.Visible := True;

StartWordConnection(FWordApp, FWordDoc, FWordSink);

end;

proceduretmainform.btnexitclick(sender: tobject);

begin

FWordApp.Quit(EmptyParam, EmptyParam, EmptyParam);

end;

unitConnectionObject;

interface

usesWord_TLB, dialogs;

typeTWordConnection = class(TObject, IUnknown, IDispatch)

protected

{IUnknown}

functionQueryInterface( constIID: TGUID; outObj): HResult; stdcall;

function_AddRef: Integer; stdcall;

function_Release: Integer; stdcall;

{ IDispatch }

functionGetIDsOfNames( constIID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;

functionGetTypeInfo(Index, LocaleID: Integer; outTypeInfo): HResult; stdcall;

functionGetTypeInfoCount( outCount: Integer): HResult; stdcall;

functionInvoke(DispID: Integer; constIID: TGUID; LocaleID: Integer; Flags: Word; varParams; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;

public

WordApp: _Application;

WordDoc: _Document;

AppCookie, DocCookie: Integer;

end;

implementation

{ IUnknown Methods }

useswindows, activex, main;

procedureLogComment(comment: string);

begin

Form1.Memo1.Lines.Add(comment);

end;

functionTWordConnection._AddRef: Integer;

begin

Result := 2;

end;