아폴론 님이 쓰신 글 :
: 파이어버드 디비 백업을 받기 위해 다음과 같이 했습니다.
: 될것 같아서 했는데... 다운을 받긴 받는데 빈껍데기만 받는것 같습니다. 크기가 실제는 4메가인데
: 다운은 0메가 네요...
: 아래 방법이 백업으로는 잘못된 것인가요?
:
:
: procedure TTr030F.StartBtnClick(Sender: TObject);
: var dn1,dn2,dncount : Integer;
: Buffer : array[1..1024] of char;
: begin
//=======
DataMd.DBApollon.Connected := False; ==> 요기추가하니 잘 되는군요...작업 후 다시 Open해주어야 겠죠...
: dn1 := 0;
: //다운받을 경로
: dn1 := FileCreate('C:\Program Files\Package\Data_BackUp\JDATABASE.FDB');
: dn2 := 0;
: //실제디비 경로 FDrive:'C:\Package\DataBase\JDATABASE.FDB'
: dn2 := FileOpen(FDrive, fmOpenRead);
: if dn2 <> -1 then begin
: dncount := FileRead(dn2,buffer, sizeof(buffer));
: while dncount <> 0 do begin
: fileWrite(dn1, buffer, dncount);
: dncount := FileRead(dn2, buffer,Sizeof(buffer));
: end;
: end;
:
: FileClose(dn2);
: FileClose(dn1);
: showmessage('OK');
: end;
|