Jhonas

Na clausula uses, acrescente a unit QRExport Exportando para HTML: QuickReport.ExportToFilter(TQRHTMLDocumentFilter.Create('c:\teste.html')); OBS: A dica não funciona em todas as versões do Quickreport

Componente que exporta um data set para o excel... ótimo http://www.delphimais.com/uploads/$my...xcel_export.zip

Até onde eu sei não é possivel fazer isto, a não ser que voce tenha os fontes do BDS para poder alterar.

Acho que voce quer isso: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Shellapi, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure linkto(const aAdress: String); end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.LinkTo(const aAdress: String); var buffer: String; begin buffer := 'http://' + aAdress; ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, sw_hide); //SW_SHOWNORMAL); end; procedure TForm1.Button1Click(Sender: TObject); begin LinkTo('www.scriptbrasil.com.br/forum/?showforum=21'); // abre o internet explorer na pagina do forum end; end. Obs : defina na clausula uses ShellApi

Achei que pelo tópico era pra contar os clicks do mouse... Neste caso use um if para verificar se as aulas já passou de 15... se passou faz o registro em TxtExtCarro ou TXTExtMoto ... para melhor precisão na resposta é melhor postar o seu codigo.

SELECT * FROM Tabela_Somar, Tabela_Calcular você vai obter como resultado uma query com todos campos das duas tabelas , a partir dai é so trabalhar com os campos.

Normalmente voce usaria o FTP Explorer o o Dreamweaver para isto ... mas como voce quer usar o delphi, voce tera que ter acesso ao banco de dados e as transações deverão ser feitas atraves de download e upload Criando um sistema de atualização on-line. ( download e upload via FTP ) http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=802 Da uma olhada e veja se isto pode te ajudar.

Esse controle ActivX x-mplayer2 deve ser instalado no delphi. Se não tiver para instalar , pode tentar com esses... va na opção de menu do delphi "Component " e clique em Import ActivX Control e veja se encontra na lista de componentes AudioControls2 ActivX ou G4Audio ActivX Controls ou ainda tentar com o Windows Media Player (Versão 1.0)

um exemplo: Você possui 2 tabelas (VendasExternas e VendasInternas) e deseja fazer um resumo de todas as vendas de um vendedor chamado Marcos. Se você usar a sentença SELECT Nome, Valor FROM VendasExternas, VendasInternas WHERE Nome = 'Marcos' você vai obter como resultado uma query com 4 campos (Nome, Valor, Nome_1 e Valor_1) e um resultado bem confuso para ser manipulado. Para resolver o problema, você poderá usar a sentença SELECT Nome, Valor FROM VendasExternas WHERE Nome = 'Marcos' UNION ALL SELECT Nome, Valor FROM VendasInternas WHERE Nome = 'Marcos' A sentença acima pede para que sejam identificados as vendas de Marcos na tabela VendasExternas, e as vendas de Marcos na tabela VendasInternas e que o resultado da primeira seja unido com o resultado da segunda produzindo uma query com apenas 2 colunas.

