Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - PSingle...

Rool - Di 11.03.03 20:45
Titel: PSingle...

Ich rufe eine Dll funktion auf und übergebe einen Zeiger (PSingle).
Jetzt kann ich danach den Wert partout nicht auslesen (habs immer mit Zeiger^) versucht! Was mache ich falsch?
Mein Code:

Quelltext

1:
2:
3:
4:
5:
6:

var l,r: Psingle;
begin
    l:=nil;
    r:=nil;
    if FSOUND_GetCurrentLevels(Song.Channel,l,r) then
       ProgressBar1.Position:=Round(l^);

wulfskin - Di 11.03.03 23:07

Hallo Rool!

Versuch es mal so: ProgressBar1.Position:=Round(PSingle(l)^);Ich hoffe es klappt!

Gruß wulfskin!

Rool - Mi 12.03.03 21:15
Titel: ...

Ich habs! So gehts nur:

Quelltext

1:
2:
3:
4:
5:
6:
7:

var l,r: Psingle; 
     Ls, Rs: SIngle;
begin 
    l:=@Ls; 
    r:=@Rs; 
    if FSOUND_GetCurrentLevels(Song.Channel,l,r) then 
       ProgressBar1.Position:=Round(Ls);

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!