fernando_vip

Ai Strous O link está quebrado, posta para outro aí beleza? Abraços

Bom dia, Alguém sabe como dar um CHMOD 777 em local host? Falow

Tá dando um erro pois uso o delphi 06

acho que mandei o errado, é este: http://rapidshare.com/files/16769609/LOCADORA.rar.html

eu retirei o único exe que tinha Mas eis o link: http://rapidshare.com/files/16751138/CARTAO.rar

acabei de enviar para o seu email. aguardo

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

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

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.

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???

Posta o erro ou o código do form pra gente aí :}

Boa tarde amigo Com relação aos tópicos iguais procure não ficar pulando de tópico em tópico, isso é meio chato e não contribui para o bem do forum beleza?? Quanto à sua dúvida tenta isso : //Para efetuar cópia procedure TFormCopia.BitBtn1Click(Sender: tObject); var I: Integer; Begin Database1.Connect:=True; //DB para controle Table2.DatabaseName:=DirectoryListBox1.Directory; //Seleciona local de destino da cópia with Session1 do begin Active:=True; GetTableNames('AliasName','*.*',True,True,Memo1.Lines); //Retorna o nome das tabelas end; for I:=0 to Memo1.Lines.Count - 1 do begin Table1.TableName:=Memo1.Lines[I]; //tabela origem Table2.TableName:=Memo1.Lines[I]; //Tabela destino BatchMove1Execute; end; end; //Para efetuar restauração procedure TFormRestaura.BitBtn1Click(Sender: tObject); var I: Integer; Begin Database1.Connect:=True; //DB para controle Table2.DatabaseName:=DirectoryListBox1.Directory; //Origem da restauração with Session1 do begin Active:=True; GetTableNames(Table2.DatabaseName,'*.*',True,True,Memo1.Lines); //Retorna o nome das tabelas end; for I:=0 to Memo1.Lines.Count - 1 do begin Table1.TableName:=Memo1.Lines[I]; //tabela origem Table2.TableName:=Memo1.Lines[I]; //Tabela destino BatchMove1Execute; end; end; Espero que ajude Falow

Bom Dia Micheus, Cara valeu mesmo pela ajuda

Beleza mano, Infelizmente está fora das minhas capacidades, contudo vou pesquisar caso eu descubra antes de você postarei aqui bele?? falow

Olá, Como tmb sou iniciante não tenho aquela receita de bolo, mas tem um tópico aqui no forum que me ajudou bastante eis ele: http://scriptbrasil.com.br/forum/index.php?showtopic=89988 falow

Posso tá falando besteira mas você já verificou se o indentificador está na sua unit??? "Identificador não declarado 'TableName' ."

Bem... Eu resolvi o Proble ma addd um Ds para este declaração, contudo dá erro do LoadFromFile, tem algum outro comando que faça a mesma coisa opu tem como arrumar este erro? Erro: [Error] U_CADFILM.pas(53): Undeclared identifier: 'LoadFromFile' [Fatal Error] PRJ_FILM.dpr(7): Could not compile used unit 'U_CADFILM.pas'

Olá amigo Dá uma olhada neste tópico, acho que vai te ajudar: h ttp://scriptbrasil.com.br/forum/index.php?showtopic=89988 Falow

Com relação ao ao truncamento da db: Qr que o usuário possa usar o db por 10 vezes; Qt ao erro de execução, o que pode ser?; quanto ao erro do do btn, eu resolvi mas só Deus sabe como pois eu não sei muito, já que fiz várias coisas, rs, as vezes esqueço de agradecer mas muito obrigado por está me ajudando, valeu mesmo. Será que agora dá para entendewr o que estou querendo???

Olá galera, Quando mando meu prj rodar ele dá o seguinte erro em tempo de execução: Project PRJ_FILM.exe raised exception class EReader with message 'Invalid property value'. Process stopped. Use step or Run to continue Que erro é esse? Como evitar isso?

