Jhonas

[dcc32 Fatal Error] Login.pas(8): F1026 File not found: 'E:\Downloads\Sistema Cantina\RxShell.dcu'. veja que o caminho que ele está procurando é este: E:\Downloads\Sistema Cantina\RxShell.dcu'. se os arquivos .dcu não estiverem nesse caminho dá erro.... para contornar isso, voce pode copiar todas as .dcu do RX para a pasta LIB do delphi e todos os .bpl para a pasta BIN do delphi abraço

veja o componente RXTrayIcon do pacote RXLib procure a versão do RXLib para o seu delphi e instale os componentes http://www.micrel.cz/RxLib/dfiles.htm http://www.planetadelphi.com.br/artigo/48/botão-fechar-minimiza-a-aplicação abraço

desculpe .... esquece o 2º não tem nada haver.... não achei nada para enviar automaticamente ....a não ser pelo indy tente uma versão nova do indy http://www.indyproject.org/sockets/download/files/indy10.en.aspx abraço

OBS: Os dias estão estáticos no código, mas voce pode substituir por dados de uma tabela com os dias exemplo: ao montar uma agenda, voce pode marcar as datas que tem algum evento, ou aviso .. entretanto deve-se criar uma rotina para filtrar as datas para um determinado mes. esse calendario só é visivel em tempo de execução. Façam as modificações necessarias para o seu uso. ============================================================ unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Grids, Calendar; type TCalendario = class(TCalendar) protected procedure Click; override; procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; end; type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } texto : string; col, lin : integer; end; var Form1: TForm1; a: Array [0..31] of byte; dia, cc : integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var Calendar1 : TCalendar; begin Calendar1 := TCalendario.Create(Self); Calendar1.Parent := Form1; Calendar1.Top := 10; Calendar1.Left := 10; Calendar1.Height := 200; Calendar1.Width := 200; end; procedure TCalendario.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); var Calendar1 : TCalendar; var Ano, Mes, Dia: Word; Texto, s, s1 : string; x : integer; begin inherited; DecodeDate(Now, Ano, Mes, Dia); Texto := CellText[ACol, ARow]; x := 0; /// dias que ficarão coloridos a[0]:= 4; a[1]:= 10; a[2]:= 19; a[3]:= 21; a[4]:= 29; for x := 0 to 4 do begin if Texto = inttostr(a[x]) then begin Canvas.Font.Color := clBlue; Canvas.Font.Style := [fsBold]; case x of 0: Canvas.Brush.Color := claqua; 1: Canvas.Brush.Color := clYellow; 2: Canvas.Brush.Color := clLime; 3: Canvas.Brush.Color := clMoneyGreen; 4: Canvas.Brush.Color := $00FFAEFF; end; with ARect, Canvas do TextRect(ARect, Left + (Right - Left - TextWidth(Texto)) div 2, Top + (Bottom - Top - TextHeight(Texto)) div 2, texto); Canvas.Font.Color := clBlue; end else begin with ARect, Canvas do TextRect(ARect, Left + (Right - Left - TextWidth(Texto)) div 2, Top + (Bottom - Top - TextHeight(Texto)) div 2, Texto); end; end; end; procedure TCalendario.Click; var s : string; begin inherited; s :=datetostr(CalendarDate); Form1.Edit1.Text := copy(s,1,2); Form1.Edit1.Refresh; end; end. =============================================================== abraço

fazendo uma pesquisa, achei essa possibilidade .... voce pode usar o comando shellexecute thunderbird.exe -compose "to='email@domain.com',subject='Some Subject',preselectid='id1',body='Message Body',attachment='File.txt'" acho que esse pode resolver o seu problema http://custombuttons.sourceforge.net/forum/viewtopic.php?f=2&t=839 Command line arguments - Thunderbird http://kb.mozillazine.org/Command_line_arguments_(Thunderbird) abraço

