Prüfen, ob Excel installiert ist

[Luckie]

Zitat von Chemiker:

Hallo,

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Excel_Vorhanden() then
  begin
    ShowMessage(' Excel ist vorhanden');
  end
   else
  begin
    ShowMessage(' Excel ist nicht vorhanden');
  end;
end;

function TForm1.Excel_Vorhanden (): boolean;
var
  olevExcel: OleVariant;
begin
  Result:= TRUE;
  try
    olevExcel := GetActiveOleObject('Excel.Application');
  except
    try
      olevExcel := CreateOleObject('Excel.Application');
    except
      Result:= FALSE;
      exit;
    end;
  end;
end;

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

[OLDIE1950]

Kleiner Tipp:
http://www.tech-ecke.de/index_querei...lphi/excel.htm

Verbindungsaufbau zu Excel

Code:

var Excel: Variant;
...
try
   Excel := CreateOleObject('Excel.Application');
   Excel.visible := true;
except
   ShowMessage('Excel konnte nicht gestartet werden !');
end;
   Excel.DisplayAlerts:=False;  // unterdrückt die Ausgabe Hinweisen von Excel
   Excel.Workbooks.Add;  // um ein neues Sheet zu erstellen, ist demnach beim lesen eines vorhandenen Sheets nicht nötig!

   // hier folgen die eigentlichen Steuerbefehle...

VarClear(Excel); // Freigabe

[p80286]

Zitat von Luckie:

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

Und was wäre die Alternative?

Delphi-Quellcode:

olevExcel := GetActiveOleObject('Excel.Application');
  if oleexcel=unassigned then.....

Gruß
K-H

[API]

GetActiveOleObject gibt eine Referenz auf die IDispatch-Schnittstelle des aktiven Objekts zurück.
Damit wird nicht überprüft, ob Excel installiert ist.

Und CreateOleObject('Excel.Application') erzeugt eine Excel Instanz, welche im Hintergrund weiterläuft, falls diese nicht beendet wird.

[KodeZwerg]

Zitat von API:

Und CreateOleObject('Excel.Application') erzeugt eine Excel Instanz, welche im Hintergrund weiterläuft, falls diese nicht beendet wird.

Soweit ich weiß beenden sich solche Objekte von alleine oder wenn man, was auch immer vor " := CreateOleObject()" steht einen anderen Wert zuweist, in beiden Fällen sollte es beendet sein, wann auch immer.

Ist das falsch?

[Delphi.Narium]

Zitat von KodeZwerg:

Zitat von API:

Und CreateOleObject('Excel.Application') erzeugt eine Excel Instanz, welche im Hintergrund weiterläuft, falls diese nicht beendet wird.

Soweit ich weiß beenden sich solche Objekte von alleine oder wenn man, was auch immer vor " := CreateOleObject()" steht einen anderen Wert zuweist, in beiden Fällen sollte es beendet sein, wann auch immer.

Ist das falsch?

Dann erstell' doch mal in 'nem Programm Excel und beende Dein Programm, ohne Excel "aufzuräumen." Was bleibt im Taskmanager übrig?

Wenn Excel vorher schon lief?
Wenn Excel vorher noch nicht lief?
Wenn Du vorm Programmende der "Excelvariabel" was anderes zuweist?

[KodeZwerg]

Gesagt, getan, verstanden.

[KodeZwerg]

Zitat von p80286:

Zitat von Luckie:

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

Und was wäre die Alternative?

Delphi-Quellcode:

olevExcel := GetActiveOleObject('Excel.Application');
  if oleexcel=unassigned then.....

Gruß
K-H

Screenshot - 23_08.jpg
Testet Ihr eigentlich das?
Eine Test-Möglichkeit wäre das 'Excel.Application' mit Quatsch zu ersetzen und schauen was passiert.
Ob nun als exception wie beim Chemiker oder Fehler wie das obige,
man will doch eigentlich genau so etwas verhindern?

Zitat von p80286:

Und was wäre die Alternative?

Post #2 und #4

[Delphi.Narium]

Delphi-Quellcode:

uses
  ActiveX;

function IsInstalled(AValue : String) : Boolean;
var
  ClassID: TCLSID;
begin
  Result := CLSIDFromProgID(PWideChar(WideString(AVAlue)), ClassID) = S_OK;
end;

function IsExcelInstalled : Boolean;
var
  ClassID: TCLSID;
begin
  Result := CLSIDFromProgID(PWideChar(WideString('Excel.Application')), ClassID) = S_OK;
end;
// oder:
function IsExcelInstalled : Boolean;
begin
  Result := IsInstalled('Excel.Application');
end;

procedure TForm1.WelcheProzedurAuchImmer(Sender: TObject);
begin
  // Prüfen, ob Excel installiert ist:
  if IsExcelInstalled then ShowMessage('ja') else ShowMessage('nein');
  // Prüfen, ob die als Parameter übergebene Software installiert ist:
  if IsInstalled('Excel.Application') then ShowMessage('ja') else ShowMessage('nein');
  if IsInstalled('Word.Application') then ShowMessage('ja') else ShowMessage('nein');
end;

[p80286]

Zitat von KodeZwerg:

Zitat von p80286:

Zitat von Luckie:

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

Und was wäre die Alternative?

Delphi-Quellcode:

olevExcel := GetActiveOleObject('Excel.Application');
  if oleexcel=unassigned then.....

Gruß
K-H

Anhang 49817
Testet Ihr eigentlich das?
Eine Test-Möglichkeit wäre das 'Excel.Application' mit Quatsch zu ersetzen und schauen was passiert.
Ob nun als exception wie beim Chemiker oder Fehler wie das obige,
man will doch eigentlich genau so etwas verhindern?

Zitat von p80286:

Und was wäre die Alternative?

Post #2 und #4

Das wäre ein anderer Weg, aber es geht darum, nicht mit Exceptions zu arbeiten.

Gruß
K-H