Vise data fra web i Delphi

Hvad med en ide til hvordan du kan gøre det?

Din asp fil kalder du, som du gør normalt fra nettet.
Derefter downloader du den html kode/fil der bliver genereret.
Og til sidst splitter du den op i de overskrifter du vil ha'..

Ja, det er også det jeg vil. Men det er meget lang tid siden jeg har programmeret i delphi, så jeg ved ikke hvordan jeg skal gøre dette :(

Det er faktisk ikke så svært som det lyder men prøv at brug den funktion der heder ClearHTML!

Jeg har brugt den med megen succes :)

/Kallesen

Ok. Hvor kan jeg så finde den funktion?

hehe, oki, så ved du ikke det helt store om Delphi's og internet sammen :D jeg giver lige en lille forsmag på hvordan man gør dette :D

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, URLmon, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

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


function ClearForHTML(SourceFile: string; Line: Integer): string;
label redo;
label done;
var
  handler: string;
  stringlist:Tstringlist;
begin
  If fileexists(Sourcefile) then
  begin
    stringlist := Tstringlist.create;
      try
        stringlist.LoadFromFile(Sourcefile);
        handler := stringlist[Line];
redo:
            delete(handler,pos('<', handler),pos('>', handler));
            if not pos('<', handler) >= pos('>', handler) then goto done;
            if pos('<', handler) > 0 then goto redo; //hvis der stadig er < i teksten så hoppes der til redo: !
done:
      finally
      stringlist.Free;
      Result := handler;
      end;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile('http://www.tips.dk/spil/lotto/indhold/vindertal_lotto.html','c:\temp.tmp');
  label1.Caption := Copy(ClearForHtml('c:\temp.tmp', 52),4, Length(ClearForHtml('c:\temp.tmp', 52))); //Smider vindertallene ind i en label (fjerner 3 tegn som bare er tabulatorer
end;

end.

I denne sammenhæg har jeg valg dansktipstjeneste's lotto side....

man se på det, er der noget galt så skriv skal nok hjælpe...

/Kallesen

Dette spørgsmål mangler input.
Det kan f.eks. være at spørgeren mangler at acceptere/afvise svar/komme med feedback, eller af en svarer mangler at lægge et svar/komme med feedback.