fernando_vip Postado Maio 13, 2005 Denunciar Share Postado Maio 13, 2005 Brazlandiaonline - O Portal Web de BrazlandiaEstou mudando um sistema para locodora e está dando alguns erros, vou postar o código e depois o erroCód:unit UnBackup;interfaceuses { Directivas de compilação } {$ifdef win32} BDE, { BDE 32 BITS } {$else} DBIProcs, DBITypes, DbiErrs, { IDAPI 16 BITS} {$endif} WinProcs, WinTypes, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, {backup1,} Buttons, DB, DBTables, backup, Gauges, backup1;type TFBackup = class(TForm) Panelbackup: TPanel; StaticText1: TStaticText; FileListBox: TListBox; BackupFile1: TBackupFile; SaveDialog: TSaveDialog; Gauge1: TGauge; BitBtn1: TSpeedButton; procedure BackupFile1Progress(Sender: TObject; Filename: String; Percent: TPercentage; var Continue: Boolean); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public function GetAliasPath( sAlias : String) : String; //retorna o caminho do alias end;var fBackup: TfBackup;implementation{$R *.DFM}function TfBackup.GetAliasPath( sAlias : String) : String;var oDataBase : TDatabase; pszDir : Pchar; sDir : String;begin try oDataBase := TDatabase.Create(nil); With oDatabase do begin try pszDir := StrAlloc( 255 ); AliasName := sAlias; DataBaseName := 'dblocadora'; Connected := true; DbiGetDirectory( Handle, true, pszDir ); sDir := StrPas( pszDir ); {$Ifdef Win32} Result := sDir; {$else} Result := sDir + '\'; {$endif} Connected := false; except on E:EOutOfMemory do MessageDlg('Problemas de memória ' + E.Message, MtError,[MBOK],0); end; end; finally StrDispose( pszDir ); oDataBase.Free; end;end;procedure TFBackup.BackupFile1Progress(Sender: TObject; Filename: String; Percent: TPercentage; var Continue: Boolean);begin with Gauge1 do begin visible := Percent < 100; if visible then Progress := Percent; end;end;procedure TFBackup.SpeedButton1Click(Sender: TObject);var vFileName, fAlias : String; Result : Integer; SearchRec : TSearchRec; vPath : String;begin MessageBeep(MB_ICONEXCLAMATION); BitBtn1.Enabled := False; vPath := GetAliasPath('dblocadora'); FileListBox.Items.Add(vPath+'*.*'); if Application.MessageBox('Deseja continuar com o backup?','Atenção',MB_ICONINFORMATION + mb_YesNo) = IdNo then Abort; if Filelistbox.items.count = 0 then Showmessage('Arquivos não adcionados') else with SaveDialog do if execute then begin if (uppercase(copy(filename, 1, 1)) = 'A') or (uppercase(copy(filename, 1, 1)) = 'D')or (uppercase(copy(filename, 1, 1)) = 'E') then begin Showmessage('Drive indicado - por favor verifique se o disco está inserido e clique em OK'); BackupFile1.maxSize := 1400000; //backup to floppy end else BackupFile1.maxSize := 0; backupfile1.backuptitle := 'dblocadora'; backupfile1.backupmode := bmAll; backupfile1.compressionLevel := clDefault; backupfile1.SaveFileID := False; if backupfile1.backup(filelistbox.items, filename) then Showmessage('Backup Completo. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %') else Showmessage('Backup falhou ou foi abortado'); //failed or aborted'); end; BitBtn1.Enabled := True;end;end.O Ero:[Fatal Error] UnBackup.pas(13): File not found: 'backup.dcu'Alguém pode ajudar? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Maio 13, 2005 Denunciar Share Postado Maio 13, 2005 Ta faltando essa unit backup.pas ou backup.dcuAbs. Progr'amador. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Maio 13, 2005 Autor Denunciar Share Postado Maio 13, 2005 Ta faltando essa unit backup.pas ou backup.dcuAbs. Progr'amador. você testou o código???Esta unt pode ser formada com que componentes? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Maio 13, 2005 Autor Denunciar Share Postado Maio 13, 2005 eu coloquei a unt Backup.pas, porém continua dando o mesmo erro.O q pode ser então? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Tbaiano Postado Maio 13, 2005 Denunciar Share Postado Maio 13, 2005 fernando_vip,Por acaso não renomeo-u, nehuma Unit...Esse erro pode ocorrer quando renomeamos Unit pelo Windows, e o Delphi não consegue mudar o Nome em todos as outras declarações, tem que fazer manualmente...Qualquer coisa.Tbaiano. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Vivendo&Aprendendo Postado Maio 13, 2005 Denunciar Share Postado Maio 13, 2005 Se por acaso continuar dando o erro va até a clausula uses e remova a Unit q esta dando o erro.falou Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Maio 13, 2005 Denunciar Share Postado Maio 13, 2005 eu coloquei a unt Backup.pas, porém continua dando o mesmo erro.O q pode ser então? você colocou? onde?tem certeza que é o mesmo erro? Se você colocou no mesmo diretórios que está o projeto não tem como da esse erronum serie nessa unit "backup1" o erro???Abs. Progr'amador. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Fredson Postado Maio 14, 2005 Denunciar Share Postado Maio 14, 2005 Acho que está Unit é do componente TBackupFile, você estalou o componente? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
fernando_vip
Brazlandiaonline - O Portal Web de Brazlandia
Estou mudando um sistema para locodora e está dando alguns erros, vou postar o código e depois o erro
Cód:
unit UnBackup;
interface
uses
{ Directivas de compilação }
{$ifdef win32}
BDE, { BDE 32 BITS }
{$else}
DBIProcs, DBITypes, DbiErrs, { IDAPI 16 BITS}
{$endif}
WinProcs, WinTypes, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, {backup1,} Buttons, DB, DBTables, backup,
Gauges, backup1;
type
TFBackup = class(TForm)
Panelbackup: TPanel;
StaticText1: TStaticText;
FileListBox: TListBox;
BackupFile1: TBackupFile;
SaveDialog: TSaveDialog;
Gauge1: TGauge;
BitBtn1: TSpeedButton;
procedure BackupFile1Progress(Sender: TObject; Filename: String;
Percent: TPercentage; var Continue: Boolean);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
function GetAliasPath( sAlias : String) : String; //retorna o caminho do alias
end;
var
fBackup: TfBackup;
implementation
{$R *.DFM}
function TfBackup.GetAliasPath( sAlias : String) : String;
var
oDataBase : TDatabase;
pszDir : Pchar;
sDir : String;
begin
try
oDataBase := TDatabase.Create(nil);
With oDatabase do
begin
try
pszDir := StrAlloc( 255 );
AliasName := sAlias;
DataBaseName := 'dblocadora';
Connected := true;
DbiGetDirectory( Handle, true, pszDir );
sDir := StrPas( pszDir );
{$Ifdef Win32}
Result := sDir;
{$else}
Result := sDir + '\';
{$endif}
Connected := false;
except
on E:EOutOfMemory do
MessageDlg('Problemas de memória ' + E.Message, MtError,[MBOK],0);
end;
end;
finally
StrDispose( pszDir );
oDataBase.Free;
end;
end;
procedure TFBackup.BackupFile1Progress(Sender: TObject; Filename: String;
Percent: TPercentage; var Continue: Boolean);
begin
with Gauge1 do
begin
visible := Percent < 100;
if visible then Progress := Percent;
end;
end;
procedure TFBackup.SpeedButton1Click(Sender: TObject);
var vFileName, fAlias : String;
Result : Integer;
SearchRec : TSearchRec;
vPath : String;
begin
MessageBeep(MB_ICONEXCLAMATION);
BitBtn1.Enabled := False;
vPath := GetAliasPath('dblocadora');
FileListBox.Items.Add(vPath+'*.*');
if Application.MessageBox('Deseja continuar com o backup?','Atenção',MB_ICONINFORMATION + mb_YesNo) = IdNo then
Abort;
if Filelistbox.items.count = 0 then
Showmessage('Arquivos não adcionados')
else
with SaveDialog do
if execute then
begin
if (uppercase(copy(filename, 1, 1)) = 'A') or (uppercase(copy(filename, 1, 1)) = 'D')or (uppercase(copy(filename, 1, 1)) = 'E') then
begin
Showmessage('Drive indicado - por favor verifique se o disco está inserido e clique em OK');
BackupFile1.maxSize := 1400000; //backup to floppy
end
else BackupFile1.maxSize := 0;
backupfile1.backuptitle := 'dblocadora';
backupfile1.backupmode := bmAll;
backupfile1.compressionLevel := clDefault;
backupfile1.SaveFileID := False;
if backupfile1.backup(filelistbox.items, filename) then
Showmessage('Backup Completo. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %')
else
Showmessage('Backup falhou ou foi abortado'); //failed or aborted');
end;
BitBtn1.Enabled := True;
end;
end.
O Ero:
[Fatal Error] UnBackup.pas(13): File not found: 'backup.dcu'
Alguém pode ajudar?
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.