Jhonas

no delphi tem exemplos na pasta Source exemplo: C:\program files\Borland\Delphi7\Source\xml\xdom.pas. ========================================================== componente para isso ( mas é pago ) http://www.torry.net/pages.php?id=216 DIXml v.5.5.0 SW 4662 k 03 Jul 2014 By The Delphi Inspiration. DIXml is an embedded XML, XSLT, and EXSLT processing library for Borland / CodeGear Delphi. It is build on the libxml2, libxslt and libexslt libraries. However, DIXml requires no DLLs or any other external files whatsoever. All required code is compiled completely into the application's executable. DIXml is the most feature-complete XML and XSLT solution for Delphi. Features: XML and HTML reading and writing, pull and push parser modes. XML and HTML document tree creation, traversal, load, and save. SAX interface. DTD validation. Encoding support for UTF-8, UTF-16, ISO-8859-1, ASCII (all native). XPATH processing. NameSpace support. XSLT processing. File, memory, and customized input / output. Outstanding performance. Fully functional Source: On purchase/registration Price: $130 Source Price: $260 Download: D2005 D2006 D2007 D2009 D2010 D6 D7 DXE DXE2 DXE3 DXE4 DXE5 DXE6 DXE64 ======================================================================================= ou tente ver nesses links http://www.activedelphi.com.br/forum/viewtopic.php?t=73830&sid=5c23effc79668257dbefbb7077e30dcd http://embarcadero.newsgroups.archived.at/public.delphi.vcl.components.using/200902/0902231461.html http://www.guj.com.br/java/153350-transformando-dados-de-um-resultset-em-xml abraço

fiz um teste aqui com esse código ... funciona perfeitamente unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, WMPLib_TLB, StdCtrls; type TForm1 = class(TForm) WindowsMediaPlayer1: TWindowsMediaPlayer; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure add2List(URL:String); var m:IWMPMedia; begin m := Form1.WindowsMediaPlayer1.mediaCollection.add(URL); Form1.WindowsMediaPlayer1.currentPlaylist.appendItem(m); end; procedure TForm1.Button1Click(Sender: TObject); begin with WindowsMediaPlayer1 do begin // Limpa a playlist. currentPlaylist.clear; // Aqui você vai adicionando as músicas: add2List('d:\musicas\thunderball.mp3'); add2List('d:\musicas\moonraker.mp3'); // Play controls.play; end; end; end. abraço

veja se voce não esqueceu de definir a uses uses WMPLib_TLB; ou veja outros exemplos que voce pode tentar adaptar ao seu código =============================================================================== fmMain4.WindowsMediaPlayer1.currentPlaylist.clear; for i := 0 to ListBox4.Count-1 do begin media:=fmMain4.WindowsMediaPlayer1.newMedia(WideString(fmControl.StringGrid1.Cells[1,strtoint(StringGrid1.Cells[3,i])])); fmMain4.WindowsMediaPlayer1.currentPlaylist.insertItem(i,media); end; fmMain4.WindowsMediaPlayer1.controls.playItem(fmMain4.WindowsMediaPlayer1.currentPlaylist.Item[ListBox4.ItemIndex]); fmMain4.WindowsMediaPlayer1.controls.play; ================================================================================ procedure TForm1.Button1Click(Sender: TObject); var l_CdDriveList: IWMPCdromCollection; l_CdDrive: IWMPCdrom; l_CdAlbum: IWMPPlaylist; l_CdMedia: IWMPMedia; i: Integer; begin l_CdDriveList := WindowsMediaPlayer1.cdromCollection; l_CdDrive := l_CdDriveList.Item(0); l_CdAlbum := l_CdDrive.Playlist; WindowsMediaPlayer1.currentPlaylist.clear; for i := 0 to l_CdAlbum.count -1 do begin l_CdMedia := l_CdAlbum.Item; WindowsMediaPlayer1.currentPlaylist.appendItem(l_CdMedia); end; WindowsMediaPlayer1.controls.play; end; ====================================================================== //Adicione essa procedure. procedure add2List(URL:String); var m:IWMPMedia; begin m := Form1.WindowsMediaPlayer1.mediaCollection.add(URL); Form1.WindowsMediaPlayer1.currentPlaylist.appendItem(m); end; procedure TForm1.Button1Click(Sender: TObject); var begin with WindowsMediaPlayer1 do begin // Limpa a playlist. currentPlaylist.clear; // Aqui você vai adicionando as músicas: add2List('C:\music.mp3'); add2List('C:\music2.mp3'); // Play controls.play; end; end; ============================================================ abraço

uma duvida....quando chegar no Build 9, o proximo vai para 0 e o release muda para 1 ? não ... sera ( 1.0.0.10 ) , ( 1.0.0.11 ) etc... voce é que tem que mudar a versão ou o release ... ok ? somente o build é que será incrementado abraço

va em Menu > Project e clique na opção < Build All Projects > ou < Build nomedoseuprojeto > somente dessa forma é que o numero da versão será incrementado ( 1.0.0.2 ) ( 1.0.0.3 ) ... etc abraço

caso o numero da versão não seja incrementado automaticamente, veja se não deixou alguma opção desmarcada OBS: uso sem problemas no delphi 7 abraço

tente esses http://netfeijao.blogspot.com.br/2009/12/consumindo-e-testando-clientes-rest.html http://www.devmedia.com.br/rest-json-e-client-modules-curso-de-multicamadas-com-delphi-e-datasnap-29/28808 abraço

está tudo explicado neste tópico de como usar o Version Info do delphi https://www.scriptbrasil.com.br/forum/topic/157112-resolvidocontrole-de-versao-da-aplicacao/?p=615765 abraço

passe o erro completo "access violation" + .. o que ?

veja: substitua o codigo em um unico checkbox ADOQuery1_Consultas_Marcadas.SQL.Add(' From marcar_consultas where data between :h1 and :h2' or data_retorno between :h3 and :h4'); ADOQuery1_Consultas_Marcadas.Parameters[0].Value:=ConverteData(DateTimePicker3.DateTime); ADOQuery1_Consultas_Marcadas.Parameters[1].Value:=ConverteData(DateTimePicker4.DateTime); ADOQuery1_Consultas_Marcadas.Parameters[2].Value:=ConverteData(DateTimePicker3.DateTime); ADOQuery1_Consultas_Marcadas.Parameters[3].Value:=ConverteData(DateTimePicker4.DateTime); OBS: se a data de retorno for maior que a data dos parametros h1 e h2 voce deve incrementar o numero de dias dos parametros h3 e h4 para abranger o escopo da pesquisa abraço

em qual componente ?

a versão MySQL 5.6.17 tem bugs que foram corrigidos na versão MySQL 5.6.19 http://dev.mysql.com/downloads/mysql/5.0.html abraço

use o componente dblookupcombobox http://www.eteavare.com.br/apostilas/informatica/mauro/dblookupcombobox.pdf mais informações sobre o assunto https://www.google.com.br/?gfe_rd=cr&ei=C27AU83EN4ih8AaKrIHoDg&gws_rd=ssl#q=dblookupcombobox+delphi+7+itemindex abraço

veja o post do Aroldo Zanela nesse link http://www.devmedia.com.br/forum/tef-teste-de-desligar-o-computador/362098 OBS: ao desligar o windows, o seu programa deverá estar rodando em segundo plano e dessa maneira voce deverá testar o fim da sessão do seu programa e executar a sua rotina antes dele ser fechado abraço

exemplo para o quickreport // No evento BeforePrint do QRBand, faça a seguinte rotina: procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); var Imagem: TJPEGImage; begin // Imprimindo direto do arquivo JPG Imagem := TJPEGImage.Create; Imagem.LoadFromFile('C:\sistemalogo\imagens\img0001.jpg'); QRImage1.Picture.Assign(Imagem); Imagem.Free; end; ================================================================= Para o Rave Reports veja na pagina 30 dessa apostila http://www.theclub.com.br/Restrito/Revistas/PDFS/2003/0309.pdf abraço

tente esses links https://www.google.com.br/?gfe_rd=cr&ei=x7y4U_WVK9fBgATcs4CwCA&gws_rd=ssl#q=ler+dataset+web+services+delphi abraço

veja esse post https://www.scriptbrasil.com.br/forum/topic/140424-resolvidoproblema-com-charset-de-textos-que-vem-do-banco-de-dados/?p=558386 abraço

veja se o exemplo nesse link te ajuda http://extremeprogramming.wordpress.com/2011/02/07/frames-a-classe-tframe-delphi/ abraço

veja o ultimo post desse link https://www.ibm.com/developerworks/community/forums/html/topic?id=77777777-0000-0000-0000-000014657505 abraço

l.SubItems.Add(i + 1); //aqui é problema.. como fazer um id com auto increment.. tente fazer o incremento fora do parenteses abraço

migrei para o Delphi XE6 e não consigo conectar no BD da o erro abaixo Erro DBX: Driver não pode ser inicializado corretamente. Biblioteca cliente pode estar faltando, não está instalado corretamente, a versão errada, ou o driver pode estar faltando no caminho do sistema. no seu video, mostra que o erro esta na versão da dll do DBX procure na net a versão correta para o Delphi XE6. abraço

Basta copiar a DLL "fbclient.dll"(normalmente esta em "C:\Arquivos de programas\Firebird\Firebird_1_5\bin") para a pasta "system32". Depois ir no "Executar"(Windows+R) e digitar o comando "regsvr32 fbclient.dll", para registrar a DLL. abraço

esse exemplo vai te dar uma ideia http://www.planetadelphi.com.br/downloading/3646 abraço

veja a function desse link http://www.forum-invaders.com.br/vb/showthread.php/40318-D%C3%BAvida-Clicar-em-Elemento-HTML-TWebBrowser?s=1288c7321337d8bf53446b992cfa11a3&p=287609&viewfull=1#post287609 abraço

veja nesse link ... informações que vão te ajudar http://www.fmxexpress.com/connect-to-a-remote-mysql-database-with-delphi-xe5-on-ios-and-android/ http://blog.devart.com/android-database-application-development-in-rad-studio-xe5.html abraço