Jhonas

acho que o PlaySound só executa som wav e midi 2 opções ou voce converte mp3 para wav ou então voce pode tentar usar o componente mediaplayer ( da paleta system ) uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin if ComboBox1.Items.Strings[ComboBox1.ItemIndex] = 'PT-BR' then begin if trim(Edit1.text) = 'A' then MediaPlayer1.FileName := ('C:\Som_Sucesso.mp3'); if trim(Edit1.text) = 'B' then MediaPlayer1.FileName := ('C:\Som_Erro.mp3'); MediaPlayer1.Open; MediaPlayer1.Play; end else begin if trim(Edit1.text) = 'A' then MediaPlayer1.FileName := ('C:\Sound_Sucess.mp3'); if trim(Edit1.text) = 'B' then MediaPlayer1.FileName := ('C:\Sound_Error.mp3'); MediaPlayer1.Open; MediaPlayer1.Play; end; end; abraço

Assim sendo essa soma (vertical) tem quer vir a partir da terceira coluna. Somo a terceira coluna e depois vou para a quarta coluna e assim vai. tá dificil entender ... né ? procedure TForm1.Button2Click(Sender: TObject); var i,j : integer; soma1, soma2 : integer; begin ClientDataSet1.Active := true; ClientDataSet1.First; soma1 := 0; soma2 := 0; for i := 0 to ClientDataSet1.RecordCount-1 do begin for j := 2 to ClientDataSet1.FieldCount - 1 do // somar a partir da 3ª coluna begin ShowMessage(vartostr(ClientDataSet1.Fields[j].DisplayName) + ' = ' + vartostr(ClientDataSet1.Fields[j].Value)); case j of 2: soma1 := soma1 + ClientDataSet1.Fields[j].Value; // 3ª coluna 3: soma2 := soma2 + ClientDataSet1.Fields[j].Value; // 4ª coluna end; end; ClientDataSet1.Next; end; end; a coluna começa com indice 0 esse código é somente um exemplo, voce tem que adptar o código as suas necessidades abraço

ignorar anos bissestos 1 ano = 365 dias e 6 horas => 365.25 dias ( para ano bissesto ) 1 ano = 365 dias ( sem ano bissesto ) 365 dias = 31536000 segundos procedure TForm1.Button1Click(Sender: TObject); var AnosSec : integer; // variavel como integer ou inteiro. begin AnosSec:= strtoint(edit1.Text) * 31536; edit2.Text:= IntToStr(AnosSec) + '000'; end; abraço

Opsss ... erro na digitação uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin if ComboBox1.Items.Strings[ComboBox1.ItemIndex] = 'PT-BR' then begin if trim(Edit1.text) = 'A' then PlaySound('C:\Som_Sucesso.mp3',1,SND_ASYNC); if trim(Edit1.text) = 'B' then PlaySound('C:\Som_Erro.mp3',1,SND_ASYNC); end else begin if trim(Edit1.text) = 'A' then PlaySound('C:\Sound_Sucess.mp3',1,SND_ASYNC); if trim(Edit1.text) = 'B' then PlaySound('C:\Sound_Error.mp3',1,SND_ASYNC); end; end; abraço

porém o correto seria não gravar o dados iguais faça um loop para verificar registros iguais e delete um deles abraço

ok... resposta esta acima abraço

voce esta se referindo ao idioma do teclado ? se for isso não há necessidade disso se mesmo assim quiser usar esse combobox ficaria assim ( mas não vejo lógica nisso ) uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin if ComboBox1.Items.Strings[ComboBox1.ItemIndex] = 'PT-BR' then begin if trim(Edit1.text = 'A') then PlaySound('C:\Som_Sucesso.mp3',1,SND_ASYNC); if trim(Edit1.text = 'B') then PlaySound('C:\Som_Erro.mp3',1,SND_ASYNC); end else begin if trim(Edit1.text = 'A') then PlaySound('C:\Sound_Sucess.mp3',1,SND_ASYNC); if trim(Edit1.text = 'B') then PlaySound('C:\Sound_Error.mp3',1,SND_ASYNC); end; end; abraço

veja http://easyfwgen.morizot.net/gen/index.php http://forum.clubedohardware.com.br/resolv...ras/102207?amp; abraço

veja http://www.maujor.com/dicas/pg_centrada.php abraço

