AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

GetLastError over Network

Ein Thema von Nicodius · begonnen am 11. Jul 2011 · letzter Beitrag vom 11. Jul 2011
Antwort Antwort
Nicodius

Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
 
Delphi 2006 Architect
 
#1

GetLastError over Network

  Alt 11. Jul 2011, 16:15
Hi Leute,

habe für unsere Firma eine winzige sache programmiert mit der wir eine fehlerhafte configdatei löschen können.

Ich würde gerne einen Errorcode zurückbekommen, das geht aber anscheinend mit herkömmlichen Mitteln nicht übers Netzwerk? Also den Errorcode den ein andere computer zuletzt hatte.

Bisheriger Code(es klappt auf meinem pc, aber wenn ich auf einem anderen PC die datei lösche bekomme ich immer error 0 zurück(er geht also richtig in das else, gibt dann aber immer 0 zurück).

Delphi-Quellcode:
 if DeleteFile('\\' + Host.text + '\C$\Users\' + User.text + '\AppData\Local\Mainsoft\Harmony\configuration\config.ini')
 then
   Liste.items.add('success on user' + User.text)
 else
   Liste.items.add('ERROR on ' + User.text + '-> '+ IntToStr(GetLastError));
Hat wer eine Idee wie ich den richtigen errorcode von einem anderen PC bekomme?


lg Nico
Nico Müller
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
7.345 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: GetLastError over Network

  Alt 11. Jul 2011, 16:52
Bei mir funktioniert das problemlos, Zugriff verweigert, Netzwerkname nicht gefunden, ...
Vielleicht bekommt Windows in deinem Fall von dem anderen PC nicht mitgeteilt was schief gegangen ist.

Warum speicherst du eigentlich nur den Fehlercode und nicht auch gleich dessen Beschreibung?
Delphi-Quellcode:
SysErrorMessage(GetLastError)
// gibt dir direkt einen String zurück
// EDIT:
Ach ja, hier ist das Windows 7. Ist das dort vielleicht noch XP oder so?
// EDIT2:
Aber auch dort geht es hier.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!

Geändert von jaenicke (11. Jul 2011 um 17:01 Uhr)
  Mit Zitat antworten Zitat
Nicodius

Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
 
Delphi 2006 Architect
 
#3

AW: GetLastError over Network

  Alt 11. Jul 2011, 16:56
Danke mal für die Antwort,
habe es auch direkt gemacht, habe in dem fall nur beide varianten probiert

Leider funktioniert es bei uns nicht, Windows 7 64bit.

lg
Nico Müller
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.967 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: GetLastError over Network

  Alt 11. Jul 2011, 17:00
Da DeleteFile bei dir ausgeführt wird, sollte es auch einen ErrorCode liefern. Aber es wäre gut, wenn du diesen Code direkt nach DeleteFile abfragst und nicht zwischendurch noch einige andere WinAPIs aufrufst, welche ebenfalls diesen Code setzen können/könnten (wie z.B. in User.Text).

Delphi-Quellcode:
if DeleteFile('\\' + Host.Text + '\C$\Users\' + User.Text + '\AppData\Local\Mainsoft\Harmony\configuration\config.ini') then
  Liste.Items.Add('success on user' + User.Text)
else
begin
  E := GetLastError;
  Liste.Items.Add('ERROR on ' + User.Text + '-> '+ SysErrorMessage(E));
end;
Bzw. das Ganze optisch noch etwas zusammenhängender:
Delphi-Quellcode:
if not DeleteFile('\\' + Host.Text + '\C$\Users\' + User.Text + '\AppData\Local\Mainsoft\Harmony\configuration\config.ini') then
begin
  E := GetLastError;
  Liste.Items.Add('ERROR on ' + User.Text + '-> '+ SysErrorMessage(E));
end else
  Liste.Items.Add('success on user' + User.Text);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (11. Jul 2011 um 17:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
7.345 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#5

AW: GetLastError over Network

  Alt 11. Jul 2011, 17:04
Leider funktioniert es bei uns nicht, Windows 7 64bit.
Auf beiden Rechnern Win 7 64bit?

Bzw. das Ganze optisch noch etwas zusammenhängender:
Da fehlt noch ein not.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Nicodius

Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
 
Delphi 2006 Architect
 
#6

AW: GetLastError over Network

  Alt 11. Jul 2011, 17:12
Vielen dank euch beiden, mit eingefügtem not hat es funktioniert.

(auf allen 6000 Rechnern ist Win 7 seit 2 Monaten oben, was zum glück unsere Arbeit vereinfacht ).

Liebe Grüße


Nico
Nico Müller

Geändert von Nicodius (11. Jul 2011 um 17:17 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf