Связь IDispatch с TWordApplication

← →
akuman (2003-12-02 18:02) [0]

Есть такой код на Visual Basic:
Target As Object - входной параметр в процедуре
If (InStr(ApplicationName, "Word.Application")) Then
Target.Text = "TEST"
ElseIf (InStr(ApplicationName, "Excel.Application")) Then
Target.Value = "TEST"
Else
MsgBox (ApplicationName & " is not supported.")
End If
Как это можно написать на Delphi 7?
Я пишу:
Target: IDispatch - входной параметр в процедуре
хочу связать Target с TWordApplication, ничего не получается.
Да и у TWordApplication нет свойства Text.

Кто - нибудь сталкивался с подобной проблемой?

← →
me (2003-12-02 19:13) [1]

Ну прежде всего у TWordApplication есть публичное свойство DefaultInterface, которое и открывает доступ к интерфейсам. Но вот непонятно само намерение твое, что предполагается сделать? Просто проверить, может ли данный сервер предоставить клиенту некий интерфейс, можно поэлегантнее.

← →
Бином Ньютоныч (2003-12-02 21:22) [2]

Что-то по такому принципу:
V: OleVariant;
begin
V:=CreateOleObject("Word.Application");
V.Documents.Add;
V.Visible:=true;
V:=V.ActiveDocument.Range(0, 0);
V.Text:="Test";
end;
Только копировать код один в один из VB в DELPHI - не лучший вариант.

Связь IDispatch с TWordApplication Найти похожие ветки