porque tem que ser em um memo ? não poderia ser em um edit ? exemplo 1 uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin if trim(Edit1.text = 'A') then PlaySound('C:\Sound_Sucess.mp3',1,SND_ASYNC); if trim(Edit1.text = 'B') then PlaySound('C:\Sound_Error.mp3',1,SND_ASYNC); end; se não tocar mp3, use o componente MediaPlayer ... voce tambem pode armazenar a musica dentro de um arquivo de recursos .RES Procedure TForm1.Button2Click(Sender: TObject); var rStream: TResourceStream; fStream: TFileStream; fname: string; begin {this part extracts the mp3 from exe} fname:=ExtractFileDir(Paramstr(0))+'Intro.mp3'; rStream := TResourceStream.Create (hInstance, 'Intro', RT_RCDATA); try fStream := TFileStream.Create(fname, fmCreate); try fStream.CopyFrom(rStream, 0); finally fStream.Free; end; finally rStream.Free; end; {this part plays the mp3} MediaPlayer1.Close; MediaPlayer1.FileName:=fname; MediaPlayer1.Open; end; é só seguir a mesma lógica do exemplo acima ou faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...mp;highlite=mp3 abraço

procedure TForm1.Button1Click(Sender: TObject); begin // ligar e desligar o timer inc(on_off); if on_off = 1 then begin cont := strtoint(Edit1.text); Timer1.Enabled := true; Timer1.Interval := 1000; /// 1 segundo end else begin on_off := 0; Timer1.Enabled := false; end; end; no edit o contador vai começar no numero que voce digitar ( menor que 60 ) abraço

fiz um programa para bolsa de valores para um cliente ... utilizei o delphi 7 ( linguagem Pascal ) , banco de dados mysql e o delphi tem um componente nativo para gerar gráficos a linguagem é voce que escolhe ... poderia fazer em Visual Basic, Visual C++ ( interface grafica igual ao delphi, porem utiliza linguagem C ), em C++, Java, PHP ou outra na qual voce tivesse mais conhecimento abraço

na verdade não é tão simples assim, é um pouco complicado, mas vou tentar seguir o raciocinio do seu primeiro post coloque num form: 2 Edits 2 Botoes 1 Dbgrid 1 DataSource 1 ClientDatSet faça a ligação do DataSource com o ClientDataSet e com o DBgrid vamos ao código unit UQueryDin; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBClient, DBTables, Provider; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; DataSource1: TDataSource; ClientDataSet1: TClientDataSet; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; Edit3: TEdit; Edit4: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin // criar campos dinamicamente //verificamos se não tem nenhum field no ClientDataSet if ClientDataSet1.FieldCount = 0 then begin ClientDataSet1.FieldDefs.Clear;//Limpamos campos ClientDataSet1.FieldDefs.Add('Valor1',ftInteger);//adicionamos campos ClientDataSet1.FieldDefs.Add('Valor2',ftInteger); ClientDataSet1.CreateDataSet; end; ClientDataSet1.Append;//e inserimos dados ClientDataSet1.Fieldbyname('Valor1').AsInteger := StrToIntDef(Edit1.text,0); ClientDataSet1.Fieldbyname('Valor2').AsInteger := StrToIntDef(Edit2.text,0); ClientDataSet1.Post; edit1.Clear; edit2.Clear; edit1.SetFocus; end; procedure TForm1.Button2Click(Sender: TObject); var i,j : integer; soma1, soma2 : integer; begin ClientDataSet1.Active := true; ClientDataSet1.First; soma1 := 0; soma2 := 0; for i := 0 to ClientDataSet1.RecordCount-1 do begin for j := 0 to ClientDataSet1.FieldCount - 1 do begin ShowMessage(vartostr(ClientDataSet1.Fields[j].DisplayName) + ' = ' + vartostr(ClientDataSet1.Fields[j].Value)); case j of 0: soma1 := soma1 + ClientDataSet1.Fields[j].Value; 1: soma2 := soma2 + ClientDataSet1.Fields[j].Value; end; end; ClientDataSet1.Next; end; ClientDataSet1.Append;//e inserimos dados ClientDataSet1.Fieldbyname('Valor1').AsInteger := soma1; // soma total da coluna 0 ClientDataSet1.Fieldbyname('Valor2').AsInteger := soma2; // soma total da coluna 1 ClientDataSet1.Post; end; end. veja que estou criando 2 ( colunas ) campos virtuais para a minha tabela ( Valor1 e Valor2 ) digitando valores nos edits, e clicando no botão 1, eles vão sendo colocados dentro do dbgrid ao clicar no botão 2, faço a somatória das 2 colunas e insiro o valor das somatorias no ultimo registro veja se consegue entender a lógica do código OBS: se os campos virtuais fossem adicionados a uma query então já seria outra maneira de fazer abraço

voce que fazer uma copia do arquivo html e enviar ? vMailItem.Attachments.Add('C:\arquivo.rar'); ou código para envio de html: Var newText : TIdText; sPath : String; newAttach : TIdAttachment; imgID1, imgName1 : String; imgID2, imgName2 : String; begin // Endereço e ID das Imagens imgName1 := ExtractFilePath(Application.ExeName) + 'imagem1.jpg'; imgID1 := CreateUniqueID; imgName2 := ExtractFilePath(Application.ExeName) + 'imagem2.jpg'; imgID2 := CreateUniqueID; // Configura o Servidor IdSMTP.Username := 'nome do usuário'; IdSMTP.Password := 'senha do usuário'; IdSMTP.Host := 'host smtp'; // Configura o Remetente da Mensagem IdMessage.Clear; IdMessage.Subject := 'Teste de Envio de Mensagem em formato HTML, com imagens anexadas'; IdMessage.From.Address := 'remetente'; IdMessage.From.Name := Remetene; // configura os destinatários IdMessage.Recipients.Clear; IdMessage.Recipients.Add; IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := 'para@brasil.com.br'; IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name := 'nome'; // Adiciona o HTML ao corpo da mensagem newText := TIdText.Create(IdMessage.MessageParts,nil); newText.ContentType := 'text/html'; newText.Body.Add('<HTML><BODY>'); newText.Body.Add('<H2>Teste de Envio de Email HTML Embeded</H2>'); newText.Body.Add('<IMG>'); // Troca imagens pelo ID unico newText.Body.Add('<IMG>'); // Troca imagens pelo ID unico newText.Body.Add('</BODY><HTML>'); // Adiciona uma parte texto ao corpo newText := TIdText.Create(IdMessage.MessageParts,nil); newText.ContentType := 'text/plain'; newText.Body.Add('Este email só será visualizado em padrão HTML'); // Anexa a primeira imagem newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName1); newAttach.ContentType := 'image/jpeg'; newAttach.ContentDisposition := 'inline'; newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId1+'>'; // Anexa a segunda imagem newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName2); newAttach.ContentType := 'image/jpeg'; newAttach.ContentDisposition := 'inline'; newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId2+'>'; // Envia IdSMTP.Connect; Try if IdSMTP.Connected then Begin IdSMTP.Send(IdMessage); End Finally IdSMTP.Disconnect; End; ShowMessage('Email Enviado.'); outro exemplo http://massuda.blogspot.com.br/2007/01/del...em-formato.html abraço

use o mysql-front... vai te ajudar nisso e muito mais http://www.superdownloads.com.br/download/100/mysql-front/ abraço

veja http://www.infowester.com/tutdos.php http://www.hardware.com.br/comunidade/coma...-acessar/57449/ abraço

veja se isso te ajuda http://www.maujor.com/dicas/pg_centrada.php abraço

esse código é pra voce ter um base de como iniciar o seu programa abraço

veja http://scriptbrasil.com.br/forum/index.php?showtopic=133589 abraço

se voce cria os campos virtuais, atribui valores e pode ver o resultado em um dbgrid, então voce pode usar o select para somar esses campos basta voce manter aberto o ClientDataSet abraço

exemplo - controle interno de estoque em java http://downloads.sourceforge.net/project/c...use_mirror=ufpr abraço

exemplos http://www.macoratti.net/cursql2.htm http://eduardolegatti.blogspot.com.br/2008...ionamentos.html http://glufke.net/oracle/viewtopic.php?t=883 http://education.oracle.com/pls/web_prod-p...c_id=D17108BP20 abraço

se voce tiver acesso a base de dados, voce pode usar o MYSQL-Front ( procure na net ) se for em um provedor pode usar o phpadmin para ter acesso a base de dados se for via programa ( codigo ) voce pode executar algum script para alterar esses parametros na tabela tipo ALTER TABLE `tweets` (... obs: na consulta não é possivel fazer isso e a unica coisa que vai afetar os registros, é que todos eles aceitarão caracteres especiais e acentos abraço

veja no primeiro link como é feito a configuração do SQLConnection http://www.planetadelphi.com.br/artigo/79/...-1.5-edbexpress http://www.activedelphi.com.br/forum/viewt...43b0eca5fdfc5b1 http://www.devmedia.com.br/forum/interbase...onnection/36808 abraço

exemplos http://scriptbrasil.com.br/forum/index.php?showtopic=140033 http://www.mail-archive.com/twsocket@elist...g/msg11921.html http://www.planetadelphi.com.br/dica/7486/...ssbar-e-thread- abraço