JPG wird mit CopyFile fehlerhaft kopiert

[ThomasWB]

Die komplette Code-Zeile lautet:

Code:

if CopyFile(PChar(strSelectFile),PChar(strFilenameJpg)) then

Kopiert wird auf ein und derselben Festplatte und er gleichen Partition. Die Originaldatei hat eine Größe von 22kB, die "erzeugte" Datei ist 230kNB groß. Beim Kopieren mit dem Explorer funktioniert es einwandfrei.

Der Befehl

Code:

if not CopyFile(PChar(strSelectFile),PChar(strFilenameJpg)) then RaiseLastOSError;

geht fehlerfrei durch - aber die Zieldatei ist korrupt.

Anfang der Originaldatei:

00000000h: FF D8 FF E0 00 10 4A 46 49 46 00 01 01 01 00 00 ; ÿØÿà..JFIF......
00000010h: 00 00 00 00 FF DB 00 43 00 10 0B 0C 0E 0C 0A 10 ; ....ÿÛ.C........
00000020h: 0E 0D 0E 12 11 10 13 18 28 1A 18 16 16 18 31 23 ; ........(.....1#
00000030h: 25 1D 28 3A 33 3D 3C 39 33 38 37 40 48 5C 4E 40 ; %.(:3=<9387@H\N@
00000040h: 44 57 45 37 38 50 6D 51 57 5F 62 67 68 67 3E 4D ; DWE78PmQW_bghg>M
00000050h: 71 79 70 64 78 5C 65 67 63 FF DB 00 43 01 11 12 ; qypdx\egcÿÛ.C...
00000060h: 12 18 15 18 2F 1A 1A 2F 63 42 38 42 63 63 63 63 ; ..../../cB8Bcccc
00000070h: 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ; cccccccccccccccc
00000080h: 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ; cccccccccccccccc
00000090h: 63 63 63 63 63 63 63 63 63 63 63 63 63 63 FF C0 ; ccccccccccccccÿÀ
000000a0h: 00 11 08 01 1A 01 CD 03 01 22 00 02 11 01 03 11 ; ......Í.."......
000000b0h: 01 FF C4 00 1B 00 01 00 02 03 01 01 00 00 00 00 ; .ÿÄ.............
000000c0h: 00 00 00 00 00 00 00 01 05 02 03 04 06 07 FF C4 ; ..............ÿÄ
000000d0h: 00 4B 10 00 01 04 01 03 03 01 06 05 01 03 08 07 ; .K..............

Anfang der kopierten Datei:

00000000h: D0 CF 11 E0 A1 B1 1A E1 00 00 00 00 00 00 00 00 ; ÐÏ.ࡱ.á........
00000010h: 00 00 00 00 00 00 00 00 3E 00 03 00 FE FF 09 00 ; ........>...þÿ..
00000020h: 06 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 ; ................
00000030h: CB 01 00 00 00 00 00 00 00 10 00 00 FE FF FF FF ; Ë...........þÿÿÿ
00000040h: 00 00 00 00 FE FF FF FF 00 00 00 00 C7 01 00 00 ; ....þÿÿÿ....Ç...
00000050h: C8 01 00 00 C9 01 00 00 CA 01 00 00 FF FF FF FF ; È...É...Ê...ÿÿÿÿ
00000060h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
00000070h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
00000080h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
00000090h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
000000a0h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
000000b0h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
000000c0h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
000000d0h: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

[haentschman]

Hallo ThomasWB...

Sei so nett und hänge deine Delphi Version an dein Profil dran. Das macht manchmal Sinn...

[Mikkey]

Manchmal sieht man den Wald vor lauter Bäumen nicht.

Die Signatur der Kopie sieht nach einem Office(o.ä) Dokument aus.
Bist Du sicher, dass die Stringvariablen den von Dir vorgesehenen Inhalt haben?

[dummzeuch]

Zitat von ThomasWB:

Die komplette Code-Zeile lautet:

Code:

if CopyFile(PChar(strSelectFile),PChar(strFilenameJpg)) then

Wie himitsu schon schrieb: Das kann nicht Windows.CopyFile sein, weil der 3. Parameter fehlt.

function CopyFile(lpExistingFileName, lpNewFileName: LPCWSTR; bFailIfExists: BOOL): BOOL; stdcall;

Welches CopyFile wird da aufgerufen?

[ThomasWB]

@dummzeuch: Es wird das CopyFile von JvWinDialogs verwendet.

@Mikkey: Mit dem "den Wald vor lauter Bäumen nicht sehen" hattest du vollkommen recht. Ich hätte Stein und Bein geschworen, dass ich die Stringvariablen überprüft hatte. Wahrscheinlich war es dies auch zu Beginn. Dann habe ich den Dialog, mit dem ich strSelectFile auswähle, geändert und bei der Zuweisung zu der Variablen den Namen der alten Dialogkomponente verwendet. Dies habe ich nun korrigiert - und es funktioniert alles fehlerfrei.

Danke euch allen für eure Hilfe.