Jhonas

Vai achar muitos exemplos deste link http://www.firebase.com.br/fb/ abraço

Douglas... faça uma busca no forum http://scriptbrasil.com.br/forum/index.php...e=TServerSocket abraço

Fiz assim (mas ta dando o seguinte erro: left side cannot be assigned to): erro : lado esquerdo não pode ser nomeado cdsDados.AfterOpen(cdsDados) := depoisDeAbrir; // o erro esta nesta linha se isso for uma procedure ou function, voce deve procurar verificar as regras para a chamada das mesmas, veja no help do delphi, pois dessa maneira esta incorreto. abraço

Veja este artigo: http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=517 abraço

experimente isso: procedure TForm1.Button1Click(Sender: TObject); begin WinExec('Command.com /c ipconfig -all > c:\temp.txt', 0); end; Veja este link http://www.ip2location.com/ http://scriptbrasil.com.br/forum/index.php...suarios+da+rede abraço

Que tal procurar no forum ... http://scriptbrasil.com.br/forum/index.php...st&p=493749 abraço

Veja este post e modifique para o seu uso http://scriptbrasil.com.br/forum/index.php...st&p=544465 abraço

Veja neste link http://www.activedelphi.com.br/forum/viewtopic.php?t=46210 abraço

tire a rotina de conexão do banco de dados de dentro dessa procedure abraço

De modo bem simplista seria isso: uses math; procedure TForm1.Button1Click(Sender: TObject); var val, parc : real; begin val := 691.00; parc := val / 3; if (parc * 3)= val then begin edit1.text := formatfloat(',0.00',parc); edit2.text := formatfloat(',0.00',parc); edit3.text := formatfloat(',0.00',parc); end else begin edit1.text := formatfloat(',0.00',trunc(parc) + frac(parc)+0.01); edit2.text := formatfloat(',0.00',parc); edit3.text := formatfloat(',0.00',parc); end; //edit1.text := 230,34 //edit2.text := 230,33 //edit3.text := 230,33 end; abraço

Faça Join entre as tabelas .. pesquise no forum http://scriptbrasil.com.br/forum/index.php...p;highlite=join abraço

Voce está querendo editar o item do CheckListBox ? está meio confuso sua dúvida, seja mais claro. abraço

Para fazer isso é necessario saber quantas linhas ( registros ) do banco de dados voce vai utilizar ... é possivel colocar a saida dessa forma, mas se houverem muitos registros ( por exemplo: 100) ele serão colocados lado a lado, mas ficará um visual ruim. a solução mais viável seria voce criar uma tabela temporaria com os campos que preencherão o QR, fica mais simples e facil de trabalhar com os registros no relatorio abraço

quando peço para fazer uma pesquisa no forum, significa que a dúvida parecida com a sua já foi respondida em um ou mais de um dos posts. abraço

veja no demo que esta junto com o pacote de instalação abraço

Preciso sabre se alguém sabe de alguma verão do mesmo para Delphi 2009 e também preciso do componente TMozillaBrowser para download . Parece que ele pode ser instalado no delphi 2009 tambem TMozillaBrowser para download http://www.clixiesoft.com/2008/08/replacing-twebbrowser-with-tmozillabrowser/ abraço

Veja se esses link ajudam http://www.djpate.freeserve.co.uk/AutoCDrw.htm http://cad1.software.informer.com/download...lphi-coreldraw/ http://delphi.about.com/od/vclusing/a/tclipboard.htm OBS: acho que não será tão facil achar uma solução.... com relação a esse comando: OleContainer1.SaveToFile(SavePictureDialog1.FileName); verifiquei que ele realmente salva o conteudo do olecontainer ( a imagem ), entretanto voce não consegue visualizar o arquivo salvo porque no novo arquivo é incluido um código ( no inicio ) que não consegui identificar qual a função... mas a imagem esta lá ... e o cabeçalho desse arquivo não é identificado como sendo uma figura ou imagem. abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=enviar+email abraço

Outra maneira: procedure TForm1.Button1Click(Sender: TObject); var NUM1, NUM2 : integer; QUANT, QUANT2 : real; begin NUM1 := 7; NUM2 := 3; QUANT := NUM1 DIV NUM2; QUANT2 := NUM1 MOD NUM2; showmessage( 'QUANT = ' + floattostr(QUANT)); showmessage( 'QUANT2 = ' + floattostr(QUANT2)); end; abraço

o que ocorre ?

O Pacote Quick Report não é instalado juntamente com o Delphi 2007. Para instalá-lo utilize o arquivo dclqrt70.bpl. 1. Feche todos os projetos abertos. 2. Abra o menu Component na Barra de Menus. 3. Selecione a opção Install Packages. 4. Na caixa de diálogo que se abre, selecione o botão Add 5. Abra o diretório \bin (a localização padrão é c:\Arquivos de Programas\Borland\Delphi2007\bin). 6. Selecione o arquivo dclqrt70.bpl. 7. Clique em Abrir. 8. De volta à janela Project Options, clique no botão OK. abraço

Percebeu que voce mesmo encontrou a resposta na sua indagação ?? Clipboard funciona perfeitamente... Consigo copiar e colar do delphi para o corel e vice-versa Para salvar a imagem que está no objeto Olecontainer, voce precisa passar a imagem do olecontainer para o clipboard, do clipboard para um TImage e deste salvar no disco ... e pode neste momento converter a imagem para Jpeg para ficar menor. abraço

CDS_Tabela: Cannot perform this operation on a closed dataset CDS_Tabela: Não pode executar esta operação em um dataset fechado OBS: existe algum comando para uso desta tabela antes que a conexão com o banco tenha sido feita neste caso voce deverá procurar no seu código onde esta esse comando e troca-lo de lugar, pois ele esta antes do comando de conexão com o banco de dados. outro motivo seria ... foi feito a conexão com o banco de dados, mas a tabela não foi aberta ( CDS_Tabela.Open ) por isso ocorre esse errro. abraço

de um exemplo pratico de como voce quer que saia no seu reltorio

Não coloque o componente quickreport em um form ... use o proprio quickreport va em File > New > Report fica muito mais simples e facil de trabalhar com ele abraço