ShowMessage mit Pascal Script

[WoTo]

Hallo zusammen,
ich habe die neueste Version von Pascal Script installiert und versuche nun folgendes Script auszuführen:

Delphi-Quellcode:

var
i : string;
begin
 i := 'HALLO';
 showmessage(i);
end.

Leider gibt der Script-Compiler folgende Meldung aus:
[Error](1:1): "Unable to register type TDrawItemEvent"

Was mache ich falsch ?

[jim_raynor]

An diesem Skript liegt es definitiv nicht.

Benutzt du die Komponenten-Version? Wenn ja, welche Plugins werden benutzt? Wenn nicht, wo werden die Funktionen registriert? Bissle Quellcode wäre hilfreich.

[WoTo]

Hallo Christian,
ich benutze die Komponentenversion und habe auch schon alle vorhandenen Plugins eingebunden.
Dazu habe ich das Property Plugins der Komponente verwendet und dort folgende Plugins eingetragen:

- PSImport_StdCtrls
- PSImport_Controls
- PSImport_Forms
- PSImport_Classes
- PSImport_DateUtils
- PSImport_ComObj
- PSImport_DB

Wenn ich keine Plugins einbinde, kennt der Compiler "ShowMessage()" nicht.

Welches Plugin muß überhaupt eingebunden werden ?
Ist vielleicht die Reihenfolge der Plugins wichtig ?
Gibt es vielleicht irgendwo ein wenig Dokumentation über Pascal Script ?

Ich arbeite zum erstenmal mit Pascal Script und die Doku von RemObjectsSoftware ist sehr dürftig.

MfG
Wolfgang

[jim_raynor]

Die Reihenfolge könnte eine Rolle spielen, allerdings bin ich mir unsicher. Benutze die Komponentenversion garnicht. Würde mal sagen, dass StdCtrls nach Classes und Controls kommen müsste.

Also zuerst Classes dann Controls, dann StdCtrls und dann Forms.

Ja die Dokumentation ist wirklich sehr dürftig, aber gute Unterstützung bekommt man in der Newsgroup news://news.remobjects.com/remobject...c.pascalscript . Dort antwortet auch der Entwickler von Pascal Script Carlo Kok

[WoTo]

Hast du vielleicht ein Demo ?

Ich möchte nur mit dem Script eine Message ausgeben. Ich habe mal mein Delphi2005-Projekt angehängt.
Vielleicht siehst du ja, wo der Fehler ist.

Im Voraus vielen Dank!

MfG
Wolfgang

[jim_raynor]

Nun. Der sagt hier korrekt, dass er ShowMessage nicht findet. Ist ja auch in keinem Standardpaket drin.

Zum Einbinden müsstest du glaube (ungetestet)

Delphi-Quellcode:

procedure TForm1.PSScriptCompile(Sender: TPSScript);
begin
  PSScript.AddFunction(ShowMessage,'procedure ShowMessage(const Message: string);');
end;

machen (in OnCompile, so wie ich das hier http://www.remobjects.com/articles/?id={2FFC1EE9-F18D-4B11-9DE4-1BA0A79D0D04} gelesen habe)