Jhonas

no Windows Vista e no Win 7 o unico problema para acesso a banco de dados é somente permissão para escrita .... de permissão total ao usuario cadastrado no windows abraço

http://www.linhadecodigo.com.br/Artigo.aspx?id=405 http://www.linhadecodigo.com.br/Artigo.aspx?id=412 http://www.tutoriaisclube.com/noticia.php?notid=549 http://kakarecosdownload.blogspot.com/2008...i-completo.html tem muitos outros na Net .... basta procurar abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...capturar+imagem http://scriptbrasil.com.br/forum/index.php...e=salvar+imagem abraço

Forts report delphi 7 http://www.devmedia.com.br/articles/viewcomp.asp?comp=4709 Rlboleto delphi 7 http://www.devmedia.com.br/articles/viewcomp.asp?comp=4601 abraço

neste link tem um exemplo http://blogdoaudrey.blogspot.com/ abraço

Erro: Nenhuma biblioteca dinamica foi encontrada voce tem que procurar as dlls que devem estar na pasta do MYSQL e copia-las para a pasta c:\windows\system32 abraço

veja este link http://www.codigofonte.net/dicas-197/simul...o-MSN-no-delphi abraço

Se voce tiver paciencia e procurar com cuidado nos posts encontrará links para componentes de NFe e explicações de como implementar isso no seu programa ( a resposta esta nos posts mas não lembro em qual ) abraço

por isso falei que precisa de umas melhorias .... tem como fazer a reconfiguração das linhas e a dica é essa linha de código TMyDBGrid(DBGrid1).RowHeights[query1.RecNo] := 0; // voltar a altura normal tente fazer alguns testes para descobrir ... estou sem tempo para resolver esse problema abraço

sim ... os registros das tabelas com JOIN não podem ser deletados.... tabelas com JOIN servem apenas para consultas. a maneira de contornar isso é criar uma query especifica ( somente a tabela ) para excluir o registro e consequentemente uma outra query para deletar o registro referenciado. abraço

use o componente Animate da paleta Win32 ... roda avi abraço

http://scriptbrasil.com.br/forum/index.php...st&p=579859 ou http://scriptbrasil.com.br/forum/index.php...mp;highlite=nfe abraço

Pelo visto voce leu e não entendeu ... não é ? uses shellapi; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(handle,'explore',PChar(ExtractFilePath(Application.ExeName)), '','',SW_SHOWNORMAL); end; abraço

Veja este artigo: http://www.devmedia.com.br/articles/viewcomp.asp?comp=1311 abraço

Nesse caso voce terá que usar o componente MediaPlayer ( paleta System ) http://docwiki.embarcadero.com/CodeSamples...Player_(Delphi) veja este link http://www.devmedia.com.br/articles/viewcomp.asp?comp=613 abraço

use dessa maneira: uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin SndPlaySound(Pchar(ExtractFilePath(Application.ExeName)+'/som.wav'), SND_SYNC) end; abraço

deveria ficar assim WinExec(PChar(ExtractFilePath(Application.ExeName) + 'teste.exe'), SW_SHOW); ou ainda assim winexec('./teste.exe', sw_show); abraço

ou pesquise no forum pela palavra ExtractFilePath http://scriptbrasil.com.br/forum/index.php...ExtractFilepath abraço

o que voce esta querendo é um programa que capture tudo o que estiver sendo digitado no teclado veja este link http://superdownloads.uol.com.br/download/...home-keylogger/ abraço

qual a finalidade ?? seja mais completo na formulação de sua dúvida abraço

http://www.ctu.ufjf.br/~alberto/APOSTILAS2...0no%20D2007.pdf o procedimento é quase o mesmo para o quickreport 5 ou pode tentar: criar uma pasta '3rdparty' nesse caminho -> C:\Arquivos de programas\Borland\Delphi7\ rodar o programa QRFilecheck_setup.exe pegar a pasta quickrep502 e jogar dentro da pasta criada acima executar o QR502PD7 No Delphi 7 já vem incluso o Quick Report, ele apenas não instala os componentes automaticamente. Para instalar, abra o Delphi, va em Componet -> Install Packages, clique em ADD e localize o arquivo c:\arquivos de programas\borland\delphi7\bin\dclqrt70.bpl. Após isso a paleta do Quick Report será instalado. abraço

