Jhonas

tem nesse link http://www.4shared.com/file/iwb2ZFzX/rlink32.html abraço

WebBrowser1.Silent := True; não vai aparecer as mensagens de erro de script, mas está lá ... só que não é retornado. o Webbrowser faz interfaceamento com os navegadores instalados no seu micro, um deles é o IE. O script em browser são programas, onde o mesmo deve interpretar e executar esses scripts . Se um script com novas funções é mais atual e o navegador não suportar (mais antigos como IE7 vai acontecer erro de script) Tente chamar sua URL usando o seu navegador de Internet, com a opção de verificar o script de página. No FireFox existe um plugin que ele verifica onde está o script com problema. Se o problema acontece mesmo usando o navegador, o problema pode estar na propria pagina e não no componente. Pode ser tambem bug do componente ( webbrowser ) ( voce não informou qual a versão do seu delphi ) abraço

procure nesse link uma ferramenta para manipulação do Banco de Dados Firebird ( tem varios ) http://www.firebase.com.br/fb/downloads.php?categ=2 OBS: se voce tem o código fonte do programa, voce mesmo pode alterar a rotina onde a data é manipulada como fazer é com voce, pois o código esta com voce. abraço

Agora estou precisando pegar o número da mídia que está sendo executada pelo WMP. olhe no código Button2Click; Gostaria de encontrar um código que fixasse (travasse) o Form no fullscreen e o WMP dentro dele também. voce pode usar a propriedade FullScreen = True do WMP ou usar a propriedade WindowsState do Form deixando como wsMaximized =========================================================================== Uma melhorada no código unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, WMPLib_TLB, StdCtrls, Grids; type TForm1 = class(TForm) Button1: TButton; WindowsMediaPlayer1: TWindowsMediaPlayer; Edit1: TEdit; Button2: TButton; titelgrid: TStringGrid; Button3: TButton; function cddvd(cddvd: Integer): Boolean; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} // INFORMAÇÕES SOBRE A MUSICA function TForm1.cddvd(cddvd: Integer): Boolean; var LThePlayList: IWMPPlaylist; loop :Integer; begin LThePlayList := WindowsMediaPlayer1.cdromCollection.Item(0).Playlist; Windowsmediaplayer1.currentPlaylist := LThePlaylist; for Loop := 0 to LThePlayList.Count - 1 do begin titelgrid.RowCount := Loop + 1; titelgrid.Cells[0, Loop] := IntToStr(Loop + 1); titelgrid.Cells[1, Loop] := LThePlayList.Item[Loop].name; titelgrid.Cells[2, Loop] := LThePlayList.Item[Loop].getItemInfo('Genre'); titelgrid.Cells[3, Loop] := LThePlayList.Item[Loop].durationString; titelgrid.Cells[4, Loop] := LThePlayList.Item[Loop].sourceURL; end; end; // FUNÇÃO PARA PEGAR O INDICE DA MUSICA function getCurrentMediaIndex(WMP: TWindowsMediaPlayer; cm: IWMPMedia): Integer; var pl: IWMPPlaylist; pm: IWMPMedia; i: Integer; begin Result := -1; pl := WMP.currentPlaylist; for i := 0 to pl.count-1 do begin pm := pl.Item; if pm.name = cm.name then Result := i; end; end; 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 cddvd(0); 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'); // Volume Inicial WindowsMediaPlayer1.settings.volume := 10; // Play controls.play; end; cddvd(0); end; procedure TForm1.Button2Click(Sender: TObject); var cm: IWMPMedia; i : integer; begin // INFORMA QUAL O VALOR DO INDICE DA MUSICA QUE ESTA SENDO EXECUTADA cm := WindowsMediaPlayer1.currentMedia; ShowMessage(IntToStr(getCurrentMediaIndex(WindowsMediaPlayer1, cm))); end; procedure TForm1.Button3Click(Sender: TObject); begin // INFORMAÇÕES ADCIONAIS showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('Name')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('author')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('Title')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('Album')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('copyright')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('Artist')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('Genre')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('Abstract')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('bitRate')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('duration')); showmessage( WindowsMediaPlayer1.currentMedia.getItemInfo('sourceURL')); end; end. ========================================================================== outro exemplo http://www.devmedia.com.br/desenvolvendo-um-media-player/6324 abraço

Por favor seja mais explicito quanto ao erro seria isso ou esta com endereço diferente ? error access violation at address 00000000 .read of address 00000000

quando voce clica no botão, aparece uma janela para voce salvar o conteudo do memo e tambem escolher o local onde deseja salvar o código funciona perfeitamente veja se o seu código esta parecido com esse unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) Memo1: TMemo; 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 if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; end. OBS: voce tem que colocar o componente SaveDialog1 no seu Form abraço

forma correta de uo procedure TForm1.btnsalvarClick(Sender: TObject); begin if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; abraço

