Vivendo&Aprendendo

Olá churc... muito obrigado pelo link. Baixei o componente, mas ele não tem o modelo de boleto que preciso, como faço para criar um novo modelo dentro desse componente? Alexandre

Olá galera! Gostaria de saber como faço para meu sistema emitir aqueles boletos da caixa economica federal? O meu sistema faz tudo só não a emissão dos boletos e agora o cliente esta usando doi sistema o meu e o da caixa, e ele quer que o meu faça a emissão. Como faço isso? Sendo que o boleto bancário tem um monte de informações que o sistema do banco fornece. Alexandre

Você já tentou atualizar a tabela depois de pagar o registro? FLws

Olá galera gostaria de saber qtos caracteres o componente MEMO aceita? Vlw

Olá amigão um dia ocorreu um erro parecido comigo, foi o seguinte: o meu sistema gera um arquivo que fica escondido e na execução ele procura por este arquivo caso não encontre ele não abrirá. O que ocorreu foi o casa de que o usuário tinha duas partições no hd e dois windows quando eu instalava o sistema e executava ele buscava no lugar errado e não abria. Pode ser que o seu caso esteja ocorrendo o mesmo ele não acha o banco... eu acho que é isso. Alexandre

Olá Teira como você explicar melhor a sua dúvida... Você quer unir as duas tabelas ou somar um determinado campo das duas? Alexandre

Olá amigão! Como o Graymalkin comentou é bem simples de saber o número de registro independente do campo código. A maneira que eu utilizo em meus sistemas é o comando RecordCount. LABEL1.CAPTION := NOME_DA_TABELA.RecordCount; Ele irá gravar na label o número de registro que existe na tabela. Lembrando que esse código não tem nada a ver com o campo código ou com qualquer outro campo da sua tabela ele simplesmente conta os registros. Alexandre

Olá Instale o access no servidor e o seu sistema e nos terminais onde ele será executado crie um atalho puxando do servidor, para isso faça o mapeamento da rede... Bom acredito que irá funcionar sem precisar instalar mais nada, afinal sempre trabalhei com sistemas em rede dessa forma. Mas caso não seja assim a galera ai tem a solução perfeita. Alexandre

Olá ListView1.SetFocus; Mas para o list aceitar o foco ele deve estar com dados já inclusos e se clicar dentro e depois sair. aí galera quem souber nos ajude por favor. Flws

Olá amigão O seu campo ID_ORCA é de que tipo, número, texto, etc? Se for numero verifique a comparação que você esta fazendo com ele na consulta. Flws

Já tentou verificar se os componentes não estão escondidos no próprio formulário. Ocorreu um caso comigo onde os componentes depois de compilados e fechado a aplicação simplesmente diminuiam e não dara eu vê-los. Tente observar isso. Alexandre

Olá Como o s3c falou quando ocorre o erro? Você possui algum componente ligado com flash? Alexandre

Olá Kindelis! Olha eu trabalho da seguinte forma: * Para eu salvar a imagem no banco de dados acredito que irá chegar um ponto o meu banco se tornará imenso, então passei a fazer com o meu sistema não deixasse a imagem no banco, mas sim o caminho dela no meu disco, logo posso salvar bmp, jpg, jpeg, ico, emf e wmf em minha aplicação. * E o banco fica menor do que salvando as imagens. OBS: Isso foi uma solução encontrada para o meu problema deve-se estudar se no seu caso resolveria. Se quiser saber como posso lhe mandar os códigos. Alexandre

www.borland.com

Olá Aline, não sei bem o que pode ser, mas pelo erro parece ser em relação ao interbase tente reinstalar o delphi em sua máquina ou tentar executar o seu projeto em outra máquina que tenha o delphi para ver se dará erro. Flws Alexandre

