TurboPL Referenz

GetLinkedFile Prozedur Prozedur

Syntax

GetLinkedFile(Blob: Feld): String

Kategorie

Datenbank-Befehl

Erklärung

Die Funktion liefert den Pfad zum übergebenen Blob-Feld. Voraussetzung dafür ist natürlich, dass es sich um eine verknüpfte Bild- bzw. Klangdatei handelt. Für eingebettete Blobs wird eine leere Zeichenkette zurückgegeben. In diesem Fall verwenden Sie die Funktion PlaySound zum Abspielen des Klanges.

Beispiel

Die Prozedur spielt einen vorhandenen Sound. Ist das Blob leer und der Editier- bzw. Neueingabemodus aktiviert, wird ein Dateidialog zum Verknüpfen einer WAVE-Datei angezeigt.

PROCEDURE Hörbeispiel;
               IF Sample
                               VarDef BlobPfad: String;
                               BlobPfad := GetLinkedFile(Sample);
                               IF Length(BlobPfad) > 0
                                               PlayMedia(GetLinkedFile(Sample));
                               ELSE
                                               PlaySound(Sample);
                               END;
               ELSE
                               IF GetMode <> 0
                                               T-Eingabe := '*.WAV';
                                               IF ChooseFile('Sound laden')
                                                               IF Upper(RightStr(T-Eingabe, 4)) = '.WAV'
                                                                               LinkBlob(Sample, T-Eingabe, 3);
                                                               ELSE
                                                                               Message( 'Ungültges Dateiformat', 'Fehlerhafte Eingabe');
                                                               END;
                                               END;
                               END;
               END;
ENDPROC;

Siehe auch

BlobSize, MediumPause, MediumSpielen, MediumStop, PlaySound