Sistema De Locadora

[fernando_vip]

Boa tarde,

um amigo me enviou um sistema p locadora bem filé, contudo ~ele faz referência a uma classe que não veio no prj e eu não ond encontrar, será que alguém tem alguma aí que eu possa substituir???

[schaukoski]

Fernando, qual o nome da classe? , pode ser um componente que ele está usando, que você não tem.

[Churc]

opa

da uma olhada aqui:

http://www.ramosdainformatica.com.br/ser_d...?CDN=3&VN=1

Procure por TBackupFile 5.1

abraço

[fernando_vip]

Eu coloquei ela na pasta do prj, mas não funciona, eis o código do form de backup:

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;

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.

[Churc]

opa

Fernando você instalou o componente TBackupFile?

Eu coloquei ela na pasta do prj, mas não funciona, eis o código do form de backup:

Você teria que instalar...

[fernando_vip]

como assim???

Como se fosse um componente da palheta do delphi?????

pode me explicar que erro é este:

Project SCVC.exe raised exception class EAccessViolation with message 'Access violation at address

004d338f in module 'SCVC.exe. Read af andress 00000000'. Process stopped. Use Step or Run to continue

falow

vbaleu pela ajuda

[Churc]

Opa

Neste post logo acima eu passei o que deve ser

o componente TBackupFile você precisa baixá-lo

e instalá-lo como se fosse não rs, como um componente

do Delphi, ele vai estar na palheta sim... ai depois você

abre o Form de Backup pra testar se realmente é este

componente...

Quanto ao erro, pode ser inúmeras coisas esse erro não

da pra saber assim... em que situação você tava quando

aconteceu este erro...

abraço

[fernando_vip]

esse erro ocorre qd eu compilo o prj, ele abre o menu mas qd cliko, por exemplo, em cadaastro de cartões, ele gera este erro.

Se você quiser posso mandar o codigo fonte para seu email p você olhar

o pacote TBackupFile 5.1 é só p delphi 5 e eu uso o 6

[Churc]

opa

Pode mandar...

cebassonospam@nospamgmail.com

Remova todos os nospam porque estes bots ficam roubando

os emails do fórum para fazer spam rs

eu tenho o delphi 6 posso tentar converter para você

abraço

[fernando_vip]

acabei de enviar para o seu email.

aguardo

[Churc]

Ok!

Só que eu só vou poder dar uma olhada quando estiver

em casa, aqui no serviço não vo poder eheh

Mas eu não recebi ainda não...

Detalhe, se no projeto tiver qualquer .exe, .bat, etc

o gmail vai bloquear e eu não vou receber mesmo, acho

legal você postar no Rapidshare talvez, ai você pode me

enviar o link por email ou até mesmo postar aqui!

abs

[fernando_vip]

eu retirei o único exe que tinha

Mas eis o link:

http://rapidshare.com/files/16751138/CARTAO.rar

[Churc]

Opa

Engraçado, neste que você enviou não tem nada relacionado

a Backup como você havia mencionado...

E também eu não tenho o QuickReport pra Delphi 2006 só vem

o Rave, ai não tem como eu compilar pra ver se está tudo ok...

Acho que não vou poder te ajudar, espero que outras pessoas

possam...

abraço

[fernando_vip]

acho que mandei o errado, é este:

http://rapidshare.com/files/16769609/LOCADORA.rar.html

[Churc]

Certo, faça o seguinte, eu dei umas ajustadas no componente

TBackupFile que você disse não estar compativel, e criei um

pacote...

Download aqui.

Instalação

Crie uma pasta chamada BackupFile na sua pasta Lib do Delphi,

onde normalmente fica em:

C:\Arquivos de Programas\Borland\Delphi 7\Lib

Ou qualquer pasta que esteja na sua Type Library ficando então:

C:\Arquivos de Programas\Borland\Delphi 7\Lib\Backupfile

Descompacte os arquivos do Zip na pasta Backupfile que você

criou, abra seu Delphi e clique no Menu File/Open, procure nesta

pasta por BackupFile.DPK, clique em Build All e Depois Install,

deve aparecer:

"The following components has been installed..."

Logo após feche a janelinha e se pedir pra salvar clique em No.

O componente eu mudei pra palheta Standard...

Ai depois você pode abrir o projeto normalmente...

abraço

[fernando_vip]

Tá dando um erro pois uso o delphi 06

[Churc]

Era pra funcionar rs...

qual o erro que dá, na instalação do componente?

Se você não disser não tem como ajudar... :rolleyes:

abs