Jhonas

A maneira mais simples: Para gerar um backup do banco usando o mysqldump.exe no prompt: //gera um script sql do banco meu_banco //no servidor ip_meu_servidor //e grava em um arquivo meu_banco.backup.sql mysqldump -h ip_meu_servidor meu_banco -u usuario -p > meu_banco.backup.sql abraço

vai o endereço de um projeto pronto http://forum.devmedia.com.br/viewtopic.php?t=86453 outro exemplo http://www.techtips.com.br/programacao/del...ivos-em-delphi/ abraço

Este está no lugar certo... mas acho que a unit que ele está pedindo deveria estar em C:\Arquivos de programas\Borland\Delphi5\Source\RTL\SYS ou C:\Arquivos de programas\Borland\Delphi7\Source\RTL\SYS como já disse, em não encontrando, melhor é reinstalar o delphi abraço

tem como colocar pra o campo seguinte assumir o local do campo ocultado ? Tem sim, mas é mais facil criar mais de um relatorio com os campos na posição que voce deseja, e mandar imprimi-los atraves de alguma seleção... como voce já disse ( ai vai dar muito trabalho ) abraço

Voce pode colocar este codigo no form create do primeiro form do seu programa ou outro lugar procedure TForm1.Button1Click(Sender: TObject); var caminho : string; begin caminho := ExtractFilePath(Application.ExeName)+'Arquivos'; Label1.Caption := caminho; end; abraço

Este programa é em qual linguagem ? para verificar atualizações, voce tem algum site ( seu ) em algum provedor ? voce sabe fazer upload de arquivo em seu site ? OBS: Quando for expor a sua duvida seja o mais claro e abranjente possivel. abraço

Eder.. este codigo é em java .... qual a sua duvida ??? Java ou delphi ??? se for Java vou mover seu tópico para a área apropriada.. ok ? abraço

O Media Player reproduz arquivos de video local .... se voce quer reproduzir videos diretamente da internet, voce deve procurar por componentes que tenham esta função, ou então criar uma rotina para procurar e salvar o arquivo de video em seu micro, para depois visualiza-lo. exemplos: http://www.mitov.com/html/start_download_v...lab_delphi.html http://3d2f.com/tags/video/grabber/delphi/ abraço

Project1.exe elevou classe de exceção EDatabaseError com mensagem ' Campo ' idClientes' têm que ter um valor'. Processo parou. Se voce definiu o campo como not null ( Não Nulo ) então o programa espera que o campo idClientes sempre tenha um valor abraço

