AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte TAudioVolume Komponente incl. System Mixer
Thema durchsuchen
Ansicht
Themen-Optionen

TAudioVolume Komponente incl. System Mixer

Ein Thema von EWeiss · begonnen am 6. Mai 2018 · letzter Beitrag vom 24. Jul 2019
Antwort Antwort
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: TAudioVolume Komponente incl. System Mixer

  Alt 6. Mai 2018, 21:39
Kanalsteuerung Rechts <- Mitte -> Links
Das funktioniert nicht in der Nebenansicht, also per App Setting. Kann bei mir an Windows 10 liegen wie so oft.

ot
Wie kompatibel ist Delphi 2009 zu 2010, gibt es da arge Unterschiede, weißt Du da was drüber? Da bin ich stark am überlegen mir das zusätzlich zu kaufen um bei kleinst-privat-Projekten kleinere Dateien zu erzeugen als wie es Delphi Tokyo macht.
/ot

edit
das oben hat sich erledigt, habs gerade gelesen.
Gruß vom KodeZwerg

Geändert von KodeZwerg ( 6. Mai 2018 um 21:42 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#2

AW: TAudioVolume Komponente incl. System Mixer

  Alt 6. Mai 2018, 21:43
Zitat:
Wie kompatibel ist Delphi 2009 zu 2010
Sorry keine Ahnung habe es ausgelassen.

gruss
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#3

AW: TAudioVolume Komponente incl. System Mixer

  Alt 6. Mai 2018, 22:29
Ich habe jetzt die funktion geändert.
Höheren MAXSIZE addiert und den String nochmals gesplittet um die richtige länge der ID zu extrahieren.

Delphi-Quellcode:
procedure TAudioVolume.LoadIconPathfromResource(IconPath: PWideChar);
var
  Module: HModule;
  Filename: WideString;
  lpDest: array[0..32768] of WideChar;
  SplitID: TSplitStrArray;
  rSplitID: string;
  ID: DWORD;
begin

  // Remove First @ Letter
  Filename := MidStr(IconPath, 2, Length(IconPath));
  // Extract ID
  SplitID := Split(Filename, ',');
  rSplitID := SplitID[High(SplitID)];
  rSplitID := MidStr(rSplitID, 2, Length(rSplitID));

  ID := StrToInt(rSplitID);
  // Remove ID from Path
  Filename := LeftStr(Filename, Length(Filename) - 5);

  FillChar(lpDest, SizeOf(lpDest), 0);
  if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then
  begin
    // Load the Lib
    Module := LoadLibraryExW(lpDest, 0, LOAD_LIBRARY_AS_DATAFILE);
    // check for error
    if Module <> INVALID_HANDLE_VALUE then
    begin
      Icon := TIcon.Create;
      Icon.Handle := LoadIcon(Module, MakeIntResource(ID));
      if Module <> 0 then
        FreeLibrary(Module);
    end;
  end;
end;
Update kommt später muss noch einiges andere tun.. zum Beispiel den Namen kürzen wenn zu lang für die GroupBox.
Tool Tipps addieren um den Kompletten Namen anzuzeigen wenn gekürzt
Lautsprecher Icon addieren usw..

gruss

Geändert von EWeiss ( 6. Mai 2018 um 22:48 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: TAudioVolume Komponente incl. System Mixer

  Alt 6. Mai 2018, 22:43
if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then sollte
if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768-1) <> 0 then sein.
Sorry & Gruß
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: TAudioVolume Komponente incl. System Mixer

  Alt 6. Mai 2018, 22:47
if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then sollte
if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768-1) <> 0 then sein.
Sorry & Gruß
oops.. logisch ist schon spät. Danke

gruss
  Mit Zitat antworten Zitat
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.684 Beiträge
 
Delphi 5 Professional
 
#6

AW: TAudioVolume Komponente incl. System Mixer

  Alt 6. Mai 2018, 23:09
Beim Entfernen der ID aus dem String Filename := LeftStr(Filename, Length(Filename) - 5); benutzt du immer noch eine feste Anzahl von Zeichen, wo eigentlich bis zur Position des Kommas kopiert werden sollte. Bzw. wenn du schon vorher SplitID[High(SplitID)] für den Icon-Index benutzt, könntest du doch an der Stelle SplitID[Low(SplitID)] verwenden, das bereits alles vor dem Komma (=der gewünschte Pfad) enthält, oder?

Grüße
Dalai
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#7

AW: TAudioVolume Komponente incl. System Mixer

  Alt 6. Mai 2018, 23:26
Beim Entfernen der ID aus dem String Filename := LeftStr(Filename, Length(Filename) - 5); benutzt du immer noch eine feste Anzahl von Zeichen, wo eigentlich bis zur Position des Kommas kopiert werden sollte. Bzw. wenn du schon vorher SplitID[High(SplitID)] für den Icon-Index benutzt, könntest du doch an der Stelle SplitID[Low(SplitID)] verwenden, das bereits alles vor dem Komma (=der gewünschte Pfad) enthält, oder?

Grüße
Dalai
Richtig.. Danke werde es abändern.
Macht ja sonst keinen sinn.

gruss
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:15 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