Tenta desta maneira: procedure TForm1.Button1Click(Sender: TObject); begin qr_pesquisa.Active := false; qr_pesquisa.SQL.Clear; dbgrid1.DataSource := ds_pesquisa; qr_pesquisa.SQL.Add ('select MAXCod, Nome FROM tb_teste Where nome = '''+ TRIM(edit1.text)+''' GROUP BY nome HAVING MAX(MaxCod) = MAXCod ORDER BY Nome'); qr_pesquisa.Active := true; ShowMessage('Código do Cliente: ' + qr_pesquisa.FieldByName('MAXCod').AsString + ' / Nome do Cliente: ' + qr_pesquisa.FieldByName('Nome').AsString); end;

No evento onclick do botão btEnviar: procedure TForm1.btEnviarClick(Sender: TObject); var Anexo : Integer; begin IdMessage.Recipients.EMailAddresses := edtPara.Text; IdMessage.Subject := edtAssunto.Text; IdMessage.Body := mmMensagem.Lines; ou pode usar esta configuração //Configuração do IdMessage (dados da mensagem) IdMessage1.From.Address := 'fulano@bol.com.br'; //e-mail do remetente IdMessage1.Recipients.EMailAddresses := 'sicrano@bol.com.br'; //e-mail do destinatário IdMessage1.Subject := 'Assunto do e-mail'; //Assunto IdMessage1.Body.Add('Mensagem do e-mail'); //Corpo da mensagem como mandar para mais de um endereço: IdMessage1.Recipients.EMailAddresses := 'sicrano@bol.com.br ; fulano@bol.com.br ; beltrano@bol.com.br';

Realmente não lembrei de ajustar o codigo .. Valeu pela observação Micheus

Mudando o foco em uma linha/coluna do Dbgrid procedure TForm1.BitBtn1Click(Sender: TObject); begin DBGrid1.SelectedIndex := 1; // vai para a 2ª coluna Query1.LOCATE('Mes','Fevereiro',[loPartialKey]); // Efetua a busca por um mes determinado DBGrid1.Columns[1].Grid.SetFocus; // mostra a celula ativa end; OBS: alterar os valores do SelectedIndex para o numero da coluna .. vale tambem para Columns[nº da coluna]

Devo concordar com o Micheus, porque eu tambem não gosto, sendo assim vai outra modificação para voce, sem que seja necessario ler o arquivo inteiro duas vezes: procedure TForm1.SpeedButton1Click(Sender: TObject); var arq: textfile; Entrada : String; cont : integer; Linhas: Integer; Lista: TStringList; begin cont := 0; Lista := TStringList.Create; try Lista.LoadFromFile('C:\Documents and Settings\lanhouse\Meus documentos\MAX\Banco de Dados\3271_20070912\3271_20070910_Cadastro.txt'); Linhas := Lista.Count; finally Lista.Free; end; Progressbar1.Max := Linhas; //valor max do Progressbar em função do numero de linhas do arquivo assignfile(arq,'C:\Documents and Settings\lanhouse\Meus documentos\MAX\Banco de Dados\3271_20070912\3271_20070910_Cadastro.txt');//associa arquivo a variavel reset(arq);//abre arquivo DM.ADOQryCadastro.open; // abre a table DM.ADOQryCadastro.First; // aponta para o primeiro registro while not eof (arq) do begin Readln(arq,entrada); cont := cont + 1; progressbar.position :=cont; DM.ADOQryCadastro.append; Edit4.Text := Copy(Entrada,01,07); if (Edit4.Text = 'RESPOND') or (Edit4.Text = 'RENOVAD') then begin end else begin DM.ADOQryCadastroNumCadastroUnico.Value := StrToInt(copy(Entrada,01,07)); DM.ADOQryCadastroCodTipoPessoa.Value:= StrToInt(copy(Entrada,08,01)); DM.ADOQryCadastroCPF_CNPJ.Value := Copy(Entrada,19,14); DM.ADOQryCadastroNomeCliente.Value := Copy(Entrada,33,50); DM.ADOQryCadastro.post; // salva DM.ADOQryCadastro.Next; // vai para o próximo end; end; progressbar.position := 0; end;

Ai vai seu codigo com as modificações para usar o Progressbar: Function quantaslin ( nomeDoArquivo: String ):integer; var arq: TextFile;nr:integer; linha: String; begin nr:=0; AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin ReadLn ( arq, linha ); nr:=nr+1; end; CloseFile ( arq ); end; procedure TForm1.SpeedButton1Click(Sender: TObject); var arq: textfile; Entrada : String; cont : integer; begin cont := 0; Progressbar1.Max := quantaslin('C:\Documents and Settings\lanhouse\Meus documentos\MAX\Banco de Dados\3271_20070912\3271_20070910_Cadastro.txt');//valor max do Progressbar em função do numero de linhas do arquivo assignfile(arq,'C:\Documents and Settings\lanhouse\Meus documentos\MAX\Banco de Dados\3271_20070912\3271_20070910_Cadastro.txt');//associa arquivo a variavel reset(arq);//abre arquivo DM.ADOQryCadastro.open; // abre a table DM.ADOQryCadastro.First; // aponta para o primeiro registro while not eof (arq) do begin Readln(arq,entrada); cont := cont + 1; progressbar.position :=cont; DM.ADOQryCadastro.append; Edit4.Text := Copy(Entrada,01,07); if (Edit4.Text = 'RESPOND') or (Edit4.Text = 'RENOVAD') then begin end else begin DM.ADOQryCadastroNumCadastroUnico.Value := StrToInt(copy(Entrada,01,07)); DM.ADOQryCadastroCodTipoPessoa.Value:= StrToInt(copy(Entrada,08,01)); DM.ADOQryCadastroCPF_CNPJ.Value := Copy(Entrada,19,14); DM.ADOQryCadastroNomeCliente.Value := Copy(Entrada,33,50); DM.ADOQryCadastro.post; // salva DM.ADOQryCadastro.Next; // vai para o próximo end; end; progressbar.position := 0; end;

vai ai um exemplo que fiz para isso: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) FileListBox1: TFileListBox; DirectoryListBox1: TDirectoryListBox; Edit1: TEdit; procedure FileListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FileListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var S, s1: string; tag : integer; begin if key = VK_Delete then begin edit1.text := trim(FileListBox1.FileName); s := trim(FileListBox1.FileName); while Pos('\', S) > 0 do begin tag := Pos('\', S); S[Pos('\', S)] := '0'; end; s1 := copy(s,tag+1,20); if FileExists(trim(edit1.text)) then if MessageDlg('Deseja Apagar o arquivo ' + s1 + ' ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin DeleteFile(trim(edit1.text)); FileListBox1.Update; FileListBox1.Refresh; end else showmessage('Operação Cancelada'); end; end; end.

voce pode baixar as apostilas de como utilizar o install shield http://inf.unisul.br/~osmarjr/download/del...stallShield.zip http://www.apostilasbr.com.br/busca.asp?Qu...x=20&I1.y=9 http://inf.unisul.br/~osmarjr/download/del...odelphi3.02.zip http://inf.unisul.br/~osmarjr/download/del...ursodelphi4.zip http://br.geocities.com/all_software/downl...s/isexpress.zip http://paginas.terra.com.br/informatica/pa...phi/instalx.zip

Voce pode usar a busca no forum pela palavra chave webcam ... tem quase uns 20 posts a respeito do assunto, ou pode dar uma olhada neste post http://scriptbrasil.com.br/forum/index.php...st&p=439630

expression evalution not supported evolução de expressão não suportada tenta esta modificação SELECT Tab_Doacoes.Doc_Doa_Id, 10 AS Motivo, current_date AS Data, 937 AS Usuario, Tab_Doacoes.Doc_Id FROM Tab_Doacoes WHERE ((current_date - doc_data_operacao)>60) AND (Tab_Doacoes.Doc_Func_Operadora = 937) AND (Tab_Doacoes.Doc_Status_Doacao = 2)

utilize o component ShockwaveFlash1, na propriedade movie voce coloca o caminho do arquivo ex: c:\adm\relog1.swf na propriedade Loop voce deixa true na propriedade Scale voce deixa ShowAll na propriedade ScaleMode voce deixa 0 e na propriedade PlayIng voce deixa true para executar o arquivo flash Obs: funções inerentes ao proprio arquivo flah serão executadas sem problemas

Testei a linha de codigo que voce mostrou o erro .... não tem erro, a não ser que voce não tenha adicionado ao form o component TChart: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart; type TForm1 = class(TForm) chtGrafico: TChart; BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin chtGrafico.Title.Text.Clear; chtGrafico.Title.Text.Add('Gráfico Clientes por Cidade'); end; end.

Isto refere-se apenas ao exemplo que ele esta mostrando .... os caminhos, diretorios, arquivos, etc .. é voce que tem que definir para o seu projeto .... voce deve seguir o exemplo, mas trocando para o seu projeto.

voce pode usar o InstallShield Express que acompanha o delphi neste endereço tem mais informações a respeito: http://www.activedelphi.com.br/modules.php...icle&sid=10

Se voce foi testar em outra maquina, essa maquina no minimo tem que ter o interbase ou firebird instalado, caso contrario vai dar erro. OBS: os codigos do jeito que estão no post funcionam corretamente sem erro... se na sua maquina tem instalado o iterbase não vai dar erro.

Vai ai as alterações no codigo: unit FPrincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Menus; type TFrmPrincipal = class(TForm) MainMenu1: TMainMenu; Teste1: TMenuItem; SpbTeste: TSpeedButton; procedure FormCreate(Sender: TObject); procedure FormClick(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmPrincipal: TFrmPrincipal; vcpo, vvlr : tstringlist; retorno : string; implementation {$R *.dfm} Uses FCadTeste, FDtmTeste; procedure TFrmPrincipal.FormCreate(Sender: TObject); begin Vcpo := tstringlist.Create; Vvlr := tstringlist.create; end; procedure TFrmPrincipal.FormClick(Sender: TObject); procedure criaform ( form : tformclass); begin with form.Create(application) do try showModal; finally free; end; end; begin if (sender = Teste1) then criaform (TFrmTeste); if (sender = SpbTeste) then criaform (TFrmTeste); end; procedure TFrmPrincipal.FormActivate(Sender: TObject); var i : integer; num : real; begin if DtmTeste.DbaTeste.Connected = false then DtmTeste.DbaTeste.Connected := true; if not DtmTeste.TrcTeste.Active then DtmTeste.TrcTeste.Active := true; end; END. program Teste; uses Forms, FPrincipal in 'FPrincipal.pas' {FrmPrincipal}, Funcoes in 'Funcoes.pas', FDtmTeste in 'FDtmTeste.pas' {DtmTeste: TDataModule}, FCadTeste in 'FCadTeste.pas' {FrmTeste}; {$R *.res} var Caminho : TextFile; Line : string; begin Application.Initialize; Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TDtmTeste, DtmTeste); Application.CreateForm(TFrmTeste, FrmTeste); AssignFile(Caminho, 'C:\cfc\Net.Txt'); Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); FdtmTeste.DtmTeste.DbaTeste.DatabaseName := Line; end; CloseFile(Caminho); Application.Run; end. unit FDtmTeste; interface uses SysUtils, Classes, DB, IBCustomDataSet, IBQuery, IBDatabase; type TDtmTeste = class(TDataModule) DbaTeste: TIBDatabase; TrcTeste: TIBTransaction; QryTeste: TIBQuery; private { Private declarations } public { Public declarations } end; var DtmTeste: TDtmTeste; implementation {$R *.dfm} end. OBS: agora com o bloco de notas voce cria o arquivo com o nome Net.txt e coloque nele o caminho para o seu banco de dados aqui eu tive que usar assim: C:\Delphi5\Robinho\Teste\Teste\TESTE.GDB ( modifique o caminho para o seu banco de dados ) salve o arquivo na pasta que voce definiu : Testei aqui ... funcionando ok .... abraço