winamp & ext app

prøv den her :

http://www.1delphistreet.com/xq/ASP/txtCodeId.433/lngWId.7/qx/vb/scripts/ShowCode.htm

Jens B

Weeeeh tak man det var lige det jeg skulle bruge eller næsten jeg skulle finde Artist/Title og det finder den ved caption fra winamp!

Men Jens!
Kan du ik lige hjælpe med noget mere?
I koden neden for sletter den kun \"- winamp\" men jeg vil os godt ha den til at slette de tal som står foran! Altså det er det tal/id som sangen har efter hvilket nummer den er i winamp\'s playlist!

Jeg ved ik hvordan jeg skal gøre det da det nummer kan være \"1. \"/\"12. \"/\"123. \"/\"1234. \" osv.. gør du ? jeg vil os gerne ha sletter . og mellemrum (\"tal. \")!

function WhatsPlaying:String;
var
TitleLen,TempInt: integer;
TempStr: String;
begin
  GethWnd_Winamp;
  TempStr := \'Winamp isn\'\'t running\';

  if hwnd_winamp <> 0 then begin //Get wHnd text
    TitleLen := GetWindowTextLength(hwnd_winamp)+2;
    SetLength(TempStr,TitleLen);
    GetWindowText(hwnd_winamp,Pchar(TempStr),TitleLen);
    SetLength(TempStr,Length(TempStr));
    //Remove \'- Winamp\' part
    TempInt := Pos(\'- Winamp\',TempStr);
    TempStr := Copy(TempStr,0,TempInt -2);
  end;
  result := TempStr;
end;

function WhatsPlaying:String;
var
TitleLen,TempInt: integer;
TempStr: String;
begin
  GethWnd_Winamp;
  TempStr := \'Winamp isn\'\'t running\';

  if hwnd_winamp <> 0 then begin //Get wHnd text
    TitleLen := GetWindowTextLength(hwnd_winamp)+2;
    SetLength(TempStr,TitleLen);
    GetWindowText(hwnd_winamp,Pchar(TempStr),TitleLen);
    SetLength(TempStr,Length(TempStr));
    //Remove \'- Winamp\' part
    TempInt := Pos(\'- Winamp\',TempStr);


-->    TempStr := Copy(TempStr,0,TempInt -2);

Ændres til:
 
  TempStr := Copy(TempStr, Pos(\'.\', TempStr)+2, TempInt-2);


  end;
  result := TempStr;
end


Peter

Jammen hej Peter

Er der stadig liv (vrinsk) i dig ?

Jens B

Kort fortalt, uden at kende en dyt til WinAmp:

Din forklaring:

>\"1. \"/\"12. \"/\"123. \"/\"1234. \" osv.. gør du ?
>jeg vil os gerne ha sletter . og mellemrum (\"tal. \")!

Du vil med andre ord have slettet alt hvad der kommer fra starten af linien (pos 0) til og med første punktum og det efter følgende mellemrum:

>TempStr := Copy(TempStr, Pos(\'.\', TempStr)+2, TempInt-2);

Pos(\'.\', TempStr) er positionen på det første punktum i strengen. 

Pos(\'.\', TempStr)+2 er positionen på det bogstav der kommer to pladser efter punktummet.



hmm... ved nærmere efter tanke: Nu får du for meget med!

>TempStr := Copy(TempStr, Pos(\'.\', TempStr)+2, TempInt-2);
skal ændres til noget i retning af:

TempStr := Copy(TempStr, Pos(\'.\', TempStr)+2, TempInt-2-(Pos(\'.\', TempStr)+2));

Mere overskueligt:

Var
  FirstCharAfterPunkt : Integer;
Begin
  .
  .
  FirstCharAfterPunkt := Pos(\'.\', TempStr)+2;
  TempInt := Pos(\'- Winamp\', tempStr) - 2;  // Er faktisk LastWantedChar-pos.

  TempStr := Copy(TempStr, FirstCharAfterPunkt, TempInt - FirstCharAfterPunkt +1);
  .
  .


Peter

 

Lidt vrinsk... jeg sad lige og følte behov for lidt afkobling.  Jeg har siddet på arbejde fra kl 8.00 til 23.30 den sidste uges tid.  Det er lidt trals!

Peter

Tak til jeg begge for det er lige det jeg skulle bruge!

delphi vil du os ha 30 point så svar lige!

Jeg klare mig nok - æd dem selv.

Peter