se voce quer fazer isso na mão dá mais trabalho .... veja esse exemplo Var LDocument : IXMLDocument; RootNode, Empresa, EmpAttrib, Filial, EmpFilialP, EmpFilialM, Endereco, Rua, Bairro, Municipio, UF, CNPJ, CEP : IXMLNode; begin LDocument := TXMLDocument.Create(nil); LDocument.FileName := ''; LDocument.XML.Text := ''; LDocument.Active := False; LDocument.Active := True; LDocument.Version := '1.0'; LDocument.Encoding := 'ISO-8859-1'; // ROOT RootNode := LDocument.AddChild('mensagemSGF','urn:sgf-schema'); // CRIAR ELEMENTO RAZAO SOCIAL Empresa := LDocument.CreateNode('RAZAOSOCIAL', ntElement); RootNode.ChildNodes.Add(Empresa); // CRIAR ATRIBUTO RAZAO SOCIAL EmpAttrib := LDocument.CreateNode('RAZAOSOCIAL', ntAttribute); EmpAttrib.Text := 'DROGARIA são PAULO'; Empresa.AttributeNodes.Add(EmpAttrib); // CRIAR ATRIBUTO CNPJ CNPJ := LDocument.CreateNode('CNPJ', ntAttribute); CNPJ.Text := '34.654.765/0001-07'; Empresa.AttributeNodes.Add(CNPJ); // CRIAR ELEMENTO FILIAL Filial := LDocument.CreateNode('FILIAL', ntElement); Empresa.ChildNodes.Add(Filial); // CRIAR ATRIBUTO FILIAL 1 EmpFilialP := LDocument.CreateNode('FILIAIS', ntAttribute); EmpFilialP.Text := 'DROGARIA são MIGUEL'; Filial.AttributeNodes.Add(EmpFilialP); // CRIAR ATRIBUTO FILIAL 2 EmpFilialM := LDocument.CreateNode('FILIAIS', ntAttribute); EmpFilialM.Text := 'DROGARIA são JOAO'; Filial.AttributeNodes.Add(EmpFilialM); // CRIAR ELEMENTO ENDERECO Endereco := LDocument.CreateNode('ENDERECO', ntElement); RootNode.ChildNodes.Add(Endereco); // CRIAR ATRIBUTO ENDERECO Rua := LDocument.CreateNode('RUA', ntAttribute); Rua.Text := 'Rua das Palmeiras, 777'; Endereco.AttributeNodes.Add(Rua); // CRIAR ATRIBUTO BAIRRO Bairro := LDocument.CreateNode('BAIRRO', ntAttribute); Bairro.Text := 'Vila Albuquerque'; Endereco.AttributeNodes.Add(Bairro); // CRIAR ATRIBUTO MUNICIPIO Municipio := LDocument.CreateNode('MUNICIPIO', ntAttribute); Municipio.Text := 'São Paulo'; Endereco.AttributeNodes.Add(Municipio); // CRIAR ATRIBUTO UF UF := LDocument.CreateNode('UF', ntAttribute); UF.Text := 'SP'; Endereco.AttributeNodes.Add(UF); // CRIAR ATRIBUTO CEP CEP := LDocument.CreateNode('CEP', ntAttribute); CEP.Text := '11.240-123'; Endereco.AttributeNodes.Add(CEP); // SALVAR O DOCUMENTO LDocument.SaveToFile('C:\Teste7.xml'); LDocument.Active := False; end; ======================================================================== voce vai ter como saida isso: <?xml version="1.0" encoding="ISO-8859-1" ?> - <mensagemSGF xmlns="urn:sgf-schema"> - <RAZAOSOCIAL xmlns="" RAZAOSOCIAL="DROGARIA são PAULO" CNPJ="34.654.765/0001-07"> <FILIAL FILIAIS="DROGARIA são JOAO" /> </RAZAOSOCIAL> <ENDERECO xmlns="" RUA="Rua das Palmeiras, 777" BAIRRO="Vila Albuquerque" MUNICIPIO="São Paulo" UF="SP" CEP="11.240-123" /> </mensagemSGF> Para usar o ClientDataSet voce teria que definir quem é o elemento e quem é o atributo ou pode tentar o link do código de conversão de UTF-8 para ISO-8859-1 abraço

voce quer digitar o texto a ser substituido ou quer trazer o texto a ser substituido de outro arquivo ? serão substituidas todas as linhas ou somente algumas ?

