AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

WINAMP TITEL AUSLESEN

Ein Thema von thunderbird · begonnen am 12. Aug 2008 · letzter Beitrag vom 17. Aug 2008
Antwort Antwort
Seite 1 von 2  1 2   
thunderbird

Registriert seit: 12. Aug 2008
4 Beiträge
 
Delphi 2006 Professional
 
#1

WINAMP TITEL AUSLESEN

  Alt 12. Aug 2008, 22:05
Hallo

Ich habe ein kleines Problemchen mit einer function in Delphi 2006
und zwar will ich den Titel von Winamp per Sendmessage ermitteln

Diese function geht auch in Delphi7 wunderbar nur in Delphi 2006 bekomme ich ein

Pascal Error E2010 Incompatible types 'Integer' and 'Char'

Delphi-Quellcode:

function Winmp:string;unsafe;
const
  cMaxBuffer = 255;
var
  h : HWND;
  buffer: array[0..cMaxBuffer] of PChar;
begin
 if h <> 0 then
  begin
     h := FindWindow('Winamp v1.x',nil);
     SendMessage(h, WM_SETFOCUS, 0, 0);
     Sendmessage(h,WM_GETTEXT,cMaxBuffer,integer(@buffer));
  end;
end;
habe schon im Inet rumgegoogelt aber leider ohne erfolg
deshalb dacht ich ich frag mal hier nach ob jemand ne lösung hat
warum das in Delphi 2006 nicht geht und in Delphi 7 schon.

Mfg Thunderbird
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

Re: WINAMP TITEL AUSLESEN

  Alt 12. Aug 2008, 22:06
Hi,

Es muss so heißen:

buffer: array[0..cMaxBuffer] of Char; und so

Sendmessage(h,WM_GETTEXT,cMaxBuffer,integer(@buffer[0])); //Pointer auf das erste Element eines Char-Arrays = PChar Und
SendMessage(h, WM_SETFOCUS, 0, 0); brauchst du nicht.

Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
thunderbird

Registriert seit: 12. Aug 2008
4 Beiträge
 
Delphi 2006 Professional
 
#3

Re: WINAMP TITEL AUSLESEN

  Alt 12. Aug 2008, 22:12
danke für die schnelle antwort

werde es ausprobieren
  Mit Zitat antworten Zitat
thunderbird

Registriert seit: 12. Aug 2008
4 Beiträge
 
Delphi 2006 Professional
 
#4

Re: WINAMP TITEL AUSLESEN

  Alt 16. Aug 2008, 15:11
So Hallo


Delphi-Quellcode:
function Winmp:string;unsafe;
const
  cMaxBuffer = 255;
var
  h : HWND;
  such:string;
  buffer: array[0..cMaxBuffer] of Char;
begin
 if h <> 0 then
  begin
     h := FindWindow('Winamp v1.x',nil);
     sendmessage(h,WM_GETTEXT,cMaxBuffer,integer(@buffer[0]));
  end;
end;
Ich habe das jetzt mal ausprobiert nur ohne Erfolg.

Jetzt bekomme ich ein E2089 'Invalid Typecast' Error <--- Ungültige Typumwandlung

Verstehe das net das wäre aber so richtig gewessen .

Vieleicht hat ja noch jemand eine Idee ???


Mfg Thunderbird
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

Re: WINAMP TITEL AUSLESEN

  Alt 16. Aug 2008, 16:27
Hi,

Ich weiß nicht was du gemacht hast aber so funktionierts:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
  cMaxBuffer = 255;
var
  h : HWND;
  such:string;
  buffer: array[0..cMaxBuffer] of Char;
begin
if h <> 0 then
  begin
     h := FindWindow('Winamp v1.x',nil);
     sendmessage(h,WM_GETTEXT,cMaxBuffer,integer(@buffer[0]));
     Caption := buffer;
  end;
end;
Ach ja: Deine Funktion ist eh total seltsam o.O. Was soll das "unsafe" und warum setzt du nirgendwo Result?

Edit: Was mir grad auffällt. Die Funktion ist totaler Schwachsinn o.O

Delphi-Quellcode:
function Winmp:string;unsafe; // unsafe???
const
  cMaxBuffer = 255;
var
  h : HWND;
  such:string; // ?
  buffer: array[0..cMaxBuffer] of Char;
begin
if h <> 0 then // Absolut sinnfreie Abfrage an dieser Stelle...
  begin
     h := FindWindow('Winamp v1.x',nil);
     // ... die gehört eher hierhin!
     sendmessage(h,WM_GETTEXT,cMaxBuffer,integer(@buffer[0]));
     // Result := Buffer; ???
  end;
end;
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
thunderbird

Registriert seit: 12. Aug 2008
4 Beiträge
 
Delphi 2006 Professional
 
#6

Re: WINAMP TITEL AUSLESEN

  Alt 16. Aug 2008, 17:53
Ich wills nochmal bischen genauer beschreiben

Wenn du diese Function in Delphi 2006 und ---->>>><New->Vcl-Form-Appliaction for Delphi Net <<<<<<----

wenn du sie dort einträgst oda ausprobierst wirste ganz bestimmt eine error Meldung bekommen

Ich weiss das das Result := fehlt aber musste schnell gehn beim Kopieren

Das mit dem Unsafe muss ich davor setzten weil sonst Delphi beim Compilieren Rum meckert
Ich schreibe sonst immer Delphi 7 Tools nur ist Delphi 7 nicht mit Vista Kompatibel und musste das jetzt
in Delphi Net umsetzten.

Mfg Thundi
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#7

Re: WINAMP TITEL AUSLESEN

  Alt 16. Aug 2008, 18:06
Zitat:
aber musste schnell gehn beim Kopieren
Wieso musste das ganz schnell gehen?
Ein bisschen mehr Sorgfalt im Code und Text ist doch wohl angebracht, oder?
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.163 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: WINAMP TITEL AUSLESEN

  Alt 17. Aug 2008, 14:39
Hallo zusammen,

ich mach mir noch eine Frage, oder so ähnlich :
Zitat:
h := FindWindow('Winamp v1.x',nil);
Ich verstehe das mit 'Winamp v1.x' nicht richtig, insbesondere auch deswegen, weil ich nicht Winamp nutze sondern AIMP.
Mit z.B. WinSpy finde ich bei AIMP kein Fenster in Form von 'Winamp v1.x'
Trotzdem funktioniert es...

//Edit: Control geändert in Fenster (siehe Thread #11)
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: WINAMP TITEL AUSLESEN

  Alt 17. Aug 2008, 15:37
Warum steht im Beitragskopf Win32, wenn du in Wirklichkeit .NET verwendest?
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: WINAMP TITEL AUSLESEN

  Alt 17. Aug 2008, 15:40
Zitat von thunderbird:
...nur ist Delphi 7 nicht mit Vista Kompatibel
klick
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 20:15 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