Re: Unicode Compiler Option
Zitat:
Einmal was ich hier erarbeitet habe das ist ne menge schau dir doch die Threads an. TextSuite natürlich nicht habe ich auch nie als meine Arbeit ausgegeben. Genau so wenig wie die OpenGL Header. Leute die einen beitrag geleistet haben stehen im About Dialog. Und abschließend ja bin kein Profi so wie du .. muß man also nicht abwerten. Zu allerletzt mache ich das für die öffenlichkeit das alle was davon haben. Meistens sind es LEute wie ich die so etwas auf die Beine stellen. Informatiker geben sich damit nicht ab. Das war dann genug OffTopic. Nehme es dir aber nicht übel .. gruss Emil |
Re: Unicode Compiler Option
Ich glaube da gab es gerade ein Missverständniss. Ich wollte dich damit keineswegs in irgendeiner Art angreifen oder das Thema OffTopic werden lassen. Ich muss aber gestehen, dass ich mich, in dem von dir zitierten Teil, nicht wirklich gut ausgedrückt habe. :roll:
Ich habe lediglich versucht heraus zu finden - woher die Texte kommen? - welchen Weg sie durch die Anwendung/Plugins etc. nehmen? - und auf welche Programmteile du Einfluss nehmen kannst? Also insgesammt wie die Verarbeitung der Texte von statten geht? Denn ich für meinen Teil weiß nicht wie die Visualisierung und die VB Codes dort genau zusammen gehören und was die VB Codes zu den Texten beitragen. Und ich weiß auch nicht welche Rolle der Player dabei spielt. Und die Texte werden ja vermutlich über mehrere Programmteile gereicht. Und die müssen dann alle damit klar kommen. Und das Ganze interessiert mich unter folgendem Hintergrund. Solltest du "nur" ein Visualisierungsplugin für einen bestehenden Player schreiben und wenn dieser dir nur ansi texte reicht, dann sehe ich so keine Möglichkeit da wirklich volle Unicode unterstützung zu ermöglichen. Denn woher solltest du die Informationen dann schon nehmen. Möchtest du aber auch den Player dazu schreiben, dann sieht das evtl. schon wieder ganz anders aus. |
Re: Unicode Compiler Option
Zitat:
verwendet den von mir entwickelten Wrapper welcher verschiedene Plugin Kinder verwaltet Winamp, Sonique, WMP und BassBox. Die Anwendung schickt die Texte und andere dinge an den Wrapper für das jeweilige Visualisations Plugin das er verwendet. Der Wrapper schickt und holt Daten vom Plugin und gibt sie zurück an die Anwendung. Das Plugin arbeitet nur mit dem Wrapper zusammen stört sich nicht an der Anwendung. Alle Callbacks usw.. laufen also über den. Die ganze sache geht also über drei verschiedene Kanäle während es bei Winamp nur einer ist. Ich kann auf alle Programmteile einfluss nehmen.. Habe für fast alle Sprachen die unterstützt werden ein Sample geschrieben So das der User mit der Library vernünftig arbeiten kann. VB, C#, Delphi, VB_Net für mehr hats nicht gereicht. EDIT: Das Plugin ist eigentlich für Winamp konzipiert. Und der sollte mit Unicode eigentlich klar kommen. Da mein Wrapper aber das VisInterface unterstützt habe ich nun das problem mit unicode wenn eine andere Anwendung dieses verwenden will. gruss Emil |
Re: Unicode Compiler Option
Wenn ich das richtig verstanden habe, dann hast du ein Pluginsystem geschrieben welches Plugins von verschiedenen Typen (winamp, sonique etc) ansteuern kann?
Benutzt du für deinen Wrapper eine eigene Schnittstelle oder eine die schon existiert? Also um deinen Wrapper im Winamp benutzen zu können. Dann wäre der Wrapper auch eine Winamp Visualisierung und könntest dann Visualisierungen aus anderen Programmen benutzen. Wenn du eine bestehende Schnittstelle benutzt wie sieht die denn aus? Bzw wie werden da die Daten übergeben? Wobei ich gerade mal mit dem MediaMonkey und der Windows Zeichentabelle mal ein paar kyrillische Buchstaben zusammen geklickt habe und diese als Dateiname und als Titel eingefügt hatte. Und dort kam im Milkdrop der passende Text an (sofern das passende Fonts ausgewählt wurde). Milkdrop ist eigentlich ein Winamp plugin und MediaMonkey ein Delphi Program was Winamp Plugins benutzen kann. Ich weiß aber nicht wie das da intern geregelt wird. Und unter Vorbehalt dass ich dich richtig verstanden habe. |
Re: Unicode Compiler Option
Zitat:
Zitat:
Zitat:
Zitat:
Delphi-Quellcode:
Also die API ist Delphi und mein Hauptsample ist auch in Delphi
{' UNIT BassVis.pas
'--------------------------- BassVis API Module ----------------------------- ' BassVis ADD-ON for Bass Audio Library ' Copyright © 2006-2008 BrewIdeas@Emil Weiss, All Rights Reserved ' ' Author(s) of this Unit: Emil Weiss ' ' Code was written in and formatted for 10pt Courier New '----------------------------------------------------------------------------} unit BassVis; interface uses Windows; type HVIS = DWORD; QWORD = Int64; const dllfile = 'bass_vis.dll'; //filename of the DLL // BASS_SONIQUEVIS_CreateVis flags BASS_VIS_NOINIT = 1; // BASS_SONIQUEVIS_SetConfig flags BASS_SONIQUEVIS_CONFIG_FFTAMP = 1; BASS_SONIQUEVIS_CONFIG_FFT_SKIPCOUNT = 2; // Skip count range is from 0 to 3 (because of limited FFT request size) BASS_SONIQUEVIS_CONFIG_WAVE_SKIPCOUNT = 3; // Skip count range is from 0 to (...) try it out, whenever Bass crashes or does not return enough sample data BASS_SONIQUEVIS_CONFIG_SLOWFADE = 4; // Dim light colors to less than half, then slowly fade them out // BASS_WINAMP_SetConfig flags BASS_WINAMPVIS_CONFIG_FFTAMP = 1; // BASS_WMPVIS_SetConfig flags BASS_WMPVIS_CONFIG_FFTAMP = 1; // BASS_VIS_FindPlugin flags BASS_VIS_FIND_RECURSIVE = 4; //Plugin arten BASSVISKIND_NONE = 0; // keins aktiv BASSVISKIND_WINAMP = 1; // Winamp BASSVISKIND_SONIQUE = 2; // Sonique BASSVISKIND_WMP = 3; // WMP BASSVISKIND_BASSBOX = 4; // BassBox type TBASSVIS_KIND_T = integer; PBASSVIS_PARAM = ^TBASSVIS_PARAM; TBASSVIS_PARAM = record VisHandle : HVIS; // VisHandle VisWinHandle : HWND; // Vis Window Handle W2 VisGenWinHandle : HWND; // General Vis Window Handle W5 Kind : TBASSVIS_KIND_T; // Aktive Plugin Art end; //Definition der Records für die variablen Parameter bei Create bzw. Execute //WMP: Handle des Fensters braucht nicht definiert werden, da es bereits beim init mitgegeben wird PBASSVIS_EXEC = ^TBASSVIS_EXEC; TBASSVIS_EXEC = record AMP_SON_BB_Pluginfile : PChar; // Dateiname des Plugins // für Sonique, Winamp, BassBox AMP_UseOwnW1 : DWORD; // Flag für Winamp (ownHDC) AMP_UseOwnW2 : DWORD; // Flag für Winamp (ownHDCW2) AMP_Moduleindex : DWORD; // Modul-index für Winamp SON_PaintHandle : HDC; // Painthandle für Sonique SON_ConfigFile : PChar; // Dateiname der Konfiguration für Sonique SON_Flags : DWORD; // Flags für Sonique WMP_PluginIndex : integer; // Pluginindex für WMP; WMP_PresetIndex : integer; // Presetindex für WMP; WMP_SrcVisHandle : HWND; // ContainerVisHandle für WMP; BB_ParentHandle : HWND; // Parent Windowhandle BB_Flags : DWORD; // Flags für BassBox selbe wie Sonique BB_ShowFPS : BOOL; // Frames pro Sekunde anzeigen BB_ShowPrgBar : BOOL; // Progressbar anzeigen Width, Height : integer; // Fensterhöhe und Breite Left, Top : integer; // Left und Top; end; PBASSVIS_INFO = ^TBASSVIS_INFO; TBASSVIS_INFO = record SongTitle : PChar; // Titel mit vorstehener TitelNr ('1. ') Songfile : PChar; // SongTitel incl. Pfad pos : DWORD; // 1000 * Aktuelle Position im Stream len : DWORD; // Stream länge PlaylistPos : DWORD; // Playlist Position Playlistlen : DWORD; // Playlist einträge SampleRate : integer; // SämpleRate BitRate : integer; // BitRate Duration : DWORD; // abgelaufen Zeit Channels : integer; // Kanäle default 2 (stereo) end; TPlayState = (psError = 99, psStop = 0, psPlay = 1, psIsPlaying = 2, psPause= 3, psPrevTitle = 4, psNextTitle = 5, psSetPlaylistTitle = 6, psGetPlaylistTitlePos = 7, psSetPlaylistPos = 8, psGetSelectedTitlePos = 9); TBASSVIS_STATECALLBACK = procedure(NewState:TPlayState); stdcall; function BASSVIS_Init(Kind: TBASSVIS_KIND_T; AppHandle: HWND; WinHandle: HWND ): BOOL; stdcall; external dllfile; function BASSVIS_FindPlugins(Kind: TBASSVIS_KIND_T; PluginPath: PChar; Searchflags: DWORD; delimiter : char = ',' ): PChar; stdcall; external dllfile; function BASSVIS_GetPluginHandle(Kind: TBASSVIS_KIND_T; Pluginfile: PChar ): DWORD; stdcall; external dllfile; procedure BASSVIS_ExecutePlugin(Param: PBASSVIS_EXEC; var Base: TBASSVIS_PARAM ); stdcall; external dllfile; function BASSVIS_RenderChannel(Param: PBASSVIS_PARAM; channel: DWORD ): BOOL; stdcall; external dllfile; function BASSVIS_StartRecord(Param: PBASSVIS_PARAM; SampleRate: integer = 44100; Channels: integer = 2 ): BOOL; stdcall; external dllfile; function BASSVIS_Config(Param: PBASSVIS_PARAM; Entry: integer = 0 ): BOOL; stdcall; external dllfile; function BASSVIS_SetInfo(Param: PBASSVIS_PARAM; Infos: PBASSVIS_INFO ): BOOL; stdcall; external dllfile; function BASSVIS_Resize(Param: PBASSVIS_PARAM; Left,Top,Width, Height: DWORD ): BOOL; stdcall; external dllfile; function BASSVIS_SetFullscreen(Param: PBASSVIS_PARAM; SourceHandle, DestHandle: HWND; SourceLeft, SourceTop, SourceWidth, SourceHeight: DWORD; FullScreenFlag: Boolean; FullScreeWidth, FullScreenHeight: DWORD ): BOOL; stdcall; external dllfile; function BASSVIS_GetModulePresetCount(Param: PBASSVIS_PARAM; PluginName: PChar ): integer; stdcall; external dllfile; function BASSVIS_GetModulePresetName(Param: PBASSVIS_PARAM; index: integer; PluginName: PChar = nil ): PChar; stdcall; external dllfile; function BASSVIS_GetModulePresetNameList(param: PBASSVIS_PARAM; Pluginname:Pchar = NIL ):Pchar;stdcall; external dllfile; function BASSVIS_GetOption(Param: PBASSVIS_PARAM; option: integer ): integer; stdcall; external dllfile; function BASSVIS_SetOption(Param: PBASSVIS_PARAM; option: integer; Value: integer ): BOOL; stdcall; external dllfile; function BASSVIS_SetPlayState(Param: PBASSVIS_PARAM; State: TPlayState; Value: integer = -1; Title: PChar = nil ): integer; stdcall; external dllfile; procedure BASSVIS_SetVisPort(Param: PBASSVIS_PARAM; WindowHandle: HWND; ContainerHandle: HWND; x, y, Width, Height: integer ); stdcall;external dllfile; function BASSVIS_GetPluginName(Param: PBASSVIS_PARAM): PChar; stdcall; external dllfile; function BASSVIS_IsFree(Param: PBASSVIS_PARAM): BOOL; stdcall; external dllfile; function BASSVIS_Free(Param: PBASSVIS_PARAM): BOOL; stdcall; external dllfile; function BASSVIS_GetVersion: pchar; stdcall; external dllfile; procedure BASSVIS_Quit(Param: PBASSVIS_PARAM);stdcall; external dllfile; //Spezial für Winamp procedure BASSVIS_WINAMP_SetStateCallback(callback:TBASSVIS_STATECALLBACK);stdcall;external dllfile; procedure BASSVIS_WINAMP_RemoveCallback;stdcall;external dllfile; //Spezial für Sonique function BASSVIS_SONIQUEVIS_Clicked(handle: HVIS; x, y: DWORD): boolean; stdcall;external dllfile; function BASSVIS_SONIQUEVIS_RenderToDC(Kind: TBASSVIS_KIND_T; handle: HVIS; channel: DWORD; canvas: HDC): boolean; stdcall; external dllfile; function BASSVIS_SONIQUEVIS_RenderToDC2(Kind: TBASSVIS_KIND_T; handle: HVIS; Data, fft: Pointer; canvas: DWORD; flags, pos: DWORD): boolean; stdcall; external dllfile; //Spezial für WMP function BASSVIS_SetModulePreset(Param: PBASSVIS_PARAM;index: integer): BOOL; stdcall; external dllfile; implementation end. gruss Emil |
Re: Unicode Compiler Option
Moin!
Ich sehe da überall PChar und somit 1-Byte Zeichensätze und kein Widestring. Somit wird da intern von Delphi konvertiert und es kommt immer was anderes raus, wenn Widestrings übergeben werden. MfG Muetze1 |
Re: Unicode Compiler Option
Zitat:
Damit wäre es aber nicht erledigt denn wie lossy sagt wäre das nächste FindNext und FindFirst in der DLL überlege..... Wenn die Schnittstelle und BassVis nicht korrekt auf Unicode umgestellt werden gehts auch mit anderen Plugins nicht welche UC unterstützen. gruss Emil |
Re: Unicode Compiler Option
Moin!
Zitat:
MfG Muetze1 |
Re: Unicode Compiler Option
Also ich denke auch das du das ändern solltest. Dann wäre es in jedem Fall ein solider Stand. In der TextSuite habe ich es ähnlich wie die Windows API gehalten. Also von den Methoden mit Text gibt es 2 Varianten. Die Ansi Methoden haben ein A am Ende und die für WideString ein W. Und intern arbeite ich überwiegend nur mit WideStrings. Die Ansi Varianten konvertieren den Text vorher in einen WideString. Außnahme sind Dateinamen, da ich nicht weiß wie das Gegenstück in Linux heißt.
Windows API (FindFirst/FindNext): In der Windows API haben alle Methoden mit Strings 2 Varianten. Allerdings dürfte für dich wahrscheinlich nur ein paar wirklich von interesse sein. FindFirstW/FindNextW und CreateFileW werfe ich mal so in den Raum. Und eventuell eine GUI. Denn so extrem viele wirklich abhängigen Sachen wirst du vermutlich gar nicht nutzen. Für solche Dinge wie "Private" Einstellungen in der Registry gibts zwar auch Unicode Varianten aber die werden nicht nötig sein. |
Re: Unicode Compiler Option
Danke an alle für ihre Teilnahme
Werde dann erst mal meine API nach dem Vorschlag von @mkinzler nach PWideChar umstellen. Schaden kann das nicht. gruss Emil |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz