Laden von .jpg in Listbox funzt net

[SaFu]

ja versuche es ja gerade bekomm es aber nicht ganz hin

habe jetzt ein Problem mit PAsinChar

[Matze]

So viel kann man da nicht falsch machen:

CopyFile('alter Pfad', 'neuer Pfad', ggf_ueberschreiben_falls_vorhanden); geht das nicht, dann mach es so:


CopyFile(PChar('alter Pfad'), PChar('neuer Pfad'), ggf_ueberschreiben_falls_vorhanden); Anstelle von PChar kannst du auch PAnsiChar nutzen. Aber in der DP findest du zahlreiche funktionierende Beispiele für das Problem.

[SaFu]

geht sowas nicht

  CopyFile(PChar(ExtractFileName(OpenDialog1.FileName)), PChar(ExtractFileName('\Bilder')); wie gesagt weil ich die datei aos dem Opendialog auswähle

es tut mir leid wenn ich nerve und es einfach ncht verstehe hab bald ne glatze weil mir vor lauter denken die haare ausfallen

[Matze]

ExtractFileName liefert dir etwas wie hallo.jpg, da weiß Windows natürlich nicht, wo es das hinkopieren soll. Lass diese Funktion einfach weg. Und der zweite Parameter erwartet ebenfalls einen kompletten Pfad einschließlich Dateiname.

[SaFu]

es soll ja die datei aus dem opendialog z.b hallo.jpg in \bilder\ kopiert werden sodas dann steht \bilder\hallo.jpg

es tut mir echt leid wenn ich es gerade überhaupt nicht blicke

[Matze]

Ohje, also, extra für dich, damit hier mal Schluss ist und ich ins Bett komme:

Delphi-Quellcode:

CopyFile(PChar(OpenDialog1.FileName),
  PChar(IncludeTrailingPathDelimiter(ExtractFilePath(OpenDialog1.FileName)) +
  'Bilder\' + ExtractFileName(OpenDialig1.FileName)), true);

Übersichtlicher:

Delphi-Quellcode:

AlterPfad := OpenDialog1.FileName;
NeuerPfad := IncludeTrailingPathDelimiter(ExtractFilePath(OpenDialog1.FileName)) +
  'Bilder\' + ExtractFileName(OpenDialig1.FileName);

CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);

Den Bilder-Pfad musst du natürlich ggf. vorm Kopieren erstellen, das geht mit CreateDirectory oder bei mehreren neuen Ebenen mit ForceDirectories.

Edit: Meines Wissen benötigst du IncludeTrailingPathDelimiter nicht einmal, da ExtractFilePath den abschließenden Backslash anhängen müsste, also so:

Delphi-Quellcode:

AlterPfad := OpenDialog1.FileName;
NeuerPfad := ExtractFilePath(OpenDialog1.FileName) +
  'Bilder\' + ExtractFileName(OpenDialig1.FileName);

CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);

[SaFu]

ok ich gebe auf es funzt immer noch nicht der pfad mit dem ordner bilder ist da aber ich werde mal schauen ob ich es irgenwie hin bekomme will euch und dich nicht weiter nerven

[Matze]

Ich habe oben vorhin noch etwas editiert, ich hoffe, du hast die aktuelle Version genommen.

Lass dir doch mal die Pfade mittels SchowMessage ausgeben und überprüfe, ob diese stimmen:

ShowMessage(AlterPfad + #13#10 + NeuerPfad);
Edit: Achja, du könntest den Titel mal umbenennen, sodass er etwas über's Kopieren von Dateien aussagt.

[SaFu]

naja ganz klar es wird die datei von D:\eigenebilder in D:\eigenebilder\bilder kopiert obohl sie in einen anderen pfad muss der erste stimmt aber der zweite nicht.

[Matze]

Dann pass die Pfade eben so an, wie du sie haben möchtest. Hier kann dir so keiner helfen, woher sollen wir denn deine Verzeichnisstruktur kennen. Wenn du es selbst absolut nicht hinbekommst, dann poste den Inhalt beider Variablen und wie die Pfade auszusehen haben. Doch ich denke, das schaffst auch du.

Übrigens kannst du auch mittels

ShowMessage(SysErrorMessage(GetLastError)); den Fehler ausgeben lassen, der dein Programm zuletzt verursacht hat. In deinem Fall muss der Aufruf daher nach CopyFile erfolgen.