geovanepc, fiz alguns testes aqui .... parece que o thunderbird funciona como o outlook mesmo que voce crie uma stringlist ou array de strings, a cada envio vai aparecer a janela para voce clicar no botão <Enviar Agora>. veja nesses links algumas possibilidades: https://recalll.co/app/?q=delphi - how SendMailMAPI is adjusted to support multiple file attachments# http://stackoverflow.com/questions/2683079/how-sendmailmapi-is-adjusted-to-support-multiple-file-attachments https://www.experts-exchange.com/questions/22868654/Automaticly-open-Email-message-with-HTML-in-the-body.html talvez voce tenha que mudar o foco e usar componentes indy para isso http://www.devmedia.com.br/envio-de-e-mails-no-delphi-win32/1195 abraço

Para enviar: procedure TForm2.Button2Click(Sender: TObject); begin SendMailMAPI(Subject, Body, FileName, SenderName, SenderEMail, RecepientName, RecepientEMail); end; ------------------------------------------------------------------------------------ voce tem um arquivo com a lista de nomes e emails ? para o envio, voce passa valores por parametros ?

REPEATABLE-READ READ-COMMITTED veja a diferença https://www.percona.com/blog/2012/08/28/differences-between-read-committed-and-repeatable-read-transaction-isolation-levels/ em resumo : o REPEATABLE-READ demora muito mais tempo para realizar uma transação e o READ-COMMITTED não. abraço

amigo, esta não é uma fonte padrão do windows a fonte que mais se aproxima é a Time News Roman abraço

É mais facil deletar um registro duplicado depois da importação da tabela basta ordenar a tabela, e depois comparar os registros e deletar os duplicados é bem rapido ... só para ter um exemplo: um arquivo de 125.000 registros leva em torno de 5 a 10 seguntos para deletar registros duplicados abraço

exemplos https://www.google.com.br/?gws_rd=ssl#q=pivot+mysql+example abraço

qual a linguagem de programação que voce esta usando ?

o link foi perdido na mudança do forum tente esses http://www.recortecole.com.br/14bis/14bis1.pdf https://www.google.com.br/#q=planta+14+bis.pdf https://lh3.googleusercontent.com/N5nfdzHl7Q8jhUD0ZH_BxM8Z6E51Z6CYkwTODlqhPkArQVkVm4TrtkWCxALV8zd27akh7AtVwh1-74g=w1024-h768-no https://lh3.googleusercontent.com/RIyUhZQYD1G2e01vxbErZsa3XvqnvyTcIcR7fHOQIywfoeaukfw2OWD-7-Kw8kaW13392cnVucp2-WQ=w1024-h768-no abraço

Preciso saber onde encontrar uma lista de sites restritos para poder baixar veja nesses links https://www.google.com.br/#q=lista+de+sites+para+bloquear abraço

O conjunto de componentes numa aplicação servidor : TSQLDataSet ou TSQLQuery ou TADODataSet ou TADOQuery (para realizar a consulta com o banco de dados, através de uma conexão ativa) TDataSetProvider (responsável por disponibilizar o DataSet acima para ser consumido por aplicações clientes) O conjunto de componentes numa aplicação cliente: TSQLConnection (responsável por realizar a conexão com a aplicação servidor) TDSProviderConnection (para prover o consumo disponibilizado pela aplicação servidor) TClientDataSet (Será o DataSet disponível para os componentes visuais da aplicação cliente) TDataSource (para realizar a ligação com esses mesmos componentes visuais) O ideal é poder ver como os dados estão dispostos em um dbgrid ... atraves do TDataSource é possivel voce linkar um componente dbgrid e dessa forma ver esses dados abraço

Dbgrid seria isso: dependendo de como os dados aparecem aqui, é que voce vai determinar qual tipo de banda usar no fastreport abraço

o componente webbrowser funciona usando o internet explorer ... veja o componente chrome para o delphi ...tem as mesmas funcionalidades e um pouco mais https://www.google.com.br/?gws_rd=ssl#q=chrome+delphi+component abraço

Não é isso ..... mostre como ficam os dados dentro de um dbgrid dá uma olhada em Other group features do manual que te passei abraço

veja o componente chrome para o delphi ...tem as mesmas funcionalidades do webbrowser e um pouco mais https://www.google.com.br/?gws_rd=ssl#q=chrome+delphi+component abraço

