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 QuelltextHTTPGet1.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

[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 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 von Chrissi91:

Gut! Noch eine Frage 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.

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.