Amazon

[LH_Freak]

Hai ho,

ich progge grad einen MP3 Player. Jetzt würde ich gerne die restlichen Titel des betroffenen Albums, und das Cover von Amazon runterladen, habe aber keine Ahnung wie das geht.

[zecke]

Wie sieht es da mit den Rechten für die Grafiken etc. aus :gruebel:?

[dadu]

Kurz gesagt: Vergiss es!

Hab da mal bei Amazon angefragt, die Bilder dürfen nur dazu verwendet werden das Produkt zu verkaufen!

[LH_Freak]

wie macht Mediamonkey und amaroK das dann? :gruebel:
Soviel wie ich weiß laden die die Covers von Amazon runter

[zecke]

Kenne die Programme nicht, aber sie werden irgendjemand dafür was gegeben haben müssen oder eine Erlaubnis bekommen haben oder oder oder

edit: hatte "kommerzielle tools" geschrieben, aber das ist blödsinn

[LH_Freak]

amaroK ist ein Freeware Audioplayer für Linux (und kostenlos :D): http://amarok.kde.org

EDIT:
Ich zitiere Wikipedia:

Zitat:

Ergänzend zum Partnerprogramm bietet Amazon seit Sommer 2002 den Zugriff auf seine Produktdatenbank über einen Webservice an.

[zecke]

Dann frag doch mal bei denen im FOrum wie sie das hinbekommen haben. Oder direkt ne Mail an den Coder (publisher).

nun dann frag amazon einfach mal in bezug auf das was in wikipedia steht ob du sie verwenden darfst, sie werden dir schon antworten. wom.de hat mir damals auch geantwortet und das schnell und höflich.

[CalganX]

Hi,
Stichwort CDDB.

Chris

[dadu]

@zecke: Was hat wom.de denn geantwortet, darf man das bei denen?

...Das es Programme gibt die von Amazon Bilder laden hat mich auch immer gewundert, aber ich hab Amazon gemailt und die meinten das wäre nicht erlaubt.

[zecke]

Nun ich hatte bei wom.de damals (extrem optimistisch..) angefragt ob ich deren Sound-Ausschnitte der Songs benutzen darf, dies ging natürlich nicht, weil die von einer anderen Firma stammen, die mit wom.de einen Vertrag geschlossen haben, welcher die Weitergabe an Dritte untersagt. Ich hatte nicht wirklich damit gerechnet das ich sie benutzen darf - hatte es einfach mal probiert. Ich denke mir, dass es mit den Grafiken ähnlich laufen wird, weil irgendjemand wohl die Copyrights hat.

edit: falsches wort

[LH_Freak]

Müssten die Rechte der Bilder normal nicht den Herstellern der CD gehören? ^^

[zecke]

Sicher, aber wenn Amazon die verwendet müssen die wohl mit eben diesen Herstellern etwas abgemacht haben. auch hier passt :

Zitat:

sie werden irgendjemand dafür was gegeben haben müssen oder eine Erlaubnis bekommen haben oder oder oder

[LH_Freak]

Also:

beim englischen Amazon kann man sich für den Webservice registrieren.
Und die Ergibnisse erhält man dann so:

Zitat:

http://xml.amazon.com/onca/xml3?t=we...KeywordSearch=Searchstring&mode=music&type=heavy&locale=de&page=1&f=xml

Bleibt nur die Frage, ob ich das auch verwenden darf.

[CalganX]

Ähm... Übersehen oder gehst du absichtlich nicht auf meinen Hinweis ein?
Wenn du Namen und Interpret einer CD hast, kannst du in der CDDB suchen.

Machen Tools, wie iTunes, CDex, uvm. ebenfalls.

Chris

[LH_Freak]

Neee, ich hab deinen Beitrag schon gesehen. Nur bei CDDB (falls du http://www.gracenote.com meinst) kriege ich keine CD Covers, und das ist ja eigentlich das was ich will ;)
Wenn ich diese übersehen hab, dann weißt mich bitte darauf hin :D

[Cylence]

Hi,

also falls es jemand interessiert *g* so geht das:

erstmal anmelden bei amazonservices wie weiter oben schon beschrieben und dann so suchen und runterladen:

Delphi-Quellcode:

   

const URLString = 'http://webservices.amazon.de/onca/xml?Service=AWSECommerceService&AWSAccessKeyId='+ YOURAMAZONID +
               + '&AssociateTag=&Operation=ItemSearch&SearchIndex=Music&Keywords=';
              
function TForm1.GetCoverFromAmazon(KeyWords: string): Boolean;
var
  PICString : String;
  TestFile: PChar;
  lStream: TFileStream;
  ConnectionOK : Boolean;
  fa: TFileAttributes;
  Picfoundandloaded : Boolean;
  i : Integer;  
begin
 try
    if not assigned(XidHTTP) then XidHTTP := TIdhttp.Create(Nil);
  Result := False;
  if Keywords = '' then begin
     Result := False;
     Exit;
  end;
  //Suchen
  if Fileexists(PrgPfad + 'temp\actualTitle.txt') then deletefile(PrgPfad + 'temp\actualTitle.txt');
     ConnectionOK := True;
     lStream:=TFileStream.Create(PrgPfad + 'temp\actualTitle.txt', fmCreate or fmShareDenyNone);
     try
       //Suchergebnis Seite von amazon runterladen
       XidHTTP.Get(URLString + Keywords + '&ResponseGroup=Medium', lStream);
     except
       ConnectionOK := False;
     end;
    lStream.Free;
  //Suchergebnis durchchecken
  if ConnectionOK then begin
   if Fileexists(PrgPfad + 'temp\actualTitle.txt') then begin
     FXMLFile := TStringList.Create;
      FXMLFile.LoadFromFile(PrgPfad + 'temp\actualTitle.txt');
      PICString := SearchinXML;
      PICString := trim(PICString);
     FXMLFile.Free;
   end;
  end;
  if PICString = '' then begin
     Result := False;
     Exit;
  end;    
  //File runterladen
  if Fileexists(AmazonCoverPath) then deletefile(AmazonCoverPath);
     lStream:=TFileStream.Create(AmazonCoverPath, fmCreate or fmShareDenyNone);
     try
       XidHTTP.Get(PICString, lStream);
       Picfoundandloaded := True;
     except
       Picfoundandloaded := False;
     end;
    lStream.Free;
  //File anzeigen
  if Picfoundandloaded then begin
     if CopyAmazonPicToFolder then begin
        DateiInfoform.CopytoTitle(Self);
        if MRPlaylist.ActivePlaylist.Cell[11,ACTINDEX].AsInteger = -1 then begin
           CoverSearchPath := ExtractFilePath(ActFile);
           TRenewCover.create(False);
        end;
     end;
     fa := GetFileAttributes(AmazonCoverPath);
     if readonly in fa then begin
        TestFile := PChar(AmazonCoverPath);
        if SetFileAttributes(Testfile, FILE_ATTRIBUTE_NORMAL) then Resizepicture((AmazonCoverPath), DeskDisplay.AlbumCover.Width, DeskDisplay.AlbumCover.Height);
     end else Resizepicture((AmazonCoverPath), DeskDisplay.AlbumCover.Width, DeskDisplay.AlbumCover.Height);
     OldCover := (AmazonCoverPath);
     Deskdisplay.LoadnextCover(OldCover,False);
     Result := True;
  end else Result := False;
 except
   Result := False;
 end;
end;


function TForm1.SearchInXML:String;
var
 i, x,
 Imagepos,
 MedPos : Integer;
 St,ZZZ : WideString;
 NewFile : TStringList;
begin
  for i := 0 to FXMLFile.Count -1 do
  begin
    St := FXMLFile.Strings[i];
    if Pos('<MEDIUMIMAGE>',Uppercase(St))<>0 then begin
       MedPos := Pos('<MEDIUMIMAGE>',Uppercase(St));
       for x := MedPos to MedPos + 30 do begin
           ZZZ := copy(St,x,x+2);
           Imagepos := Pos('.JPG',Uppercase(ZZZ));
           Result := Copy(ZZZ,19,Imagepos-15);
           Exit;
       end;
    end;
  end;
end;

[RWarnecke]

Vielleicht hilft Dir ja dieser Link weiter. Suchbegriff CDDB