eis os Erros: [Error] U_CADFILM.pas(51): Undeclared identifier: 'DataSource1CAPA' [Error] U_CADFILM.pas(51): Missing operator or semicolon [Fatal Error] PRJ_FILM.dpr(6): Could not compile used unit 'U_CADFILM.pas' Eu uso o Paradox7

Como Faço para truncar um db em 10 inserções?

Bom dia, Estou estudando campos blob e no carrgar foto que criei está dando um erro, eis os códigos: do form de cadastro: unit U_CADFILM; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, StdCtrls, Mask, DBTables, Buttons, ExtDlgs; type TFRRM_CADFILM = class(TForm) Table1: TTable; Table1CODFILM: TAutoIncField; Table1NOME: TStringField; Table1ANO: TDateField; Table1SINOPSE: TStringField; Table1CAPA: TBlobField; Label1: TLabel; DBEdit1: TDBEdit; DataSource1: TDataSource; Label2: TLabel; DBEdit2: TDBEdit; Label3: TLabel; DBEdit3: TDBEdit; Label4: TLabel; DBEdit4: TDBEdit; Label5: TLabel; DBmgFOTO: TDBImage; DBNavigator1: TDBNavigator; btnFoto: TBitBtn; OpnPctrDlg1: TOpenPictureDialog; procedure btnFotoClick(Sender: TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField); private { Private declarations } public { Public declarations } end; var FRRM_CADFILM: TFRRM_CADFILM; implementation {$R *.dfm} procedure TFRRM_CADFILM.btnFotoClick(Sender: TObject); begin if OpnPctrDlg1.Execute then Begin DataSource1.Edit; DataSource1CAPA.LoadFromFile(OpnPctrDlg1.FileName); end; end; procedure TFRRM_CADFILM.DataSource1DataChange(Sender: TObject; Field: TField); begin end; end. Do form principal: Unit U_FILM; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus; type TFRM_FILM = class(TForm) MainMenu1: TMainMenu; Arquivo1: TMenuItem; Sair1: TMenuItem; Cadastro1: TMenuItem; Relatrio1: TMenuItem; Ajuda1: TMenuItem; Sobre1: TMenuItem; StatusBar1: TStatusBar; procedure Sair1Click(Sender: TObject); procedure Cadastro1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FRM_FILM: TFRM_FILM; implementation {$R *.dfm} Uses U_CADFILM; procedure TFRM_FILM.Sair1Click(Sender: TObject); begin Close; end; procedure TFRM_FILM.Cadastro1Click(Sender: TObject); begin FRRM_CADFILM.ShowModal; end; end.

Olá pessoal, vou demonstrar rapidamente como é fácil e rápido trabalhar com aplicações multimídia no delphi, com apenas algumas linhas de código e muita criatividade, podemos criar, por exemplo, um Player básico. Vamos lá: Primeiramente inicie o delphi e redimencione o forme até que fique do tamanho Desejado: Altere o Caption do form dando o nome que você quizer, já que é seu player rs, salve tudo. Em seguida adicione um TButton e um TOpenDialog, localizado na plheta Dialogs do delphi No caption do TButton escreva Abrir. Coloque também um objeto TMediaPlayer encontrado na palheta System. No evento ONCLICK do TButton adicione as linhas de código como mostra abaixo: procedure TForm1.BitBtn1Click(Sender: TObject); begin MediaPlayer1.Close; if OpenDialog1.Execute then begin MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Open; end; end; Dimensione os objetos: Na propriedade Filter do objeto OpenDialog1 adicione os seguintes itens: *.avi; *.mid; *.mp3; *.wav Salve tudo clicando em Save all no menu file e compile tudo dando um CRTL + F9, depois dê um F9 e é só alegria !!!!! Bons Estudos !!!!

Bom dia galera, Queria saber se alguém conhece algum link para o livro do Fernando Anselmo "Delphi Desvendando o Caminho das Pedras" que seja mais atual a versão para delphi 3? Falow