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

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;

functionTWordConnection._Release: Integer;

begin

Result := 1;

end;

functionTWordConnection.QueryInterface( constIID: TGUID; outObj): HResult;

begin

Result := E_NOINTERFACE;

Pointer(Obj) := nil;

if(GetInterface(IID, Obj)) thenResult := S_OK;

if notSucceeded(Result) then

if(IsEqualIID(IID, DocumentEvents) orIsEqualIID(IID, ApplicationEvents)) then

if(GetInterface(IDispatch, Obj)) thenResult := S_OK;

end;

{ IDispatch Methods }

functionTWordConnection.GetIDsOfNames( constIID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;

begin

Result := E_NOTIMPL;

end;

functionTWordConnection.GetTypeInfo(Index, LocaleID: Integer; outTypeInfo): HResult;

begin

Pointer(TypeInfo) := nil;

Result := E_NOTIMPL;

end;

functionTWordConnection.GetTypeInfoCount( outCount: Integer): HResult;

begin

Count := 0;

Result := E_NOTIMPL;

end;

functionTWordConnection.Invoke(DispID: Integer; constIID: TGUID; LocaleID: Integer; Flags: Word; varParams; VarResult, ExcepInfo, ArgErr: Pointer): HResult;

begin

//This is the entry point for Word event sinking

Result := S_OK;

caseDispID of

1: ; // Startup

2: ShowMessage('quit'); // Quit

3: ; // Document change

4: ; // New document

5: ; // Open document

6: ShowMessage('close'); // Close document

elseResult := E_INVALIDARG;

end;

end;

end.

Вы можете воспользоваться любым интерфейсом, предлагаемым сервером автоматизации Word. Все реализованные интерфейсы вы можете увидеть при загрузке MSWORD8.OLB в Delphi, данный файл представляет собой библиотеку типов Word 7. Для исполнения VB в Word вы можете использовать свойство WordBasic Application. Следующий пример демонстрирует оба метода:

implementation

uses ComObj;

{$R *.DFM}

varV: OleVariant;

procedureTForm1.Button1Click(Sender: TObject);

begin

V := CreateOleObject('Word.Application');

V.ShowMe;

V.WordBasic.FileNew;

V.WordBasic.Insert('тест');

V.Run('mymac');

V.WordBasic.FileSave;

end;

end.

…вы говорите можно передавать переменные? В документации только красивые схемы. Я пытаюсь передать две даты, но мне необходимо чтобы первую дату ввел пользователь, вторую я вычисляю в Delphi сам и передаю результат ReportSmith.

Вот кусор работающего у меня кода, передающий использующийся при выборе Timestamp. Я использую строковую переменную просто как способ проверить строку прежде, чем я ее добавлю в отчет. Если вы хотите, можете это убрать. Примечание: убедитесь в том, что переменная, которой вы передаете значение, написана верно. Переменные отчета Reportsmith ЧУСТВИТЕЛЬНЫ К РЕГИСТРУ.

VarS: String;

Begin

ExportReport.InitialValues.Clear;

S :='@SQLDate=<'''+FormatDateTime('mm/dd/yyyy hh:nn:ss',ATimeStamp)+'''>';

ExportReport.InitialValues.Add(S);

ExportReport.RUN;

End;

– Steve McWhirter

Nomadicсоветует:

1. Необходимо поставить patch на ODBC-драйвер (доступен на www.sybase.com);

2. Достаточно флажка Keys in SQL Statistics в ODBC-администpатоpе, для того, чтобы исчезла необходимость ставить втоpичные индексы по ключевым полям;

3. Если Вы пользуетесь BDE 3.5, то обновите ее до версии 4.x, или замените idodbc.dll на тот, который идет в комплекте поставки BDE 3.0.

Как мне создать ресурсную таблицу строк (Resource String Table), про которую упоминается в функции FmtLoadStr, но не сказано как создать эту таблицу, про это вообще нигде не сказано!

Создайте файл в приведенном ниже формате и обзовите его, скажем (подойдите к этому творчески), strings.rc:

STRINGTABLE LOADONCALL MOVEABLE DISCARDABLE

{

1, "UNPACK.INI"

2, "AcrobatClass"

3, "ACROEXCH.EXE"

4, "^.PDF"

5, "Extensions"

6, "ACROEXCH.EXE"

7, "PDF"

8, "AABSETUP.EXE"

9, "DelFiles-"

10, "INI-"

11, "UNPACK.INI"

12, "ACROSRCH.DLL"

13, "Regedit"

14, "ACROREAD.EXE"

15, "ACRO_LE.EXE"

}

Затем, с помощью компилятора ресурсов Borland (BRCC.EXE в вашем каталоге Delphi\Bin), скомпилируйте это в файл ресурсов:

BRCC strings.rc

Вы получите файл с именем strings.res. В вашем .DPR-файле после строки {$R *.RES} добавьте строку {$R STRINGS.RES}, после этого строковые ресурсы будут компилироваться с вашим exe-файлом.

– Ralph Friedman

У меня имеется приблизительно 36 маленьких растровых изображений, которые я хочу сохранить в файле и затем прилинковать его к exe. Как мне поместить их в res-файл?

Самый простой путь – создать файл с именем «BITMAPS.RC» и поместить в него список ваших .BMP-файлов:

BMAP1 BITMAP BMAP1.BMP

BMAP2 BITMAP BMAP2.BMP

CLOCK BITMAP CLOCK.BMP

DBLCK BITMAP DBLCK.BMP

DELOK BITMAP DELOK.BMP

LUPE BITMAP LUPE.BMP

OK BITMAP OK.BMP

TIMEEDIT BITMAP TIMEEDIT.BMP

Затем загрузите Resource Workshop (RW) и выберите пункт меню File|Project Open. В выпадающем списке «File Type» (тип файла) выберите RC-Resource Script и откройте файл, который вы только что создали. После того, как RW загрузит ваш файл, выберите пункт меню File|Project save as. Выберите объект RES-Resource из выпадающего списка «File Type» (тип файла). В поле редактирования «New File name» задайте имя нового файла, скажем, BITMAPS.RES. Нажмите OK. Теперь у вас есть файл ресурса. В вашем модуле Delphi добавьте после строки {$R *.RES} строку {$R BITMAPS.RES}. После компиляции вы получите exe-файл с скомпилированными ресурсами. Для получения доступа к ресурсам во время выполнения программы нужно сделать следующее: