realbasic-nug.de
[Top] [All Lists]

Re: Apple Script

To: REALbasic NUG German <realbasic-nug dot de at lists dot realsoftware dot com>
Subject: Re: Apple Script
From: rudi dot maier at t-online dot de (Rudi Maier)
Date: Fri, 24 Dec 2004 16:45:20 +0100
Delivered-to: realbasic-nug dot de at lists dot realsoftware dot com
Hallo Christian Abele,

bis auf die Erzeugung der "aete" Resource klappt alles.
Danke!

Gruß Rudi

am 23.12.2004 10:25 Uhr schrieb Christian Abele unter
c_abele at reichert-druck dot de:

> AppleScript-Programme sind selbstständige Mac-Applikationen, die im
> Apple ScriptEditor oder im Script Debugger bearbeitet und debuggt
> werden können. Um Sie von RealBasic aus aufzurufen, muß man das
> AppleScript-Programm als kompiliertes MacOS X Programm abspeichern.
> Anschließend zieht man das Programm in das RealBasic-Projektfenster und
> kann es von RealBasic wie eine gewöhnliche Methode aufrufen.
> 
> Zu beachten ist: Das AppleScript-Code sollte innerhalb eines "on run
> ... end run"- Events stehen und auch über return xxx einen Wert
> zurückgeben.
> 
> Im RealBasic ruft man das AppleScript dann so auf:
> 
> *****
> dim erg as string
> 
> erg = MeinAppleScript(text1, text2) // AppleScript-Aufruf
> 
> 
> Mit freundlichen Grüßen,
> 
> Christian Abele
> Entwicklung
> Datenbanken & Elektronische Medien
> 
> -------------------------------------------------------
> Reichert GmbH, Druck + Kommunikation
> Rechbergstrasse 10
> 70806 Kornwestheim
> 
> Tel.         07154 - 13 12 16
> Fax.        07154 - 13 12 77
> e-mail    c_abele at reichert-druck dot de
> Am 23.12.2004 um 09:41 schrieb Rudi Maier:
> 
>> Hallo Liste,
>> 
>> ich möchte via iListen ein RB-Programm mit Sprache steuern.
>> Bei iListen kann mit einem Sprachbefehl ein Apple Script gestartet
>> werden.
>> Apple Script ist für mich Neuland. Ich habe nun ein Beispiel gefunden.
>> Da
>> wird ein String an ein RB-Programm übergeben.
>> 
>> tell application "My RB App"
>> activate
>> set x to "hallo"
>> AddText x
>> end tell
>> 
>> Im RB-Programm wird der String in eine Listbox eingetragen:
>> 
>> Function HandleAppleEvent(event as AppleEvent, eventClass as string,
>> eventID
>> as string) as boolean
>> 
>> dim txt as string
>> 
>> if eventID="DISP" then
>> 
>> txt=event.StringParam("----")
>> Window1.ListBox1.AddRow txt
>> return true//required if an AppleEvent worked
>> 
>> end if
>> 
>> End Function
>> 
>> In RB 4.5.3 funktioniert alles gut aber nicht mehr in RB 5.5
>> 
>> Wer kann hefen?
>> Danke!
>> 
>> Rudi Maier
>> 


<Prev in Thread] Current Thread [Next in Thread>