Avatar billede scifo Nybegynder
15. december 2005 - 00:09 Der er 5 kommentarer og
1 løsning

hente text fra online fil til memo

hej eksperter.

Er der en der kan hjælpe mig med denne kode:
Jeg har en fil der ligger online eks. www.side.dk/fil.txt
og der skal jeg have teksten i den fil ind i en memo eller
RichEdit.

MVH
Scifo
Avatar billede pidgeot Nybegynder
15. december 2005 - 00:13 #1
Jeg bruger selv den her funktion til at hente filer fra nettet:

uses
  ExtActns;

function TForm1.DownloadFile(sURL,sDest:string): boolean;
begin
  Result:=True;
  with TDownLoadURL.Create(nil) do
  try
    URL:=sURL;
    Form1.Caption:='Fetching '+URL+'...';
    Filename:=sDest;
    try
      ExecuteTarget(nil);
      Form1.Caption:='Parsing '+URL+'...';
    except
      Result:=False;
    end;
  finally
    Free;
  end;
end;

Du skulle så gerne kunne hente denne og loade den ind i en Memo ved at bruge denne kode:
DownloadFile('http://www.side.dk/fil.txt','fil.txt');
Memo1.Lines.LoadFromFile('fil.txt');
Avatar billede scifo Nybegynder
15. december 2005 - 01:09 #2
Og så lige et spørgsmål fra mig der ikke er så langt endnu *griner*

Undeclared Indentifier 'DownloadFile'
Undeclared Indentifier 'sURL' osv.

Hvad har jeg gjort galt?

----------------------------------------------------------------------------
var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  ExtActns;


function TForm1.DownloadFile(sURL,sDest:string): boolean;
begin
  Result:=True;
  with TDownLoadURL.Create(nil) do
  try
    URL:=sURL;
    Form1.Caption:='Fetching '+URL+'...';
    Filename:=sDest;
    try
      ExecuteTarget(nil);
      Form1.Caption:='Parsing '+URL+'...';
    except
      Result:=False;
    end;
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadFile('http://www.jw-musik.dk/index.htm','index.htm');
Memo1.Lines.LoadFromFile('index.htm');
end;

end.
------------------------------------------------------------------------
Lige en Copy / Paste af koden.

//Scifo (Sorry hvis jeg er lidt besværlig, men har ikke været i gang så lang tid)
Avatar billede pidgeot Nybegynder
15. december 2005 - 01:15 #3
Du har glemt at erklære funktionen i din erklæring af TForm1 under type

type
  TForm1 = class(TForm)
    //Der står sikkert en masse heroppe - det er udeladt
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function DownloadFile(sURL,sDest:string): boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Sagt på en anden måde, så skal du blot placere linien

    function DownloadFile(sURL,sDest:string): boolean;

på en linie lige før ordet "private" oppe i din type-sektion.
Avatar billede scifo Nybegynder
15. december 2005 - 22:21 #4
1000 Tak... lige nøjagtig perfekt... lige hvad jeg skulle bruge tak du :-)

Hvis du ligger et svar er pointsne dine...

/Scifo
Avatar billede pidgeot Nybegynder
15. december 2005 - 22:31 #5
Værsgo ...og glædelig jul, i øvrigt :)
Avatar billede scifo Nybegynder
15. december 2005 - 23:03 #6
Tak tak og ilm :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester