Dateien auf FTP Server in Listview darstellen

[ehem. Benutzer]

Hallo,
ich habe es ja schon hinbekommen, dass die Dateien
auf einem FTP Server in einer Listbox dargestellt werden,
aber wie mache ich das für ein ListView?



MfG

[Sharky]

Zitat:

...aber wie mache ich das für ein ListView?...

Wo genau ist denn das Problem?

[ehem. Benutzer]

Ich geb's zu, ich habe meine Frage ein wenig komisch formuliert.
Ich will das in meinem FTP Client die Daten, welche sich auf einem Server befinden
in einem ListView dargestellt werden.

Bisher habe ich das nur über eine Listbox gelöst.
Meine Frage ist wie ich das mit einer ListView anstelle.



MfG

[Sharky]

Zitat:

...Meine Frage ist wie ich das mit einer ListView anstelle....

Und meine Frage ist noch immer: "Wo ist das Problem?" :stupid:
Wie trägst Du das ganze denn in deine TListBox ein? Da Du ja wohl einen String mit den Daten hast kannst Du diesen doch auch in einer TListView eintragen.

[ehem. Benutzer]

Ich bekomme folgende Fehlermeldung beim compilieren:

Zitat:

[Fehler] verbinden.pas(73): Inkompatible Typen: 'String' und 'TListItem'

bei folgendem Quelltext kommt die Fehlermeldung (unverändert gegenüber der "ListBox - Version":

Delphi-Quellcode:

AnsiPos('total', form2.server.Items[0]) > 0 then

Wie muss dieser dieser Quelltext aussehen, wenn ich ein Listview nehmen will?



MfG

[Sharky]

Hai,

versuche es mal mit

Delphi-Quellcode:

if AnsiPos('total', server.Items[0].Caption) > 0 then

[ehem. Benutzer]

Es kommt folgende Exception:

Zitat:

TStringlist kann nicht zu TListItems zugeordnet werden.

Mal etwas mehr Code dieser Prozedur:

Delphi-Quellcode:

 begin
     LS := TStringList.Create;
   try
     begin
     form2.server.Items.Clear;
     form2.ftp.List(LS);
     form2.server.Items.Assign(LS);
     if form2.server.Items.Count > 0 then
       begin
       if
        AnsiPos('total', form2.server.Items[0].Caption) > 0 then
          begin
          form2.server.Items.Delete(0);
          end;

MfG

[Sharky]

Zitat:

....TStringlist kann nicht zu TListItems zugeordnet werden....

Schaue Dir doch einfach mal das Beispiel zur Eigenschaft Items einer TListView in der OH an. Dann wirst Du sehen das es halt ganz anders behandelt wird als eine TListBox.

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Internet / IP / LAN" nach "VCL-Komponenten und Controls" verschoben.
Da das ganze nichts mehr mit dem FTP Zugriff sonder einer TListView zu tun hat verschiebe ich den Thread mal in die richtige Sparte.

[ehem. Benutzer]

Hm die Online-Hilfe hilft mir auch nicht großartig weiter...
Gibt es da irgend ein Befehl o.ä. mit dem ich in einer ListView
alle Dateien die sich auf einen Server befinden anzeigen kann?



MfG

[Sharky]

Schau Dir mal dieses Beispiel von mir an:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  new_Column : TListColumn;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.Items.Clear;
  ListView1.Columns.Clear;
  ListView1.Font.Name := 'Courier New';
  new_Column := ListView1.Columns.Add;
  new_Column.Caption := 'Eintrag';
  new_Column.Width := -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  ndx: Integer;
  item: TListItem;
begin
  with IdFTP1 do
  begin
    Username := 'test';
    Password := 'test';
    Host := 'localhost';
    Connect;
    sl := TStringList.Create;
    try
      List(sl);
      for ndx := 0 to Pred(sl.Count) do
      begin
        item := ListView1.Items.Add;
        item.Caption := sl.Strings[ndx];
      end;
    finally
      sl.Free;
    end;
  end;
end;

Damit solltest Du auf jeden Fall weiter kommen.

[ehem. Benutzer]

hm ich glaub ich bin zu blöd dafür :wall:

erstens kennt er das nicht: item: TListItem;
also das TListItem kennt er nicht

und 2. ordne ich ja wieder eine Stringlist einem Listitem zu und das geht nicht...




MfG



Edit: Es geht, sry, habs hinbekommen.

[ehem. Benutzer]

Eine Frage noch:
Wenn ich das was bei dir in OnCreate steht weglasse und die Eigenschaft vom ListView auf
vsReport stelle, zeigt mir das Listview keinen Inhaltm nur eine Scrollbar erscheint,
nehme ich es so wie du es hast, geht es einwandfrei...



MfG

[Luckie]

So bald du einen Listview auf deiner Form hast, sollte er TListItem kennen.

[ehem. Benutzer]

Ich habe aber für das Verbinden eine extra Form, kann man das irgendwie einbinden?
Gibt es eine Möglichkeit das vsReport zu benutzen?
Also so, das man nicht alle Columns selber schreiben muss und automatisch das Icon
der Datei angezeigt wird.



MfG

[ehem. Benutzer]

*push* :duck:

[Sharky]

Hai ,

wo ist denn jetzt das Problem? Das ich in meinem Demo die Spalten zur Laufzeit erzeugt habe dürfte ja wohl kein Problem sein.

Zitat:

...und automatisch das Icon der Datei angezeigt wird....

Mit automatisch ist da nichts. Darum musst Du dich schon selber kümmern. Wie man das Icon einer Datei ermittelt sollte hier im Forum zu finden sein.

[ehem. Benutzer]

Also funktioniert vsReport nicht bei idFTP ?



MfG

[Luckie]

Doch, du musst ihn nur von Hand füllen.