Formularfeld sichtbar schalten

[Gundo]

Das Script sieht jetzt so aus:

Code: Alles auswählen

SUB Link_oeffnen_1
    DIM oDoc AS OBJECT
    DIM oDrawpage AS OBJECT
    DIM oForm AS OBJECT
    DIM oFeld AS OBJECT
    DIM oShell AS OBJECT
    DIM stFeld AS STRING
    oDoc = thisComponent
    oDrawpage = oDoc.Drawpage
    oForm = oDrawpage.Forms.getByName("MainForm")
    oFeld = oForm.getByName("play 1")
    stFeld = oFeld.Text
    IF stFeld = "" THEN
    EXIT SUB
    END IF
REM	stFeld = convertToUrl(stFeld)
	shell("/usr/bin/mpg321", 1,stFeld)
END SUB

Funktioniert einwandfrei.

Audiodatei wird ohne Verzögerung (unsichbar) abgespielt. Mache ich das REM weg ist kein Ton zu hören. ???

[RobertG]

Hallo Gundo,

das wird dann wohl daran liegen, dass Du das Programm selbst aufrufst und anschließend die Datei dazu lädst. Hauptsache ist doch, dass es funktioniert - und ich mir den Execute-Befehl noch einmal ansehen kann, damit die Parameter dann auch im Base-Handbuch auftauchen.

Gruß

Robert

[Gundo]

Alles klar.

Unter Linux klappt das vorzüglich, unter Windows hab ich keinen Ton Ich versuch mal aus dem Handbuch die Info zu bekommen. Ist nicht einfach zu verstehen ohne jegliche Programmierkentnisse.

Gruß Gundo