procedure CopyFile(SourceName, TargetName: String);
var S1,S2: TFileStream;
begin
S1:= TFileStream.Create(SourceName, fmOpenRead);
try
S2:= TFileStream.Create(TargetName, fmOpenWrite or fmCreate);
try
S2.CopyFrom(S1, S1.Size);
finally
S2.Free;
end;
finally
S1.Free;
end;
end;
pa je pozvao:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
CopyFile('C:\Program\baza.mdb','D:\Program\baza.mdb');
finally
ShowMessage('Finished');
end;
end;
E, sad, kad je program aktivan, nakacen je na bazu i ne mogu prekopirati na ovaj nacin bazu s C na D particiju. Pojavljuje se win poruka kako je nemoguce kopirati faj jer ga koristi drugi program, sto je i istina jer sam nakacen na bazu. Na bazu sam se nakacio prvo s TADOConnection, pa na tu komponentu sa TADOQuery. Pre kopiranja sam pokusao konekciju zatvoriti, pa po kopiranju ponovo je otvoriti ali bez uspeha?
Na kraju, bih vas zamolio da mi pomognete ispravno odraditi backup u ovom slucaju?