Hallo, ich würde gerne alle sichtbaren bilder einer website herunterladen, ich habe zwar eine methode aber ich würde gerne fragen obs besser geht, weil bis jetzt funktionierts nocht nicht ganz, ist auch ziemlich kompliziert.
1. ich lade den quelltext in ein memo
2. ich suche im quelltext nach
<img src=" und dann nach
"
3. ich kopiere den Text dazwischen (zB:
Bilder/Header.JPG) hinter die domain [fällt mir gerade ein problem ein, wenn die domain umgeleitet wird]
4. das lade ich dann runter
GEHTS NICHT AUCH EINFACHER ?
bzw was simmt an diesem code nicht ?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
| procedure TMainForm.BTN_StartClick(Sender: TObject);
var
i, j: integer;
str, buf: string;
found: boolean;
strl: TStringlist;
s, e: integer;
begin
memo1.Visible := true;
memo1.Text := '';
found := false;
s := 0;
e := 0;
strl := TStringlist.Create;
try
if HTMLCode(Webbrowser1, memo1.lines) then
begin
for i := 1 to length(memo1.Text) do
begin
if not found then
begin
str := copy(memo1.text, i, 10);
if str = '<img src="' then
begin
s := i + 10;
found := true;
end;
end;
if found then
begin
str := copy(memo1.text, i, 1);
if str = '"' then
begin
e := i;
found := false;
end;
end;
buf := '';
buf := copy(memo1.Text, s, e);
strl.add(buf);
if buf <> '' then showmessage(Buf); end;
end;
finally
strl.free;
end;
memo1.Visible := false;
end; |