esse artigo vai te dar uma explicação muito boa sobre relacionamento entre tabelas http://juliobattisti.com.br/artigos/office/modelorelacional_p2.asp outros exemplos http://www.devmedia.com.br/quick-tips-criando-relacionamento-com-o-ibexpert/16391 http://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=12&cad=rja&uact=8&ved=0CCMQFjABOAo&url=http%3A%2F%2Fcentral.meganick.com.br%2Fdl.php%3Ftype%3Dd%26id%3D25&ei=NhgBVJLLIYjGgwTVhYLICg&usg=AFQjCNHzamy5-CzfJ1x9hMVqE2HSz5K9_Q&bvm=bv.74115972,d.eXY neste veja comandos SQL avançados http://www.diegomacedo.com.br/introducao-a-linguagem-sql-comandos-basicos-e-avancados-parte-1/ abraço

veja se isso te ajuda http://ifpascal.blogspot.com.br/2011/06/vetor-ordem-crescente.html http://www.hardware.com.br/comunidade/numeros-ordem/228449/ abraço

A THREAD é usada para executar instruções ou comandos em segundo plano então experimente dar um open na tabela trazendo no maximo 500 registros ... ai a thread vai ser muito eficiente abraço

Qual é o comando que voce colocou dentro da propriedade SQL do M.IBQuery4 ?

ok... tente esse link http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm ou esse post https://www.scriptbrasil.com.br/forum/topic/152942-resolvidocomo-interagir-o-delphi-com-paginas-web-para-pegar-valores/ abraço

passe o link da pagina

ex: a pessoa loga no login dela e ela passa para outra pessoa entra no login dela também obs; não existe senha segura se uma pessoa passa a sua senha para outra o seu programa é para ser usado, por somente uma pessoa, ou por varias pessoas ?

use o comando goto exemplos http://www.tutorialspoint.com/pascal/pascal_goto_statement.htm http://www.dcc.ufrj.br/~jonathan/docsPascal/apostila/capitulo4.html abraço

Faça uma adaptação a esse código uses xmldoc, xmlintf; procedure TForm1.Button1Click(Sender: TObject); var LDocument: IXMLDocument; RootNode: IXMLNode; begin LDocument := TXMLDocument.Create(nil); LDocument.Active := True; LDocument.Encoding := 'ISO-8859-1'; { Define o conteudo do documento } RootNode := LDocument.CreateElement('Test', ''); LDocument.DocumentElement := RootNode; // Coloque aqui a rotina para ler o ClientDataSet e // adicionar ao conteudo do Documento LDocument.SaveToFile('C:\Teste7.xml'); end; saida <?xml version="1.0" encoding="ISO-8859-1" ?> <Test /> . . abraço

antes de instalar o indy 10 voce deveria ter usado o CCleaner ( tem na net ) para limpar os registros do windows no caso de ficar solicitando arquivos na compilação, verifique o caminho para os arquivos Menu > Tools > Evironment Options > Library abraço

exemplo: Finalizar uma Thread procedure TFrmTelaIni.Button1Click(Sender: TObject); function TerminateThread(hThread: THandle; dwExitCode: DWORD); var sMSN : TShowMSN; begin sMSN := TShowMsn.Create(True); sMSN.FreeOnTerminate := True; if Terminated then TerminateThread(sMSN.Handle, 0); sMSN.Suspend; sMSN.Resume; end; ======================================= OBS: No help do delphi pesquise sobre Thread veja tambem esse link http://www.activedelphi.com.br/forum/viewtopic.php?t=45084&sid=3b69e53369aca2b1c94713df4e81ea0b abraço

exemplo do round robin em delphi que voce pode tentar adaptar para Console Application http://delphi.xcjc.net/viewthread.php?tid=46300 outro exemplo http://www.codeproject.com/Articles/17583/Round-Robin-Scheduling abraço

ok... a primeira parte do seu problema esta correta para as demais etapas, tem bastante material na net sobre o assunto ( analises combinatorias ) veja esses links https://www.google.com.br/?gfe_rd=cr&ei=1hb1U-W2OcP6gASruYCYDw&gws_rd=ssl#q=pascal+analise+combinatoria+futebol abraço

exemplos http://www.cetasistemas.com.br/GENIUPAL.zip http://forum.clubedohardware.com.br/topic/358690-genius-jogo-em-pascal/ abraço

gerar numeros aleatórios sem repetir CODE procedure TForm1.Button1Click(Sender: TObject); const N = 10; var I, L, M: Integer; Num: array[0..N - 1] of Integer; begin // GERAR NUMEROS ALEATORIOS SEM REPETIÇÃO Memo1.Clear; for I := 0 to N - 1 do Num := I; for I := N - 1 downto 1 do begin M := Random(I + 1); while M = 0 do // EXCLUIR O ZERO M := Random(I + 1); L := Num; Num := Num[M]; Num[M] := L; memo1.Lines.Append( inttostr(Num)); end; end; abraço

veja esse código de conversão http://fundementals.sourceforge.net/cUnicodeCodecs.html OBS: marque toda a linha e copie para o bloco de notas para ver o codigo corretamente abraço