Problem mit Typ-Inkompatibilität

[PeterPanino]

Hallo!

Ich habe diesen Source Code auf Torry gefunden: Professional Screen Camera Component v.5.2.3.0. Die enthaltene kompilierte Demo.exe stellt einen wirklich fantastisch funktionierenden Screen-Video-Recorder mit vielen Optionen dar. Leider kann ich die Sourcen nicht in Delphi 10 Seattle kompilieren, weil der Compiler in scHighTimer.pas über die Typ-Inkompatibilität von NativeUInt und Cardinal meckert:

Delphi-Quellcode:

procedure TimeCallBack(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD); stdcall;
begin
  PostMessage(HWND(dwUser), WM_TIMER, uTimerID, 0);
end;

// [dcc32 Error] scHighTimer.pas(344): E2010 Incompatible types: 'NativeUInt' and 'Cardinal':
FTimerID := TimeSetEvent(FInterval, FInterval, TimeCallBack, FWindowHandle, TIME_PERIODIC);

Ich kann aber die Quelle der Typ-Inkompatibiltät nicht finden, weil der Compiler dabei auf TimeCallBack hinweist, dort aber kein solcher Typ zu finden ist.

[mkinzler]

Was für einen Typ hat TimeCallBack?

[TiGü]

Aus Winapi.MMSystem:

Delphi-Quellcode:

  TFNTimeCallBack = procedure(uTimerID, uMessage: UINT; 
    dwUser, dw1, dw2: DWORD_PTR) stdcall;

function timeSetEvent(uDelay, uResolution: UINT;
  lpFunction: TFNTimeCallBack; dwUser: DWORD_PTR; uFlags: UINT): MMRESULT; stdcall;

Aus Winapi.Windows:

Delphi-Quellcode:

 
ULONG_PTR = NativeUInt;
DWORD_PTR = ULONG_PTR;

Ich wette, das FWindowHandle als ein unsigned 32-Bit Integer definiert ist (z.B. LongWord, Cardinal, UINT).
Ändere die Definition und es sollte gehen:
FWindowHandle: THandle;

EDIT:
Außerdem musst du die Definition der Callback von  dwUser, dw1, dw2: DWORD auf  dwUser, dw1, dw2: DWORD_PTR ändern!

[PeterPanino]

Zitat von TiGü:

Ich wette, das FWindowHandle als ein unsigned 32-Bit Integer definiert ist (z.B. LongWord, Cardinal, UINT).
Ändere die Definition und es sollte gehen:
FWindowHandle: THandle;

Danke, es war als HWND definiert, ich habe es trotzdem geändert auf Thandle.

Zitat von TiGü:

Außerdem musst du die Definition der Callback von  dwUser, dw1, dw2: DWORD auf  dwUser, dw1, dw2: DWORD_PTR ändern!

Die entscheidende Beruhigung des Compilers erfolgte aber durch den Ersatz von DWORD durch DWORD_PTR. Vielen Dank dafür!

Nun hat sich der Compiler anderen Fehlern zugewendet, z.B.:

[dcc32 Error] scWaveUtils.pas(967): E2003 Undeclared identifier: 'TimeSeparator'

Diese Screen-Kamera-Komponente wäre ein guter Beitrag für die Delphi-Praxis Code Library, wenn sie in Delphi 10 Seattle funktionieren würde. Könnte sich jemand, der sich damit auskennt, den Code für Delphi 10 Seattle kompatibel machen?

[Uwe Raabe]

Zitat von PeterPanino:

[dcc32 Error] scWaveUtils.pas(967): E2003 Undeclared identifier: 'TimeSeparator'

Der heißt jetzt FormatSettings.TimeSeparator .

[PeterPanino]

Vielen Dank an alle! Die restlichen "Altlasten" habe ich jetzt selbst korrigiert und die Komponente dann installiert!

[himitsu]

Zitat von Uwe Raabe:

FormatSettings.TimeSeparator .

Seit bestimmt 10 Jahren (eine gaaanz Weile lang war das alte noch als Depricated vorhanden)

[f1delphi]

Zitat von PeterPanino:

Hallo!

Ich habe diesen Source Code auf Torry gefunden: Professional Screen Camera Component v.5.2.3.0. Die enthaltene kompilierte Demo.exe stellt einen wirklich fantastisch funktionierenden Screen-Video-Recorder mit vielen Optionen dar. Leider kann ich die Sourcen nicht in Delphi 10 Seattle kompilieren, weil der Compiler in scHighTimer.pas über die Typ-Inkompatibilität von NativeUInt und Cardinal meckert:

Delphi-Quellcode:

procedure TimeCallBack(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD); stdcall;
begin
  PostMessage(HWND(dwUser), WM_TIMER, uTimerID, 0);
end;

// [dcc32 Error] scHighTimer.pas(344): E2010 Incompatible types: 'NativeUInt' and 'Cardinal':
FTimerID := TimeSetEvent(FInterval, FInterval, TimeCallBack, FWindowHandle, TIME_PERIODIC);

Ich kann aber die Quelle der Typ-Inkompatibiltät nicht finden, weil der Compiler dabei auf TimeCallBack hinweist, dort aber kein solcher Typ zu finden ist.

I stucked to the same problem. Does it possible to post fixed unit please?

[t.roller]

An XE7 angepasst - sollte bei Delphi 10 Seattle auch gehen.