Inkompatible Typen PInteger und Integer / TMS Komponente

[nachtstreuner]

Hallo liebe Delphi Gemeinde,

ich bin mal wieder auf einen Fehler gestoßen und komme nicht weiter:

Ich benutze das TMS KomponentenPack für RAD Studio XE2 und hier speziell die ADVOfficeStatusbar Ver. 1.4.1.0.

Beim Compilieren erhalte ich aber immer den oben genannten Fehler. Siehe auch Bild unten.

Der Fehler sitzt in der HTMLengo.pas. (Siehe Listing).
Was müsste ich hier ändern um den Fehler weg zu bekommen?

[jaenicke]

Du versuchst einen Integer zu übergeben (darauf castest du ja den dereferenzierten Pointer), aber die Funktion erwartet einen Pointer auf einen Integer (PInteger eben). Du muss also wohl einfach nur PInteger(nndx) übergeben.
Siehe Doku:
http://msdn.microsoft.com/en-us/library/dd144935.aspx

[nachtstreuner]

Hallo jaenicke,

vielen dank für deine rasche Antwort.

Nachdem ich ich Deinen rat befolgt habe, siehe Bild unten, erhalte ich immer noch die Fehlermeldung.

Oder muss ich das woanders im Quelltext eintragen ?

[DeddyH]

Das hat jetzt nichts mit dem Thema an sich zu tun, aber bist Du sicher, dass Du hier Sourcen einer kommerziellen Komponente posten darfst?

[nachtstreuner]

Hallo DeddyH,

das Steht im Kopf der Unit:

{ The source code is given as is. The author is not responsible }
{ for any possible damage done due to the use of this code. }
{ The component can be freely used in any application. The complete }
{ source code remains property of the author and may not be distributed, }
{ published, given or sold in any form as such. No parts of the source }
{ code can be included in any other component or application without }
{ written authorization of the author.

Diese stammt aus der Trial, die sich jedermann runterladen kann und testen kann. Deshalb denke ich mal, das es erlaubt ist.

[Klaus01]

Zitat von nachtstreuner:

Hallo DeddyH,

das Steht im Kopf der Unit:

{ The source code is given as is. The author is not responsible }
{ for any possible damage done due to the use of this code. }
{ The component can be freely used in any application. The complete }
{ source code remains property of the author and may not be distributed, }
{ published, given or sold in any form as such. No parts of the source }
{ code can be included in any other component or application without }
{ written authorization of the author.

Diese stammt aus der Trial, die sich jedermann runterladen kann und testen kann. Deshalb denke ich mal, das es erlaubt ist.

den Satz:
The completesource code remains property of the author and may not be distributed, published, given or sold in any form as such.

hast Du auch gelesen?

Grüße
Klaus

[p80286]

Zitat von nachtstreuner:

{ source code remains property of the author and may not be distributed, }
{ published, given or sold in any form as such. No parts of the source }

Das halte ich nicht für eine Aufforderung es zu publizieren?
Nur weil man an etwas heran kommt, muß man es ja auch nicht in die Welt heraus posaunen oder?

Gruß
K-H

[nachtstreuner]

Okay, okay
es war weder eine Absicht dem Author zu schaden,
noch den Quellcode kommerziell zu verbreiten. Es war einfach eine Frage , um ein Problem zu lösen.
Übrigens kann jedermann die Trial benutzen und somit in den Besitz des QuellCodes kommen und in seiner Anwendung benutzen.
The component can be freely used in any application.

[jaenicke]

Zitat von nachtstreuner:

Nachdem ich ich Deinen rat befolgt habe, siehe Bild unten, erhalte ich immer noch die Fehlermeldung.

Schau dir doch einfach einmal die Deklaration in Delphi an. Der fünfte Parameter muss auch ein PInteger sein. nnfit ist aber ein Integer. Also musst du @nnfit benutzen...

[daywalker9]

Schau mal, ob die tmsdefs.inc korrekt ist. Ich habe hier die gleiche Version unter XE2 und diese läuft Prima.

Aber zurück zum Thema.

An die Stelle darst Du eigentlich gar nicht kommen. Das ist der ELSE Zweig von einem IFDEF DELPHI4_UP ein paar Zeilen drüber.

In der tmsdef.inc müsste eigentlich das mit drin stehen:

Delphi-Quellcode:

{$IFDEF VER230}
  {$DEFINE DELPHI2_LVL}
  {$DEFINE DELPHI3_LVL}
  {$DEFINE DELPHI4_LVL}
  {$DEFINE DELPHI5_LVL}
  {$DEFINE DELPHI6_LVL}
  {$DEFINE DELPHI7_LVL}
  {$DEFINE DELPHI9_LVL}
  {$DEFINE DELPHI2006_LVL}
  {$DEFINE DELPHI2007_LVL}
  {$DEFINE DELPHI2010_LVL}
  {$DEFINE DELPHIXE_LVL}
  {$DEFINE DELPHIXE2_LVL}
  {$DEFINE DELPHI_TOUCH}
  {$DEFINE DELPHI_UNICODE}
  {$IFDEF CLR}
    {$DEFINE TMSDOTNET}
  {$ENDIF}
  {$IFNDEF BCB}
    {$DEFINE ISDELPHI}
  {$ENDIF}
{$ENDIF}