[es] - kopija fajla odnosno baze

dejov
Dejan Jovic
Zrenjanin

Član broj: 17537
Poruke: 88
*.ptt.yu

Profil

^{16.06.2004. u 15:51 - pre 241 meseci}

Imam jednu bazu employee.gdb koja se nalazi u istom direktorijumu kao i program.

Potrebno je da je kopiram u isti direktorijum ali sa drugim imenom i to onim koji je zadan u edit boxu? Kako?

Odgovor na temu

smjesko
Niko Nikogovic
bangladesh

Član broj: 18272
Poruke: 358
*.nn3.as52-tz.bih.net.ba.

Sajt: www.autotuning.ba

+1 Profil

Re: kopija fajla odnosno baze

^{22.06.2004. u 09:27 - pre 241 meseci}

stavi dva edit boxa edit1 i edit2 i jedno dugme. Unesi ovaj dole dio coda u on click proceduru i u edit boxove putanje i naziv filova . Trebalo bi biti to ja sam ovo napisao za backup i radi odlicno. nadam se da ce ti pomoci

var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(edit2.text) + ExtractFileName(Edit1.Text);
Msg := Format('Ubacite disketu u disketni pogon a: i kliknite na OK', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

Ako neznas pitaj... ako mozes pomozi..

Odgovor na temu