Jhonas

Neste post tem um exemplo de como utilzar a linguagem delphi para implementar os codigos da impressora http://scriptbrasil.com.br/forum/index.php...st&p=477817 OBS: estes codigos podem ser utilizados em qualquer linguagem de programação uma outra sugestão: antes de imprimir verifique atraves do seu micro, qual é a configuração que está setada em sua maquina para a impressora da rede. abraço

Esse erro indica que seu arquivo está corrompido .. ou por variação na rede elétrica ou por erro no HD ( tentativa de gravar em um setor ruim do HD ) Para recuperar o arquivo do CAD basta abrir o programa e no menu FILE vá em DRAWING UTILITIES e seleciona RECOVER, e utilizar o comando RECOVER para que ele possa realizar as correções necessárias no arquivo. Caso não funcione, você pode tentar resgatar o arquivo .BAK (o desenho anterior)... bastando renomear a extensão .BAK para outro nome .DWG abraço

baixe os drives da impressora para o seu sistema operacional , e instale. http://www.brasildownloads.com.br/download/6/105/432.html OBS: se estiver usando o XP ele já tem esses drives é só procurar na hora de instalar a impressora abraço

quando a impressora está na rede, faça a instalação de uma nova impressora conectada na rede.... os drives necessarios serão copiados do servidor para o micro cliente, e desta maneira voce pode usar todos os recursos da impressora.... ao instalar a impressora escolha a opção 'Uma impressora de rede ou conectada a outro computador' e mande substituir os drives obs: não instale ela como local .... ou os erros vão continuar. abraço

Colega, infelizmente o drive que voce tem no CD que veio com o seu laptop é para o VISTA, se voce quiser utilizar com o XP, terá que procurar a net o drive do XP especifico para a placa mãe do seu laptop. continuou desconfigurado porque voce não reinstalou o Vista, mas tentou uma recuperação em cima do XP... se quiser voltar para o VISTA desistale completamente o Windows XP e formate o HD reisntale o Vista e todos os drives que vem com ele. abraço

Tem Vcl Skins gratuito no entanto voce terá que procurar na net. abraço

Tente esta modificação if (DM.OpenPictureDialog.FileName <> null) then begin DM.OpenPictureDialog.Execute; if DM.OpenPictureDialog.FileName = '' then // se voce cancelar o fluxo do codigo é desviado exit; DM.IBTimoveis.Edit; DBImage1.Picture.LoadFromFile(DM.OpenPictureDialog.Filename); . . . abraço

Veja estes posts http://scriptbrasil.com.br/forum/index.php...965&hl=rede http://scriptbrasil.com.br/forum/index.php...st&p=449710 ou faça uma pesquisa no forum pela palavra rede abraço

exemplos http://www.linhadecodigo.com.br/Artigo.aspx?id=100 http://www.delphi.eti.br/ver_artigo.php?id=126 http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=466 abraço

Se voce nem começou a fazer o seu codigo, fica dificil.... mas voce pode procurar no forum, já tem alguma coisa a respeito. abraço

Veja qual é o comando do botao FEED para a sua impressora ( Veja Manual da impressora ) e implemente isto no delphi exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=477817 abraço

ou usando outro componente do RX DateEdit1.Date := now-90; ou ainda de outra maneira procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Hoje é dia ' + IntToStr(Day) + ' do mes ' + IntToStr(Month) + ' do Ano ' + IntToStr(Year); DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'A hora é ' + IntToStr(Hour) + ':'+IntToStr(Min); Present:= Now-90; DecodeDate(Present, Year, Month, Day); Label3.Caption := '90 dias atraz é dia ' + IntToStr(Day) + ' do mes ' + IntToStr(Month) + ' do Ano ' + IntToStr(Year); end; abraço

Onde está o seu codigo ???

se voce olhar no componente de conexão ele esta sem o nome do banco de dados ou sem o caminho abraço

um exemplo correto seria SELECT Data."Data da emissão" FROM "DATA.db" Data WHERE Data."Data da emissão" BETWEEN '03/12/2008' AND '03/13/2008' no seu caso SELECT dbvendas ."Data da emissão" FROM "dbvendas .db" dbvendas WHERE dbvendas ."Data da emissão" BETWEEN '03/12/2008' AND '03/13/2008' ou ainda SELECT "Data da emissão" FROM dbvendas WHERE "Data da emissão" BETWEEN '03/12/2008' AND '03/13/2008' SELECT Data da emissão FROM dbvendas WHERE Data da emissão BETWEEN '03/12/2008' AND '03/13/2008' abraço

instala como qualquer outro componente Como instalar componentes no delphi http://www.devmedia.com.br/articles/viewcomp.asp?comp=4309 http://www.activedelphi.com.br/print.php?sid=21 abraço

O correto é SQLDataSet1.Open; // abrir SQLDataSet1.Append; // adicionar registro SQLDataSet1.Edit; // editar registro // outros comandos SQLDataSet1.Post; // salvar registro so mesmo fazendo uma análise no seu programa para saber o que esta ocorrendo. abraço

O evento MouseMove do botão vai provocar isto sempre, porque o ponteiro do mouse tem muitas coordenadas (X,Y) de controle. O melhor não é usar evento MouseMove do botão mas sim o evento OnClick. ou seja qundo voce clicar uma vez fica com uma figura, quando clicar novamente troca a figura. Procure no forum, já tem algo do tipo. abraço

sugestão: refaça todo o codigo por partes e va testando evento onclick. abraço

Neste endereço tem um exemplo: http://www.delphi.eti.br/ver_artigo.php?id=132 OBS: Favor não digitar tudo em maiusculas ( Caixa Alta ) abraço

Veja se este post te ajuda http://scriptbrasil.com.br/forum/index.php...enPictureDialog Faça uma pesquisa no forum, já tem posts com a sua duvida resolvido exemplo: // Carregar uma imagem do hd if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); // salvar a mesma imagem em outro lugar do hd if SavePictureDialog1.Execute then Image1.Picture.LoadFromFile(SavePictureDialog1.FileName); abraço

Não encontrado a implementação do metodo btn2Click. procedure TForm1.btn1Click(Sender: TObject); begin if btn1.Enabled = true then begin btn1.Enabled :=false; btn2.Enabled :=true; btn1.Caption :='OFF'; btnc.Caption :='ON'; end; end. corrija esta linha: btnc.Caption :='ON'; para btn2.Caption :='ON'; abraço

SQLDataSet1.Open; SQLDataSet1.Append; SQLDataSet1.Post; mas quando eu clico nele, me retorna um erro assim descrito: 'SQLDataset1: Cannot modify a read-only datase'. O erro é... Não pode modificar DataSet somente para leitura Não faltou SQLDataSet1.Edit; ???? veja se a propriedade Read-Only do componente esta como false . abraço

pode ser algum comando no evento onEnter do edtNome ou messagedlg('Salvo com sucesso!', mtinformation, [mbok], 1); ou ainda o numero 1 messagedlg('Salvo com sucesso!', mtinformation, [mbok], 0); experimente deixar como comentario a mensagem e veja o que acontece. abraço

cc : integer = 0; implementation {$R *.DFM} procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin cc := cc + 1; If cc = 1 then begin BitBtn1.Glyph.LoadFromFile('c:\ignore.bmp'); sleep(50); exit; end else begin BitBtn1.Glyph.LoadFromFile('c:\import.bmp'); cc := 0; sleep(50); end; isto vai te dar uma noção de como fazer animação http://www.geocities.com/wallstreet/exchan...hi/delphi_1.htm