[delphi-br] DBISam Database System Version 2.11
Bom dia a todos como descrevi em mensagens anteriores assumi a manutenção de um sistema e o programador antigo não deixou os componentes na máquina o programa foi desenvolvido em Delphi 5 por acaso alguem tem esse componente: DBISam Database System Version 2.11 é um componente bem antigo, para trabalhar com DBISAM Não estou encontrando se alguem tiver um link onde posso baixá-lo agradeço Carlos
Re: [delphi-br] DBISam Database System Version 2.11
Boa tarde! Dá uma olhada nesses links: - Product information: [ http://www.elevatesoft.com/prodinfo?action=viewproduct=dbisamno=1 ] Para baixar um Trial é necessário se registrar no próprio site e se logar com a ID fornecida após o cadastro. O link para esse processo é [ http://www.elevatesoft.com/download?action=login ] Sds, Ricardo. _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 15/12/08, Carlos Fernando (Wiz Sistemas) wizsis2...@yahoo.com.br escreveu: Bom dia a todos como descrevi em mensagens anteriores assumi a manutenção de um sistema e o programador antigo não deixou os componentes na máquina o programa foi desenvolvido em Delphi 5 por acaso alguem tem esse componente: DBISam Database System Version 2.11 é um componente bem antigo, para trabalhar com DBISAM Não estou encontrando se alguem tiver um link onde posso baixá-lo agradeço Carlos Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida boba sobre Delphi 2007 - Como alterar os teamplates de código?
Como alterar os teamplates de código? Já fiz isso antes, mas não consigo lembrar a opção. Alguem lembra? -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com TStringList
Tem como eu descobrir o indice de um determinada linha do StringList? ex... tenho um edit com as linha que nao quero copiar usar um for pra percorrer todas as linhas e num if verificar se a linha que esta no stringlist é igual a que esta no edit o problema é que nao consigo pegar o indice dessa linha... ja usei indexof, mas se tenho linhas com valores repetidos ele ignora tbm... vlww's
Re: RES: [delphi-br] Dúvida com TStringList
eu apliquei esse exemplo fiz assim... for vI := 0 to vS.Count - 1 do begin if vS.IndexOf(vS.Strings[vI]) 0 then Memo1.Lines.Add(vS.Strings[vI]); end; esse if é pra não adcionar a linha 1 no memo... só que se tenho outro valor igual o dessa linha, ele não adciona no memo tambem, sendo que era pra adcionar... --- Em delphi-br@yahoogrupos.com.br, Juliano Silva - Yahoo smjjuli...@... escreveu procedure TForm1.bbt1Click(Sender: TObject); var vS: TStrings; vI: Integer; begin vs := TStringList.Create; vS.Add('A'); vS.Add('B'); vS.Add('C'); vS.Add('D'); vS.Add('E'); vS.Add('F'); for vI := 0 to vS.Count - 1 do begin ShowMessage(IntToStr(vS.IndexOf(vS.Strings[vI])) + ' - ' + vS.Strings[vI]); end; end;
RES: [delphi-br] Dúvida com TStringList
procedure TForm1.bbt1Click(Sender: TObject); var vS: TStrings; vI: Integer; begin vs := TStringList.Create; vS.Add('A'); vS.Add('B'); vS.Add('C'); vS.Add('D'); vS.Add('E'); vS.Add('F'); for vI := 0 to vS.Count - 1 do begin ShowMessage(IntToStr(vS.IndexOf(vS.Strings[vI])) + ' - ' + vS.Strings[vI]); end; end; De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de deco0_07 Enviada em: segunda-feira, 15 de dezembro de 2008 10:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dúvida com TStringList Tem como eu descobrir o indice de um determinada linha do StringList? ex... tenho um edit com as linha que nao quero copiar usar um for pra percorrer todas as linhas e num if verificar se a linha que esta no stringlist é igual a que esta no edit o problema é que nao consigo pegar o indice dessa linha... ja usei indexof, mas se tenho linhas com valores repetidos ele ignora tbm... vlww's __ Informação do NOD32 IMON 3684 (20081211) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Cadastro de Prefeitura e Prefeitos
Olá amigos, gostaria de saber se alguém já desenvolveu algum sistema para acompanhamento de processos de prefeituras. Estou com um projeto de desenvolvido para uma empresa de consultoria municipal e necessito levantar os requisitos para o desenvolvimento do mesmo. Se alguém já desenvolveu algo ou conhece algum demo que eu possa estudar (indicar) fico grato pela ajudar. Obs.: Não é um sistema para prefeitura e sim para uma empresa que preta consultoria para prefeituras, com recursos de agenda, pesquisar de certidões, sintegrar e etc. Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi + GPU
Olá pessoal, boa tarde. Gostaria de saber se alguém já desenvolveu algum exemplo de como usar os processadores das Placas de Vídeos em Delphi. Alguém saberia onde posso encontrar um exemplo? []s Topolniak. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Delphi + GPU
Olá pessoal, Dá uma olhada nesse link: (http://www.datastead.com/vidgrab/index.htm?gclid=CNSnyPSRw5cCFQUWGgodvTQVSg). Pode ser que tenha algo lá, se não, veja o VisioForge (http://www.visioforge.com/). []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: silviop...@yahoo.com.br Gmail, Google Talk: silviop...@gmail.com Hotmail, MSN: silvio_p...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ De: Luciano Topolniak topoln...@bol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 15 de Dezembro de 2008 12:09:02 Assunto: [delphi-br] Delphi + GPU Olá pessoal, boa tarde. Gostaria de saber se alguém já desenvolveu algum exemplo de como usar os processadores das Placas de Vídeos em Delphi. Alguém saberia onde posso encontrar um exemplo? []s Topolniak. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Retornar chave primaria de um combobox
Bom dia Ricardo! Então você vai ter de passar para eles a idéia de fazer na unha... Seleciona no combo o nome, dá um Locate( pois vai pesquisar por um capo outro...), achando armazena numa variável a PK, depois vai no outro arquivo, faz a mesma coisa, junta as duas informações e faz por útimo o que vc quer que eles façam com as duas informações... O commbobox é apenas para vc selecionar o valor que vai colocar no locate... não esqueça que o valor de chave de pesquisa do locate é variant e não string... aí... parafraseando alguns colegas... parece ser um pouco POG, não??? Mas como os alunos tem um nível bem elementar ainda... vai... mas que vai dar um trabalho retado, isso vai!!! Sds Emanuel Coutinho Rogerio Rios Pessanha escreveu: Bom Dia Emanuel. Bem, o DBLOOKUPCOMBOBOX(DATASOURCE-DATAFIELD-LISTSOURCE-LISTFIELD - KEYFIELD- ele altera os dados diretamente na tabela , ok ? Ou não ? Se altera não me serve) eu conheço mas acho que não serve. Deixa eu tentar explicar : Eu queria que o usuario selecionasse em 1 combo o nome do aluno e em outro combo o livro que o aluno pegou. E aí eu queria usar os campos PK da tabela aluno e livro de acordo com o que foi escolhido nos combos ( quando eu digo usar os campos PK quero dizer usá-los para filtragem - filter ou select - ou fazer buscas com findkey por exemplo). Os alunos não sabem TQUERY-SELECT então passar algo bem simples as vezes dá mais trabalho do que algo avançado. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Coutinho - Yahoo emanuelcouti...@... escreveu Colega... O componente dbLookupCombo faz isso... Se vc está fazendo um campo lookup, que na minha opinião é a melhor pedida, ao arrastar o TField da janelinha de campos da tabela para o form, ele já trás um pomponente lookupCombobox, para vc poder selecionar pelo nome do do aluno, escrevendo no campo que vc está editando a matrícula, ou chave primária que está usando na sua tabela. Você sabe definir um campo lookup na sua tabela? Sds Emanuel Couitnho Rogerio Rios Pessanha escreveu: Tenho um combobox abastecido com o campo nomealuno. Queria que ao ser selecionado algum item desse combo o mesmo me retornasse não o nome do aluno mas a CHAVE PRIMARIA da tabela em questão ( campo ncodaluno).
Re: [delphi-br] Registrar Formulários
Vinicius, no seu mdi vc poderia utilizar o registerclasses, retirando assim o register do seu formulário... initialization RegisterClasses( TfrmTipoHistorico, TfrmTipo, TfrmHistorico); Quanto ao sistema ficar maior, ele não irá alterar o tamanho do executavel, mas os arquivos de paginas do windons é aumentado consideravelmente por cada sistema executado. Trabalho com um sistema que tem uns 300 forms que necessitam ser registrados, pois o menu é dinamico e necessito dar um findclass no formulário, se não registrar, ele não consegue encontrar.. quando mando executar o sistema ele sobe 1 giga do arquivo de paginação do windows para cada sistema --- Em qui, 11/12/08, Vinicius vinic...@msisolucoes.com.br escreveu: De: Vinicius vinic...@msisolucoes.com.br Assunto: [delphi-br] Registrar Formulários Para: Comunidade Delphi delphi-br@yahoogrupos.com.br Data: Quinta-feira, 11 de Dezembro de 2008, 15:12 Pessoal, eu preciso registrar todos os formulário do meu projeto da seguinte maneira: initialization RegisterClass( TfrmTipoHistoric o); teria como fazer isso automaticamente para todos os formulários do sistema ?? alguém sabe me dizer, se o sistema pode ficar mais lento, ou maior, com todos os formulários registrados ?? Obrigado. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBISam Database System Version 2.11
Você pode baixar aqui: http://www.elevatesoft.com/prodinfo?action=list pagando é claro. 2008/12/15 Carlos Fernando (Wiz Sistemas) wizsis2...@yahoo.com.br Bom dia a todos como descrevi em mensagens anteriores assumi a manutenção de um sistema e o programador antigo não deixou os componentes na máquina o programa foi desenvolvido em Delphi 5 por acaso alguem tem esse componente: DBISam Database System Version 2.11 é um componente bem antigo, para trabalhar com DBISAM Não estou encontrando se alguem tiver um link onde posso baixá-lo agradeço Carlos -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Dúvida com TStringList
Humm, entendi então vai outra idéia, o exemplo abaixo está faltando algumas coisas, mas acho que pode te ajudar, consiste em primeiro mapear o seu texto, original da seguinte forma, veja o exemplo de mapa para o texto 'ABCABEFG'; Com o mapa montado, você agora passa a verificar seu valores neste mapa, se o encontrar ou não, saberá as posições que seu valor se encontra no texto original daí é só buscar os valores na posição original, deve ter algum outro exemplo mais fácil, mas por hora acho que este pode te ajudar valor posições A 1, 4 B 2, 5 C 3 E 5 F6 G 7 procedure TForm1.bbt1Click(Sender: TObject); type TMapa = record valor: string; posicoes: array [0..4] of Integer; end; var vMapa: array[0..100] of TMapa; vS: TStrings; vIndicesAdicionados: TStrings; vI: Integer; I, J, K, P: Integer; begin vTexto := 'ABCABEFG'; K := 0; for I := 1 to Length(vTexto) do begin P := 0; for J := 1 to Length(vTexto) do begin if vTexto[I] = vTexto[J] then begin {Tem q fazer uma verificação AQUI e SO adicionar no MAPA se não existir} vMapa[K].valor := vTexto[I]; vMapa[K].posicoes[p] := I; P := P + 1; end; end; K := K + 1; end; for vI := 0 to 3 do begin ShowMessage(vMapa[vi].valor); end; De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de deco0_07 Enviada em: segunda-feira, 15 de dezembro de 2008 10:41 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Dúvida com TStringList eu apliquei esse exemplo fiz assim... for vI := 0 to vS.Count - 1 do begin if vS.IndexOf(vS.Strings[vI]) 0 then Memo1.Lines.Add(vS.Strings[vI]); end; esse if é pra não adcionar a linha 1 no memo... só que se tenho outro valor igual o dessa linha, ele não adciona no memo tambem, sendo que era pra adcionar... --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Juliano Silva - Yahoo smjjuli...@... escreveu procedure TForm1.bbt1Click(Sender: TObject); var vS: TStrings; vI: Integer; begin vs := TStringList.Create; vS.Add('A'); vS.Add('B'); vS.Add('C'); vS.Add('D'); vS.Add('E'); vS.Add('F'); for vI := 0 to vS.Count - 1 do begin ShowMessage(IntToStr(vS.IndexOf(vS.Strings[vI])) + ' - ' + vS.Strings[vI]); end; end; __ Informação do NOD32 IMON 3684 (20081211) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Instalação CodeGear 2007
Hideraldo Depende da versão que você adquiriu. qual a versão? Rubens Antunes --- Em dom, 14/12/08, Hilderaldo Barbosa hideraldo_barb...@yahoo.com.br escreveu: De: Hilderaldo Barbosa hideraldo_barb...@yahoo.com.br Assunto: [delphi-br] Instalação CodeGear 2007 Para: dtdel...@yahoogrupos.com.br Cc: delphi-br@yahoogrupos.com.br, delph...@yahoogrupos.com.br Data: Domingo, 14 de Dezembro de 2008, 13:52 Pessoal, saudações a todos. Seguinte, eu instalei o Rad Studio Delphi 2007, quando fui criar a primeira aplicação eu fui no New Others e ai que eu vi que não tinha dentro do Delphi Projects a aba ou pasta da Multi-tier para criação do Data Modulo do servidor, entre outras opções também faltantes, Pergunto-lhes Tem alguma configuração que eu deva fazer para que esta opção da Mult Tier apareça para mim? Criei o projeto como Vcl Forms Application Delphi for win32 Grato a todos Hilderaldo Barbosa [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com TStringList
Eu usaria a variavel tomada como contador no for. Realmente o StringList e bem limitado. Para o caso de registros repetidos, eu criaria um vetor e armazenaria o numero da variavel contadora. Lucas deco0_07 escreveu: Tem como eu descobrir o indice de um determinada linha do StringList? ex... tenho um edit com as linha que nao quero copiar usar um for pra percorrer todas as linhas e num if verificar se a linha que esta no stringlist é igual a que esta no edit o problema é que nao consigo pegar o indice dessa linha... ja usei indexof, mas se tenho linhas com valores repetidos ele ignora tbm... vlww's
Re: [delphi-br] Trabalhando com TreeView
Romulo, obrigado pela resposta, Se nao for incomodar, gostaria que me enviasse por gentileza os fontes do programa de localizar arquivos. Quanto ao ShellTreeView, ja o encontrei e esta instalado. Muito obrigado! Lucas Neves Romulo C. Scampini escreveu: Ola Lucas, Existe um componente chamado ShellTreeView. Este é um componente do próprio Delphi. Caso não tenha ele instalado, tenho um artigo no meu blog (www.smartdelphi.blogspot.com) de como instalá-lo. Tenho também um programa para localizar arquivo no pc. Caso tenha interesse, posso disponibilizar um artigo de como fazê-lo. Ou se preferir te passo o aplicativo, com os códigos-fonte. Atenciosamente, Romulo C. Scampini. www.smartdelphi.blogspot.com romuloscamp...@yahoo.com.br mailto:romuloscampini%40yahoo.com.br From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] On Behalf Of Lucas Neves Sent: sexta-feira, 12 de dezembro de 2008 13:45 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Trabalhando com TreeView Boa tarde, pessoal, Preciso fazer um programinha que carregue a estrutura do Windows Explorer dentro de um TreeView e fazer uma funcao que localize arquivos dentro de toda a maquina. Procurei bastante na internet mas nao encontrei nada que funcionasse. Alguem teria sugestoes de o que eu preciso fazer? Obrigado desde ja, Lucas Neves [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] erro: BDE Error $000F
alguem sabe como resolver este problema q estou tendo qdo abre-se mais d uma instancia do programa?? da o erro ao fazer qquer pesquisa dentro dele ja tentei ir no BDE admin e aumentar o MAXBUFSIZE (coloquei 8192) mas n funcionou! valeu [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erro: BDE Error $000F
Já tentou reinstalar o BDE? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2009 Update 2 disponível para download
Pessoal, Está disponível para download o Update 2 do Delphi 2009. Este update contém somente atualizações para banco de dados e datasnap. Para atualizar usem a opção Check for Updates do seu Delphi ou acesse a área de usuários registrados http://www.codegear.com/downloads/regusers/delphi A lista de correções está disponível em: http://dn.codegear.com/br/article/39051 -- Andreano Lanusse Embarcadero Product Line Manager and Techinical Lead Evangelist Latin America Caribbean CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br](R K ) SQL Server Error: Arithmetic exception, numeric overflow or string truncation
Rodrigo, Isso acontece porque você está tentando gravar uma informação maior que o tamanho do campo. Por exemplo: Você tem um campo com tamanho 60 e se tentar gravar uma string com 61 caracteres, acontece isso ! Sou usuário do FireBird e isso já aconteceu comigo. Até eu descobrir o erro... Imagine ! Espero ter ajudado. Abraços, Ricardo Cabral --- Em qui, 11/12/08, Eduardo Silva dos Santos eduardo@gmail.com escreveu: De: Eduardo Silva dos Santos eduardo@gmail.com Assunto: Re: [delphi-br] SQL Server Error: Arithmetic exception, numeric overflow or string truncation Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 11 de Dezembro de 2008, 12:28 Certamente essa tabela ou algum indice estavam corrompidos. . pra corrigir tem que usar o Gfix 2008/12/11 Depto TI - Vasconcelos informatica@ arrozvasconcelos .com.br Boa tarde pessoal, Tenho uma aplicação desenvolvida em Delphi 7 com Firebird 1.5 e de uma hora para outra na operação de inclusão de registros de um dos cadastros começou a aparecer o erro abaixo: SQL Server Error: Arithmetic exception, numeric overflow or string truncation Já calejado que sou, fui conferir no meu código se estava passando algum valor string maior que o definido no campo da tabela, mas nada, tudo certo. Debugando mais cheguei na cláusula insert que dá o erro: insert into TAB_ PEDIDO (COD_PEDIDO, COD_CLIENTE, COD_PAGTO, DTA_LCT, DES_PEDIDO, OBS_PEDIDO) values (10705, 11485, 1,'12/10/2008' , 'TESTE', '') Os campos COD_PEDIDO, COD_CLIENTE, COD_PAGTO são do tipo integer, o campo DTA_LCT do tipo date e os campos DES_PEDIDO e OBS_PEDIDO são varchar de 60, ou seja, tudo certo. Em dos meus backups rodei a mesma instrução SQL e rodou perfeitamente, tanto pelo IBExpert quanto pela aplicação. Consultando amigos, me disseram que meu banco pode ter corrompido, só que os demais cadastros funcionam perfeitamente, somente nessa tabela ocorre o problema. O problema foi sanado pois voltei um backup mas fiquei intrigado com esse problema e quero entender o que aconteceu. Alguém tem alguma idéia ou já passou por isso??? Tem como recuperar a tal tabela?? Obrigado, Rodrigo de Moura [As partes desta mensagem que não continham texto foram removidas] -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Dúvida] Personalizando Componentes da VCL: TLabeledEdit
Estou estudando a um tempo POO (Programação Orientada a Objetos) e também o desenvolvimento de novos componentes. Estou personalizando um componentes já existente da VCL, o TLabeledEdit. Estou adequando ele às minhas necessidades de desenvolvimento. Por enquanto já consegui fazer o seguinte: Alterar a cor de fundo do Label; Alterar a cor da fonte do Label. O que quero fazer agora é o seguinte. Deixei a propriedade AutoSize do Label como False permitindo que ele ficasse alinhado em tamanho com o Edit e o Caption do Label centralizado. Quero que a medida que o Width do Edit seja alterado o Width do Label seja alterado também para o mesmo valor. Acho que consegui explicar bem o que quero. Qualquer coisa postem que eu me explico melhor. Estou utilizando Delphi 2007. Será que podem me ajudar nessa, seja passando o código ou me indicando uma leitura que me ajude (seria até melhor)? O código completo do meu componente está nesse link pra facilitar: http://pastebin.com/m57a46e4a
[delphi-br] Re: [OFF] Vaga desenvolvedor Delphi
Olá pessoal, Estamos com vagas para dois desenvolvedores Delphi em São Paulo. Segue perfil das vagas: - Conhecimentos em desenvolvimento Web ou Win32 com Delphi; - Básico de IntraWeb e/ou Delphi.NET; - Básico em HTML; - Conhecimento de bancos de dados, preferencialmente Firebird; - Desejável nível superior na área de TI (Análises de Sistemas, Ciências da Computação, Sistemas da Informação, etc); Cursando ou completo; Os currículos deverão ser encaminhados para asan...@softpark.com.br com pretensão salarial. -- Adriano Santos Director X-35 Consulting Development IT Manager SoftPark Chief Editor Magazines ClubeDelphi WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com