Delphi-Komponenten zu FP portieren

[mschnell]

Ich möchte ein Programm-Paket von Delphi zu Lazarus portieren.

Es besteht aus eigenem Code (von meinen Kollegen) und einigen 3rd-Party Komponenten, die wir im Sourcecode gekauft haben.

Der gesamte Sourcecode soll so mit "$if"s erweitert werden, dass er sich später wie gehabt in Delphi und zusätzlich in Lazarus übersetzen lässt.

Zum Testen habe ich mir gedacht erst mal mit einer kleinen 3rd-Party Komponente anzufangen. Da habe ich mir "TSpinEdit" aus den mit Delphi gelieferten Beispielen ausgesucht. Der Code steht im Sourcefile Spin.pas.

Natürlich stoße ich sofort beim Übersetzen auf Probleme:

Code: Alles auswählen

procedure CMEnter(var Message: TCMGotFocus); message CM_ENTER;
 
    Fehlermeldung: Identifyer not found für TCMGotFocus und CM_ENTER

Wie kann man sinnvoll vorgehen ?

Gruß und Dank,
-Michael

[theo]

Also CM_ENTER ist in LMessages definiert. TCMGotFocus weiss ich auch nicht.

Ich fänd's aber besser, wenn man solche Windows-ismen gleich versucht zu elliminieren und OnEnter oder OnFocus verwendet.
Dann läuft's auch gleich z.B. auf Kylix.

[mschnell]

Gerne !

Wie stellst Du Dir das vor ?

Da kommen noch jede Menge weitere Windows-ismen, die ich gerne 'rauswerdfen würde. z.B. GetDC, um die Fontgröße zu ermitteln.

-Michael

[mschnell]

Ich sehe gerade, dass SpinEdit eine dumme Wahl war, da Lazarus TSpinEdit ja schon beinhaltet.

Andererseits ist es sicher instruktiv, den Sourcecode von Lazarus und von Delphi 'mal zu vergleichen.

-Michael

[knight]

Aber bitte das Urheberrecht von Borland/Codegear beachten!

knight

[theo]

Wie stellst Du Dir das vor ?

Naja, das muss man halt im Einzelfall ansehen, wie man's ersetzen kann.
Ist vielleicht nicht immer einfach. Aber die fehlenden Deklarationen wie TCMGotFocus musst du ja auch irgendwie ausfindig machen. Und ob das dann Cross-Platform klappt?
Die Font-Dimensionen kannst du z.B. mit Canvas.TextExtent ermitteln.

[schnullerbacke]

@mschnell

Ich würde dir empfehlen, für FPC/Laz eine Unit extra zu erstellen, wo du solche Konstanten auf die Entsprechungen ändern kannst, also

const
CM_BlaBla = Laz-Entsprechung;

Bei einigen Sachen wird man zusätzlich noch die Routinen einbauen müssen und die für Laz emulieren. Das könnte insgesamt für solche Umstellungen ganz nützlich sein.

[mschnell]

@mschnell

Ich würde dir empfehlen, für FPC/Laz eine Unit extra zu erstellen, wo du solche Konstanten auf die Entsprechungen ändern kannst..

Ja, genau so habe ich es auch begonnen, bevor ich bemerkt habe, dass es TSpinedit in Laz schon gibt und der portierte Code sich deshalb zwar übersetzen aber nicht linken ließ (warum ist mir allerdings schleierhaft).

Mir ist jedenfalls klar geworden, dass diverse Windows-ismen in Laz sehr anders als in Delphi umgesetzt worden sind und man die Portierung an diesen Stellen - es soll ja später auch auf Linux laufen - auf einer höheren Ebene ansetzten muss.

Nächstes Projekt wäre Async Pro (das ja inzwischen ein freies Source-Forge Projekt ist) Oder gibt es da schon eine Lazarus-Version von ?

-Michael

[theo]

Nächstes Projekt wäre Async Pro (das ja inzwischen ein freies Source-Forge Projekt ist) Oder gibt es da schon eine Lazarus-Version von ?

Kaum. Sieht ziemlich Windows-lastig aus (TAPI, Microsoft Speech API...)

[schnullerbacke]

@mschnell

Beim umsetzen der ICS-Kompos ist mir etwas untergekommen was zu einem Linkfehler führt. Bei Delphi ist es erlaubt, externe Prozeduren zunächst im interface ohne extern zu deklarieren und später im implementation auf extern zu ändern. Hinzu kommt, das {$EXTERNALSYM...} bei FPC offenbar nicht vorhanden ist. Bei diesen Sachen kommst du um die entsprechenden Deklarationen im FPC-Stil nicht herum. Ich vermute mal, das wird auch zu deinem Linkfehler geführt haben.

[Christian]

Die async pro würd ich nicht portieren wollen da macht ein rewrite mehr sinn.

[mschnell]

Kaum. Sieht ziemlich Windows-lastig aus (TAPI, Microsoft Speech API...)

Ich brauche zunächst nur die Teile für die grundlegende serielle Kommunikation. Später für TCP/IP . TAPI und speech API brauche ich nicht. Ich würde mich also nur an den entsprechenden Teilen versuchen.

Allerdings wird da massiv mit Threads gearbeitet. da fürchte ich einige Probleme.

-Michael

[mschnell]

Die async pro würd ich nicht portieren wollen da macht ein rewrite mehr sinn.

Ich habe leider keine Wahl .

Die Delphi-Version der zu protierenden Software ist im produktiven Einsatz bei diversen Kunden.

Der Quellcode meiner Kollegen benutzt Async Pro und darf nicht verändert, sondern nur mit "$ifdef FPC ...." erweitert werden. Wenn man mit Delphi übersetzt, muss _exakt_ dasselbe 'rauskommen wie bisher.

Deshalb brauche ich ein Async-Pro für Lazarus bzw ein work-alike, das die tatsächlich verwendeten Funktionen reproduziert.

-Michael

[Christian]

Wenn dus schaffst bin ich besgeistert ichwill schon lang ein paar spielerein mit Telefonie implementieren aber ich bin da sehr skeptisch TAPI gibts in Linux schliesslich nicht und kein mir bekanntest equivalent das heisst z.b. DTMF und Caller IDs zu fuss aus dem Stream rauszufiltern also ein sehr effektive FFT usw.

[mschnell]

TAPI werd ich nicht anpacken. DTMF und Caller ID auch nicht.

Ein Freund von mir hat aber das FFT-Zeug für DTMF in einem Delphi-Programm realisiert. U.U. kann ich da etwas vermitteln.

-Michael