-
Forum: Programmieren allgemein
by Moombas,
15. Okt 2019
Das kann sein, das ich das GetLastError ggf. zu spät aufgerufen habe beim testen und dann überschrieben war. Will ich jetzt nicht ausschließen.
Da es aber auch ohne diesen Part bzw. mit dem Workaround von Dalai geht, ist es erst mal egal. Finde es nur etwas "seltsam" das das unterschiedlich behandelt wird...
-
Forum: Programmieren allgemein
by Moombas,
11. Okt 2019
Hab ich auch schon ausprobiert, bekomme ich leider nichts zurück ('').
-
Forum: Programmieren allgemein
by Moombas,
8. Okt 2019
Scheinbar ist das so gewollt:
Auch wenn ich einen Leerstring nicht als error ansehen würde, da ich dann immer noch nicht weiß, was für ein Fehler aufgetreten ist aber naja die Doku soll angepasst werden.
-
Forum: Programmieren allgemein
by Moombas,
2. Okt 2019
Als "Dokumentation" bzw. Hilfe konnte ich nur das finden:
-
Forum: Programmieren allgemein
by Moombas,
1. Okt 2019
Ich hab es erst mal auskommentiert, da es der letzte und einzige Part ist, den ich nun in Lazarus nicht zum laufen bekomme bzw. ohne den ich zurecht kommen würde.
Wenn jemand dafür dennoch eine Lösung weiß wäre ich dankbar.
-
Forum: Programmieren allgemein
by Moombas,
1. Okt 2019
Das wäre dann aber nur bei Lazarus so, bei Delphi lief das einwandfrei durch.
Wenn ich mir die Funktion jedoch anschaue, ist es wohl eher so, das es bei jedem Fehler, der nicht "ERROR_NOT_CONNECTED" entspricht ein leeres Ergebnis zurück gibt.
function ExpandUNCFileName (const filename:unicodestring) : unicodestring;
...
if rc = NO_ERROR then
Result :=...
-
Forum: Programmieren allgemein
by Moombas,
30. Sep 2019
Ok, damit läuft er schon mal scheinbar durch aber verbindet sich nicht.
Wie oben erwähnt, denke ich das "path" dennoch nicht leer sein sollte nach
ExcludeTrailingPathDelimiter(ExpandUNCFileName(Trim(path))); .
Sobald er ExpandUNCFileName macht, ist path leer, Trim(path) funktioniert also noch.
-
Forum: Programmieren allgemein
by Moombas,
30. Sep 2019
Bei der Umstellung auf Lazarus habe ich hier nun ein Problem, ich rufe den logon in Lazarus wie folgt auf:
//IPC wird vorher definiert, entspricht der IP-Adresse des anderen PC's
Path := widestring('\\' + IPC + '\c$');
err := Logon('', Path, 'username', 'password', true);
if (err <> 0) then
begin
ShowMessage(IntToStr(err) + ' - ' + SysErrorMessage(err));
end;
-
Forum: Programmieren allgemein
by Moombas,
2. Jul 2018
Ich hatte den Code mit dem error
if err <> 0 then
ShowMessage(IntToStr(err) + ' - ' + SysErrorMessage(err));
auch auf die shellexecute angewendet, was dann zu der besagten Fehlermeldung führte. Diesen habe ich wieder entfernt und somit läuft es nun ohne Fehlermeldung.
So richtig konnte ich zur 42 zwar nichts finden, aber einige meinten 42 = success also alles gut. Da es aber keine...
-
Forum: Programmieren allgemein
by Moombas,
29. Jun 2018
Hat immens geholfen (auch das mit der errorabfrage kannte ich bisher so nicht).
Allerdings taucht bei mir aktuell immer der Error 42 auf (trotz Verbindung & ohne text). Laut Windows gibt es diesen Fehler als Systemfehler auch nicht :?
Edit: Hat sich erledigt. Fehler gefunden.
Vielen Dank HolgerX :D
-
Forum: Programmieren allgemein
by Moombas,
29. Jun 2018
also nun habe ich es fast, er fragt mich aber nach username/passwort, was ich ja eigentlich im WNetAddConnection2 übergebe. Und wenn ich beim shellexecute dies mit /u bzw /p einbaue, bin ich wieder soweit wie vorher.
@Holger wo hast du diese mit eingebaut oder hast du deinen code mal für mich?
-
Forum: Programmieren allgemein
by Moombas,
29. Jun 2018
Das funktioniert -.- also liegt es scheinbar doch irgendwie an mir.
-
Forum: Programmieren allgemein
by Moombas,
29. Jun 2018
Den Weg hatte ich eigentlich schon probiert und bin gescheitert, da er dies nicht öffnen konnte (warum auch immer). Aktuell gehe ich noch den Umweg über die Bat-Datei (unschön, da username/Passwort im Klartext enthalten sind).
-
Forum: Programmieren allgemein
by Moombas,
29. Jun 2018
@jobo: keine sorge den Netzwerkzugriff über den normalen weg bekomme ich ohne weiteres hin mit
net use \\%IP%\C$ "Pass" /USER:Max /PERSISTENT:NO
explorer.exe /SEPARATE,\\%IP%\C$
@HolgerX: du hast recht, Tippfehler XD
Ich würde es halt gerne ohne externe Bat-Datei machen. Das müsste doch funktionieren.
-
Forum: Programmieren allgemein
by Moombas,
28. Jun 2018
Moin,
ich bins mal wieder mit einer wahrscheinlich einfachen Frage. "Brett vorm Kopf" -.-
Ich möchte per Button auf einen Netzwerkpfad zugreifen. Aufbau:
"\\IP\Laufwerk\Ordner" also:
"\\xx.xx.xx.xx\c$\"
bzw.
"\\xx.xx.xx.xx\d$\"