Text aus einer HTML-Datei einlesen?

[Chrissi91]

Ich verstehe nur Bahnhof! ;) Wie gesagt, ich bin der totale Noob in Sachen Internet bezogen auf Delphi ... Ich glaube, ich lasse das lieber :(

[TStringlist]

Um Aktionen im Internet ausführen zu können, benötigst du die Indy-Komponenten. Diese sollten also zu diesem Zwecke erstmal in der Palette vorhanden sein. Wenn nicht, dann musst du sie dir zuerst downloaden bzw. installieren.

[raffo]

Für dieses kleine Vorhaben, finde ich die kleine Komponente HttpGet wirklich ausreichend, auch wenn Indy "alles" kann, man kann HttpGet es hier herunterladen http://delphi.icm.edu.pl/ftp/d20free/HTTPGet.zip

Auch wenn der Link D2 vermutet, läuft es auch auf D5, die Kompo installieren, damit läst sich einfach eine HTML Seite (URL) auf den lokalen PC speichern.

[Chrissi91]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    HTTPGet1: THTTPGet;
    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.

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

[teebee]

Entweder schreibst Du im Quelltext

Delphi-Quellcode:

HTTPGet1.Get(urlText, s);

oder Du benennst HTTPGet1 im Objektinspektor bei 'Name' in http um.

Gruß, teebee

[raffo]

HttpGet funzt anders:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
HTTPGet1.URL:='http://www.meineseite.de/index.htm';
HTTPGet1.FileName:='C:\ZielPfad\Zieldatei.extension';

//Gauge1.progress:=0;   // wenn Du noch nen Gauge verwendest kann der Download kontrolliert werden
//Gauge1.Visible:=true; // in "onDoneFile" kann das Gauge wieder invisible gemacht werden

httpGet1.GetFile;
end;

Das Laden kann auch abgebrochen werden =>

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
HTTPGet1.Abort;
end;

Aktualisierung des Gauge

Delphi-Quellcode:

procedure TForm1.HTTPGet1Progress(Sender: TObject; TotalSize,
  Readed: Integer);
begin
gauge1.MaxValue:=totalsize; // auf der Kompo in EREIGNISSE "onProgress" hier eintragen
gauge1.Progress:=readed;
end;

[TStringlist]

Ansonsten aber, lass dich nicht davon abhalten, dir gleich die Indy-Komponenten zu besorgen. Früher oder später brauchst du die sowieso. Hier nochmal ein Link zum Downloaden. Und bei diesbezüglich auftauchenden Fragen hilft man im hiesigen DP-Forum "Internet / LAN / ASP.NET" bestimmt gerne :wink:

[Chrissi91]

Danke! Ich habe den Code aus dem mitgedownloadeten Beispiel übernommen und verwendet ... ;)

ätte ich auch gleich drauf kommen können. Aber damit ibts auch Probleme, also ich mede mich heute bestimmt noch mal ... ;)

[Chrissi91]

Gut! Noch eine Frage :-D Wie lautet der Befehl zum Downloaden einer Datei mit idhttp ...
Kann es sein, dass bei Delphi 7 PE nur eine maximale Anzahl an Komponenten installiert sein kann?

[PierreB]

Zitat:

Zitat von Chrissi91

Gut! Noch eine Frage :-D Wie lautet der Befehl zum Downloaden einer Datei mit idhttp ...

Guck dir doch einfach mal die Indy Befehlsreferenz an oder such mal in der DP. :roll:

Selbst wenn dir einer den Befehl sagt, fragst du danach ja eh wie man diesen anwendet, also such mal im Forum, hatten wir schon oft. ;)