Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2010, 04:40   #1
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
Печаль Не копируется MDB файл через CopyFile

Доброе утро! Сабж. Просто тупо не копируется файл.
Код:
Код:
 CopyFile(PAnsiChar(ExtractFilePath(Application.ExeName) + 'base.mdb'),
             PAnsiChar(Form1.RzStatusPane36.Caption),True);
MS Access 2007 + Delphi 7
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

Последний раз редактировалось artemavd; 02.12.2010 в 05:07.
artemavd вне форума Ответить с цитированием
Старый 02.12.2010, 05:08   #2
MaxNik2009
Форумчанин
 
Аватар для MaxNik2009
 
Регистрация: 17.09.2009
Сообщений: 294
По умолчанию

а так:
Код:
 CopyFile(PAnsiChar(ExtractFilePath(Application.ExeName) + '\base.mdb'),
             PAnsiChar(Form1.RzStatusPane36.Caption),True);
принимаю благодарности в письменном виде( весы слева)...
MaxNik2009 вне форума Ответить с цитированием
Старый 02.12.2010, 06:01   #3
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

Вообще, CopyFile - это функция.
И что говорит GetLastError?
_Engine_ вне форума Ответить с цитированием
Старый 02.12.2010, 07:02   #4
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Возможно файл занят (например, тем же Access).
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 02.12.2010, 08:44   #5
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Всё копируется. Попробуйте так
Код:
CopyFile(PChar(ExtractFilePath(Application.ExeName)+'TestDB.mdb'),'d:\qqq.mdb',false);
или так
Код:
if not CopyFile(PChar(ExtractFilePath(Application.ExeName)+'TestDB.mdb'),'d:\qqq.mdb',false) then
 ShowMessage(IntToStr(GetLastError));
SERG1980 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как добавить внутрь jar файла mdb файл что работало ZigaZaga Java Базы данных (JDBC, JPA, Hibernate) 0 05.10.2010 15:21
CopyFile пишет файл размером 0 б. Alex Cones Общие вопросы Delphi 10 11.07.2010 03:44
Сохранить базу в отдельный .mdb файл GenniY БД в Delphi 0 23.05.2010 20:23
Не копируется ! Что делать! Студент3000 Свободное общение 0 09.05.2009 09:22
в 1 книге копируется значение ячейки, номер которой каждый раз увеличивается на 1... Dr.Alex Microsoft Office Excel 2 29.10.2007 20:29