quando voce aumenta a fonte do texto, consequentemente aumenta a altura das linhas do dbgrid o mesmo vale para o StringGrid, com exceção da altura da linha que não é automática exemplo: procedure TForm1.BitBtn1Click(Sender: TObject); begin StringGrid1.Font.Color := clYellow; StringGrid1.Font.Size := 18; StringGrid1.Cells[1,1] := 'TEXTO'; end; abraço

Um Data Module é utilizado no Delphi para organizar a aplicação, tirando os componentes de acesso a banco de dados do nosso Form. http://www.micropic.com.br/noronha/Informa...ta%20module.pdf Vantagens e desvantagens do uso do DataModule http://www.devmedia.com.br/articles/viewcomp.asp?comp=14090 OBS: eu prefiro não usar o datamodule e colocar os componentes de acesso ao banco dentro do proprio form. Além de ficar restrito ao form, fica mais fácil fazer manutenção e o form só é usado depois de ser criado ... fica bem mais rapido abraço

A um tempo atráz fiz isso, mas o código precisa de umas melhorias unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Db, DBTables; type TForm1 = class(TForm) Query1: TQuery; Query1CODPRO: TStringField; Query1DESCRI: TStringField; DataSource1: TDataSource; DBGrid1: TDBGrid; procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; cc : integer = 14; cr : integer = 0; cx : integer = 0; implementation {$R *.DFM} type TMyDBGrid = class(TDBGrid) end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var R, Rx : TRect; begin inc(cx); R := Rect; Dec(R.Bottom,0); if cx = 1 then Rx := R; If odd(query1.RecNo) then begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= cl3DLight; if (cc = 14) and (Length(trim(Query1DESCRI.Value)) > 11) then // o nº 11 é o tamanho da quebra do texto begin cc := cc + 14; // o nº 14 é a altura da linha TMyDBGrid(DBGrid1).RowHeights[query1.RecNo] := cc; end else cc := 14; end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= clWhite; if (cc = 14) and (Length(trim(Query1DESCRI.Value)) > 11) then begin cc := cc + 14; TMyDBGrid(DBGrid1).RowHeights[query1.RecNo] := cc; end else cc := 14; end; if (gdSelected in state) then DBGrid1.Canvas.Font.Color:= clred else DBGrid1.Canvas.Font.Color:= clBlack; if Column.Field = Query1DESCRI Then begin if Length(Query1DESCRI.Value) < 11 then begin R := Rx; TMyDBGrid(DBGrid1).RowHeights[query1.RecNo] := 0; // voltar a altura normal end else TMyDBGrid(DBGrid1).RowHeights[query1.RecNo] := 14; // tamanho da altura com 1 quebra de linha DBGrid1.Canvas.FillRect(Rect); DrawText(DBGrid1.Canvas.Handle,PChar(Query1DESCRI.Value),Length(Query1DESCRI.Value),R,DT_WORDBREAK); cr := DrawText(DBGrid1.Canvas.Handle,PChar(Query1DESCRI.Value),Length(Query1DESCRI.Value),R,DT_WORDBREAK); TMyDBGrid(DBGrid1).RowCount := query1.RecordCount; end; end; end. OBS: Voce tem que levar em consideração que se o texto do campo do dbgrid ultrapassar mais de uma quebra de linha ele será incrementado de mais 14 ( altura da linha ) coloque o numero max de caracteres que cabem na linha do dbgrid ( no exemplo usei 11 ) ... por ex: se voce consegue ver 25 caracteres coloque no lugar do 11 o numero 25 ( que é a quebra do texto ) estude o código e faça as alterações necessárias abraço

pode ser, mas como eu disse, para tirar a dúvida faça uma outra aplicação somente para testar o comando sql estou usando delphi 5 e delphi 7 com interbase e o stored procedure está funcionando nos dois. abraço