![]() |
Delphi-Version: 5
TWebbrowser alle bilder speichern
hey
kann mir bitte jemand helfen?! folgendes problem: ich will z.B von diesem-Artikel ![]() "Alle" Bilder speichern aber ich brauch nicht die so klein sind sondern die "großen" also wenn man mit der maus auf das bild klickt dann kommt das "große" habs mit dem folgendem code versucht( Quelle: swissdelphicenter.com)
Code:
die großen bilder werden nicht gespeichert:(
uses
UrlMon; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button2Click(Sender: TObject); var k, p: Integer; Source, dest, ext: string; begin for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do begin Source := WebBrowser1.OleObject.Document.Images.Item(k).Src; p := LastDelimiter('.', Source); ext := UpperCase(Copy(Source, p + 1, Length(Source))); if (ext = 'GIF') or (ext = 'JPG') then begin p := LastDelimiter('/', Source); dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1, Length(Source)); DownloadFile(Source, dest); end; end; end; |
AW: TWebbrowser alle bilder speichern
Du musst auf der Webseite das 1. Auftreten des Strings maxImageUrl suchen.
Da steht der verschlüsselte String: http:\u002F\u002Fi.ebayimg.com\u002Ft\u002FBOSCH-L-BOXX-L-BOX-Groesse-1-2-3-4-SORTIMO-Groesse-102-136-238-374-\u002F00\u002Fs\u002FMTYwMFgxNjAw\u002Fz\u002FWD4A AOSwRLZUCebC\u002F$_57.JPG Entschlüsselt sieht er so aus: http://i.ebayimg.com/t/BOSCH-L-BOXX-L-BOX-Groesse-1-2-3-4-SORTIMO-Groesse-102-136-238-374-/00/s/MTYwMFgxNjAw/z/WD4AAOSwRLZUCebC/$_57.JPG Damit kann man das JPG-File laden. Siehe: ![]() |
AW: TWebbrowser alle bilder speichern
Darfst du die Bilder überhaupt "kopieren"?
Du du hast doch bestimmt die nötigen Rechte/Lizenzen/Erlaubnis dafür, also von dem Besitzer der Bilder und von eBay, fürs Parsen der Webseite. Warum willst du etwas automatisieren, wenn du es nicht automatisieren willst? > Rechtsklick im Browser und Speichern unter. Und warum nimmst du nicht den offiziellen Zugang über die eBay-API? ![]() PS: Ist noch keinen Aufgefalen, daß die Texte und URLs schön unleserlich im HTML verstecken ... ratet mal warum? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18: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 by Thomas Breitkreuz