cnvcl-Komponenten mit Fehlermeldung für Delphi 10.4

[EdAdvokat]

Hallo zusammen,
ich habe über die Zeit stets neben cnpack auch die cnvcl-master Komponenten von cn-Pack installiert und konnte damit vernünfig arbeiten. (wirklich interessante Beispiele für symetrische und asymetrische Chiffren)
Nachdem ich nun Delphi 10.4-CE installiert habe, wollte ich die von hier https://github.com/cnpack/cnvcl heruntergeladenen neuen cnvcl-Komponenten unter Delphi 10.4 installieren und erhalte dabei Fehlermeldungen, die ich nicht selbst auflösen konnte.
Jedenfalls lassem sich die cnvcl-Komponenten nicht installieren.
Kennt jemand das Problem und ggf. eine Abhilfe.
Die neuen Komponenten von 10.4 haben gegenüber den Vorversionen eine neue Datei cnTextControl, die von cnMemo aufgerufen wird. In cnTextControll gibt es jedoch eine Fehlermeldung.

[dummzeuch]

Zitat:

Zitat von EdAdvokat (Beitrag 1492710)

In cnTextControll gibt es jedoch eine Fehlermeldung.

Und die Fehlermeldung ist?

[EdAdvokat]

Leider kann ich die Fehlermeldung nicht mehr exakt nachvollziehen, da ich nun bereits Dateien aus der Vorversion
mit denen von 10.4 gemischt habe und damit eine provisorische Lösung erreichen konnte, doch sicher wird sich hier oder da dann
wieder der Fehlerteufel melden.
Ich habe die Zeile markiert in der es in etwas lautete: "unvereinbarte Formate"
Zeile 436 von cnTextControll.pas

GetTextExtentPoint32(DC, PChar(FLineNumPattern), Length(FLineNumPattern), ASize);
FLineNumWidth := ASize.cx;

// ÅжÏÊÇ·ñµÈ¿í
FFontIsFixedWidth := EnumFontFamiliesEx(DC, LogFont, @EnumFontsProc, 0, 0) = BOOL(1); <<<---hier knallt es!
finally
SaveFont := SelectObject(DC, SaveFont);
if SaveFont <> 0 then
DeleteObject(SaveFont);
DeleteDC(DC);
end;

[EdAdvokat]

ich habe doch noch mal den Fehler mit der D 10.4.2 Version von cnvcl nachgestellt und folgende Fehlermeldung wird nach compilieren des runtime-Projekt ausgegeben:

[dcc32 Fehler] CnTextControl.pas(436): E2008 Inkompatible Typen
[dcc32 Hinweis] CnTextControl.pas(111): H2219 Das private-Symbol 'ScreenColNumberToColNumber' wurde deklariert, aber nie verwendet
[dcc32 Hinweis] CnTextControl.pas(115): H2219 Das private-Symbol 'ColNumberToScreenColNumber' wurde deklariert, aber nie verwendet
[dcc32 Fataler Fehler] CnMemo.pas(3111): F2063 Verwendete Unit 'CnTextControl.pas' kann nicht compiliert werden

Kann man da was mit Klammern lösen?

[dummzeuch]

Zitat:

Zitat von EdAdvokat (Beitrag 1492713)

Delphi-Quellcode:

      FFontIsFixedWidth := EnumFontFamiliesEx(DC, LogFont, @EnumFontsProc, 0, 0) = BOOL(1); <<<---hier knallt es!

EnumFontFamiliesEx liefert einen Integer. Bool(1) ist aber ein LongBool.

Folgendes compiliert:

Delphi-Quellcode:

FFontIsFixedWidth := EnumFontFamiliesEx(DC, LogFont, @EnumFontsProc, 0, 0) = 1;

Ob es auch funktioniert, kann ich nicht sagen.

Die Library liefert erschreckend viele Hints (37) und Warnings (189), die hätte ich meinen Kollegen aber sowas von um die Ohren gehauen.

[EdAdvokat]

Deine Feststellungen hinsichtlich der Qualität der Programme kann ich leider nur bestätigen. Da hat man eher den Eindruck, dass mal so ganz schnell eine neue Version erstellt
werden soll, komme was da kommen soll...
Ob das überhaupt geprüft wurde???
Du meinst also, ich könnte es mit der Veränderung probieren?
Vielen Dank zunächst für die Hilfe.

[DieDolly]

Zitat:

Ob das überhaupt geprüft wurde???

Melde dich im cnpack-Forum an und melde es dort. Es hier zu melden bringt nichts, da der Entwickler hier nicht unterwegs ist.

[EdAdvokat]

ich hab das versucht, doch auch nach einer mühseeligen Registrierung finde ich dort keine Möglichkeit meinen Post zu schreiben. Habe daher einfach an cnpack gemailt. Mal sehen ob sich was tut.

[DieDolly]

http://bbs.cnpack.org/
Die Registrierung ist doch nicht mühlselig.

http://bbs.cnpack.org/forumdisplay.php?fid=25
In dieses Unterforum und dann oben rechts auf "New".

[EdAdvokat]

ganz so einfach ist das wohl nicht, denn ich erhalte keinen Button "New" also vermutlich habe ich trotz Registrierung kein Schreibrecht. Langsam reicht es mir mit diesem Forum.
Oder gibt es da noch eine Lösung, die ich übersehen haben könnte?

[DieDolly]

Zitat:

Oder gibt es da noch eine Lösung, die ich übersehen haben könnte?

Was wurde nach der Registrierung angezeigt? Zufällig sowas in der Art, dass ein Administrator erst dein Konto prüfen wird?

[EdAdvokat]

ja genau und der prüft und prüft...und solange kann ich meine Mail nicht absetzen... mal sehen ob es Montag klappt...

[EdAdvokat]

Ich muss wohl meine Kritik zurücknehmen, denn gut 12 Stunden nach meiner Meldung bei cnpack kam von dort die Antwort:
Thanks for your report. We fixed it now in our github.
Nun gilt es abzuwarten:wink:

[EdAdvokat]

dummzeuch hatte recht. So haben sie es auch gefixt:

Delphi-Quellcode:

// ÅжÏÊÇ·ñµÈ¿í
{$IFDEF DELPHI104_SYDNEY_UP}
      FFontIsFixedWidth := EnumFontFamiliesEx(DC, LogFont, @EnumFontsProc, 0, 0) = 1;
{$ELSE}
      FFontIsFixedWidth := EnumFontFamiliesEx(DC, LogFont, @EnumFontsProc, 0, 0) = BOOL(1);
{$ENDIF}
    finally
      SaveFont := SelectObject(DC, SaveFont);
      if SaveFont <> 0 then
        DeleteObject(SaveFont);
      DeleteDC(DC);
    end;
  end;
end;

Nun sollte es funktionieren.