procedure TFrmCarteiraDeCheque.DbgCarCheDblClick(Sender: TObject); begin TblCheques.first; if TblCheques.Locate('Codigo',itemx,[loCaseInsensitive, loPartialKey]) then begin if MessageDlg('Deseja Apagar o Registro ?' , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin TblCheques.Delete; TblCheques.Refresh;//.ApplyUpdates; end; end else begin MessageDlg('O Registro solicitado' + #13 + 'não foi encontrado.' , mtInformation,[mbOk], 0); end; end; procedure TFrmCarteiraDeCheque.DbgCarCheDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin itemx := TblCheques.FieldValues['Codigo'].AsInteger; end; que estou fazendo de errado?? OBS: O clique na celula ( Registro ) é para selecionar o conteudo da sua tabela que esta no campo Código o duplo clique é para executar a pesquisa em cima da tabela TblCheques uma vez que a variavel itemx tenha recebido o valor.... se não esta encontrando nada, então voce deve verificar se a variavel itemx esta realmente recebendo o valor do codigo que voce esta procurando. abraço

unit não encontrada: sysem.pas ou arquivo binario equivalente procure no micro por este arquivo ( system.pas ) caso não o encontre reinstale o delphi. abraço

Então faça uma comparação com o codigo do Demo com o seu e veja o que esta diferente. Em ultimo caso refaça totalmente o seu report. abraço

voce quer transmitir ou reproduzir videos ???

Veja se alugns destes posts te ajudam http://scriptbrasil.com.br/forum/index.php...ento+de+tabelas abraço OBS: Por favor Paulo.feiosa não faça duplicação de quotes ( siga as regras do forum )

Pesquise no forum por relacionamento de tabelas http://scriptbrasil.com.br/forum/index.php...ento+de+tabelas abraço

Endereço do projeto quase completo http://www2.eletronica.org/apostilas-e-ebo...la-paralela.pdf //Funções para leitura e escrita na Porta Paralela usando o DELPHI. //Por: Antonio Rogério Messias //Compile no DELPHI. //www.rogercom.com //rogercom@rogercom.com //-------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; Const Base = $378; //Endereço base da porta LPT; Dados = Base+0; //Endereço para escrita dos dados; Status = Base+1; //Endereço para leitura dos dados; Controle = Base+2; //Endereço para escrita; DadosEPP = Base+4; //ou Base+0, lê e escreve no modo EPP. BIT0 = $01; // 0000-0001 BIT1 = $02; // 0000-0010 BIT2 = $04; // 0000-0100 BIT3 = $08; // 0000-1000 BIT4 = $10; // 0001-0000 BIT5 = $20; // 0010-0000 BIT6 = $40; // 0100-0000 BIT7 = $80; // 1000-0000 type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; ButtonSair: TButton; procedure Timer1Timer(Sender: TObject); procedure ButtonSairClick(Sender: TObject); private { Private declarations } public { Public declarations } end; type TPorta = class(TForm) Function Recebe(PortaLpt:word):Byte; //Recebe byte da P.Paralela. Procedure Envia(PortaLpt:word; Valor:byte); //Envia byte p/ a P.Paralela. end; var Form1: TForm1; var Lpt: TPorta; implementation {$R *.DFM} //----------------------------------------------------------- Procedure TPorta.Envia(PortaLpt:word; Valor:byte); begin asm mov dx,PortaLpt mov al,Valor out dx,al end; end; //----------------------------------------------------------- Function TPorta.Recebe(PortaLpt:word):Byte; Var ret:byte; begin asm mov dx, PortaLpt in al,dx mov ret,al end; Recebe := ret; end; //----------------------------------------------------------- procedure TForm1.Timer1Timer(Sender: TObject); var Valor:Byte; begin Lpt.Envia(Controle,32); //Habilita leitura EPP. Valor := not Lpt.Recebe(DadosEPP); //Lê o valor. if (Valor and BIT0) = BIT0 then //Verifica estado do primeiro bit; begin Form1.Caption := 'Bit na posição 0 OK!'; beep(); end else if (Valor and BIT1) = BIT1 then //Verifica estado do segundo bit; begin Form1.Caption := 'Bit na posição 1 OK!'; beep(); end else if (Valor and BIT2) = BIT2 then //Verifica estado do terceiro bit; begin Form1.Caption := 'Bit na posição 2 OK!'; beep(); end else if (Valor and BIT3) = BIT3 then //Verifica estado do quarto bit; begin Form1.Caption := 'Bit na posição 3 OK!'; beep(); end else if (Valor and BIT4) = BIT4 then //Verifica estado do quinto bit; begin Form1.Caption := 'Bit na posição 4 OK!'; beep(); end else if (Valor and BIT5) = BIT5 then //Verifica estado do sexto bit; begin Form1.Caption := 'Bit na posição 5 OK!'; beep(); end else if (Valor and BIT6) = BIT6 then //Verifica estado do sétimo bit; begin Form1.Caption := 'Bit na posição 6 OK!'; beep(); end else if (Valor and BIT7) = BIT7 then //Verifica estado do oitavo bit; begin Form1.Caption := 'Bit na posição 7 OK!'; beep( ); end; end; //----------------------------------------------------------- procedure TForm1.ButtonSairClick(Sender: TObject); begin Lpt.Envia(Controle,0); //Desabilita leitura EPP. Close; //Finaliza o programa. end; end. Outras informações http://www.linhadecodigo.com.br/Artigo.aspx?id=1057 http://www.rogercom.com/pparalela/ExemploImpOut32.htm Acho que com isso voce já tera uma ideia inicial para o seu projeto abraço

como voce já disse antes: Tenho um aplicativo q usa o builderReport 7.0 ele funcionava normalmente antes, mas após instalar o delphi 7 .... a versão usada para o delphi 7 é a builderReport 7.0.2, então acho que voce deve trocar a versão. OBS: a versão full é paga.. endereço para a area de download para versões trial http://www.digital-metaphors.com/download/ abraço

Neste caso, delete o componente, va no menu do delphi Project e clique em Build All Projects .... mesmo que ocorram erros não se preocupe.... insira novamente o componente e faça o mesmo procedimento novamente para um teste mais especifico, crie uma nova aplicação e no form coloque apenas este componente e compile.... se não ocorrer erro então tambem não deverá ocorrer erro na sua aplicação. abraço

Erro Fatal: GeradorRelatorios.dpr : A Unit DaJoinTableDlg foi compilado com uma versão diferente de ppTreeVw.TppListView Este é um erro de versão para o componente ppTreeVw.TppListView, consiga o componente para o delphi 7 abraço

Veja se é isto C:\Arquivos de programas\Borland\Delphi5\Source\Rtl abraço

Bem simples... desinstale o norton e troque por outra versão, ou então use o AVG8 é gratuito e muito bom abraço

Voce precisa ler mais sobre delphi. var Form1: TForm1; itemx : integer = 0; implementation {$R *.DFM} procedure TForm1.DBGrid1DblClick(Sender: TObject); begin // PROCURAR NA TABELA QUE ESTA NO DBGRID2 UM REGISTRO PARA DELETAR if IBQuery1.Locate('CAMPODATABELA',itemx,[loCaseInsensitive, loPartialKey]) then begin if MessageDlg('Deseja Apagar o Registro ?' , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin IBQuery1.Delete; IBQuery1.ApplyUpdates; end; // executar outros comandos se for o caso end else begin MessageDlg('O Registro solicitado' + #13 + 'não foi encontrado.' , mtInformation,[mbOk], 0); Edit1.Clear; end; end; // No evento OnCellClick do DBGrid procedure TForm1.DBGrid1CellClick(Column: TColumn); begin itemx := IBQuery1ITEM.AsInteger; end; abraço

supondo que voce já tenha selecionado os registros na sua query exemplo: selec * from Clientes where Pagamentos = 'P' Todos os clientes com pagamamentos = 'P' deverão ser excluídos da tabela procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Deseja Apagar todos os Registros ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin if CDS_Tabela.RecordCount <> 0 then begin for i := 1 to CDS_Tabela.RecordCount do CDS_Tabela.Delete; CDS_Tabela.ApplyUpdates(-1); end; end; end; ou se preferir usar Query procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Deseja Apagar todos os Registros ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin if Query1.RecordCount <> 0 then begin for i := 1 to Query1.RecordCount do Query1.Delete; Query1.Post; end; end; end; abraço

voce tem que tentar algo assim: 1ª tabela: ( Query1 ) select * from Clientes 2ª tabela: ( Query2 ) select * from ClientesCopia para fazer a comparação entre as duas tabelas procedure TForm1.Button1Click(Sender: TObject); var i, num : integer; begin Query1.First; for i := 1 to Query1.RecordCount do // pega o registro begin for Num := 1 to Query1.FieldCount do begin if Query1.Fields[Num] = Query2.Fields[Num] then // compara o conteudo de cada campo do registro begin // se o conteudo do campo for igual faça end else begin // se o conteudo do campo não for igual faça end; end; Query1.Next; end; end; OBS: este é apenas um exemplo bem simples para voce ter um ponto de partida.. voce deve modifica-lo de acordo com as suas necessidades abraço

Aprenda a criar tabelas temporarias no delphi.... exemplos: http://delphitodelphi.blogspot.com/2007/09...ados-de-um.html http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=296 http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=21 http://www.arquivodecodigos.net/arquivo/vi...p?qual_dica=469 abraço