Word, Excel , Microsoft Office, Delphi , Servers. . TOleServer. , . TOleServer . . , Delphi Project | Import.
, WordApplication . . Name Tag 4 ( 3).
AutoConnect , . AutoConnect = true, . AutoConnect = false, , Connect. :
WordApplication1.Connect;
, AutoConnect Connect. , - - .
AutoConnect , true , .. . AutoConnect = true .
ConnectKind , . . 3.
ConnectKind ckRunningOrNew. ( WordApplication Word ), . , ( Word).
3
ConnectKind
ckRunningOrNew | |
ckNewInstance | |
ckRunningInstance | |
ckRemote | . RemoteMachineName |
ckAttachToInterface | . ConnectTo. AutoConnect |
|
|
ConnectKind ckRunningOrNew, . ConnectKind ckRunningInstance, . , , EOleSysError. ConnectKind = ckRunningInstance, , , , , :
Uses ComObj;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
try
WordApplication1.Connect;
except
On EOleSysError do
begin
Application.MessageBox(' Word',
' ', MB_OK+MB_ICONEXCLAMATION);
Application.Terminate;
end;
end;
end;
EOleSysError . uses, comobj, EOleSysError. .
ConnectKind = ckRemote , . RemoteMachineName , .
, , , :
, - , , ConnectKind=ckRunninglnstance.
, , , - , ConnectKind = ckNewInstance.
, ConnectKind = ckNewInstance RemoteMachineName.
, , ckRunningOrNew.
ConnectKind ckAttachToInterface. , WordApplication, .
, , . , , , , . , , , , - , Visible true. :
WordApplication1.Visible:=true;
Disconnect. , , WordApplication, AutoQuit. true, , . true, , , , . AutoQuit true, :
WordApplication1.Disconnect;
, . , - , , . Windows, - , , .
|
|