hvor er fejlen ?

showmessage(inttostr(i))M
if pos('Rummet', s)>0 then

showmessage(inttostr(i));
if pos('Rummet', s)>0 then

Erik! -er der et programmeringssprog du ikke kender til???

//>Rune

Ja

*G* Hmm de kan vidst tælles på en hånd ;)

//>Rune

hi hi vores kære erik er alsidig

acceptere nu erik..hehe..hvis du ku måske kigge på det lille kode som jeg ikke vil ku finde, så vil det være meget fint, skal nok give dig mere point.

den skal loade siden i en webbrowser, og tjekke om i html koden ligger rummet ordet, hvis den findes så sku skrive fundet, hvis ikke, så skal den bare skriv ik fundet. og mange tak for hjælp

procedure TForm1.Button1Click(Sender: TObject);
var
    DOM : variant;
    s: string;
begin
    WebBrowser1.Navigate('http://www.dead.dk);
    DOM := WebBrowser1.Document;
    memo1.text := DOM.Body.OuterHTML;
    s := memo1.Text;
    if pos('Rummet', s)>0 then
    showmessage('fundet');
    else
    showmessage('ikkefundet');
    end;
end;

Hvad sker der?  (nej, jeg skal ikke have point for noget)

erik < den siger der er noget galt ved "else", og siden bliver ikke nået at loade altså (www.dead.dk) og scripten vil vise ikke fundet ?

Så du får en syntaksfejl - ok - jamen så ved vi hvad vi
skal lede efter. Hvad om du nu havde fortalt det straks?

Erstat

    if pos('Rummet', s)>0 then
    showmessage('fundet');
    else
    showmessage('ikkefundet');
    end;

med

    if pos('Rummet', s)>0 then
    showmessage('fundet')
    else
    showmessage('ikkefundet');

not ; before else

får en fejl som dette,

project prject2.exe raised exeception class eaccessvioaltion with message ....... use step or run to continue...

ved denne linje ?

    memo1.text := DOM.Body.OuterHTML;

og jeres if betingelse virker nu, takker :)

Du bør lave en

if Webbrowser1.LocationURL <> '' then begin
    Memo1.text := DOM.Body.OuterHTML;

udenom. Og du skal sikkert bede om

WebBrowser1.Navigate('http://www.dead.dk/');

uden den sidste '/' fpr du bare en redirect - og så er der ikke et
dokument.

mærkeligt jeg sku tjekke om den har en URL i webbrowser1 ??

men erikjacobsen den når ikke at hente siden, den viser bare første gang "ikke fundet" trykker jeg på knappen igen, så viser den fundet ?

er der ikke en måde at få koden til at vente indtil webbrowser1 har loaded siden også køre koden videre ?

Jo, sikkert. Check hvad der af spændende metoder på din TWebBrowser

det er også det jeg prøvede, kan ikke finde rigtige noget om twebbrowser på nettet, udfra nogen færdig lavet kode, som man ikke forstår ikke noget af, har du sådan rigtige artikler link ?

her kan du sikker finde inspiration

http://www.swissdelphicenter.ch/en/internet.php

while webbrowser1.busy do sleep(40);

Men ellers skal du kigge på events,

Øhm, med de fejl det er lykkedes dig at lave i elementær
Pascal, er TWebBrowser nok en rimelig stor mundfuld at gå
i gang med. Hvad om du tog dig tid til at lære de fundamentale
ting først?

kan jeg måske få et par svar fra jer :-)
og tak :)

nåh..