перемещение файла, перемещение файла

Сейчас на форуме: jinoweb, bartolomeo, rmn (+5 невидимых)

Посл.ответ	Сообщение
Rio Ранг: 95.5 (постоянный), 36thx Активность: 0.08↘0.04 Статус: Участник	Создано: 04 августа 2017 10:52 · Личное сообщение · #1 Здравствуйте! Использую следующий код для перемещения файла, но не перемещается: Code: procedure TForm1.Button1Click(Sender: TObject); var s:string; p:PansiChar; p2:PansiChar; begin p:= 'C:\1921-57\1 коп\1 к 33 № 59.jpg';//откуда p2:= 'c:\1 к 33 № 59.jpg';//куда MoveFile(p, p2); end; end.

plutos Ранг: 622.6 (!), 521thx Активность: 0.33↗0.89 Статус: Участник _Вечный_Студент_	Создано: 04 августа 2017 11:13 · Личное сообщение · #2 Rio пишет: не перемещается: А что именно происходит? Error messages? call GetLastError() to determine the error occurred. GetLastError(): Error codes? Return value of MoveFile? ----- Give me a HANDLE and I will move the Earth. \| Сообщение посчитали полезным: Rio
Rio Ранг: 95.5 (постоянный), 36thx Активность: 0.08↘0.04 Статус: Участник	Создано: 04 августа 2017 11:22 · Поправил: Rio · Личное сообщение · #3 plutos пишет: А что именно происходит? Error messages? call GetLastError() to determine the error occurred. GetLastError(): Error codes? Return value of MoveFile? в отладчике пока не смотрел, но если жёстко прописать: MoveFile('C:\1921-57\1 коп\1 к 33 № 59.jpg', 'c:\1 к 33 № 59.jpg); то всё нормально.
Gideon Vi Ранг: 1131.7 (!!!!), 447thx Активность: 0.67↘0.2 Статус: Участник	Создано: 04 августа 2017 11:49 · Личное сообщение · #4 а что в p, p2 после присвоения? \| Сообщение посчитали полезным: Rio
Rio Ранг: 95.5 (постоянный), 36thx Активность: 0.08↘0.04 Статус: Участник	Создано: 04 августа 2017 13:13 · Поправил: Rio · Личное сообщение · #5 Gideon Vi пишет: а что в p, p2 после присвоения? до: 004520F8 . 52 PUSH EDX ; /NewName = "c:\1 к 33 № 59.jpg" 004520F9 . 50 PUSH EAX ; \|ExistingName = "C:\1921-57\1 коп\1 к 33 № 59.jpg" 004520FA . E8 B13EFBFF CALL <JMP.&kernel32.MoveFileA> ; \MoveFileA после: 004520F8 . 52 PUSH EDX ; /NewName = "Actx " 004520F9 . 50 PUSH EAX ; \|ExistingName = NULL 004520FA . E8 B13EFBFF CALL <JMP.&kernel32.MoveFileA> ; \MoveFileA eax = 0 надо из string в PansiChar наверное...
mysterio Ранг: 307.9 (мудрец), 196thx Активность: 0.18↘0 Статус: Участник	Создано: 04 августа 2017 13:39 · Поправил: mysterio · Личное сообщение · #6 надо из string в PansiChar наверное... Code: // А может не гадать и посмотреть объявление MoveFile ? BOOL MoveFile( LPCTSTR lpExistingFileName, // address of name of the existing file LPCTSTR lpNewFileName // address of new name for the file ); MoveFile(PChar(OldName), PChar(NewName)); // OldName/NewName - может быть хоть String, хоть PansiChar ... +Разрешение на запись само собой. ----- Don_t hate the cracker - hate the code. \| Сообщение посчитали полезным: Rio
Rio Ранг: 95.5 (постоянный), 36thx Активность: 0.08↘0.04 Статус: Участник	Создано: 04 августа 2017 13:54 · Личное сообщение · #7 mysterio пишет: // А может не гадать и посмотреть объявление MoveFile ? всё нормально просто дело в моей невнимательности, так тоже работает: Code: var p:PansiChar; p2:PansiChar; begin ShowMessage('hello'); p:= 'C:\1921-57\1 коп\1 к 33 № 59.jpg';//откуда p2:= 'c:\1 к 33 № 59.jpg';//куда //CopyFile(p,p2,true); всё норм спасибо всем!

Для печати