Mit delphi eine text datei auslesen

[fox67]

Delphi-Quellcode:

unit artikelloeschen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, IdBaseComponent, IdIntercept, IdLogBase, IdLogDebug, ExtCtrls;

type
  TForm1 = class(TForm)
    IdLogDebug1: TIdLogDebug;
    IdFTP1: TIdFTP;
    DebugListBox: TListBox;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure onStatus(axSender: TObject; const axStatus: TIdStatus;
      const asStatusText: String);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure OnLogItem(ASender: TComponent; var AText: String);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
    procedure getfile();
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.onStatus(axSender: TObject; const axStatus: TIdStatus;
  const asStatusText: String);
begin
DebugListBox.ItemIndex := DebugListBox.Items.Add(asStatusText);
StatusBar1.Panels[0].Text := asStatusText;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Connect;
timer2.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IdFTP1.Connected = true then
 begin
 button1.Visible:=false;
 button2.Visible:=true;
 edit1.Visible:=true;
 button3.Visible:=true;
 end;
if IdFTP1.Connected = false then
 begin
 button1.Visible:=true;
 button2.Visible:=false;
 button3.Visible:=false;
 button4.Visible:=false;
 Label1.Visible:=false;
 edit1.Visible:=false;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdFTP1.Disconnect;
end;

procedure TForm1.OnLogItem(ASender: TComponent; var AText: String);
begin
DebugListBox.ItemIndex := DebugListBox.Items.Add(AText);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if IdFTP1.Connected then
begin
getfile();
timer2.Enabled:=false;
end;
end;

procedure TForm1.getfile();
begin
IdFTP1.Get('anzeigen.txt', extractfilepath(application.ExeName), true);
end;
end.

ich wollte mein programm mal bishierhin testen griege aber folgende fehlermeldung

[Sir Rufo]

Irgendwie ja auch logisch.

Du müsstest einen Dateinamen übergeben, stattdessen gibt's du einen Pfad.

[alfold]

Ich glaube da fehlt irgenwie der Dateiname

IdFTP1.Get('anzeigen.txt', extractfilepath(application.ExeName)+'meinedatei.txt', true);
mist wieder zu langsam

Mal ne andere Frage:
Warum startest Du da noch einen 2.Timer?
Du solltest auch mindestens ne exeption abfangen wenn es zu keinem Connect kommt bzw ne meldung generieren!

den Timer als solche sbrauchst Du doch gar nicht1

Delphi-Quellcode:

try 
  IdFTP1.Connect(true,5000);//5 sek warten auf verbindung
  if IdFTP1.Connected then
  begin
   .....//mache hier was du willst
   .....
  end;
except
    raise;  // Exception warum die Verbing fehlschlug ausgeben
end;
//alles in ordnung

gruss alfold

[p80286]

Zitat von fox67:

Die sachen mit dem ftp server kann ich(also dass uploaden, downloaden und ersetzen). Aber beim rest weiß ich nicht weiter.

Zitat von fox67:

die zeilen der textdatei sehen so aus : "bildname|titel|inhalt"

Wo ist denn da das Problem?
Du weißt doch wo der Dateiname steht ?

Gruß
K-H

Edith:

Zitat von fox67:

ich habe nur deshalb einen neuen beitrag eröffnet da hier keiner so wirklich geblickt hatt was ich meine

Das wiederum wundert mich nicht