![]() |
AW: Delphi type nach c#
Zitat:
Delphi-Quellcode:
Wird wie folgt ausgeführt
function TBASSBoxVis.GetWaveData: TWaveData;
begin // Get Wave data from stream if Basswasapi_Loaded and USE_WASAPI then BASS_WASAPI_GetData(@Result, 1024) else Bass_ChannelGetdata(BB_VisRenderThread.Stream, @Result, 1024); end; function TBASSBoxVis.GetWaveData32: TWaveData32; begin // Get Wave data from 32 Bit stream if Basswasapi_Loaded and USE_WASAPI then BASS_WASAPI_GetData(@Result, 4096) else Bass_ChannelGetdata(BB_VisRenderThread.Stream, @Result, 4096); end;
Delphi-Quellcode:
Dort nehme ich einen pointer was ohne Probleme funktioniert.
if (ChanInfo.flags and BASS_SAMPLE_FLOAT) = BASS_SAMPLE_FLOAT then
begin FWaveData32 := GetWaveData32; for i := 0 to 1023 do if FWaveData32[i] > 0 then FWaveData[i] := round(Min(FWaveData32[i] * 32768, 32767)) else FWaveData[i] := round(Max(FWaveData32[i] * 32768, -32768)); end else FWaveData := GetWaveData; RenderOpenGL(@FWaveData, @FFFTData, BB_VisRenderThread.StreamPos);
Delphi-Quellcode:
Für wasapi gibt es eine Überladung..
function TBASSBoxVis.RenderOpenGL(WaveData, FFT: Pointer;
MediaPos: Dword): BOOL;
Code:
Auch für die andere Funktion könnte ich einen Pointer verwenden
public extern static int BASS_WASAPI_GetData(IntPtr buffer, int length);
Code:
Dann wäre ich von der API her der von Delphi schon mal gleich.
public extern static int BASS_ChannelGetData(int handle, IntPtr buffer, int length);
Jetzt wäre dann nur noch zu klären was übergebe ich als Pointer. In Delphi wäre das der Pointer auf TWaveData In c# mag er das aber nicht wenn ich den Pointer auf die Class WaveData zurück gebe. Zitat:
Irgendwie hab ich in C# da kleine Probleme.. kann nur besser werden gruss |
AW: Delphi type nach c#
Zeiger sind in C# verpönt, aber wenn es doch mal sein muss:
Code:
Ist aber ungetestet und ich habe das so noch nicht gemacht.
public WaveData GetWaveData()
{ WaveData result = new WaveData(); BassStream vizStream = _controller.PlaybackProcessor.VizStream; if (vizStream == null) return result; fixed(Int16* p = result.Data) { IntPtr ptr = (IntPtr)p; if (_externalState != PlayerState.Active) return result; if (BassWasapi.BASS_WASAPI_IsStarted()) { BassWasapi.BASS_WASAPI_GetData(ptr, 2048); } else { Bass.BASS_ChannelGetData(vizStream.Handle, ptr, 2048); } return result; } } |
AW: Delphi type nach c#
Danke..
Habe es jetzt so gemacht
Code:
unsafe
public WaveData32 GetWaveData32() { WaveData32 result = new WaveData32(); BassStream vizStream = _controller.PlaybackProcessor.VizStream; if (vizStream == null) return result; fixed (float* p = WaveData32.Data32) { IntPtr ptr = (IntPtr)p; if (_externalState == PlayerState.Active) { if (BassWasapi.BASS_WASAPI_IsStarted()) { BassWasapi.BASS_WASAPI_GetData(ptr, 2048); } else { Bass.BASS_ChannelGetData(vizStream.Handle, ptr, 2048); } } return result; } } unsafe public WaveData GetWaveData() { WaveData result = new WaveData(); BassStream vizStream = _controller.PlaybackProcessor.VizStream; if (vizStream == null) return result; fixed (Int16* p = WaveData.Data16) { IntPtr ptr = (IntPtr)p; if (_externalState != PlayerState.Active) return result; if (BassWasapi.BASS_WASAPI_IsStarted()) { BassWasapi.BASS_WASAPI_GetData(ptr, 2048); } else { Bass.BASS_ChannelGetData(vizStream.Handle, ptr, 2048); } return result; } } wobei sich das
Code:
nicht kompilieren lässt.
fixed(Int16* p = result.Data)
Nochmal extra :thumb: für deine Hilfe gruss |
AW: Delphi type nach c#
Wenn er wegen 'unsafe Code' meckert, dann musst du in den Compilereinstellungen was drehen (Eigenschaften des Projekts "Unsicheren Code zulassen"). Dann sollte es gehen. Auch wenn es nervt: Es ist gut, das man solche unsicheren Stellen (Buffer Overrun) im Code explizit markieren muss und sogar dem ganzen Projekt das Attribut "Ich bin unsicher" verpasst.
|
AW: Delphi type nach c#
Zitat:
Zitat:
Ein Code muss nicht schlecht sein weil ich ihm einen Pointer verpasse Danke. |
AW: Delphi type nach c#
Nein.
Unsicher != Schlecht. Unsicher = Unsicher. Wenn ich aber in meiner (z.B.Web)anwendung eine unsafe DLL entdecke, dann weiß ich, das ich hier ein potentielles Sicherheitsrisiko habe, was ich genauer unter die Lupe nehmen muss... |
AW: Delphi type nach c#
Es birgt inhärent Gefahrenquellen, die das Konzept hinter C# eigentlich komplett zu eliminieren sucht. Das ist sogar einer der Design-Basen. Insofern ist es, in der .NET-Welt, durchaus als "schlecht" anzusehen. Ich stolpere aber selbst oft genug über Dinge, wo es anders nicht oder nur mit gewaltigen Performanceeinbußen "richtig" ginge - gerade bei der Nutzung von nicht-.NET Libs - um zu wissen, dass die Praxis einfach noch immer anders spielt als die Theorie idealisiert. Von daher: Gräme dich nicht. Ein Purist würde sicher seine Nase rümpfen, Pragmatiker sehen das anders. Und wer mag schon Puristen :)
Sauber programmiert ist das alles ja auch okay. Die "unsafe" Marker sollen einen im Prinzip nur daran erinnern, dass hier jetzt bitte wirklich echte große Sorgfalt herrschen soll. (Ich würde nur nicht anfangen auf diese Weise Dinge zu erledigen, für die C# bzw. .NET ins Framework passende Wege bereit stellt. Man könnte in C# ja durchaus dynamische Arrays genau so wie unter C machen, aber da würde ich dann auch den großen Hammer raus holen und ein bischen auf dem Entwickler damit rumklopfen =)) |
AW: Delphi type nach c#
Na dann ;)
In dem Fall bin ich beruhigt. gruss |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:54 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz