Text aus einer HTML-Datei einlesen?

[Chrissi91]

Hallo,
mein Problem ist folgendes:

Ist es möglich, aus einer Website , die nur aus reinem Text besteht, mit Delphi den Text einzulesen? Ich möchte gerne, dass beim Programmstart ein Text in ein Memofeld eingefügt wird, der bei bestehender Internetverbindung aus einer bestimmten Website gelsen wird.

Danke schon Mal im Vorraus

Chrissi

[jim_raynor]

Was ist denn dein Problem. Wenn du Dateien herunterladen möchtest, dann wirst du hier auf jeden Fall fündig.

Gute Stichworte wären zum Beispiel: Datei downloaden [/dp]URLDownloadToFile[dp]

[BeerBear]

Erst runterladen s.o.
und dann
Memo1.Lines.LoadFromFile( 'C:\....' );

[marabu]

Oder gleich so:

Delphi-Quellcode:

const
  urlText: string = 'http://deinhost/deinedatei.txt';

procedure TWebForm.TextButtonClick(Sender: TObject);
var
  s: TStream;
begin
  s := TMemoryStream.Create;
  try
    http.Get(urlText, s);
    s.Position := 0;
    Memo.Lines.LoadFromStream(s);
  finally
    s.Free;
  end;
end;

Grüße vom marabu

[BeerBear]

Oder so.

[TStringlist]

bzw. so:

Delphi-Quellcode:

const 
  urlText: string = 'http://deinhost/deinedatei.txt'; 

procedure TWebForm.TextButtonClick(Sender: TObject); 
begin 
  try 
    Memo1.Lines.Text := IdHTTP1.Get(urlText);
  except
    showMessage('ging nicht!'); 
  end; 
end;

[Chrissi91]

Danke! Werde es nachher ausprobieren.

[Chrissi91]

Irgendwie funktionieren die Versionen nicht!

1. Problem:

Wenn ich als URL http://www.angegebene_seite.de angebe, geht es nicht, da Delphi das // als Kommentar sieht und denn dort nur steht http: (Der Rest zählt dann nur noch als Kommentar)!

2. Problem

Braucht man dazu Zusatzkomponenten? Folgende Problem:

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  urlText: string = 'http://chrissi1991.ch.ohost.de/update.txt';

procedure TForm1.Button1Click(Sender: TObject);
var 
  s: TStream; 
begin 
  s := TMemoryStream.Create;
  try
    http.Get(urlText, s);
    s.Position := 0; 
    Memo1.Lines.LoadFromStream(s);
  finally
    s.Free; 
  end; 
end;

end.

Fehlermeldung: [Error] Unit1.pas(36): Undeclared identifier: 'http'

In Sachen Internet mit Delphi bin ich der absolute Anfänger

[TStringlist]

Wahrscheinlich lieg es daran, dass du ja auch überhaupt noch gar keine IdHTTP-Komponente auf deine Form gezogen hast. Im Deklarationsteil von TForm1 sehe ich sie jedenfalls nicht.

[raffo]

Einfach nur http.... zu sagen reicht nicht, du brauchst ne unit dafür (da ist bei dir nix eingebunden) oder du verwendest httpget (gibts als compo) frei zuladen.