cara testei aqui e da erro Olha o meu código: unit UnCapturar; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, JPEG, Controls, Forms, Dialogs, ExtCtrls, StdCtrls , Buttons, ShellApi, Clipbrd; const WM_ICONTRAY = WM_USER + 1; type TFrmCaptura = class(TForm) PnCapturar: TPanel; Img: TImage; PnBtn: TPanel; BtnSalvar: TSpeedButton; BtnOcultar: TSpeedButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure BtnOcultarClick(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private TrayIconData: TNotifyIconData; { Private declarations } public { Public declarations } procedure TrayMessage(var Msg: TMessage); message WM_ICONTRAY; end; var FrmCaptura: TFrmCaptura; Contador:Cardinal; implementation {$R *.dfm} procedure GravaFormAtivo; var Bitmap :TBitMap; JP : TJPEGImage; Caminho:String; begin JP := TJPEGImage.Create; JP.Performance := jpBestQuality; try Caminho := 'C:\' + Screen.ActiveForm.Name + '.jpg'; Bitmap := Screen.ActiveForm.GetFormImage; JP.Assign(Bitmap); //JP.Assign(Bitmap.Picture.Graphic); Jp.SaveToFile(Caminho); ShowMessage('Salvou em ' + #13 + caminho); finally Bitmap.free; JP.Free; end; end; procedure TFrmCaptura.FormCreate(Sender: TObject); begin with TrayIconData do begin cbSize := SizeOf(TrayIconData); Wnd := Handle; uID := 0; uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; uCallbackMessage := WM_ICONTRAY; hIcon := Application.Icon.Handle; StrPCopy(szTip, Application.Title); end; Shell_NotifyIcon(NIM_ADD, @TrayIconData); end; procedure TFrmCaptura.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE,@TrayIconData); end; procedure TFrmCaptura.BtnOcultarClick(Sender: TObject); begin Hide; end; procedure TFrmCaptura.TrayMessage(var Msg: TMessage); begin case Msg.LParam of WM_LBUTTONDOWN: begin BtnSalvarClick(Self); end; WM_RBUTTONDOWN: begin FrmCaptura.Show; end; end; end; procedure TFrmCaptura.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F12 then begin GravaFormAtivo; Key := 0; end; end; initialization Contador := 0; end. Esta dando erro nesta linha: BtnSalvarClick(Self); O que pode ser? Vlw

cara coloquei na uses e continua dando erro ...

Olá Micheus Esta dando erro nesta linha JP.Assign(Bitmap.Picture.Graphic); Erro [Error] UnCapturar.pas(53): Undeclared identifier: 'Picture' O que pode ser?

e aí galerinha do forum, segue abaixo a resposta para a minha dúvida. É bgem simples mas resolveu o meu problema não sei se será util para alguém mas pra mim foi duas mãos na roda. Adicione um Image e dois botoões no form (um para salvar e outro para ocultar). E ai é só se guir os códigos abaixo: unit UnCapturar; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls , Buttons, ShellApi,Clipbrd, jpeg; const WM_ICONTRAY = WM_USER + 1; type TFrmCaptura = class(TForm) PnCapturar: TPanel; Img: TImage; PnBtn: TPanel; BtnSalvar: TSpeedButton; BtnOcultar: TSpeedButton; procedure BtnSalvarClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure BtnOcultarClick(Sender: TObject); private TrayIconData: TNotifyIconData; { Private declarations } public { Public declarations } procedure TrayMessage(var Msg: TMessage); message WM_ICONTRAY; end; var FrmCaptura: TFrmCaptura; Contador:Cardinal; implementation {$R *.dfm} procedure TFrmCaptura.BtnSalvarClick(Sender: TObject); var Bitmap : TBitmap; JP : TJPEGImage; Caminho:String; begin // keybd_event(vk_snapshot,1, 0, 0); {Janela Ativa} keybd_event(vk_snapshot,0, 0, 0); {Tela Toda} Application.ProcessMessages; try Bitmap := TBitMap.create; JP := TJPEGImage.Create; JP.Performance := jpBestQuality; try inc(Contador); Caminho := 'C:\Tela' + FormatFloat('0000',Contador)+'.jpg'; Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); Img.Picture.Bitmap := Bitmap; JP.Assign(Img.Picture.Graphic); Jp.SaveToFile(Caminho); ShowMessage('Salvou em ' + #13 + caminho); finally Bitmap.free; end; except ShowMessage('Erro no formato da área de transferência'); end; end; procedure TFrmCaptura.FormCreate(Sender: TObject); begin with TrayIconData do begin cbSize := SizeOf(TrayIconData); Wnd := Handle; uID := 0; uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; uCallbackMessage := WM_ICONTRAY; hIcon := Application.Icon.Handle; StrPCopy(szTip, Application.Title); end; Shell_NotifyIcon(NIM_ADD, @TrayIconData); end; procedure TFrmCaptura.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE,@TrayIconData); end; procedure TFrmCaptura.TrayMessage(var Msg: TMessage); begin case Msg.LParam of WM_LBUTTONDOWN: begin BtnSalvarClick(Self); end; WM_RBUTTONDOWN: begin FrmCaptura.Show; end; end; end; procedure TFrmCaptura.BtnOcultarClick(Sender: TObject); begin Hide; end; initialization Contador := 0; end. Ele abrirá no tray e com um clique do botão esquerdo ele salva a figura no C:\Tela0000.jpg e com clique do botão direito ele abre o programa. Flws

E aí galera Preciso saber como posso capturar a tela e salvar automaticamente em um diretório como jpg mas esse programa deve trabalhar de forma invisivel? É que tenho um monte de tela no meu sistema e tenho que apresentar todas elas em um trabalho da faculdade e será muito trabalhoso ir de uma em uma e dar print screen e jogar no paint e salvar. Por favor é urgente. Alexandre

:unsure:

Fiz isso mas continua dando erro: Directory Does not Exist. Meu código esta dessa forma: Zip.BaseDirectory := IncludeTrailingPathDelimiter(EdtOrigem.Text); Zip.StoreOptions := [soRemoveDots, soRecurse]; Zip.FileName := EdtDestino.Text+'\'+FormatDateTime('[dd-mm-yyyy] [hh-mm]',now)+'.zip'; Zip.AddFiles(Zip.FileName,0); Zip.CloseArchive; Zip.Save; Não sei o que pode estar errado.

Olá Churc e Bicicleta... Olha agora está beleza e agradeço a vocês dois pela ajuda, mas só para variar vou fazer mais uma perguntinha e prometo que está será a última. O meu projeto esta compactando do jeito que eu quero agora, mas quando eu escolho um arquivo por exemplo na área de trabalho e mando compactar ele da erro só esta aceitando compactar pastas agora... hehehehe... o trem está doidão. Como faço para ele aceitar tanto arquivos sozinhos como pastas? Alexandre

Vlw Micheus

cara esse link que você me passou abre um negócio muito doido que fiquei até com medo de clicar.. hehehehe manda um exemplo no meu mail por favor e a versão do componente é a 3.04 se tiver uma mais nova me manda também... Por favor hehehehhe Alexandre