OLE ohne Form

[adecke]

Hallo,

folgender Code führt zu einer Exception: ..Exception der Klasse EOLESysError Meldung:CoInitialize worde nicht aufgerufen.

Delphi-Quellcode:

Program CrossWord;

Uses 
   ComObj,
   SysUtils;

{$R *.res}

procedure SetWordSettings (sVersion:string);
Var
   WordApp:OLEVariant;
begin
   try
      WordApp := CreateOLEObject('Word.Application')
   except
      on E: Exception do begin
         E.Message := 'Word is not available';
   raise
   end;
end;

   try
      WordApp.Visible := True
      WordApp.Documents.Add;
   finally
      WordApp.Quit
   end;
end;

begin
   SetWordSettings('10');
end.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Generalissimo]

Ab Delphi 4 reicht es nicht mehr aus nur ComObj.pas einzubinden um die COM-Umgebung zu initialisieren.
Ab Delphi 4 muss man Application.Initialize aufrufen. Das erledigt das ganze dann. Da du ja eine Konsolenanwendung hast willst du sicher nicht unnötig die Forms.pas einbinden. Also musst du einen Ersatz für Application.Initialize bauen:

Lösung aus: aus COM/DCOM/COM+ von Andreas Kosch ISBN:3935042019 Seite 188

Dein Programm nun angepasst:

Delphi-Quellcode:

Program CrossWord;

Uses
ComObj,
SysUtils;

{$R *.res}

procedure SetWordSettings (sVersion:string);
Var
WordApp:OLEVariant;
begin
 try
  WordApp := CreateOLEObject('Word.Application')
 except on E: Exception do
  begin
   E.Message := 'Word is not available';
   raise
  end;
 end;
 try
  WordApp.Visible := True
  WordApp.Documents.Add;
 finally
  WordApp.Quit
 end;
end;

begin
if InitProc <> nil then TProcedure(InitProc);
SetWordSettings('10');
end.

[Bernhard Geyer]

Es reicht (wie die Fehlermeldung schon sagt) CoInitialize aufzurufen. Ist AFAIK in ActiveX.pas. Am Ende solltest Du CoUninitialize aufrufen, um den Regeln von COM genüge zu tun.

[adecke]

Hallo,

vielen Dank. Habe mich nicht früher gemeldet, da ich eigentlich mit einer Auto-Mail
gerechnet hatte. Egal super, das war genau das was ich brauchte.

gruss Andreas :bounce1: