Не понятки с OpenDialog1

[cw82]

Не могу понять в чем дело, да и загуглить правильно не могу свой вопрос.Надеюсь на понимание... В общем есть код:

procedure TForm1.Button5Click(Sender: TObject);
begin
if openDialog1.Execute
   then
   begin
   CopyFile(PChar(opendialog1.FileName),(PChar('11.cr')),false);

end;

     end;


procedure TForm1.Button6Click(Sender: TObject);{ПРоцедура сжатие и восстановление БД
Файл .mdb должен быть в той же папке где и прога}

var JetEng:OLEVariant;
    Src,Dest:ANSIString;
begin
  {Компонент ADOConnection1 связан с Bill.mdb, поэтому в его
  свойство Connected запишем значение False}
  ADOConnection1.Connected:=False;
   ADOQuery1.Active:=False;

  JetEng := CreateOleObject('JRO.JetEngine');

  Src:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Bill.mdb';
  Dest:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=~$.mdb';

  if FileExists('~$.mdb') then DeleteFile('~$.mdb');
  JetEng.CompactDatabase(Src,Dest);
  VarClear(JetEng);
  DeleteFile('Bill.mdb');
  RenameFile('~$.mdb','Bill.mdb');
  ADOConnection1.Connected:=True;



end;

Процедурой Button6Click я "сжимаю " базу Bill.mdb (которая лежит в папке с программой). Здесь все хорошо.
Если я сначало запускаю OPenDialog1 и выбираю там файл для копирования , а затем пытаюсь сжать базу то вылетает ошибка - не найден файл в D:/crec/Bill.mdb
В этом пути D:/crec не должно быть этого файла Bill.mdb , В общем такое ощущение как будто процедура сжатия БД берет путь для БД из OpenDialog.
Подскажите - кактак то??? Заранее благодарю. Весь день сижу, смотрю на это безобразие, а понять что делать не могу...

[Аватар]

В Options диалога настрой, что бы не менялся рабочий каталог по выходу из него (ofNoChangeDir). Но и это не поможет, если прога, например, с ярлыка будет стартовать и в нем не прописан рабочий каталог. Поэтому все пути должны быть полными

[cw82]

Сообщение от Аватар

В Options диалога настрой, что бы не менялся рабочий каталог по выходу из него (ofNoChangeDir). Но и это не поможет, если прога, например, с ярлыка будет стартовать и в нем не прописан рабочий каталог. Поэтому все пути должны быть полными

Я прописывал в свойствах опендиалога путь к папке с файлами, но это не помогло,или нужно прописывать путь прямо к файлу? Но файл каждые сутки будет новый,хотя в одной и той же папке, Как тогда быть? Мне не понятно почему процедура Опен диалога влияет на процедуру сжатия базы? Может можно как то отчистить опендиалог...типа Опендиалог.Close???

[Аватар]

В Options диалога настрой, что бы не менялся рабочий каталог по выходу из него (ofNoChangeDir)

Читай

[cw82]

Сообщение от Аватар

Читай

спасибо, ошибка пропала, только теперь этот файл opendialog1.FileName не копируется в 11.cr , те. какой бы файл в диалоге я не выбрал - 11. cr не меняется...
Спасибо что помогаете.

[Аватар]

Поэтому все пути должны быть полными

Это тоже желательно прочитать, что бы избегать такого рода ошибок
ExtractFilePath(Application.ExeName ) - вот он полный путь к каталогу твоего exe. Добавляй к нему имя файла с расширением и получишь полный путь к любому файлу в этом каталоге:
ExtractFilePath(Application.ExeName )+'Bill.mdb'

[cw82]

Сообщение от Аватар

Это тоже желательно прочитать, что бы избегать такого рода ошибок
ExtractFilePath(Application.ExeName ) - вот он полный путь к каталогу твоего exe. Добавляй к нему имя файла с расширением и получишь полный путь к любому файлу в этом каталоге:
ExtractFilePath(Application.ExeName )+'Bill.mdb'

Добрый день уважаемый Аватар, потратил весь день, прочитал Ваши посты на этом форуме по сабжу, сделал в своей проге следующее вместо

AssignFile(cr,'11.сr');

сделал

AssignFile(cr,ExtractFilePath(Application.ExeName)+'11.cr')

Спасибо Вам за это.
Но никак не догоню, что мне сделать чтобы --", только теперь этот файл opendialog1.FileName не копируется в 11.cr , те. какой бы файл в диалоге я не выбрал - 11. cr не меняется... "--
Если Вас не затруднит можете показать где мне применить ExtractFilePath(Application.ExeName ). Я начинающий... поэтому испытываю трудности даже на уровне грамматики языка. Спасибо.

[evg_m]

sourcefilename:=OpenDialog1.FileName; // ИМЯ и путь что будем копировать
targetfilename:=ExtractFilePath(Application.Exename) +'11.cr'; // ИМЯ и путь куда будем копировать
copyfile( Pchar(sourcefilename), Pchar(targetfilename), ... ); // ну и само копирование

[cw82]

Сообщение от evg_m

sourcefilename:=OpenDialog1.FileName; // ИМЯ и путь что будем копировать
targetfilename:=ExtractFilePath(Application.Exename) +'11.cr'; // ИМЯ и путь куда будем копировать
copyfile( Pchar(sourcefilename), Pchar(targetfilename), ... ); // ну и само копирование

Спасибо, что ответили. Сделал вот так :

procedure TForm1.Button5Click(Sender: TObject);
var
sourcefilename: String;
targetfilename: String;
begin
if openDialog1.Execute
   then
   begin
   //CopyFile(PChar(opendialog1.FileName),(PChar('11.cr')),false);
sourcefilename:= opendialog1.FileName; // ИМЯ и путь что будем копировать
targetfilename:= ExtractFilePath(Application.Exename) +'11.cr'; // ИМЯ и путь куда будем копировать
copyfile( Pchar(sourcefilename), Pchar(targetfilename),false ); // ну и само копирование

end;

     end;

К сожалению Opendialog1 по прежнему выбирает , но не копирует нужный файл в 11.cr . Если программу закрыть - открыть , то выбирает и копирует нужный файл... Если повторно выбираешь др файл, то по прежнему 11. cr остается со старыми данными...

[Аватар]

А 11.cr не открыт во время копирования? И Opendialog ни чего не копирует, копирует copyfile