tp 7.0: wavedelay.tpu

unter tp7.0 gabs einen bug das pcs ueber 200 mhz einenr untime error machen, grund: die delay prozedur

es gab eine tppatch
und eine unit newdelay.tpu

diese habe ich um folkgendes erweietrt;:
=== specification fuer wavdelay.tpu ========
PROCEDURE Delay18(ms:Word);
{einheit: 1/(65,536 * 18) millisec}
PROCEDURE Delay(ms:Word);
{einheit: millisecunden}
PROCEDURE WaveDelay(ms:Word);
{einheit: 1/65,536 millisec)
procedure delay32(ms:longint);
{einheit: 1/(65,536 * 18) millisec, longint wird wie dword behandelt!!! (!!) d.h. negative werte sind maxlongint-wert }
================================

die unit tut nur unetr tp7 dos (quellcode liefer ich nciht mit,da die unit eh nur GENAU MIT TP7.0 DOS TUT !!!!!!!!

sie beitete neben der edelay prozedur noch wavedelay

( einheit 1/65,536 millisec)

z.b. fuer covox-ansteurung

haben wir eine .wav datei mit der sdamplerate S und wollen wir ohne interrupt oder sonstwas die ausgabe timen.

dann ebschicken wir den covox in eienr schliefe mit den dwave daten nach jeden durchlauf machen wir

wavedelay(65536-S);

delay18 einheit: 1/(65.536*18.2) millisec.

fuer noch kleinre intzervalle

z.bn. zeitkri6tische hardwarepollings

delay32

wie delay18, erlaubt aber statt eiens 16 bit word einen 32 bit longint als wartewert anzugeben,so deckt man sowohl extrem kleine delays alsauch extrem grosse ab.

das hat mir in pascal schons eit jahren gefehlt...

sollte alle anwendungsgebiete abdecken!

copyrigth infos zur tpu abrufen:

unit in beliebige application mit uses einbindet

diese application mit

name /(C) aufrufen!
dfie unit ist finale version!!!
========================

okey, das eigentliche file kann ich offenbar erst im nexten post attachen,da man sich ncith einloggen kann >:-<
aber nach einem posting drin ist...
Marcus