HTML Seite auslesen ???

[Gigant02]

Moin Moin an alle

also ich habe ein kleines problem

naja wie immer lach

also ich will mein programm einen link zu einer html seite übergeben in der html seite sind weitere links zu bildern

nun will ich gerne das bild auf welches der link verweisst speichern

wie mache ich das ganze ???

lg, Gigant

[Gigant02]

ok etwas einfacher

wie kann ich überhaupt ein bild aus den internet speichern ???

alsp per delphi

oder wie komme ich überhaupt an eine html seite an ???

lg, Gigant

[marabu]

Hi Gigant,

hier ein paar Anregungen für deine weiteren Forschungen:

Delphi-Quellcode:

const
  imgFolder = 'c:\daten\images';

function UrlToFileName(url: string): string;
var
  i: integer;
begin
  i := Pos('/', url);
  while i > 0 do begin
    Delete(url, 1, i);
    i := Pos('/', url);
  end;
  Result := IncludeTrailingPathDelimiter(imgFolder) + url;
end;

procedure TWebForm.SaveImgToFile(url, fileName: string);
var
  s: TStream;
begin
  s := TFileStream.Create(fileName, fmCreate);
  idHTTP.Get(url, s);
  s.Free;
end;

procedure TWebForm.ImgButtonClick(Sender: TObject);
var
  doc: IHTMLDocument2;
  ec: IHTMLElementCollection;
  img: IHTMLImgElement;
  i: integer;
  vi: OleVariant;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  ec := doc.images;
  for i := 0 to ec.length - 1 do begin
    vi := i;
    img := ec.item(vi, null) as IHTMLImgElement;
    SaveImgToFile(img.href, UrlToFileName(img.href));
  end;
end;

Grüße vom marabu

[Gigant02]

danke für danke code

ich bin schon am rumbasteln

er sacht nur immer in der zeilte

Delphi-Quellcode:

  idHTTP.Get(url, s);

hinter get unbekanter bezeicher

ich habe schon die idhttp komponente auf die form geschoben

lg, Gigant

[marabu]

Na sowas - wo doch url in meiner Prozedur der erste Parameter ist:

Delphi-Quellcode:

procedure TWebForm.SaveImgToFile(url, fileName: string);

Hast wohl ein bischen zu heftig gebastelt...

marabu

[Gigant02]

lach sorry nee nicht url

ich meine er kennt get nicht

blöd geschrieben

lg, Gigant

[marabu]

Mein Code verwendet übrigens Indy9.

marabu

[Gigant02]

ok das heißt jetzt das ich mir eine neue indy version installieren muss ???

[marabu]

Wieso - welche hast du denn?

[Gigant02]

hmm gute frage lach (peinlich)

wie bekomme ich das raus ??

ich habe die version die bei delphi 7 standart mäßig dabei ist

lg, Gigant