Hent HTML-dokument til memo1.text d.v.s. sidens tekst-indhold

hvis du ønsker teksten i html dokumentet, skal du vel bare parse html koden.

Men jeg er ikke helt sikker på hvad du mener.

jeg vil have sidens data, som de bliver vist i browseren - altså IKKE html-koden med tags og det der begvedliggende (Vis kode) ...


iøvrigt ved jeg ikke hvordan man parser ...

vil du bare vise en webside i dit program?

ja, men således at jeg kan "scanne" siden for dens tekst-indhold, derfor skal den havne i et memo-felt, som jeg efterfølgende kan undersøge for indhold...

dit eksempel med memo1.text := DOM.Body.OuterHTML - giver "Vis kode" det ønsker jeg ikke !

hvis den side jeg vil hente indholder grafik, hvad de fleste gør - så ved jeg godt, at jeg mister det i et memo-felt - det er OK !

med DOM := WebBrowser1.Document - får jeg netop siden - komplet - og det gør heller ikke noget (inkl. grafik), hvis jeg bare vidste hvordan jeg kan undersøge DOM for tekst-indhold...
så "sparede jeg for at flytte siden over i memo1.text -

håber du forstår ...

ok men hvis du har alt teksten (body) så er det tekst som bliver vist på siden også i det...
Det er svært at få det ud helt rent. Men i bedste fald kan man fjerne alle tags som er i teksten. Dette ville efterlade teksten.

vil det sige, at man IKKE kan komme udenom "tags" (altså indmaden i en web-side) ! ?

jeg troede og håbede på, at der var en instruktion a la memo1.text := DOM.Body.OuterHTML, som gav mig den tekst, som en almindelig internet surfer, normalt ser - han ser jeg normalt ikke "Vis kode" med tags og den slags !

i min konkrete situation, skal jeg åbne en web-side, der er opbygget, som en tabel på flere tusinde linier - fra denne tabel, som den bliver vist i browseren, vil jeg linie for linie have fat i dens data og arbejde videre med i mit program ...

men er det virkelig rigtigt, at man ikke kan gemme en web-side i et memo-felt ! ?

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile(listview1.Selected.Caption + '.htm');
end;

Jeg vil langtfra sige jeg forstår hvorfor eller iøvrigt gøre mig kodeklog, men nylig i et listwievspm. var der een (af de "skrappe", der lagde et eks ud til download, der havde den effekt du beskriver.
Har "leget" lidt med det eksempel - men hvergang jeg prøver at lave lidt om eller bygge det ind i andre programmer eller for den sags skyld eksportere det til en anden delphiversion: forsvinder "effekten".

Kan du ikke blot bruge DOM.Body.innerText ?

Alternativt kan du bruge følgende:

function GetBrowserText(Browser: TWebBrowser): String;
var
  Doc: OleVariant;
begin
  try
    Doc := Browser.OleObject;
    Doc.document.execCommand('SelectAll');
    Result := Doc.document.selection.createRange().text;
    Doc.document.selection.empty();
  except
    Result := '';
  end;
end;

Kan du ikke blot bruge DOM.Body.innerText ?

kender den ikke - MEN den virker, som jeg ønsker - tak.

:)

Kan du ikke prøve det her:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

Og så bagefter åbne filen i en memo eller noget?

hermandsen, tsk(!) han ville jo ikke have html-koden :o)

>>cms
Sådan er det åbenbart når man lige er stået op! :)

Han kunne jo eventuelt også bruge min kode, fjerne alle tags og at tage sig af det! :)

Nå, men jeg tror bare jeg tager mig en times ekstra søvn så!
Hygger! ;)