copyfile - leerzeichen

[nico44]

tach leutz,

ich hab ein kleines prob, tja für euch vielleicht klein für mich ein riesengrosses prob. :wall:

ich hab ein progi, welches dateien, welche in einer listview aufgelistet sind, auf einen entfernten client im lan kopiert.

das funzt eigentlich recht gut aber folgende zwei punkte sind noch offen:

- wenn die datei oder auch der ordner im pfad ein leerzeichen hat funzt gar nichts....

- wenn die datei grösser als 800kb ist sieht es so aus als würde das progi hängen aber machen tuts...

habt ihr vielleicht lösungsansätze zu diesen "kleinen" probs.

ich bin euch dankbar. :roll:

greetz
nico44

[Generalissimo]

das hängen vielleicht mit nem Thread umgehen (CopyFile in Thread auslagern), der dann vielleicht
aller x Sekunden eine Fortschrittsanzeige auffrischt.

[Dax]

Und beim CopyFile den Dateinamen in die doppelten Gänsefüßchen (") setzten.

[nico44]

hallihallo,

besten dank für die schnellen antworten. das mit den gänsefüsschen hab ich schon probiert funzt leider nicht:

Delphi-Quellcode:

var
  name : string;
  d : string;
...
p := '\\' + name + '\' + d + '\' + listview1.Items.Item[k].SubItems.DelimitedText;
s := listview1.Items.Item[k].Caption;
copyfile(pchar(s), pchar(p), true);

...

ich hab auch so probiert:

Delphi-Quellcode:

var
  name : string;
  d : string;
...
p := '"\\' + name + '\' + d + '\' + listview1.Items.Item[k].SubItems.DelimitedText + '"';
s := listview1.Items.Item[k].Caption;
copyfile(pchar(s), pchar(p), true);

...

geht aber nicht.

wie geht denn das mit nem thread, hab ich noch nie ausprobiert???

greetz
nico44

[edit=MrSpock]Code Tags angepasst. Mfg, MrSpock[/edit]

[himitsu]

Delphi-Quellcode:

copyfile(pchar('"' + s + '"'), pchar('"' + p + '"'), true);

Thread >> Frage zu Treads

--------------------------------

wir haben hier keine HTML-Tag's, sondern BBCode's

[code]...[/code]

Code:

...

[delphi]...[/delphi] << damit wird sogar der Delphi-Syntax hervorgehoben ;)

Delphi-Quellcode:

Begin
  { XXX }
  A := B;
End;

oder du nimmst die netten Buttons über dem Eingabefeld (Delphi-Code ...)

[Xeno-Sebi]

hm...gibts vielleicht so ne ulrdecode funktion, die aus leerzeichen %20 macht?

[himitsu]

bin mir nicht sicher, aber StringReplace geht auch

Delphi-Quellcode:

S := StringReplace(S, ' ', '%20', [rfReplaceAll]) // Leerzeichen > %20

Delphi-Quellcode:

CopyFile(PChar('"' + StringReplace(s, ' ', '%20', [rfReplaceAll]) + '"'), PChar('"' + StringReplace(p, ' ', '%20', [rfReplaceAll]) + '"'), true);

[nico44]

tach leutz,

danke für die hilfe.

es waren nicht die leerzeichen, welche probleme machten, sondern die gänsefüsschen, welche delimitedtext macht.

hab nun

Code:

P := StringReplace(P, '"', '', [rfReplaceAll]);

gemacht und es funzt :bounce1: . danke für die hilfe. das mit dem thread muss ich noch probieren.

ps: habs mit code gemacht, danke für den hinweis... :wink:

greetz
nico44