Einfache Textdatei aus Webseite auslesen

[Lyan]

Hallo,

ich möchte per Indy (idHTTP.Get) eine einfache Textdatei auslesen (http://kbbzstwnd.kb.ohost.de/Anony/password.txt])...

Ich bin noch Anfänger und komme mit meinem Wissen in google nicht weiter
Habe noch nicht mit den Indys gearbeitet und hoffe mir kann jemand sagen wie es geht... ich habs so gemacht (versucht):

editPassword.Text := idhttp.get('http://kbbzstwnd.kb.ohost.de/Anony/password.txt');

Keine Ahnung wie man das und wofür der andere Parameter der hier wahrscheinlich fehlt eingesetzt wid und wozu...
Danke im vorraus

[Lyan]

Oh sorry!!

Ich hatte mih verschrieben

http://kbbzstwnd.kb.hhost.de/Anony/password.txt

http://kbbzstwnd.kb.ohost.de/Anony/password.txt

Es geht doch - Danke trotzdem

[Gege]

Zitat von Lyan:

Hallo,

ich möchte per Indy (idHTTP.Get) eine einfache Textdatei auslesen (http://kbbzstwnd.kb.ohost.de/Anony/password.txt])...

Ich bin noch Anfänger und komme mit meinem Wissen in google nicht weiter
Habe noch nicht mit den Indys gearbeitet und hoffe mir kann jemand sagen wie es geht... ich habs so gemacht (versucht):

editPassword.Text := idhttp.get('http://kbbzstwnd.kb.ohost.de/Anony/password.txt');

Keine Ahnung wie man das und wofür der andere Parameter der hier wahrscheinlich fehlt eingesetzt wid und wozu...
Danke im vorraus

evtl so ? ..

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 MyIdHTTP: TIdHTTP;
Begin
  MyIdHTTP := TIdHTTP.Create(Form1);
 try
  editPassword.Text  := MyIdHTTP.Get('http://kbbzstwnd.kb.hhost.de/Anony/password.txt');
  finally
  FreeAndNil(MyIdHTTP);
  end;

sollte, denke ich gehen .. und glaube die idhttp mit bei uses rein

[Luckie]

MyIdHTTP.Get('http://kbbzstwnd.kb.hhost.de/Anony/password.txt'); Und gespeichert wird das ganze dann wo?

[Gege]

na in sein editpassword.text ..denke mal das ist ein Edit Feld was er so genannt hat ?
oder was meinst Du jetzt ?

[Luckie]

Hm, ich meine mich zu erinnern, dass die Methode Get zwei Parameter benötigt: Quelle und Ziel, wobei Ziel ein Stream oder ein String sein kann.

Siehe hier:

Delphi-Quellcode:

lStream:=TFileStream.Create(AppPath + Source, fmCreate or fmShareDenyNone);
    try
      idHTTP1.Get('http://server.de/'+Source, lStream);
    finally
      if Assigned(lStream) then lStream.Free;
    end;

[Gege]

hab es gerade probiert ..

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Editpassword: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 MyIdHTTP: TIdHTTP;
Begin
  MyIdHTTP := TIdHTTP.Create(Form1);
 try
  editPassword.Text := MyIdHTTP.Get('http://kbbzstwnd.kb.ohost.de/Anony/password.txt');
  finally
  FreeAndNil(MyIdHTTP);
  end;
end;

end.

geht ... Ziel ist doch davor := .. kannst es testen

[Gege]

interessant wäre hier für was das Passwort ist