Fra Winamp til website

hvilke ting er det du vil have sendt til et websit???

/ZIRON

og hvilke ting er det du vil kunne med winamp???

/ZIRON

Man skal kunne se på sitet hvilken sang der afspilles i winamp lige nu.

u ha det er lidt svær navnet på sangen, det står der ikke noget om på den site du henviser til eller hva, har ikke kigget???

/ZIRON

jojo..der er id koder til stort set alt hvad winamp kan. Mit problem er at bruge disse idkoder!

hvad på siden står der noget???

/ZIRON

Den forstod jeg ikke helt??

Læs her:
http://members.tripod.com/s_pucilowski/html/art-001.html

hvor på siden står der noget med navn???

alt det andet kan jeg godt hjælpe dig med, men ikke navn...

/ZIRON

ziron: hmm, tror jeg har læst forkert. Jeg kan heller ikke finde det nu! :o) Sorry!...Men det må da kunne lade sig gøre. Det bliver jo f.eks. brugt i nogle plugins.

darkside: det er kun et eksempel på hvordan man \"fjernbetjener\" winamp, ikke hvordan man trækker oplysninger ud derfra. Men ok side!

ja det er rigtig nok, jeg ved også godt at det bliver brugt nogle steder, men er også lige ved at prøve på at lave en løsning... men alt andet end lige navnet kan jeg gører for dig nu hvis det skal være???

/ZIRON

Hm, hvorfor bruger du ikke bare shoutcast til winamp?

Well..jeg har ikke brug for andet end navnet. Ellers tak :o)

Måske skulle jeg sætte pointende op til 60 da det er sværer end jeg umiddelbart troede?

darkside: Shoutcast? Hvad er det?

lad du bare vær med det er der lige om lidt :-)

håber jeg...

/ZIRON

sådan der er håb forude, er ved at have en ide...

/ZIRON

Det lyder godt :o)

men ved ikke hvor meget jeg gider mere, ked af det... men det kommer imorgen...

/ZIRON

helt i orden!

remis >> prøv med dette:

procedure TForm1.Button2Click(Sender: TObject);
var
textlen : integer;//  \' receives length of text of the window
wintext : pchar;//  \' receives the text of the window
slength : integer;//  \' receives the length of the returned string

GetWinAmpHandle : hwnd;

begin

GetWinAmpHandle := FindWindow(\'Winamp v1.x\', nil);

textlen := GetWindowTextLength(GetWinAmpHandle) + 1;

slength := GetWindowText(GetWinAmpHandle, (wintext), textlen - 9);

edit1.text := wintext;

end;

/ZIRON

hmm..der kommer en fejl når jeg trykker på knappen..noget med EAccessViolation.

I hjælpevinduet står følgende to linier:
[Hint] Unit1.pas(41): Value assigned to \'slength\' never used
[Warning] Unit1.pas(41): Variable \'wintext\' might not have been initialized

komemr texten ikke frem i edit1 ??? men der kommer ogsså en fejl. men texten skulle komme alligevel???

/ZIRON

nej, det gør den ikke!

hmm det gør der på min, du har winamp åben og det spiller ik???

/ZIRON

jojo selvfølgelig :)

har du sat dette ind???

var
textlen : integer;//  \' receives length of text of the window
wintext : pchar;//  \' receives the text of the window
slength : integer;//  \' receives the length of the returned string

GetWinAmpHandle : hwnd;

/ZIRON

ja

Er det skrev i htm , asp , php eller hvad??

hmm kan iukke overskue det nu, du må vente til imrgen...

/ZIRON

HVAD ER DET SKREV I ZIRON

djeclemen: Hvilken kategori befinder du dig under nu?..Delphi :)

ziron: Stadig helt i orden :o)

Ok sorry så jeg ikke??


Kan jeg køre Delphi på en IIS

IIS..det er noget webserver-ting ikke?
Delphi er et programmeringssprog og har som sådan ikke noget med det at gøre. Kører du windows kan du køre Delphi!

Hvis du kan lave programmet i Delphi er der håb forude. Du kan lave din deplhi programmer som ActiveX componenter (brug wizard!). Disse kan køres over en web-server: eksempelvis IIS.

Man kan også lave sin app. som et CGI-Script, der også giver dig mulighed for at afvikle det gennem en web-server (altså på en hjemmeside).

Hvordan man laver ActiveX og CGI kan findes i dokumentationen til delphi.

Hvordan man bruger ActiveX og CGI på serven kan findes i dokumentationen til IIS.

/lvpvs

remis >> er du stadig med her???

/ZIRON

ZIRON: Ja? Har du fundet ud af noget?

næææ men prøver lige at lege igen, jeg havde glemt det...

/ZIRON

ok, det lyder godt.

okay mit delphi stener tror jeg der kommer bare:

|\'*¨`}|~*

frem istedet for text på sange´.. prøver lige på et andet tidspunkt...

/ZIRON

hehe ok

Du glemmer at begrænse og afslutte jeres pointer. Det her skulle gøre jobbet:

const TmpString: array[0..2048] of Char = \'\'#0;
var hwndWinamp : THandle;
    textlen : integer;
    wintext : PChar;
    slength : integer;
begin
    wintext := @TempString;
    hwndWinamp := FindWindow(\'Winamp v1.x\', nil);
    textlen := GetWindowTextLength(hwndWinamp)+1;
    slength:=GetWindowText(hwndWinamp, wintext, textlen);
    memo1.lines.add(wintext);
end;

TempString skal selvfølgelig være TmpString;
eller omvendt :-)

Wired: mange tak, det virker jo bare :)

Ziron, Wired: I får 50/50. Iorden?