파이어버드 디비 백업을 받기 위해 다음과 같이 했습니다.
될것 같아서 했는데...  다운을 받긴 받는데 빈껍데기만 받는것 같습니다. 크기가 실제는 4메가인데
다운은 0메가 네요...
아래 방법이 백업으로는 잘못된 것인가요?


procedure TTr030F.StartBtnClick(Sender: TObject);
var dn1,dn2,dncount : Integer;
    Buffer : array[1..1024] of char;
begin
 
   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;