voce tem algum código dentro do report ? como voce gera os dados do report ? Manual do FastReport https://www.fast-report.com/documentation/UserMan/index.html?construct_a_cross_report.htm https://www.fast-report.com/documentation/UserMan/index.html?bands_in_fastreport.htm https://www.fast-report.com/public_download/html/UserMan/index.html?report_with_groups.htm abraço

mostre como os registros estão ordenados na sua tabela, ou seja, como voce ve esses dados num dbgrid Manual do FastReport https://www.fast-report.com/documentation/UserMan/index.html?bands_in_fastreport.htm https://www.fast-report.com/public_download/html/UserMan/index.html?report_with_groups.htm abraço

Tem um exemplo que eu coloquei neste post ou exemplo completo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls; type TForm1 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; Query1: TQuery; Button1: TButton; Timer1: TTimer; procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; posicao : TRect; cor : TColor; implementation {$R *.dfm} procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then begin With (Sender as TDbGrid).Canvas do begin Brush.Color := clBlue; FillRect(Rect); posicao:= Rect; end; end; DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); end; procedure TForm1.Timer1Timer(Sender: TObject); begin with DbGrid1 do begin if cor = clWhite then begin cor := clBlue; Canvas.Font.Color := clWhite; end else begin cor := clWhite; Canvas.Font.Color := clBlack; end; Canvas.Brush.Color := cor; Canvas.TextRect(posicao, posicao.Left + 2, posicao.Top + 2, DBGrid1.SelectedField.Text); end; end; end. OBS: A celula que voce clicar com o mouse vai ficar piscando ( isso porque a posição de linha e coluna do DBGrid é passado para o timer ) se a idéia é fazer com que valores de varias celulas fiquem piscando ao mesmo tempo, nesse caso voce deve armazenar em uma matriz todos os valores de posições de linha e coluna onde a celula vai ficar piscando, independente da posição do cursor. exemplo de armazenamento de posições de linha e coluna do DBGrid Rect = (Left:274;Top:54;Rigth:352;Bottom:71;TopLeft:(X:274;Y:54);BottomRight:(X:352;Y:71)) voce teria que armazenar em uma matriz o valor de cada Rect, que a condição colocada no evento OnDrawDataCell achar ou voce pode pesquisar na net para ver se tem componente com essa propriedade. Abraço

Requisitos minimos de hardware para rodar programas desenvolvidos em delphi XE7 • processador Intel® Pentium® 233 MHz ou superior • Sistema Operacional Microsoft® Windows XP, ou posterior • 128 Mb de RAM , conectores USB 2.0 • Espaço Minimo em Disco 124 MB ( programas que não utilizam banco de dados ) • CD-ROM drive • Resolução de Monitor SVGA ou superior • Programas desenvolvidos para uso em rede ( placa de rede de 100 mb ou 1 Gb recomendado) OBS: A performance do programa se deve muito ao tipo de arquitetura de programação usada Os programas podem rodar em maquinas de 32 ou 64 Bits abraço

Erro: Porta de dados só podem ser utilizados com o mesmo endereço de IP usado pela conexão do controle exatamente o que, voce esta querendo fazer ? se for download e upload veja esse link http://balaiotecnologico.blogspot.com.br/2010/10/fazendo-download-e-upload-usando-ftp.html abraço

o delphi 2010 não vem com o quick report instalado, mas os arquivos de instalação estão lá a versão Quickreport v5042 que voce está tentando instalar eu já instalei no meu delphi coloquei essa versão em uma pasta do meu delphi ( onde esta a pasta Bin e Lib ..etc ) e para instalar, basta voce pegar o arquivo .dpk ( tipo : QR5DesignD7.dpk e o QR5RunD7.dpk ) no seu caso deve estar com denominação do delphi 2010 basta clicar em cima dos .dpk para instalar os componentes esse video mostra como fazer a instalação no exemplo acima, o proprio instalador do quick report já extrai os arquivos para uma pasta se voce já extraiu os arquivos, siga apenas a etapa como os arquivos dpk são instalados e depois voce tem que copiar os arquivos .bpl para a pasta Lib do delphi abraço