Hente tal fra nettet

Bruger du indy ?

jeg ved ikke hvad indy er.. hvad er det??

Hej Jens

kan man connecte direkte til en html side mrd en indy client ?

hvad er indy?? og hvor kan jeg få det??

ja brug TidHTTP

Jens B

Se Jens nu blev jeg jo lige lidt nysgerrig, hvordan læser jeg HTML siden ??


procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTP1.Host:= 'http://www.asw.h4f.dk';
  IdHTTP1.Connect;
  if IdHTTP1.Connected then
  begin
    IdHTTP1.Get('/lotto.html'); <-------Hvad skal der stå her eller er jeg på vildspor *GGG*
  end;
end;

hm.. der står ikke noget med label (morten s)

og jeg har heller ikke TidHTTP

Du kan hente indy her:

http://www.nevrona.com/indy/

Det her var måske en mulighed:
http://www.swissdelphicenter.com/en/showcode.php?id=412

borrisholt>> Den er svær og installer .. hvordan??

ups... Hermandsen >> Den er svær og installer .. hvordan???

>>armena
Mener du ikke morten_s? Min er da lige til at gå til... Det er bare en procedure! No components needed! :)

morten >>

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  IdHTTP1.Host:= 'http://www.asw.h4f.dk';
  IdHTTP1.Connect;
  if IdHTTP1.Connected then
    s := IdHTTP1.Get('lotto.html');
end;

Eller download den :

var
  LDestStream: TFileStream;

  LDestStream := TFileStream.Create(DestDir + ZIPNAME, fmCreate);

  try
    HTTP.Get(DOWNLOADPATH + ZIPNAME, LDestStream);
  finally
    FreeAndNil(LDestStream);
  end;


Jens B

Her har du min version med Indycomponent:

procedure TForm1.Button1Click(Sender: TObject);
var
  LottoTal: String;
begin
  LottoTal := IdHTTP1.Get('http://www.asw.h4f.dk/lotto.html');
  ShowMessage(Lottotal);
end;

Jens> Man behøver ikke
  IdHTTP1.Host:= 'http://www.asw.h4f.dk';
  IdHTTP1.Connect;
Det ern æsten for let

yes det virker da fint !

Jens B

Morten_S>> Hvordan installer man indy.. har prøvet med det lykkedes ikke.. :o(

har fundet ud af det!