TFile einen Pfad geben

[Ykcim]

Hallo,

kann mir jemand sagen, wie ich einem TFile Object einen Pfad zu einer lokalen Datei übergeben kann?

Vielen Dank
Patrick

[haentschman]

Moin...
Was hast du mit dem TFile Object vor?
http://docwiki.embarcadero.com/Libra...s.TFile.Create

[Ykcim]

Ich versuche gerade eine Web-Application mit TWebCore zu erstellen, wo eine lokale Datei angezeigt werden soll.
Jetzt habe ich von dem Support ein kleines Beispiel bekommen, mit dem ich eine Datei auswählen kann, die dann im TWebBrowserControl angezeigt wird.

Delphi-Quellcode:

procedure TForm_OverView.WebFilePicker1Change(Sender: TObject);
var
  fo: TJSHTMLFile;
  s: string;

begin
  fo := WebFilePicker1.Files.Items[0].FileObject;
  asm
    s = URL.createObjectURL(fo);
  end;
  WB_O1.URL := s;
end;

So weit so schön, allerdings möchte ich das ganze jetzt so realisieren, dass ich die Datei nicht auswähle, sondern das der Pfad durch das Programm gesetzt wird. Und da beiße ich mir gerade die Zähne dran aus...

Gruß
Patrick

[Ykcim]

Guten Morgen Zusammen,

Delphi-Quellcode:

procedure TForm_OverView.WebFilePicker1Change(Sender: TObject);
var
  fo: TJSHTMLFile;
  s: string;

begin
  fo := WebFilePicker1.Files.Items[0].FileObject;   //hier wird eine Datei mit einer Art OpenDialog ausgewählt. 
  asm
    s = URL.createObjectURL(fo);
  end;
  WB_O1.URL := s;
end;

Den OpenDialog möchte ich gerne weg haben und fo eine Datei durch meinen Programm-Code zuweisen. TJSHTMLFile scheint mir eine abgeleitete Klasse von TFile zu sein.

Daher meine Frage: Wie kann ich einer Variable vom Typ TFile eine Datei zuweisen. Leider scheint create(Pfad: string, Variabe: TJSHTMLFile) nicht zu funktionieren.

Vielen Dank
Patrick