Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Dateien Kopieren (https://www.delphipraxis.net/58679-dateien-kopieren.html)

renekr 10. Dez 2005 19:14


Dateien Kopieren
 
Hi,
kann mir jemand helfen oder nen tipp geben?

will eine Datei von der Lokalen Festpaltte c: oder d: zu einem Share im Netzwerk kopieren .
Berechtigungen sind vorhanden.

aber mit Shellapi und Copyfile kopiert er nix.


Delphi-Quellcode:
 ShellFileOperation ('c:\test\1.jpg','\\Rechenrname\sharename\1.jpg',FO_COPY) ;
  CopyFile(PChar('c:\test\1.jpg'), PChar('\\Rechenrname\sharename\1.jpg'), true);
Wen nich im dest einen Namen auf der Paltte angeben gehts nur nicoht mit den \\ auf den Share.


Danke

marabu 11. Dez 2005 09:45

Re: Dateien Kopieren
 
Hallo René,

vielleicht liegt es ja nur daran, dass du keine Schreibrechte auf dem share hast, oder die Datei existiert bereits. Um den Fehler einzukreisen kannst du so vorgehen:

Delphi-Quellcode:
var
  src, tgt: string;
begin
  src := 'c:\test\1.jpg';
  tgt := '\\Rechnername\sharename\1.jpg';
  if not CopyFile(PChar(src), PChar(tgt), true) then
    ShowMessage(SysErrorMessage(GetLastError));;
end;
Grüße vom marabu

renekr 11. Dez 2005 10:03

Re: Dateien Kopieren
 
Hi,
man Vielen Dank.

Das kommt davon wenn man alles dicht machen will.
Habe mal mein Laptop auf D: nur mein User als Voll Zugriff zugewiesen.

Aber welchen User nimmt er?
Der wo angemeldet ist jedenfalls nciht.
Macht er es als Gast?

Habe jetzt Probiert ein Laufwerksbuchstaben zu vergeben und darauf den Share mit dem User wo alles darf zu connecten und dann Kopieren.
Zugriff verweigert.



Ich will folgendes machen.

Habe ein Netzlaufwerk das Jeder einsehen kann. ( Bilder Share )

Aber 1 User updatet die Bilder mit dem Tool.
Kann auch mal vorkommen , das er von einem anderen PC es macht ,wo er nicht eingeloogt ist mit seinem User.

Da wäre es besser wenn ich vorher den Share mit dem User mappen tue ?
oder bessere Idee?

Danke.


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz