Morfik-Pascal

mit
_ _
_
1 Januar/ Das Werkzeug für den Softwareentwickler
Febrauar
OOP-Design mit Lazarus
Java Lazarus . net
Perl Delphi Morfik
_
_ _
2009
OOP-Design mit Lazarus
www.toolbox-mag.de
Java
Der Assembler der Virtual Machine
.net
Formularsteuerelemente
mit Silverlight 2.0
Bildbetrachter mit C#
Pascal
Verschlüsselte
Speicherstreams
Iterieren mit Patterns
Vista-Dialoge mit Delphi
Perl
Datenbankzugriffe mit DBI
Alle Toolbox-
Ausgaben
1997–2008
Der Datenträger enthält keine
jugendbeeinträchtigenden Inhalte.
Deutschland
¤ 11,90
Österreich
¤ 13,50
Schweiz
sfr 23,80
Bonus:
73
Toolbox-
Ausgaben
gratis auf
Auf der Eclipse JEE Ganymede SR1 für Silverlight
Microsoft Visual Studio 2008 SP1 deutsch
NetBeans 6.5 deutsch IBM Lotus Symphony 1.2
Lazarus 0.9.27 XAMPP 1.6.8 JDK und JRE 6u11
Toolbox-Verlag B 12532 F

Web 2.0
Morfik-Pascal
Timothy Woodward, Morfik-Entwickler
Die Programmiersprache Pascal ist seit ihrem ersten Entwurf durch Niklaus Wirth an der ETH
Zürich vielen Änderungen und Modernisierungen unterworfen worden. Früher war es Borland,
das Pascal erweiterte, heute die Firma Morfik aus Tasmanien.
Morfik AppsBuilder ist eine Entwicklungsumgebung für
das Schreiben von AJAX-artigen Webanwendungen. Der
Quelltext wird in einer Hochsprache geschrieben, bei der
Version 2 des AppsBuilder wahlweise in Morfik-Pascal
oder Morfik-Basic. Dieser Quelltext wird dann – zusammen
mit den Standard-Bibliotheken von Morfik, dem Morfik-Framework
– als native Binärdatei, die auf dem Server
läuft, kompiliert, der JavaScript-Anteil, der für die interaktiven
AJAX-Anwendungen typisch ist, wird im Webbrowser
ausgeführt.
Obwohl Morfik-Pascal sehr ähnlich zum Sprachumfang
von Delphi oder Free Pascal ist, besitzt es einige Eigenheiten
und Spracherweiterungen, die hier gezeigt werden.
Ausprobiert werden können die Programme mit der Apps-
Builder-Version, die sich auf der CD-ROM zur Ausgabe 6
der Toolbox befand, oder mit der Testversion, die von den
Webseiten von Morfik heruntergeladen werden kann.
Ein erstes »Hallo Welt«
Um den Einstieg in die Entwickungsumgebung zu bekommen
und die Grundstrukturen zu verdeutlichen, soll erst
einmal das typische Hallo-Welt-Programm geschrieben
werden.
Es ist hier als Morfik-Pascal-Form zu sehen, typisch ist die
Zweiteilung in den browser- und den serverseitigen Teil.
Hier zuerst das Listing, dessen Umsetzung nach JavaScript
im Browser ausgeführt wird:
Unit “Hello World”;
Interface
Type
“Hello World”=Class(Form)
Button1: Button;
Procedure Button1Click(Event: TDOMEvent); Message;
Private
{ Private declarations }
Public
End;
{ Public declarations }
Implementation
Procedure “Hello World”.Button1Click(Event: TDOMEvent);
Begin
End;
End.
ShowMessage(‘Hello World!’);
44 TOOLBOX | 1/2009
Der Server-Teil ist sehr kurz:
Unit “Hello World”;
Interface
Type
“Hello World”=Class(Form)
Button1: Button;
Private
{ Private declarations }
Public
End;
{ Public declarations }
Implementation
End.
Bei beiden Versionen wurde die Schreibweise im Original
gelassen und nicht – wie sonst in der Toolbox üblich – die
Großschreibung der Bezeichner bevorzugt. Das spielt aber
für die Funktion keine Rolle, da alle Sprachen in Morfik
(das gilt auch für die Java- und C#-Variante!) nicht zwischen
Groß- und Kleinschreibung unterscheiden.
Wie die beiden Beispiele zeigen, ist der Unterschied des Programms
zu einem Formular in Delphi oder auch Lazarus
eher gering. Allerdings gibt es schon ein paar Unterschiede.
Der auffälligste wurde bereits erwähnt: das Programm besteht
aus dem browser- und dem serverseitigen Teil. Der
OnClick-Event findet im Webbrowser statt, deshalb ist der
Eventhandler Button1Click dazu im browserseitigen Code
zu finden.
Auch die Deklaration von Button1Click unterscheidet sich
leicht von dem, was man aus Delphi gewohnt ist. Zuerst ist
sie mit der Direktive Message markiert, was dem Morfik-
Compiler mitteilt, daß die Methode ein Event-Handler ist.
Zum zweiten besitzt der Event-Handler anstelle des Sender
von Delphi einen Parameter vom Typ TDomEvent. Diese
Klasse, die im Framework von Morfik deklariert ist, überträgt
zusätzliche Informationen über den Event wie beispielsweise
X- und Y-Koordinaten und ob Zusatztasten
wie [Shift] oder [Strg] gedrückt sind.
Der letzte wirklich große Unterschied ist im Namen des
Forms zu sehen. Morfik hat sehr viel weniger strenge Regeln
als Delphi und Free Pascal, wie gültige Bezeichner aussehen
können.

In diesem Fall wurde ein Formularname gewählt, der ein
Leerzeichen enthält (Hello World). Damit der Compiler
diese Angabe als einzelnen Bezeichner wahrnimmt, muß er
in doppelten Anführungszeichen stehen und mit “Hello
World” angegeben werden. Strings sind in Morfik-Pascal,
wie in Pascal allgemein üblich, in einfachen Anführungszeichen
angegeben, an der Art der Anführungszeichen werden
Bezeichner und Zeichenketten also problemlos unterschieden.
Hilfsmethoden
Hilfsmethoden sind eine neue Spracherweiterung in Morfik
2. Sie können sowohl an primitive Datentypen wie Integer,
als auch an komplexe Datentypen wie Klassen angehängt
werden. Sie bieten eine intuitive Alternative zu den
üblichen prozeduralen Hilfsfunktionen und führen eine
neue Ebene der Objektorientierung ein. Hier ein Beispiel,
wie die Funktion IntToString ersetzt werden kann:
TextLabel1.Caption := IntToStr(n); // Normale Hilfsfunktion
TextLabel1.Caption := n.ToString; // Mit der Hilfsmethode
Ein ganz trivialer Vorteil der Hilfsmethoden – abgesehen
vom programmiertechnischen Aspekt – ist, daß man sie in
der Liste der Quelltextvervollständigung leichter findet.
Das Eingeben beispielsweise einer Stringvariable und eines
anschließenden Punkts läßt sofort die Liste der für den Datentyp
String verfügbaren Hilfsmethoden aufpoppen. Die
Eingabe der ersten Buchstaben der benötigten Funktion
engt die zur Auswahl stehenden Funktionen weiter ein (siehe
Bild 1).
Es ist im Morfik AppsBuilder auch möglich, eigene Hilfsmethoden
zu schreiben und sie an beliebige Datentypen zu
hängen – selbst an die primitiven.
Im folgenden Beispiel wird angenommen, daß eine reguläre
dezimale Integerzahl, die von Anwender eingegeben
wird, in eine Oktalzahl umgewandelt werden soll. Dafür
wird in zuerst eine Hilfsmethode geschrieben:
Function Integer.ToOctalString: String;
Var
Bild 1: Das Finden der passenden Hilfsmethoden mit Intellisense
Begin
End;
Value, Remainder: Integer;
Value := Self;
Result := ‘’;
While Value > 0 Do Begin
End;
Remainder := Value Mod 8;
Result := Remainder.ToString + Result;
Value := Value Div 8;
Diese neue Hilfsmethode kann jetzt im normalen Quelltext
als Ergänzung zum Datentyp Integer aufgerufen werden.
Das sieht folgendermaßen aus:
Procedure Content.Button1Click(Event: TDOMEvent);
Begin
End;
TextEdit2.Text := TextEdit1.Text.ToInteger.ToOctalString;
Mit Hilfsmethoden können sehr elegant aber auch die
Klassen des Morfik Frameworks erweitert werden. Eine
neue Methode Pack als Ergänzung von TStringList kann
an einer beliebigen Stelle im Projekt eingefügt werden:
Procedure TStringList.Pack;
Var
i : Integer;
Begin
End;
For i := Self.Count – 1 DownTo 0 Do
If Self[i] = ‘’ Then Self.Delete(i);
Web 2.0
Dynalist ist eine Erweitung von Morfik für die bereits von
Delphi bekannte Klasse TList. Sie bietet eine elegante Möglichkeit
für das Arbeiten mit Wertelisten von einfachen,
aber auch komplexen Datentypen, ohne daß Typumwandlungen
erforderlich sind. Eine Dynalist wird folgendermaßen
deklariert:
TOOLBOX | 1/2009 45

Web 2.0
Var
X: List Of Y;
Wobei X der Name der Variable ist und Y für den Datentyp
der Elemente der Liste steht. Die Elemente der Dynalist
können über die Default-Eigenschaft Items des Arrays angesprochen
werden.
Der Typ Dynalist
Hier ein Beispielquelltext mit einer Dynalist-Variable. Er
lädt eine Liste mit Integer-Zahlen auf einer Datei in eine
Dynlist und kalkuliert anschließend die Summe der geraden
Einträge in der Liste:
Procedure WebMethod1.Execute;
Var
NumbersFile : File Of Integer;
NumbersList : List Of Integer;
Value : Integer;
EvenTotal : Integer;
i : Integer;
Begin
NumbersList.Init;
AssignFile(NumbersFile, ‘c:\numbers.data’);
Reset(NumbersFile);
While Not EOF(NumbersFile) Do Begin
Read(NumbersFile, Value);
NumbersList.Add(Value);
End;
CloseFile(NumbersFile);
EvenTotal := 0;
For i := 0 To NumbersList.Count – 1 Do Begin
End;
If NumbersList[i] Mod 2 = 0 Then
EvenTotal := EvenTotal + NumbersList[i];
Bild 2: Der Web Action Wizard
46 TOOLBOX | 1/2009
NumbersList.Free;
End;
Das Beispiel zeigt, daß Dynalists mit Init einen besonderen
Konstruktor besitzen.
Kommentare mit MorfikDoc
Morfik unterstützt wie auch Free Pascal einen besonderen
Kommentartyp. MorfikDoc dient dazu, dem Entwickler zusätzliche
Informationen in der Liste für die Codevervollständigung
anzuzeigen. Wie das fertig aussieht, zeigt der beschreibende
Text im Tooltip unter der Funktion in Bild 1.
Das Morfik-Framework enthält eine große Zahl solcher
MorfikDoc-Kommentare, es bietet sich aber auch an, diese
Hilfen im eigenen Quelltext einzufügen.
Ein MorfikDoc-Kommentar wird immer direkt vor der Deklaration,
zu der er gehört, geschrieben. Der Hilfetext wird
dann in eine besondere Abwandlung der Syntax von Pascal-Kommentaren
eingefaßt. Hier ein Beispiel aus der Datei
SystemUtilities.mmd im Morfik-Framework:
(**
* This function returns a Boolean value according to the
* contents of the string parameter.
*)
Function StrToBool(S: StringP>): Boolean;
Eine Web Action in Morfik ist eine besondere Art von Prozedur,
Aufrufe an Web Actions werden im AppsBuilder visuell
entworfen oder bearbeitet. Werfen Sie einem Blick auf
die folgende Deklaration, die sich in der Datei SystemActions.mmd
im Morfik-Framework befindet:
Procedure OpenWebSite(SiteURL: String);
[‘WebAction=True’,
‘WACategory=form’];

Sie definiert eine Web Action, mit der eine Webseite geöffnet
werden kann. Zu beachten sind insbesondere die Tags
in eckigen Klammern hinter der Deklaration. Sie übermitteln
die folgenden Informationen an den Morfik-Compiler:
1. WebAction=True heißt, daß diese Prozedur eine Web
Action ist.
2. WACategory=form bedeutet, daß diese Web Action in
die Kategorie der Forms gehört.
Angenommen, es soll eine externe Webseite geöffnet werden,
wenn der Anwender auf eine Schaltfläche in der Anwendung
klickt. Man könnte dazu einen OnClick-Eventhandler
für den Button schreiben und darin den Quelltext
unterbringen, mit dem die Prozedur OpenWebSite aufgerufen
wird.
Actions im Web
Es gibt aber einen einfacheren Weg: Im Panel Events wird
der elliptische Button neben dem OnClick-Event des Buttons
(»On Click«) betätigt. Das startet den Wizard für Web
Actions (siehe Bild 2). Mit ihm wird eine Web Action ausgewählt
und die Werte deren Parametern (in diesem Fall SiteURL)
zugewiesen.
Das Ergebnis der Arbeit mit dem Web Action Wizard ist
ein Quelltext, wie er in Bild 3 gezeigt ist. Das kleine Symbol
(der Smart Tag) unter der Prozedur ist dabei entscheidend.
Damit wird jederzeit der Editor aufgerufen, mit dem
die Web Actions bearbeitet werden.
Diese Abschnitte zeigten, daß Morfik-Pascal mit dem Dialekt
von Delphi und Free Pascal sehr eng verwandt ist. Wer
also mit den anderen Entwicklungssystemen bereits gearbeitet
hat, fühlt sich in diesem Entwicklungssystem sofort
zuhause.
Morfik-Pascal besitzt aber einige moderne Zusatzfunktionen
und intelligente Spracherweiterungen, an denen man
sieht, daß die VCL eben doch schon über ein Dutzend Jah-
Bild 3: Das Ergebnis des Startens des Web Action Wizards,
zu beachten ist der »Smart Tag« unter dem Aufruf von
OpenWebSite
Delphi 2009 und TSerial
Web 2.0
Fast jede neue Delphi-Version macht Anpassungen von Komponenten
erforderlich. Wer auf Delphi 2009 von Embarcadero/Codegear
aktualisiert und hier die Komponente TSerial installieren will, erhält
dann auch prompt eine Fehlermeldung. Die Version 4.3 von TSerial
läßt sich jedoch auch mit dem neuen Compiler und seiner wieder
nur leicht veränderten VCL nutzen, es muß nur eine Änderung ab
der Zeile 913 der Datei serial.pas eingepflegt werden. Im Original
steht hier
if j>9 then
FPorts.AddObject(StrPas(@c[4]),TObject(ci))
Für Delphi 2009 muß eine zusätzliche lokale Variable in dieser Prozedur
definiert werden und über sie wird dann iteriert:
if j>9 then begin
for ii := 4 to 63 do c1[i-4] := c[i];
FPorts.AddObject(c1, TObject(ci))
end
Der else-Zweig der Abfrage bleibt unverändert.
Eine von Hans-Josef Mennen an Delphi 2009 angepaßte Version
der Unit befindet sich auf der DVD zu dieser Ausgabe, sie ist durch
die Versionsnummer 4.3.2009 gekennzeichnet und sonst nicht gegenüber
Serial 4.3 geändert. Die angepaßte Routine wird über bedingte
Kompilierung nur in Delphi 2009 angesprungen, die Kennung
dieses Compilers ist inzwischen schon bei VER200 angelangt und
entsprechend im Dateikopf eingetragen. Um die Komponentensammlung
mit dem neuen Delphi-Compiler korrekt zur Funktion zu
bringen, sollte unter Projekt|Optionen|Delphi-Optionen|Unit-Aliase
außerdem der Eintrag WinTypes=Windows;WinProcs=Windows
hinzugefügt werden.
Wer noch mit älteren Versionen von TSerial arbeitet, sollte die
Komponentensammlung dringend aktualisieren, die restlichen Daten
zu TSerial 4.3 befinden sich im Archiv im Verzeichnis bei den
Quellen zur Ausgabe 2’2007.
re alt ist und inzwischen Staub angesetzt hat. Bei Free Pascal
und Lazarus mit ihrer größtmöglichen Kompatibilität
zu Delphi vermißt man ebenfalls moderne objektorientierte
Funktionen (siehe auch den Beitrag von Graeme Geldenhuys
zu Patterns in dieser Ausgabe), die Sprachen wie
Java längst vorgemacht haben und die man in Morfik-Pascal
findet.
Die hier gezeigten Neuerungen in Morfik-Pascal steigern
die Produktivität des Software-Entwicklers. Eine der besten
Stellen für weitere Beispiele bietet das Framework
selbst.
■
TOOLBOX | 1/2009 47