TXT Datei auf Remote Rechner auslesen

[sisa2002]

Hallo,

ich versuche gerade mit einer IntraWeb Applikation aus Delphi XE10 den Inhalt einer TXT Datei, die auf einem sich im Netzwerk befindenden Rechner gespeichert ist, auszulesen.

Mit einer lokal gespeicherten TXT Datei funktioniert dies problemlos. Doch sobald ich den Netzwerkpfad mit in die Variable Filename schreibe liefert die Funktion FileExists nur False.

Windows User und Passwort sind im übrigen auf beiden Rechnern identisch.

Delphi-Quellcode:

procedure TIWForm1.IWButton1Click(Sender: TObject);
var
  SL: TStringList;
  FileName: string;
begin
FileName := ('\\192.168.134.165\c:\test.txt');
SL := TStringList.Create;
  try
    if FileExists(FileName) then
      SL.LoadFromFile(FileName); // StringList aus Datei laden;
    IWLabel2.Caption := SL.Text; // Z.B. Ganze Datei als string in ein Label laden;
  finally
    SL.Free;
end;

Vielen Dank im vorraus !

[Olli73]

Zitat von sisa2002:

FileName := ('\\192.168.134.165\c:\test.txt');

Du musst Laufwerk C freigeben und im Code den Freigabenamen benutzen. Kannst das dann einfach im Explorer testen, ob es funktioniert.

Andere Frage: Läuft das ganze als Dienst? Dann schau mal unter welchem Benutzer.

[sisa2002]

Hallo Olli73,

Danke für deine schnelle Antwort.

Es ist kein Dienst sondern ein Prozess der unter dem Benutzer Administrator läuft.

[Olli73]

Wie sieht es mit der Freigabe und dem Test im Explorer aus?

[sisa2002]

Hallo Olli73,

habe es nach deinen Vorgaben geändert und es funktioniert.

Vielen Dank !