Bild auf externen Rechner hochladen

[Woyzeck]

Hallo zusammen,

ich habe vor, über ein Delphi-Formular eine Bilddatei auszuwählen, die dann auf einem externen Rechner abgelegt werden soll.

Leider funktioniert das noch nicht so, wie ich mir das vorstelle:

Delphi-Quellcode:

procedure TfrmMain.btnBildUploadClick(Sender: TObject);
var DateiPfad,ServerVerzeichnis:String;
begin
If OpenPictureDialog2.Execute() then
begin
  DateiPfad:=OpenPictureDialog2.FileName;
  ServerVerzeichnis:='\\'+frmSQL.SQLServer+'\images\'+ExtractFileName(DateiPfad);
  CopyFile(PWideChar(DateiPfad),PWideChar(ServerVerzeichnis) ,true);
end;
end;

Zur Erläuterung des Zielpfades: in der Variable frmSQL.SQLServer steht die IP-Adresse des Servers drin und images ist ein für das Netzwerk freigegebener Ordner ohne Schreibschutz.

Wo steckt mein Denkfehler?

Schon einmal im Voraus vielen Dank

Woyzeck

[DeddyH]

Ich würde ja zunächst den Fehler ermitteln ;)

Delphi-Quellcode:

if not CopyFile(PWideChar(DateiPfad),PWideChar(ServerVerzeichnis) ,true) then
  ShowMessage(SysErrorMessage(GetLastError));

[edit] P.S.: Geht es wirklich um .NET? [/edit]

[Woyzeck]

Zitat:

[edit] P.S.: Geht es wirklich um .NET? [/edit]

Nein, war ein Versehen.

Als Fehlermeldung kommt: Zugriff verweigert.

Ich sehe auch schon warum. Und zwar kann ich den Schreibschutz des Ordners nicht entfernen. Ich entferne zwar die Markierung im Ordner, aber beim nächsten Öffnen der Ordnereigenschaften, ist die Markierung bei "Schreibgeschützt" wieder drin.


Wie kann ich das denn umgehen?

Gruß

Woyzeck

[DeddyH]

Die Verzeichnis- und Freigaberechte sind entsprechend gesetzt? Kannst Du die Datei mit dem Windows-Explorer kopieren?

[Woyzeck]

Zitat:

Zitat von DeddyH

Die Verzeichnis- und Freigaberechte sind entsprechend gesetzt? Kannst Du die Datei mit dem Windows-Explorer kopieren?

Ah, verdammt. Ich sollte mich noch einmal hinlegen und ausschlafen :D .

Ich habe versäumt den Haken bei Netzwerkbenutzer dürfen Dateien verändern zu setzen.

Jetzt klappts. Wie wundervoll :)

Vielen Dank :bounce1: :bounce1:

Woyzeck