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 :D
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 :D

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

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

Es geht doch ;) - Danke trotzdem

[Gege]

Zitat:

Zitat von Lyan (Beitrag 1130628)

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 :D
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 :wink:

[Luckie]

Delphi-Quellcode:

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 :mrgreen: