Herausfinden, welche Excelversion genutzt werden kann

[mkinzler]

Ersetz mal PWideChar() durch PChar()

[xZise]

Hmm, aber unter Turbo Delphi will er auch ein PWideChar als Übergabeparameter. Also im Moment kann ich das leider nicht testen, weil hier nicht Turbo Delphi installiert ist.

Aber ich werde nachher wahrscheinlich mal zu Vista rüberbooten, da habe ich dann Turbo Delphi.

MfG
xZise

[sx2008]

Zitat:

Zitat von xZise

aber da gibt es das Problem, das er es nicht kompilieren kann.

Fehlermeldung?

Aber es sollte klar sein, dass man auf jeden Fall eine Funktion wie ClassIDExists() benötigt.
Man kann ja nicht für jede Abfrage den Code erneut hinschreiben wie das in Beitrag #11 anklingt.

Die Deklaration von CLSIDFromProgID() aus Unit ActiveX sieht unter Delphi 2007 so aus:

Delphi-Quellcode:

type   POleStr = PWideChar;
...
function CLSIDFromProgID(pszProgID: POleStr; out clsid: TCLSID): HResult; stdcall;

Ich vermute das Problem jetzt mal beim Parameter pszProgID.
Hier eine Änderung (compiliert unter D2007 ebenfalls)

Delphi-Quellcode:

function ClassIDExists(classID:WideString):Boolean;
var
  tmp : TGUID;
begin
  Result := Succeeded(CLSIDFromProgID(POleStr(classID), tmp));
end;

[xZise]

Zitat:

Zitat von xZise

Hallo,

Also es funktioniert nicht so ganz. Also bei mir funktionierts (D2k9), aber TurboDelphi meckert:

Zitat:

[Pascal Fehler] UWerkzeuge.pas(89): E2089 Ungültige Typumwandlung

Und zwar ist das in der ersten If-Bedingung und auch in der zweiten.

Delphi-Quellcode:

function GibExcelVersion : TExcelVersion;
var
  tmp : TGUID;
begin
  // Test auf MSO 2k3 / MSO 2k7
  Result := evKeine;
  if Succeeded(CLSIDFromProgID(PWideChar('Excel.Application.11'), tmp)) then
    Result := ev2003
  else if Succeeded(CLSIDFromProgID(PWideChar('Excel.Application.12'), tmp)) then
    Result := ev2007;
end;

Wenn man das aber "aufteilt" also etwa so:

Delphi-Quellcode:

var
  s : string;
  pw : PWideChar;
  i : Integer;
begin
  s := 'Excel.Application.11';
  pw := PWideChar(s);
  i := CLSIDFromProgID(pw, tmp);
  if Succeeded(i) then

Das liefert keinen Fehler, aber das liefert auch kein Succeeded.
Ich muss dazu sagen, dass die aufgeteilte Version so sein sollte, aber ich kann dafür meine Hand leider nicht ins Feuer legen :D

MfG
xZise

[sx2008]

@xZise: das ist auch nicht der Code, den ich in Betrag #19 gepostet habe!

[xZise]

Aber warum sollte dann der Fehler nicht mehr auftreten?

MfG
xZise

[sx2008]

Delphi-Quellcode:

function ClassIDExists(const classID:WideString):Boolean;
var
  tmp : TGUID;
begin
  Result := Succeeded(CLSIDFromProgID(PWideString(classID), tmp));
end;

Weil der Übergabeparameter den Datentyp WideString hat.
WideString und PWideString sind kompatibel; der Compiler weiss wie er die Typumwandlung vornehmen muss.
String, genauer gesagt AnsiString und PWideString sind nicht kompatibel.
Untehalb D2009 gilt: String=AnsiString
Ab D2009 gilt: String=WideString (das ist der Grund weshalb PWideString('irgendein Text') erlaubt ist)
Bei den älteren Delphi Versionen nimmt der Compiler die Konvertierung zwischen String und WideString
beim Aufruf einer Funktion oder Procedure automatisch vor.
Nimm einfach obige Funktion und es funktioniert für alle Delphi Versionen.

[xZise]

Ah stimmt. Das heißt ein Cast nach WideString hätte aber auch funktioniert... Ich hatte eigentlich gedacht so eine unbedenkliche Umwandlung, besonders weil das ja Quasi eine Konstante ist, wird automatisch durchgeführt.

Okay ich frage mal meinen Kumpel ob es jetzt funktioniert.

MfG
xZise

[xZise]

Okay, es lag tatsächlich daran!

MfG
xZise