Re: Res: RES: [delphi-br] Autoincremento X ClientDataSet
Peguei esta dica aqui na lista www.planetadelphi.com.br/download/4229/Autoincremento%20no%20firebird --- Em qui, 5/8/10, Eny Urias enyur...@yahoo.com.br escreveu: De: Eny Urias enyur...@yahoo.com.br Assunto: Res: RES: [delphi-br] Autoincremento X ClientDataSet Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 5 de Agosto de 2010, 11:06 E quem lê direito não perde tempo! Aff! Falei que já peguei os exemplos do site da embarcadero e tb nao deu certo... Esse aí eu já li de cabo a rabo e testei tudo o que falam lá! Mas, mesmo assim obrigada pela atenção! Achei esse artigo do Walter http://www.oocities.com/walterchagas/ClientDataset.html... mas tb não funciona por causa do Autoinc na tabela de detalhes... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Rubem Rocha rubem.ro...@dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 5 de Agosto de 2010 10:46:00 Assunto: RES: [delphi-br] Autoincremento X ClientDataSet Lembre-se sempre: quem procura, acha! (Artigo “How to use AutoInc fields with DataSnap” – Como usar campos auto-incremento com DataSnap) http://edn.embarcadero.com/article/20847 (Código fonte referente ao artigo – necessário registro gratuito no portal para download) http://cc.embarcadero.com/Item/14448 Boa sorte. Sds. P.S.: O artigo é excelente, mas não tem versão dele em português, OK? ;) De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 09:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Autoincremento X ClientDataSet Vcs não tem noção de quanto eu to apanhando pra tentar fazer a coisa funcionar. Tenha a tabela de vendas com o campo código (Autoinc)... Tenho a tabela de itens com o campo codigo referente a venda e o campo id (autoinc)... Mas, como estou utilizando cds, tá dando key violation (lógico!) na tabela itens. Eu tenho medo de utilizar campo int nos codigos. Temo que dois usuarios ao mesmo tempo deem applyupdates com o mesmo codigo. Então como devo proceder? Fiquei a noite inteira ontem pesquisando... Peguei alguns exemplos no site da embarcadero mas nenhum deu certo... Como vcs trabalham? Lembro que eu quero digitar o pedido inteiro com itens e tudo antes de dar o applyupdates nas tabelas porque eu atualizo o estoque depois que eu salvo a venda. Agradeço a quem der um luz! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Gauge sem %
Coloque 2 timers, 2 buttons e 2 gauges. Adapte as suas necessidades. private { Private declarations } sentido1 : string; perc1 : word; sentido2 : string; perc2 : word; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin if sentido1 = 'vai' then begin inc(perc1); Gauge1.Progress := perc1; if perc1 = 100 then sentido1 := 'volta'; end; if sentido1 = 'volta' then begin dec(perc1); Gauge1.Progress := perc1; if perc1 = 0 then sentido1 := 'vai'; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := true; sentido1 := 'vai'; perc1 := 0; end; procedure TForm1.Timer2Timer(Sender: TObject); begin if sentido2 = 'vai' then begin inc(perc2); Gauge2.Progress := perc2; if perc2= 100 then begin sentido2:= 'volta'; Gauge2.BackColor := clblack; Gauge2.ForeColor := clwhite; end; end; if sentido2 = 'volta' then begin dec(perc2); Gauge2.Progress := perc2; if perc2 = 0 then begin sentido2 := 'vai'; Gauge2.BackColor := clWhite; Gauge2.ForeColor := clBlack; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin Timer2.Enabled := true; sentido2 := 'vai'; perc2 := 0; end; --- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu: De: Andrei Luís compuvale.softw...@gmail.com Assunto: [delphi-br] Re: Gauge sem % Para: Delphi-br delphi-br@yahoogrupos.com.br Data: Segunda-feira, 12 de Julho de 2010, 23:52 Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32. []s Andrei 2010/7/12 Andrei Luís compuvale.softw...@gmail.com: Boa noite, Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo que não necessariamente preenchesse a barra, mas tipo um que fique se movimentando pra direita e pra esquerda sem parar, até ser encerrado. A idéia é utilizar no envio de e-mails ou outras situações que não dá pra medir a porcentagem do processo executado/à executar. []s Andrei [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Gauge sem %
Colocar a propriedade dos ShowText = False (dos Gauges); --- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu: De: Andrei Luís compuvale.softw...@gmail.com Assunto: [delphi-br] Re: Gauge sem % Para: Delphi-br delphi-br@yahoogrupos.com.br Data: Segunda-feira, 12 de Julho de 2010, 23:52 Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32. []s Andrei 2010/7/12 Andrei Luís compuvale.softw...@gmail.com: Boa noite, Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo que não necessariamente preenchesse a barra, mas tipo um que fique se movimentando pra direita e pra esquerda sem parar, até ser encerrado. A idéia é utilizar no envio de e-mails ou outras situações que não dá pra medir a porcentagem do processo executado/à executar. []s Andrei [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio de email com Delphi
www.activedelphi.com.br/print.php?sid=187 imasters.uol.com.br/artigo/1201/delphi/enviando_e-mails_com_componentes_indy/ www.devmedia.com.br/visualizacomponente.aspx?comp=1195site=3 www.ramosdainformatica.com.br/art_recentes01.php?CDA=22 www.devmedia.com.br/articles/viewcomp.asp?comp=9075 www.devmedia.com.br/articles/viewcomp.asp?comp=9107 www.google.com.br/search?hl=pt-BRq=Delphi+enviar+e-mailbtnG=Pesquisa+Googlemeta= massuda.blogspot.com/2007/04/como-enviar-email-usando-indy-10.html --- Em sex, 28/5/10, Richardson Freddo mjrkon...@yahoo.com.br escreveu: De: Richardson Freddo mjrkon...@yahoo.com.br Assunto: [delphi-br] Envio de email com Delphi Para: Grupo delphi-br@yahoogrupos.com.br Data: Sexta-feira, 28 de Maio de 2010, 11:35 Ola pessoal. Estou tentando usar o comando abaixo para enviar um email usando a API, com Delphi 7: comando:='mailto:'+quotedstr(Email) + '?subject='+quotedstr(vEmail.Assunto)+ ';attachment='+quotedstr(arquivo) +';'; ShellExecute(0, nil, PChar(Comando), nil, nil,SW_SHOWNORMAL); 1 - O problema é que ele abre o email, mas sem anexo nehum. Alguem sabe como usar esse comando e anexar o arquivo no email?? 2 - E o corpo da mensagem, ou seja, a mansagem mesmo, tem como montar ela ? Obrigado. Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procuro emprego na área
www.planetadelphi.com.br/ www.activedelphi.com.br www.devmedia.com.br http://www.linhadecodigo.com.br/ --- Em qua, 28/4/10, Lucas Neves lucas_del...@yahoo.com.br escreveu: De: Lucas Neves lucas_del...@yahoo.com.br Assunto: [delphi-br] Procuro emprego na área Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 28 de Abril de 2010, 11:08 Bom dia a todos, Estou parado no momento e procurando emprego como Analista ou Desenvolvedor Delphi. Tenho 9 anos de experiência na linguagem e passei por diversos tipos de sistema. Se souberem de alguma coisa na região de Campinas ou de Limeira, eu agradeço. Obrigado Lucas Neves _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Estações não conecta ao Ba nco
Verifique se o Firebird está ativo. --- Em qua, 28/4/10, Vinicius vinic...@cnen.gov.br escreveu: De: Vinicius vinic...@cnen.gov.br Assunto: [delphi-br] Estações não conecta ao Banco Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 28 de Abril de 2010, 16:10 Amigos, Boa Tarde De um dia para o outro as duas estações que tenho pararam de acessar o meu Banco que esta rodando com FireBird 2.1. O meu servidor está como nome de SERVIDOR. Eu consigo dar um ping das estações tanto pelo NOME como tbm pelo IP do servidor para as estações como das estações para o servidor. Das estações eu tenho total acesso ao diretório em que se encontra o Banco de Dados, tanto pra ler, escrever ou deletar. O meu programa Le um arquivo .INI com os seguintes comandos: # Arquivo de Configuração da Base de dados # Server=SERVIDOR; Root=C:\SGBD\ EspacoR1; DataBase=BDsonhos. FDB; Dentro do meu programa eu monto o nome do Banco e o se Path, sempre funcionou. Este arquivo está em todas as estações e tbm no servidor. Já esta em produção desde dez/09 sem dar nenhum problema. Hoje pela manha o cliente me ligou dizendo que o programa não rodava nas estações, apresentando o seguinte erro: Exception EDatabaseError in module EspacoR1.exe at 000ACEF1. Unable to complete network request to host “SERVIDOR” Failled to establish a connection. Uma tentativa de conexão falhou porque o componente conectado não respondeu corretamente após um período de tempo ou a conexão estabelecida falhou porque o host co. Fiz vários testes e não consegui refazer a conexão com o banco. Alguém pode me dar uma luz sobre o que pode ter acontecido, ou onde devo procurar o problema já que tenho acesso ao servidor de qualquer estação sem problemas... nada foi mudado. Tenho um roteador DLINK que esta conectado a um SWITCH, este roteador é utilizado para o Velox que está funcionando normalmente e todos os micros se enxergam sem problemas. Agradeço qualquer dica ou orientação. Vinicius. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio E-Mail
www.activedelphi.com.br/print.php?sid=187 imasters.uol.com.br/artigo/1201/delphi/enviando_e-mails_com_componentes_indy/ www.devmedia.com.br/visualizacomponente.aspx?comp=1195site=3 www.ramosdainformatica.com.br/art_recentes01.php?CDA=22 www.devmedia.com.br/articles/viewcomp.asp?comp=9075 www.devmedia.com.br/articles/viewcomp.asp?comp=9107 www.google.com.br/search?hl=pt-BRq=Delphi+enviar+e-mailbtnG=Pesquisa+Googlemeta= massuda.blogspot.com/2007/04/como-enviar-email-usando-indy-10.html --- Em sáb, 3/4/10, Eduardo Suruagy eduardosuru...@gmail.com escreveu: De: Eduardo Suruagy eduardosuru...@gmail.com Assunto: [delphi-br] Envio E-Mail Para: delphi-br@yahoogrupos.com.br Data: Sábado, 3 de Abril de 2010, 20:13 Gostaria de saber como vcs estão enviando e-mail pelo delphi 7?? Já tentei de tudo e nao consigo... [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] Ajuda...Atualização de Soft ware
Você deu uma pesquisada em: www.delphibr.com.br www.linhadecodigo.com.br www.delphi.eti.br www.devmedia.com.br ? --- Em seg, 8/2/10, Domingos domingosp...@gmail.com escreveu: De: Domingos domingosp...@gmail.com Assunto: Re: [delphi-br] Ajuda...Atualização de Software Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 8 de Fevereiro de 2010, 22:45 Samuel, boa noite Cara gostei muito da sua idéia, poderia explicar melhor? O usuário executa esse sistema para ver se existe atualização? Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você faz atualização do executável? Ou ele baixa outro arquivo? e a parte de atualização do banco de dados, você faz como o database comparer? Obrigado, []'s Em 8 de fevereiro de 2010 23:00, Samuel M. Basso samuelbasso@ yahoo.com. brescreveu: Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazinaffo@ hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável... alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelbasso@ gmail.com Web site: www.samuelbasso. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- - - - - - - Domingos José Martins de Souza [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] Oferta de emprego
Copiei e colei. *VAGA PARA TRABALHAR EM JOINVILLE - SC* Estamos contratando programadores delphi (junior ou pleno). Candidato precisa ser esforçado, autodidata e amante do Delphi. Interessados enviar Curriculum com pretensão salarial e disponibilidade para início. Nossa empresa: www.insightsystem. com.br Att, Jhosef Marks de Carvalho Blog: http://www.jhosefma rks.com.br --- Em qua, 27/1/10, jrsilvas...@yahoo.com.br jrsilvas...@yahoo.com.br escreveu: De: jrsilvas...@yahoo.com.br jrsilvas...@yahoo.com.br Assunto: [delphi-br] Oferta de emprego Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 27 de Janeiro de 2010, 10:03 Alguem na lista postou um email com vaga de emprego em Joinvile, estou interessado perdi o email com os dados da empresa gostaria de saber de novo qual empresa é, e para qual email eu mando meu curriculum. João Roberto Sou de São José do Rio Preto - SP jrsilvasjrp@ yahoo.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]
Re: [delphi-br] Importar do excel com abas
Dê uma estudada nesta rotina e adapte as suas necessidades. procedure TMenuPlanilha.PlanDetalhe(arq : string); var i : byte; lin : byte; fim_plan : boolean; texto : string; aba : byte; begin excel_le.Workbooks.Open(arq); for aba := 1 to excel_le.Workbooks[1].sheets.Count do if excel_le.WorkBooks[1].Sheets[aba].Name = cdsGrid.fieldbyname('DESCRCARTAO').asstring then break; if aba excel_le.Workbooks[1].sheets.Count then begin excel_le.quit; exit; end; if UpperCase(trim(excel_le.Workbooks[1].WorkSheets[aba].cells[8,1])) 'COLABORADOR' then begin Screen.Cursor := crDefault; showmessage('Planilha fora do padrão' + #13 + arq); excel_le.quit; exit; end; if lin_grava = 1 then begin fim_plan := false; col_lim := 2; while not fim_plan do begin inc(col_lim); excel_grava.Workbooks[1].WorkSheets[1].columns[col_lim].rowheight := 10; if trim(excel_le.Workbooks[1].WorkSheets[aba].cells[8,col_lim + 1]) = '' then fim_plan := true; end; Espero ter ajudado. --- Em sáb, 12/12/09, Rafael Jorge rafael.jo...@gmail.com escreveu: De: Rafael Jorge rafael.jo...@gmail.com Assunto: [delphi-br] Importar do excel com abas Para: delphi-br delphi-br@yahoogrupos.com.br Data: Sábado, 12 de Dezembro de 2009, 8:46 tenho uma rotina que importa do excel para meu banco de dados. ate ai tudo bem, so que alguns clientes usam varias abas do excel (planilhas) dentro do mesmo excel. e eu gostaria de saber como sair de planilha em planilha pegando os dados. tentei usando a rotina abaixo mais nao ta funcionando da erro no active quando eu tento pegar a ultima celula ativa. - - -- codigo fonte - - procedure TFormImpotarDoExcel .BitBtn5Click( Sender: TObject); const xlCellTypeLastCell = $000B; var XLApp : OLEVariant; Sheet : OLEVariant; RangeMatrix : Variant; linha : Integer; coluna : Integer; I : Integer; ii : integer; iii : integer; x : integer; y : integer; arquivo : string; sql : string; sair : boolean; function valida(texto: string): string; begin result := stringreplace( texto,#39, '',[rfReplaceAll ]); end; begin // Create Excel-OLE Object XLApp := CreateOleObject( 'Excel.Applicati on'); //pegando todos os arquivos do diretorio. g1.MinValue := 0; g1.MaxValue := self.FileListBox1. Items.Count; g1.Progress := 0; for I := 0 to self.FileListBox1. Items.Count - 1 do begin g1.Progress := i; application. ProcessMessages; try // Hide Excel XLApp.Visible := False; // Open the Workbook arquivo := self.DirectoryListB ox1.Directory+ '\'+self. FileListBox1. Items.Strings[ i]; lbarquivo.caption := arquivo; application. ProcessMessages; XLApp.Workbooks. Open(arquivo) ; // Sheet := XLApp.Workbooks[ 1].WorkSheets[ 1]; Sheet := XLApp.Workbooks[ ExtractFileName( arquivo)] .WorkSheets[ 0]; // In order to know the dimension of the WorkSheet, i.e the number of rows // and the number of columns, we activate the last non-empty cell of it Sheet.Cells. SpecialCells( xlCellTypeLastCe ll, EmptyParam). Activate; --- dá erro aqui! // Get the value of the last row x := XLApp.ActiveCell. Row; // Get the value of the last column y := XLApp.ActiveCell. Column; // Assign the Variant associated with the WorkSheet to the Delphi Variant RangeMatrix := XLApp.Range[ 'A1', XLApp.Cells. Item[X, Y]].Value; // Define the loop for filling in the TStringGrid linha := strtoint(linhainici al.Text); sair := false; repeat //criando o sql com base na tabela sql := 'insert into '+self.combtabela. Text+' ('; if CheckBox1.Checked then sql := sql +'codigo,'; for Ii := 1 to self.grid.RowCount - 1 DO BEGIN if ii = 1 then sql := sql + self.grid.Cells[ 0,ii] else sql := sql + ', '+self.grid. Cells[0,ii] ; end; //vendo os campos manuais for iii := 1 to self.gridmanual. RowCount - 1 do sql := sql + ', '+self.gridmanual. Cells[0,iii] ; //fachando os campos sql := sql + ') values ('; if CheckBox1.Checked then sql := sql + autoincremento( nil,self. combtabela. Text,'codigo' ,fsqlconnection, self.Socketconne ction)+', '; //inserindo os dados g2.MinValue := 0; g2.MaxValue := self.grid.RowCount + self.gridmanual. RowCount; g2.Progress := 0; for ii := 1 to self.grid.RowCount - 1 do begin g2.Progress := ii; application. ProcessMessages; if (RangeMatrix[ linha, strtoint(self. grid.Cells[ 1,ii])] = '') and (ii = 1) then begin sair := true; Break; end; if self.grid.Cells[ 2,ii] = '0' then begin if ii = 1 then sql := sql + #39+ valida(RangeMatrix[ linha, strtoint(self. grid.Cells[ 1,ii])])+ #39 else sql := sql + ', '+ #39+ valida(RangeMatrix[ linha, strtoint(self. grid.Cells[ 1,ii])])+ #39; end else begin if ii = 1 then sql := sql + #39+ valida(copy( RangeMatrix[ linha, strtoint(self. grid.Cells[ 1,ii])],1, strtoint( self.grid. Cells[2,ii] )))+#39 else sql := sql + ', '+ #39+ valida(copy( RangeMatrix[ linha, strtoint(self. grid.Cells[ 1,ii])],1, strtoint(
Re: [delphi-br] Como colocar algumas linhas d e uma stringgrid não-editáveis
Adapte as suas necessidades use o evento OnSelectCell e verifique se é a linha que vc quer... if ARow = Linha then Grid.Options := Grid.Options + [goEditing] else Grid.Options := Grid.Options - [goEditing]; Espero ter ajudado. --- Em qui, 12/11/09, Joanes J. Chiesa inconscient...@yahoo.com.br escreveu: De: Joanes J. Chiesa inconscient...@yahoo.com.br Assunto: [delphi-br] Como colocar algumas linhas de uma stringgrid não-editáveis Para: delphi-br yahoogrupos delphi-br@yahoogrupos.com.br Data: Quinta-feira, 12 de Novembro de 2009, 23:21 Boa noite Pessoal, Estou com uma questão complicada para implementar, tenho um stringgrid e preciso que quando o usuário preencher uma linha ele não possa mais voltar e alterar novamente, ele somente pode excluir, deste modo preciso que parte do stringgrid (da linha 1 até a linha que ele acabou de digitar) fiquem travadas, somente podendo excluir e que abaixo disso as linhas fiquem disponiveis para novos dados digitados pelo usuário. sei que existe a opção Grid.Options := Grid.Options - [goEditing] mas somente funciona para colunas não encontrei nada que falasse sobre como aplicar isso em linhas. agradeço qualquer ajuda. Obrigado, Joanes _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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: focus stringgrid
Adapte as suas necessidades. Já é um caminho para você pesquisar. procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); var i : byte; begin if key = #13 then begin i := 0; while i = stringgrid1.ColCount do begin StringGrid1.Cells[i,1] := StringGrid1.Cells[0,1]; inc(i); end; end; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if ARow = 1 then stringGrid1.Options := stringGrid1.Options + [goEditing] else stringGrid1.Options := stringGrid1.Options - [goEditing]; end; Espero ter ajudado. --- Em ter, 6/10/09, Joanes J. Chiesa inconscient...@yahoo.com.br escreveu: De: Joanes J. Chiesa inconscient...@yahoo.com.br Assunto: [delphi-br] Re: focus stringgrid Para: delphi-br yahoogrupos delphi-br@yahoogrupos.com.br Data: Terça-feira, 6 de Outubro de 2009, 12:28 Bom dia, alguém tem alguma ideia de como implementar a questao abaixo? pesquisei na internet mas nao achei nada, ou talvez alguém possa sugerir algo semelhante. deve haver um jeito de implementar isto pois ja vi em muitos programas. Obrigado, Joanes --- Em seg, 28/9/09, Joanes J. Chiesa inconsciente_ c...@yahoo.com. br escreveu: De: Joanes J. Chiesa inconsciente_ c...@yahoo.com. br Assunto: focus stringgrid Para: delphi-br yahoogrupos delphi...@yahoogrup os.com.br Data: Segunda-feira, 28 de Setembro de 2009, 23:56 Boa noite pessoal, Gostaria de implementar a seguinte funcionalidade: ao digitar algum valor na primeira coluna de um stringgrid, gostaria que os valores fossem carregados nas demais células da linha. O que não estou conseguindo é criar um modo de saber quando eu sai da coluna 1. Tentei os eventos (Onsetedittext e OngetEditText) mas estes eventos não são para esta finalidade. Encontrei no google este exemplo porém não consegui implementá-lo e também não tenho certeza se funciona corretamente. Talvez alguém com mais experiência saiba informar se isto realmente funciona. http://forum. devmedia. com.br/viewtopic .php?p=241870 sid=f52f0f499a2c 0fb202348082291d 64df Alguém poderia me ajudar? ou dar alguma dica para criar esta implementação? Obrigado, Joanes _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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] Executável somente no servidor da rede local
Andrei, vou lhe contar minha experiência: tinha um sistema com executável no servidor e o atalho na máquina dos clientes. Quando tinha que atualizar o executável, tinha que pedir para todos os usuários saírem do sistema para atualizá-lo. Resolvi colocar o executável nos clientes. Mas como fazer para atualizá-los com uma nova versão? Criei um programa AtualizaProg, coloquei nos clientes e coloco a última versão numa pasta do servidor. Quando o sistema inicializa, verifica a data do executável do cliente com a do servidor, Se for menor, executa o AtualizaProg e fecha o sistema. O AtualizaProg copia o executável do servidor para a máquina do cliente, executa o sistema do cliente e fecha. Quando havia um atalho nos clientes, o sistema levava +/- 4 segundos para inicilaizar. Com o executável nos clientes, era instatâneo. Em alguns clientes, de vez em quando, vinha esta mensagem que você citou, Mas quando colocava uma nova versão, esta mensagem não aparecia mais. Espero ter ajudado --- Em qua, 23/9/09, Andrei Luís compuvale.softw...@gmail.com escreveu: De: Andrei Luís compuvale.softw...@gmail.com Assunto: [delphi-br] Executável somente no servidor da rede local Para: Delphi-br delphi-br@yahoogrupos.com.br Data: Quarta-feira, 23 de Setembro de 2009, 21:16 Boa noite a todos, Hoje coloco o executável de meus sistemas em cada estação. Quero estudar como vai ficar o desempenho se deixar o executável somente no servidor e nas estações um atalho apontando pra lá. Bem, criei uma pasta no servidor, coloquei os arquivos necessários e compartilhei a pasta. Na primeira estação, ao executar o novo atalho, o Windows chia com a mensagem 'O editor não pode ser verificado' e apresenta um botão 'Executar' e um 'Cancelar', clicando em Executar o sistema é abre normalmente. Mas aí, pô, é um saco ficar a cada execução do sistema, clicar no bendito botão. Alguém sabe o que pode se fazer para não aparecer essa msg? Já tentei criar uma exceção no Firewall da estação, já desativei o Firewall da estação e do servidor. Aquele botão Desbloquear não aparece nem nas propriedades do executavel, nem nas propriedades do atalho. 'Servidor' e estações rodam Win XP Pro SP3 []s Andrei [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] [ Problema Memoria com Quickreport]
Este erro já tinha sido reportado a muitos anos atrás e veja a solução que foi dada: Qdo mando imprimir várias guias (empresas diferentes) a primeira imprime correto, depois comeca a imprimir faltando logotipo. solucao (não testado) ja vi gente resolvendo problema parecido com um sleep({pode ser 500}). Espero ter ajudado. --- Em ter, 22/9/09, Marcio mar...@sulfabril.com.br escreveu: De: Marcio mar...@sulfabril.com.br Assunto: [delphi-br] [ Problema Memoria com Quickreport] Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 22 de Setembro de 2009, 9:29 Ola pessoal, desenvolvi um relatorio (Nota Fiscal) com uma imagem no plano de fundo. estou usando um TQRimagem para o logotipo no canto superior e a rotina abaixo para gerar marca dagua no centro da pagina .. tenho percebido que qndo imprimo as notas esta a memoria usada esta ficando alto e depois um tempo , hora imprime as images hora nao. sera algum problema de esvaziamento de memoria ?/ alguem tem alguma ideia ... Att. Marcio. procedure TfrmDANFE.QRRodapeA fterPrint( Sender: TQRCustomBand; BandPrinted: Boolean); var xx : integer; BitMap : TBitMap; {marca dagua} R : TRect; {marca dagua} X, Y : integer; {marca dagua} begin xx := 0; /// //rotina para imprimir marca dagua no QuickReport //incluir no PageFooterBand1Afte rPrint BitMap := TBitMap.Create; try if not FileExists(PastaLog otipo + 'sulfabril_logo. bmp') then begin messagebox(handle, 'O arquivo de imagem n?existe ou foi removido !','Aten?',MB_ OK or MB_ICONWARNING) ; SetActiveWindow( Application. Handle); end else begin BitMap.LoadFromFile ( PastaLogotipo +'sulfabril_ logo.bmp' ); with QuickRep2.QRPrinter do begin //Y := YPos(PaperLengthVal ue) div 6; Y := YPos(PaperLengthVal ue) div 4; X := XPos(PaperWidthValu e) div 4; R := Rect(X, 2 * Y, 3 * X, 4 * Y); ImprimeBitMap( Canvas, BitMap, R); end; end; finally BitMap.Free; end; / / / / // end; procedure TfrmDANFE.ImprimeBi tMap(Cnv: TCanvas; BitMap: TBitMap; R: TRect); var Info : PBitMapInfo; InfoSize : DWORD; Image : Pointer; ImageSize : DWORD; begin with BitMap do begin GetDIBSizes( Handle, InfoSize, ImageSize); GetMem(Info, InfoSize); try Getmem(Image, ImageSize); try GetDIB(Handle, Palette, Info^,Image^ ); with Info^.bmiHeader do StretchDIBits( Cnv.Handle, R.Left, R.Top, R.Right - R.Left,R.Bottom - R.Top, 0, 0, biWidth, biHeight, Image, Info^, DIB_RGB_COLORS, SRCAND); finally FreeMem(Image, ImageSize); end; finally FreeMem(Info, InfoSize); end; end; end; 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] [ Problema Memoria com Quickreport]
Isso. Este problema e esta solução não são meus. Esta dica foi posta aqui na lista. Experimente colocar antes de imprimir a banda que contem o logotipo. --- Em ter, 22/9/09, Marcio mar...@sulfabril.com.br escreveu: De: Marcio mar...@sulfabril.com.br Assunto: Re: [delphi-br] [ Problema Memoria com Quickreport] Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 22 de Setembro de 2009, 11:36 Fabio, tu diz que eu tenho que usar sleep({pode ser 500}). dar um tempo em cada impressao ??? att. Marcio. 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] Desenvolvimento para Palm
Peguei este sites na lista. Não sei nada sobre o assunto. www.clubepda.com.br Espero ter ajudado. --- Em seg, 17/8/09, Leandro - Grupos leacarbone...@yahoo.com.br escreveu: De: Leandro - Grupos leacarbone...@yahoo.com.br Assunto: [delphi-br] Desenvolvimento para Palm Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Agosto de 2009, 13:28 E ai galera... blz... Seguinte, tenho um cliente onde os seus vendedores irão começar a trabalhar com Palms e precisamos desenvolver uma aplicação para eles para uma simples consulta de preços. Gostaria de saber se alguém já teve alguma experiência desse tipo e se teria algum material ou alguma dica para medar Abraço [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] Modularização Aplicativos
www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=141 www.imasters.com.br/busca/0/29/6/artigo www.imasters.com.br/artigo/1047/delphi/usando_pacotes_para_modularizar_aplicacoes_parte_final/ forum.devmedia.com.br/viewtopic.php?t=95308highlight= Espero ter ajudado. --- Em seg, 10/8/09, Alexsandro Machado adura...@bol.com.br escreveu: De: Alexsandro Machado adura...@bol.com.br Assunto: [delphi-br] Modularização Aplicativos Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 10 de Agosto de 2009, 18:42 Boa tarde pessoal, Alguém utiliza sua aplicação modularizada em bpls, tipo: financeiro uma, estoque outra...e assim vai. Vale apena fazer assim ? Onde encontrar um bom material ? (procurei no google não achei nada interessante) . Obrigado Alex [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] StringGrid
Adapte as suas necessidades. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin label1.Caption:=IntToStr(StringGrid1.Row)+' '+IntToStr(StringGrid1.Col); end; Espero ter ajudado. --- Em dom, 9/8/09, Joanes J. Chiesa inconscient...@yahoo.com.br escreveu: De: Joanes J. Chiesa inconscient...@yahoo.com.br Assunto: [delphi-br] StringGrid Para: delphi-br yahoogrupos delphi-br@yahoogrupos.com.br Data: Domingo, 9 de Agosto de 2009, 23:22 Boa noite pessoal, Estou utilizando um Stringgrid e gostaria de implementação uma função onde o usuário tivesse a opção de selecionar varias linhas deste grid e ao clicar em um botão eu soubesse quais são as linhas selecionadas! alguém já implementou isto? Obrigado, Joanes _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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] Delphi X OpenOffice
Adapte as suas necessidades // bordas da celula excel.Workbooks[1].WorkSheets[1].range['A4','E5'].borders.linestyle := 1; excel.Workbooks[1].WorkSheets[1].range['A4','E5'].borders.weight := 2; // mesclar celulas excel.Workbooks[1].WorkSheets[1].Range['A4:C4'].Merge; excel.Workbooks[1].WorkSheets[1].Range['D4:E4'].Merge; Para formatar células: 1º você formata depois coloca o conteúdo, é + fácil. 2º formate assim... Range(C5).Select Selection.NumberFormat = 0.00 ou Cells(11, 3).Select Selection.NumberFormat = 0.00 ou Range(C7).Select Selection.NumberFormat = m/d/yy Excel.Cells.Item[1,2].Select; Excel.Selection.numberformat := '00'; {Formata como CNPJ} Excel.Cells.Item[1,2].Select; Excel.Selection.numberformat := '@'; {Formata como texto} Excel.Cells.Item[1,2].Select; Excel.Selection.numberformat := '#,##0.00'; {Formata 1,00} a célula deve receber apenas o mês e não um a data?? tente isso antes de passar o valor para a célula. Range['A1', 'A1'].NumberFormat := '#'; Range[StrCell, StrCell].Value2 := grd.Columns[NumColuna].Field.Value; if grd.Columns[NumColuna].Field.DataType in [ftdate, ftDateTime] then Range[StrCell, StrCell].NumberFormat := 'dd/mm/'; if grd.Columns[NumColuna].Field.DataType in [ftFloat, ftCurrency] then Range[StrCell, StrCell].NumberFormat := '#.##0,00'; Dê uma pesquisada em www.delphi.eti.br Espero ter ajudado. --- Em seg, 3/8/09, Paulo Pontes pontespa...@gmail.com escreveu: De: Paulo Pontes pontespa...@gmail.com Assunto: [delphi-br] Delphi X OpenOffice Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 3 de Agosto de 2009, 9:42 Pessoal, bom dia! Alguém tem um exemplo aí de como formatar uma planilha do OpenOffice pelo Delphi? Eu já implementei uma rotina aqui que faz a geração da planilha mas não estou conseguindo formatá-la, principalmente: mesclar células e colocar grade. Obrigado! [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] Delphi X OpenOffice
Você já deu uma pesquisada em: www.devmedia.com.br , www.linhadecodigo.com.br , www.activedelphi.com.br , www.delphi.eti.br ? --- Em seg, 3/8/09, Paulo Pontes pontespa...@gmail.com escreveu: De: Paulo Pontes pontespa...@gmail.com Assunto: Re: [delphi-br] Delphi X OpenOffice Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 3 de Agosto de 2009, 11:28 Fábio, obrigado pela dica. Mas meu problema maior é com o OpenOffice, para o Excel fiz como vc citou mesmo. Mas a API dos dois é diferente, não possui as mesmas funções. Valeu! 2009/8/3 fabio giro fabio_g...@yahoo. com.br Adapte as suas necessidades // bordas da celula excel.Workbooks[ 1].WorkSheets[ 1].range[ 'A4','E5' ].borders. linestyle := 1; excel.Workbooks[ 1].WorkSheets[ 1].range[ 'A4','E5' ].borders. weight := 2; // mesclar celulas excel.Workbooks[ 1].WorkSheets[ 1].Range[ 'A4:C4']. Merge; excel.Workbooks[ 1].WorkSheets[ 1].Range[ 'D4:E4']. Merge; Para formatar células: 1º você formata depois coloca o conteúdo, é + fácil. 2º formate assim... Range(C5). Select Selection.NumberFor mat = 0.00 ou Cells(11, 3).Select Selection.NumberFor mat = 0.00 ou Range(C7). Select Selection.NumberFor mat = m/d/yy Excel.Cells. Item[1,2] .Select; Excel.Selection. numberformat := '00' ; {Formata como CNPJ} Excel.Cells. Item[1,2] .Select; Excel.Selection. numberformat := '@'; {Formata como texto} Excel.Cells. Item[1,2] .Select; Excel.Selection. numberformat := '#,##0.00'; {Formata 1,00} a célula deve receber apenas o mês e não um a data?? tente isso antes de passar o valor para a célula. Range['A1', 'A1'].NumberFormat := '#'; Range[StrCell, StrCell].Value2 := grd.Columns[ NumColuna] .Field.Value; if grd.Columns[ NumColuna] .Field.DataType in [ftdate, ftDateTime] then Range[StrCell, StrCell].NumberForm at := 'dd/mm/' ; if grd.Columns[ NumColuna] .Field.DataType in [ftFloat, ftCurrency] then Range[StrCell, StrCell].NumberForm at := '#.##0,00'; Dê uma pesquisada em www.delphi.eti. br Espero ter ajudado. --- Em seg, 3/8/09, Paulo Pontes pontespaulo@ gmail.compontespaulo% 40gmail.com escreveu: De: Paulo Pontes pontespaulo@ gmail.com pontespaulo% 40gmail.com Assunto: [delphi-br] Delphi X OpenOffice Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Data: Segunda-feira, 3 de Agosto de 2009, 9:42 Pessoal, bom dia! Alguém tem um exemplo aí de como formatar uma planilha do OpenOffice pelo Delphi? Eu já implementei uma rotina aqui que faz a geração da planilha mas não estou conseguindo formatá-la, principalmente: mesclar células e colocar grade. Obrigado! [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [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] Sistema Completo para Transportadora
Veja se esta empresa atende. Eles tem sistemas, também, para transporte de cargas. www.bgmrodotec.com.br --- Em qua, 22/7/09, Jorge Ericsson jericsson...@gmail.com escreveu: De: Jorge Ericsson jericsson...@gmail.com Assunto: [delphi-br] Sistema Completo para Transportadora Para: Data: Quarta-feira, 22 de Julho de 2009, 23:12 Olá amigos, Tenho um cliente que precisa de uma sistema para transportadora que atenda as seguintes necessidades básicas como: Cadastro de Clientes Rotas Funcionários Cadastro de Frota Controle de Combustível Controle de Troca de Óleo Contas Naturezas de Operação Plano de Contas Formas de Pagamento Cadastro de Cedentes Instruções do Boleto Fluxo de Caixa Contas à Pagar Contas à Receber Boletos à Receber Duplicatas à Receber Adiantamento dos Motoristas Comissão dos Motoristas Conta Corrente dos Motoristas Cálculo do Transporte Controle de Cotações/Cálculos Ordem de Coleta Emissão do Conhecimento de Frete (CTRC) Impressão de Manifesto Emissão de Ordem de Serviço Controle de Carregamento Controle de Entregas Status das Frota Ordens de Coleta CTRC Emitidos Ordem de Serviço Consumo de Combustível Vencimentos de Doc. da Frota Acertos de Conta Histórico de Exclusões Gerador Sintegra Gerador de Arquivos EDI Gerador de Arquivos Contábil Recebimento de Arquivos EDI Infelizmente não tenho tempo para levantar os requisitos deste sistema e desenvolve-lo, por isso gostaria de falar em PVT sobre o assunto. Obs.: Dependendo do sistema, podemos conversar a respeito do código fonte, caso não seja negociável, que tenha a possibilidade de adequar o sistema as necessidades do cliente de forma rápida. Aguardo retorno, Jorge Ericsson S. Pinheiro http://www.jericsso n.com.br jericssonsup@ gmail.com jericssonsup@ hotmail.com skype:jericsson Brasília - DF [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] Dica ComboBox num String Grid
Adapte as suas necessidades. colocar 1 combobox 1 um stringgrid; OBS: depois que colocar o combobox e o stringgrid, clicar com o botão direito sobre o combobox e clicar em Bring to Front. procedure TForm1.FormCreate(Sender: TObject); begin { Ajusta a altura do ComboBox com a altura da linha do StringGrid} StringGrid1.DefaultRowHeight := ComboBox1.Height; {Esconde o ComboBox} ComboBox1.Visible := False; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; ComboBox1.Visible := False; StringGrid1.SetFocus; end; procedure TForm1.ComboBox1Exit(Sender: TObject); begin StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; ComboBox1.Visible := False; StringGrid1.SetFocus; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean); var R: TRect; begin if ((Col = 3) AND (Row 0)) then begin R := StringGrid1.CellRect(Col, Row); R.Left := R.Left + StringGrid1.Left; R.Right := R.Right + StringGrid1.Left; R.Top := R.Top + StringGrid1.Top; R.Bottom := R.Bottom + StringGrid1.Top; ComboBox1.Left := R.Left + 1; ComboBox1.Top := R.Top + 1; ComboBox1.Width := (R.Right + 1) - R.Left; ComboBox1.Height := (R.Bottom + 1) - R.Top; ComboBox1.Visible := True; ComboBox1.SetFocus; end; CanSelect := True; end; Espero ter ajudado. --- Em qua, 22/7/09, Jose Newton Araujo jose.new...@jnewton.com.br escreveu: De: Jose Newton Araujo jose.new...@jnewton.com.br Assunto: [delphi-br] Dica ComboBox num String Grid Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 22 de Julho de 2009, 10:09 Pessoal, preciso de um help Tem como colocar um Combo Box num string grid e fazer com que a célula automaticamente assuma o valor definido no combo ? Jose Newton [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] Excluir linhas de excel como delphi
excel.rows[10].select; Excel.selection.entirerow.delete; Espero ter ajudado. --- Em sex, 26/6/09, rodrigoojapa rodrigooj...@hotmail.com escreveu: De: rodrigoojapa rodrigooj...@hotmail.com Assunto: [delphi-br] Excluir linhas de excel como delphi Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 26 de Junho de 2009, 11:14 Bom dia, Estou com uma duvida em relação ao modo de excluir no delphi. Tenho uma aplicação que pega dados de uma .txt e coloca em uma planilha de exce, mas como varia o tamanho dos valores a aplicação conta quantos valores tem e exclui as linhas a partir do ultimo dados. O problema é que o tamanho da planilha quando a aplicação salca não diminui, enquanto que era para diminuir.Uso o seguinte comando para excluir. Excel.WorkBook[ 1].Sheets[ 5].range[ ColI + ':' + ColF].delete E quando eu excluo no excel e salvo o tamano do arquivo diminui O que pode ser? 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] Timage
Compartilha a solução. --- Em qui, 26/3/09, Alexandre alexandresoare...@yahoo.com.br escreveu: De: Alexandre alexandresoare...@yahoo.com.br Assunto: Re: [delphi-br] Timage Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 26 de Março de 2009, 8:49 Eu percebi!Mas já achei uma solução para o meu problema. Alex - Original Message - From: Rubem Nascimento da Rocha To: delphi-br Sent: Wednesday, March 25, 2009 8:22 PM Subject: RE: [delphi-br] Timage TImage não tem propriedade para isso! Sds. To: delphi...@yahoogrup os.com.br From: alexandresoaressp@ yahoo.com. br Date: Wed, 25 Mar 2009 19:42:25 -0300 Subject: [delphi-br] Timage Pessoal como faço para recuperar o caminho completo da imagem lida em um Timage? Alex [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video. msn.com/? mkt=pt-br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3958 (20090324) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [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] Assunto repetido?
Isso. Estou me referindo à ClubeDelphi sim. Não estou reclamando. Só gostaria de saber se é, como você sitou, um assunto com abordagem diferente. Obrigado pela atenção. --- Em qua, 11/2/09, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br Assunto: Re: [delphi-br] Assunto repetido? Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 11 de Fevereiro de 2009, 15:20 Acho que vc se refere a revista ClubeDelphi, não é? Olha, se não me engano a matéria de capa da Edição 70 era sobre testes automatizados (discutido na edição 102) mas esse assunto de DataSnap já esteve em alguma outra capa da CD, sim. Mas não acho ruim não, pois a abordagem é diferente. É uma implementação diferente da mesma tecnologia (DataSnap, no caso) []'s Ricardo. _ _ _ _ _ _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 11/2/09, fabio_giro fabio_g...@yahoo. com.br escreveu: Esta pergunta é para aqueles que assinam a revista a algum tempo. O assunto da revista nº 103 é o mesmo da revista nº 70? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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] Usando Indy - SMTP
A porta do yahoo é 587. --- Em sáb, 27/12/08, Dener (SOFTClass) lis...@softclass.com.br escreveu: De: Dener (SOFTClass) lis...@softclass.com.br Assunto: Re: [delphi-br] Usando Indy - SMTP Para: delphi-br@yahoogrupos.com.br Data: Sábado, 27 de Dezembro de 2008, 14:19 Amarra o IdSMTP com um componente IdSSLIOHandlerSocke tOpenSSL (Indy 10) no Indy 9 eu tentei e não consegui fazer funcionar, segue o meu código, testei com gmail, terra e uol. // Conecta with IdSMTP do begin Host := SMTPServidor; Username := SMTPUsuario; Password := SMTPSenha; Port := SMTPPorta; AuthType := satNone; if SMTPAutenticar = 'S' then AuthType := satDefault; IdSMTP.IOHandler := nil; if SMTPSSL = 'S' then begin IdSMTP.IOHandler := IdSSL; UseTLS := utUseRequireTLS; end; with IdLog do begin Filename := 'C:\LOG.LOG' ; IdSMTP.Intercept := IdLog; Active := (SMTPLog='S' ); end; try Connect; if SMTPAutenticar = 'S' then Authenticate; except on Erro:Exception do begin MsgMensagem := 'Não foi possível conectar ao servidor'; MsgAjuda := 'Erro informado:'+ #13+#10+Erro. Message; MsgError; Exit; end; end; end; // Envia o email try with IdSMTP do begin try Send(IdSMTPMessage) ; finally Disconnect; end; end; except on Erro:Exception do begin MsgMensagem := 'Erro no envio das informações'; MsgAjuda := 'Erro informado:'+ #13+#10+Erro. Message; MsgError; Exit; end; end; Tenta aí, se não der te mando o pedaço do código que controlo isso. Dener Coutinho - Yahoo escreveu: Pessoal Tenho feito meus envios de e-mail, usando o componente da Jedi... agora, tenho tentado usar a Indy. Quando uso o servidor de smtp do provedor Terra, com a porta 25, funciona que é uma beleza, mas quando uso o do yahoo, ou gmail, etc... porta 465 a coisa pega... dá um erro de socket, e aí fiquei vendido, pois tentei achar pelo google e até no próprio site da Indy sobre envio de e-mail para servidores com conexão segura, e dei com os burros n'água. Alguém já conseguiu fazer isso, e pode me dar uma LUZ? Desde já agradeço. Emanuel Coutinho 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] Botão na IntraWeb não funciona.
Estou aprendendo Intraweb. Tenho um sistema em Win32 e estou usando-o como base (aproveitando o desenho da tela e lógica, porém com componentes IntraWeb) para fazer um sistema em IntraWeb. O menu principal funciona. A grid da tela de cadastro traz os dados., mas um botão simples não. O botão tem a seguinte lógica: procedure TIWForm2.IWButton1C lick(Sender: TObject); begin WebApplication. showmessage( 'Registro já existe'); end; O que será que está faltando? Uso Delphi 7 Enterprise. 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]
[delphi-br] Executar evento do botão na IntraWeb
Seguindo meus testes, criei uma tela de cadastro (código e nome). No botão Consultar, dei duplo clique e coloquei uma rotina. Fez nada. Coloquei um BreakPoint. Não passa. Fui na propriedade ScriptEvents e coloquei a mesma rotina. Nada. No botão Voltar, o mesmo problema. Falta alguma coisa? A rotina é essa: procedure TiwCadSind.btConsultarClick(Sender: TObject); begin if strtointdef(trim(meCodigo.text),0) = 0 then begin WebApplication.showmessage('Código não informado'); meCodigo.setfocus; exit; end; AtualizaTela; // mostra os dados na tela if trim(chave_ant) = '' then WebApplication.showmessage('Registro não encontrado'); end; procedure TiwCadSind.btVoltarClick(Sender: TObject); begin Release; end; Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Executar evento do botão na IntraW eb
O código está lá. Coloquei o breakpoint neste evento, mas não passa lá. --- Em sex, 7/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] Executar evento do botão na IntraWeb Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 7 de Novembro de 2008, 14:05 seleciona o botão e no object inspector vai a aba events.. e veja se ta no evento onClick,, só pra confirmar.. se estiver depure o código que tem algo nele.. 2008/11/7 fabio giro [EMAIL PROTECTED] com.br Seguindo meus testes, criei uma tela de cadastro (código e nome). No botão Consultar, dei duplo clique e coloquei uma rotina. Fez nada. Coloquei um BreakPoint. Não passa. Fui na propriedade ScriptEvents e coloquei a mesma rotina. Nada. No botão Voltar, o mesmo problema. Falta alguma coisa? A rotina é essa: procedure TiwCadSind.btConsul tarClick( Sender: TObject); begin if strtointdef( trim(meCodigo. text),0) = 0 then begin WebApplication. showmessage( 'Código não informado'); meCodigo.setfocus; exit; end; AtualizaTela; // mostra os dados na tela if trim(chave_ant) = '' then WebApplication. showmessage( 'Registro não encontrado') ; end; procedure TiwCadSind.btVoltar Click(Sender: TObject); begin Release; end; -- . . . . ... 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] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Executar evento do botão na IntraW eb
- Stand Alone - voltar ao form anterior Estou usando D7. --- Em sex, 7/11/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] escreveu: De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] Assunto: Re: [delphi-br] Executar evento do botão na IntraWeb Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 7 de Novembro de 2008, 15:18 rotina. Nada. No botão Voltar, o mesmo problema. Falta alguma coisa? A rotina é essa: procedure TiwCadSind.btConsul tarClick( Sender: TObject); Mas vc está debugando via Stand Alone server ou via DLL? procedure TiwCadSind.btVoltar Click(Sender: TObject); begin Release; end; Qual o seu objetivo aqui? Terminar com a aplicação? Voltar a um form anterior? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - http://jacklovesdel phi.blogspot. com - Delphi, Intraweb, etc - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br [EMAIL PROTECTED] com.br Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicação intraweb
Estamos no mesmo barco. --- Em qui, 6/11/08, TI - Metalurgica Jano [EMAIL PROTECTED] escreveu: De: TI - Metalurgica Jano [EMAIL PROTECTED] Assunto: [delphi-br] Aplicação intraweb Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 6 de Novembro de 2008, 15:38 Depois de muitas duvidas resolvi desenvolver uma aplicação intraweb, Já que estou sem tempo para aprender c# dot.net. Espero não ficar na mão. A medida que for desenvolvendo vou postando aqui criticas positivas e negativas sobre o intraweb. Um abraço galera. [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] convertendo string minuscula em maiuscula
function MixCase(InString: String): String; var I: Integer; begin Result := LowerCase(InString); Result[1] := UpCase(Result[1]); For I := 1 To Length(InString) - 1 Do If (Result[I] = ' ') Or (Result[I] = ) Or (Result[I] = '') Or (Result[I] = '-') Or (Result[I] = '.') Or (Result[I] = '(') Then Result[I + 1] := UpCase(Result[I + 1]); end; procedure TForm1.Button1Click(Sender: TObject); var s :string; begin s := LowerCase(trim(edit1.text)); label1.caption := mixcase(s); end; Espero ter ajudado. --- Em sex, 17/10/08, Leonardo Baldino [EMAIL PROTECTED] escreveu: De: Leonardo Baldino [EMAIL PROTECTED] Assunto: [delphi-br] convertendo string minuscula em maiuscula Para: Grupo_Delphi delphi-br@yahoogrupos.com.br Data: Sexta-feira, 17 de Outubro de 2008, 9:49 alguem sabe onde eu posso encontrar uma procedure que quando eu insiro uma string como AVENIDA AFONSO PANSAN ela me retorne essa mesma string porem somente com a primeira letra de cada palavra em maiusculo -- Leonardo Carlos Baldino - The Highlander __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [DICA] +Funções para strings
Faça isso não. Continue enviando dicas. São sempre importantes. --- Em qui, 16/10/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Assunto: RE: [delphi-br] [DICA] +Funções para strings Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 16 de Outubro de 2008, 1:23 É, cada um pensa de um jeito! Minha intenção era apenas a de ajudar. Acho melhor ficar só nas sugestões de idéias. Cada um tem a sua maneira de codificar. E em respeito a essas diferenças, ficarei apenas na surdina, na obscuridade, observando. Nada mais de códigos. Caso alguém queira a minha opinião, estou por aqui. Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com Date: Thu, 16 Oct 2008 00:09:42 -0200 Subject: Re: [delphi-br] [DICA] +Funções para strings Concordo com o João, não vamos reinventar a roda, k. Joao Morais escreveu: Fala Rubem! 2008/10/15 Rubem Nascimento da Rocha djpardalrocha@ hotmail.com : Sinceramente, não vejo hack nenhum. Em linguagem C, condições do tipo if (var 0) podem ser simplificadas com if (var). O Object Pascal me permite fazer isso também, como ilustro no meu código. Portanto, pra mim, não é hack. Hack é tudo que é feito sem o suporte da linguagem. No Object Pascal, boolean e números não são compatíveis. O que o Object Pascal te fornece é um meio de hac^H^H^H forçar esta compatibilidade. C não tem nem boolean, nem elegância, nem diferença entre código limpo e hackeado, então a comparação ficou meio forçada. E ainda acrescento que faço uso de intensivo de constantes por ser uma prática que torna bem mais claro o código, algo bem melhor do que ficar usando magic numbers. Hã... Boolean(Items. Count) não me parece mais claro do que (Items.Count 0), pelo contrário. A menos que você seja um programador C ou Assembly. No entanto não importa. O que coloquei é o que o prof. Wirth esperava que fizéssemos, e não colocar a minha opinião, muito menos ir contra a sua. Quanto ao uso de TStringList, ... ora, se em Java eu posso usar coisa parecida, pq não em Delphi? Se o Object Pascal possui artefatos para uso de orientação a objetos, e classes utilitárias para auxiliar nosso trabalho, pq não fazer uso delas? Ah, o código é complexo e faz uso de heap! Mas uma função dessas, muito provavelmente, não seria usada em textos muito extensos, e o impacto na performance geral de um grande sistema aplicativo seria o mínimo. A pouca demanda para o uso de uma rotina jamais deve ser argumento para escolher uma opção mais cara perante uma opção mais simples. É justamente assim que nascem códigos mal feitos. Outros fatores como manutenção futura também entram na conta, mas que simplesmente não se aplica para uma rotina tão simples como essa. Alias será, pq faço uso dessas funções intensivamente no sistema que dou manutenção atualmente, e não existe perda de performance com o seu uso. Agora, putz, se for pra escrever sempre código simpleco e estruturado, então quem vêm do Delphi e tá acostumado a escrever só procedimentos e funções ou está acostumado somente a colocar componentes e codificar razoavelmente eventos vai se lascar feio ao tentar pegar códigos mais trabalhados em Java ou C#. Imagina pegar algo mais complicado como, por exemplo, validar uma texto em uma caixa de edição (a.k.a. TEdit) usando expressões regulares (a.k.a. RegEx)! Entendo aonde você quer chegar. Então agora basta, ou escolher um exemplo a altura da complexidade da implementação, ou implementar a rotina a altura da sua simplicidade. Mais bonito, menor e melhor são três grandezas diferentes para trechos de código. Mas, como diria Voltaire, posso não concordar com o que dizes, mas até o fim defenderei o direito que o tens de dizê-lo. Eu não esperava que fosses concordar comigo, no entanto devo confessar que eu esperava argumentos melhores para as suas escolhas. Sds. -- Joao Morais _ _ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com Date: Wed, 15 Oct 2008 22:16:55 -0300 Subject: Re: [delphi-br] [DICA] +Funções para strings 2008/10/15 Rubem Nascimento da Rocha djpardalrocha@ hotmail.com : if not AllowEmpty then for i := 0 to Count - 1 do while (List[i] = EmptyStr) and Boolean(List. Count) do No seu lugar eu removeria o while e colocaria um for downto, além de tirar esse hack do código e ajudar o caboclo a escrever código limpo. { Conta quantas palavras existem em uma string } function CountWords(S: string): integer; begin with TStringList. Create do Por que não usar o for? TStrings além de usar o heap tem um código mais complexo para uma tarefa simples. -- Joao Morais try Delimiter := ' '; DelimitedText := S; Result := Count; finally Free end end; Sds., Rubem Rocha Manaus, AM _ _ _ _ _ _ Conheça o Windows Live Spaces, a rede
RE: [delphi-br] Aprender IntraWeb
Bruno, conversei com você sobre este assunto ontem (06/10 , assunto : Exemplo). --- Em ter, 7/10/08, Bruno Lichot [EMAIL PROTECTED] escreveu: De: Bruno Lichot [EMAIL PROTECTED] Assunto: RE: [delphi-br] Aprender IntraWeb Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 7 de Outubro de 2008, 14:15 Qual versão do Delphi e qual exemplo você esta utilizando. Os exemplos publicados são 100% funcionais. Abra o exemplo features do Intraweb que contem praticamente todos os recursos e suas aplicabilidades. Muitas informações e informações importantes estão aqui: http://www.atozed. com/IntraWeb/ index.en. aspx Manuais: http://www.atozed. com/IntraWeb/ Documentation/ Index.EN. aspx Abs BL From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On Behalf Of fabio_giro Sent: terça-feira, 7 de outubro de 2008 14:05 To: [EMAIL PROTECTED] os.com.br Subject: [delphi-br] Aprender IntraWeb Alguém poderia me indicar om livro/apostila para desenvolvimento de sistemas IntraWeb em Delphi 7? Já baixei o exemplo do Bruno, mas quando vou abrí-lo dá erro. Obrigado. [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ferramenta para Banco de Dados Firebird.
Se deseja obter informações sobre as chaves (primárias ou não) deve consutlar a tabela de sistema RDB$RELATION_CONSTRAINTS. No entanto, se deseja saber mais sobre a chave, como quais campos a compõe e a sequência dos campos, será necessário relacionar tabelas que armazenam os índices (RDB$INDICES) e os campos que compõe cada índice (RDB$INDEX_SEGMENTS). Abaixo um exemplo: select RC.RDB$CONSTRAINT_NAME as NOME_PK, RC.RDB$RELATION_NAME as TABELA, IDX_S.RDB$FIELD_NAME as CAMPO, RC.RDB$INDEX_NAME as NOME_INDICE, IDX.RDB$INDEX_TYPE from RDB$RELATION_CONSTRAINTS RC, RDB$INDEX_SEGMENTS IDX_S, RDB$INDICES IDX where (IDX_S.RDB$INDEX_NAME = RC.RDB$INDEX_NAME) and (IDX.RDB$INDEX_NAME = RC.RDB$INDEX_NAME) and (RC.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY') and (RC.RDB$RELATION_NAME = :NOME_TABELA) order by IDX_S.RDB$FIELD_POSITION Você pode obter mais informações em www.firebase.com.br , www.comunidade-firebird.org Espero ter ajudado. --- Em ter, 16/9/08, Jorge Ericsson [EMAIL PROTECTED] escreveu: De: Jorge Ericsson [EMAIL PROTECTED] Assunto: [delphi-br] Ferramenta para Banco de Dados Firebird. Para: Data: Terça-feira, 16 de Setembro de 2008, 7:40 Olá amigos, Estou desenvolvendo uma ferramenta para visualizar e dar manutenção no BD Firebird e preciso com urgência do comandos SQL que retornem os INDICIES, CONSTRAINTS, DEPENDENCIAS, GRANTS E PERMISSÕES de uma determinada tabela no Banco. Se alguém souber de um site que contenham essas informações e outras, por favor me passem. Valew amigos... Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso n.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!!
Acontece Luciano, que existem algumas pessoas, como eu, que não gostam de usar componentes de terceiros. Mas tenho esperança que no Delphi 2020, tenha o driver para FB. --- Em qua, 10/9/08, Luciano Pimenta® - Suporte [EMAIL PROTECTED] escreveu: De: Luciano Pimenta® - Suporte [EMAIL PROTECTED] Assunto: RES: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 10 de Setembro de 2008, 17:20 Você pode usar um driver desenvolvido por um brasileiro (Thiago Borges) para Firebird. Ainda esta em beta, mas já esta sendo usado em projetos em produção e tem vários desenvolvedores testando. http://www.tbosyste ms.bluehosting. com.br/dbx4/ Luciano Pimenta® Programador Delphi/C#/ASP. NET Blog: lucianopimenta. blogspot. com Site: www.lucianopimenta. net CD de Treinamento RAD Studio: www.linhadecodigo. com.br/CDDVD. aspx?id=3361 http://www.linhadec odigo.com. br/CDDVD. aspx?id=3361 LP_RadStudio07 De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de fabio giro Enviada em: quarta-feira, 10 de setembro de 2008 17:10 Para: [EMAIL PROTECTED] os.com.br Assunto: Re: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Esta versão vem com o tão esperado driver para FireBird? --- Em qua, 10/9/08, Adriano Santos (Yahoo) [EMAIL PROTECTED] os.pro.br mailto:falecom% 40adrianosantos. pro.br escreveu: De: Adriano Santos (Yahoo) [EMAIL PROTECTED] os.pro.br mailto:falecom% 40adrianosantos. pro.br Assunto: Re: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Data: Quarta-feira, 10 de Setembro de 2008, 15:33 Show de bola Andreano, Sou suspeito pra falar galera, mas vamos lá: O Delphi 2009 está 100% loko. Agora quem pergunta sou eu: - Quem não vai migrar de D7 para D2009? rsrs Bom, é verdade pessoal. O Delphi 2009 vem com muitas novidades, muita coisa legal, diversos novos recursos, um DataSnap sensacional, Ribbon Controls, novos componentes na VCL, métodos anônimos e etc. Vale a pena adquirir, assino em baixo. -- Boa Leitura, Adriano Santos Director X-35 Consulting and Development Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi. blogspot. com www.adrianosantos. pro.br www.devmedia. com.br www.dug-sp.com Andreano Lanusse respondeu: Valeu Reginaldo. Obrigado por prestigiar o evento. Amanhã é em São Paulo e depois Rio de Janeiro. Abraços, Andreano From: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br] On Behalf Of reginaldo Sent: Tuesday, September 09, 2008 6:00 PM To: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Subject: Re: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Olá pessoal, estive no Delphi Tour de Belo Horizonte. O delphi 2009 está show de bola, novos componentes, ide mais rápida e diversos recursos que poderemos testar com a versão Demo que já está disponivel no site da CodeGear. Atenciosamente, Reginaldo (31)3291-9799 Idéia Informática Ltda www.ideiainformatic a.com.br MSN : [EMAIL PROTECTED] atica.com. br mailto:duvidas% 40ideiainformati ca.com.br mailto:duvidas% 40ideiainformati ca.com.br posso todos as coisas naquele que me fortalece - Original Message - From: Gerhard Roger Nack To: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br Sent: Tuesday, September 09, 2008 4:05 PM Subject: RES: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Eu sei que não se restringem só aos métodos anônimos Bruno, mas é sobre eles que fiquei curioso. Já quanto ao novo Office (Ribbon Controls) já uso isso a quase 2 anos graças a TMS Software que lançou os componentes pra isso na mesma época em que saiu o Office 2007. Um tempo depois a DevExpress também lançou um pacote que faz isso. Quanto ao resto das novidades desta versão, vamos esperar pra ver quais são então. Alguém que vá nesse evento amanha favor nos relatar quais são. De: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br] Em nome de Bruno Lichot Enviada em: terça-feira, 9 de setembro de 2008 09:26 Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br Assunto: RE: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! As novidades não se restringem somente a métodos anônimos. Isto apenas uma pequena parte do que está a nossa disposição. HTTP://dn.codegear. com/br HTTP://dn.codegear. com/br Abs BL From: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br
Re: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!!
Esta versão vem com o tão esperado driver para FireBird? --- Em qua, 10/9/08, Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu: De: Adriano Santos (Yahoo) [EMAIL PROTECTED] Assunto: Re: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 10 de Setembro de 2008, 15:33 Show de bola Andreano, Sou suspeito pra falar galera, mas vamos lá: O Delphi 2009 está 100% loko. Agora quem pergunta sou eu: - Quem não vai migrar de D7 para D2009? rsrs Bom, é verdade pessoal. O Delphi 2009 vem com muitas novidades, muita coisa legal, diversos novos recursos, um DataSnap sensacional, Ribbon Controls, novos componentes na VCL, métodos anônimos e etc. Vale a pena adquirir, assino em baixo. -- Boa Leitura, Adriano Santos Director X-35 Consulting and Development Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi. blogspot. com www.adrianosantos. pro.br www.devmedia. com.br www.dug-sp.com Andreano Lanusse respondeu: Valeu Reginaldo. Obrigado por prestigiar o evento. Amanhã é em São Paulo e depois Rio de Janeiro. Abraços, Andreano From: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br [mailto:[EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br] On Behalf Of reginaldo Sent: Tuesday, September 09, 2008 6:00 PM To: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Subject: Re: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Olá pessoal, estive no Delphi Tour de Belo Horizonte. O delphi 2009 está show de bola, novos componentes, ide mais rápida e diversos recursos que poderemos testar com a versão Demo que já está disponivel no site da CodeGear. Atenciosamente, Reginaldo (31)3291-9799 Idéia Informática Ltda www.ideiainformatic a.com.br MSN : [EMAIL PROTECTED] atica.com. br mailto:duvidas% 40ideiainformati ca.com.br mailto:duvidas% 40ideiainformati ca.com.br posso todos as coisas naquele que me fortalece - Original Message - From: Gerhard Roger Nack To: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br Sent: Tuesday, September 09, 2008 4:05 PM Subject: RES: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Eu sei que não se restringem só aos métodos anônimos Bruno, mas é sobre eles que fiquei curioso. Já quanto ao novo Office (Ribbon Controls) já uso isso a quase 2 anos graças a TMS Software que lançou os componentes pra isso na mesma época em que saiu o Office 2007. Um tempo depois a DevExpress também lançou um pacote que faz isso. Quanto ao resto das novidades desta versão, vamos esperar pra ver quais são então. Alguém que vá nesse evento amanha favor nos relatar quais são. De: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br [mailto:[EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br] Em nome de Bruno Lichot Enviada em: terça-feira, 9 de setembro de 2008 09:26 Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br Assunto: RE: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! As novidades não se restringem somente a métodos anônimos. Isto apenas uma pequena parte do que está a nossa disposição. HTTP://dn.codegear. com/br HTTP://dn.codegear. com/br Abs BL From: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br [mailto:[EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br ] On Behalf Of Gerhard Roger Nack Sent: terça-feira, 9 de setembro de 2008 08:50 To: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br Subject: RES: [delphi-br] CodeGear Delphi 2009 Tour - Evento Gratuito!!! Nem por aqui em SC, e com certeza não vou sair daqui pra ir a SP ou outro estado descobrir o que viria a ser isso. Por isso que perguntei, mas parece que o Bruno não quer estragar essa surpresa que vão mostrar no evento. Mas já imagino o que seja, só queria ter a confirmação de alguém que já teve acesso a esta nova versão. De: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br [mailto:[EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br mailto:delphi- br%40yahoogrupos .com.br ] Em nome de Açaí Enviada em: segunda-feira, 8 de setembro de 2008 19:26 Para:
Re: [delphi-br] extrair o dia da semana de uma data
lbDiaSemana.caption := UpperCase(longdaynames[dayoftheweek(strtodate(meData.text)) + 1]); --- Em qui, 28/8/08, rzzanatta [EMAIL PROTECTED] escreveu: De: rzzanatta [EMAIL PROTECTED] Assunto: [delphi-br] extrair o dia da semana de uma data Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 28 de Agosto de 2008, 11:31 Olá pessoal... Eu queria saber como faço pra extrair o dia da semana de uma data, exemplo: tenho a data 28/08/2008 e gostaria de saber se é segunda-feira, terça- feira, etc.. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alterar a cor da célula em um Stri ngGrid
Pinta a célula selecionada. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); const LM = 3; {each indiviual cell's left margin} TM = 2; {each indiviual cell's top margin} begin {puxemos o destaque do modo seguinte quando a celula for selecionada } if gdSelected in State then begin StringGrid1.Canvas.Brush.Color := clBlue; StringGrid1.Canvas.Font.Color := clHighlightText; end; {finalmente, faça o desenho de celula atual } StringGrid1.Canvas.TextRect(Rect, Rect.Left + LM, Rect.Top + TM,StringGrid1.Cells[acol,arow]); end; A parte do popup, dê uma pesquisada no help. --- Em qui, 28/8/08, Robson Tazinaffo [EMAIL PROTECTED] escreveu: De: Robson Tazinaffo [EMAIL PROTECTED] Assunto: [delphi-br] Alterar a cor da célula em um StringGrid Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 28 de Agosto de 2008, 15:06 Como alterar a cor de uma célula em um StringGrid clicando com o botão direito ( Usando um popup ), ou seja, quando clicar com o botao direito e no menu aparecer 3 cores (AZUL, AMARELO, VERMELHO)... como colocar uma cor para cada celula escolhida.. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Evento Tiburón[Feedback ao Andre ano]
Na minha opnião, os componentes de impressão deveriam vir como foi feito no Delphi 7. Veio o Rave já instalado, mas você pode instalar o quick se quiser. Em relação aos componentes de terceiros, não posso opnar pois não uso. --- Em seg, 4/8/08, Maria das Graças . [EMAIL PROTECTED] escreveu: De: Maria das Graças . [EMAIL PROTECTED] Assunto: RE: [delphi-br] Evento Tiburón[Feedback ao Andreano] Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 4 de Agosto de 2008, 8:30 Andreano 1-Atualmente desenvolvo aplicações Win32, mas já preciso partir para ..net para atender aos clientes maiores que hoje trabalham à base do Terminal Service. Então tenho que ter aplicativos win32 e .net. Meus clientes são segmento de indústria de calçados, distribuidoras de alimentos e bebidas, farmácias, supermercados, lojas de varejo em geral, bolsa de valores e factorings. Meus sistemas que necessitam de .net são as indústrias de calçado e as distribuidoras. O resto deve permanecer no win32. 2-Utilizo somente o Banco de Dados SQL Server 2000 e 2005, sendo que o 2000 utilizo para sistemas de frente de caixa homologados porque o módulo das operadoras de cartão de crédito tem um bug para o SQL 2005. 3-meus clientes utilizam o Windows XP, Windows Server 2003 (em sua maioria) e alguns estão partindo para o Windows Vista. 4-Pergunta importantíssima: Que recurso me faria migrar de versão Delphi: - Sempre necessitei de componentes de tela como: RXCurrencyEdit, TDateEdit(porque o DateTimePicker não é bom). A nova versão do Delphi tem o Edit que suporta números. Mas por que não suportar currency? Daí você pode me perguntar: mas por que não usar os componentes DataControls? Daí respondo: porque componentes de banco de dados do Delphi nunca foram satisfatórios com o SQL Server (o DBExpress com SQL Server fica lento demais, por isso ainda uso o ADO). E mesmo assim, muitas vezes preciso desses componentes somente a nível de tela mesmo. Poderia usar o clientDataSet a nível de memória? Poderia e uso, mas ainda assim preciso desses componentes currency e date. Então, componentes VCL implementados seriam um bom motivo para migrar. Componente de impressão (menos chato que o Rave) e semelhante ao Fortes Report ou ao Crystal Report também seriam um bom motivo. Resumindo, mais componentes seriam bem vindos. Uma vez você me respondeu que: o Delphi não tem esses componentes porque senão ele tiraria a oportunidade de terceiros desenvolverem seus próprios componentes. Isso é ruim, porque o Delphi é uma ferramenta cara e os componentes de terceiros também. Seria um investimento acima das possibilidades de uma empresa de porte médio, quanto mais para pequenas empresas. Ah, mais uma coisa: Tenho o RAD Studio mas ainda desenvolvo em Delphi 7, porque meus sistemas são homologados. Sempre que homologo sistema, devido aos testes que são aplicados nos laudos, a máquina pode dar problemas e tenho que instalar tudo, inclusive o Delphi, em um curto espaço de tempo (questão de minutos). Como instalar o RAD em questão de minutos? Impossível! A instalação é muito demorada. Inclusive é por isso que uso pouquíssimos componentes de terceiros (somente 3, na verdade) É isso aí. Maria --- Em sex, 1/8/08, Andreano Lanusse andreano.lanusse@ codegear. com escreveu: De: Andreano Lanusse andreano.lanusse@ codegear. com Assunto: RE: [delphi-br] Evento Tiburón[Feedback ao Andreano] Para: [EMAIL PROTECTED] os.com.br [EMAIL PROTECTED] os.com.br Data: Sexta-feira, 1 de Agosto de 2008, 20:28 Maria uma pergunta, Que tipo de aplicação você desenvolve, que banco de dados utiliza e que sistema operacional seus cliente utilizam? Outra pergunta, que recurso faria você migrar? []'s Andreano From: [EMAIL PROTECTED] os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] On Behalf Of Maria das Graças . Sent: Friday, August 01, 2008 11:39 AM To: [EMAIL PROTECTED] os.com.br Subject: RE: [delphi-br] Evento Tiburón[Feedback ao Andreano] Desculpe, Andreano Então me retrato aqui: não deveria ter me referenciado a outro grupo e nem falado pontos negativos do Delphi. Então, vou refazer meu feedback: O Live Meeting funcionou muito bem. Mas, gostaria que me informasse um link direto com a Embarcadero, onde eu possa dar um feedback sobre o Delphi e não sobre o Live Meeting. Maria --- Em sex, 1/8/08, Andreano Lanusse andreano.lanusse@ codegear. commailto:andreano . lanusse%40codege ar.com escreveu: De: Andreano Lanusse andreano.lanusse@ codegear. commailto:andreano . lanusse%40codege ar.com Assunto: RE: [delphi-br] Evento Tiburón[Feedback ao Andreano] Para: [EMAIL PROTECTED] p os.com.brmailto: delphi- br%40yahoogrupos .com.br [EMAIL PROTECTED] p os.com.brmailto: delphi- br%40yahoogrupos .com.br Data: Sexta-feira, 1 de Agosto de 2008, 17:38 Maria, Assim com o delphi-br, o codegeargroup é uma comunidade, onde várias pessoas como aqui, tentam ajudar e responder de acordo com o seu tempo, lhe pediria um pouco mais de respeito com todas
Re: [delphi-br] duvidas sobre strings
Onde está a função IsNumber? --- Em sex, 25/7/08, Nicolas [EMAIL PROTECTED] escreveu: De: Nicolas [EMAIL PROTECTED] Assunto: Re: [delphi-br] duvidas sobre strings Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 25 de Julho de 2008, 14:11 e eu ainda acrescentaria: if (isnumber(Edit1. text) ) and (Length(Edit1. text)=Edit1. MaxLenght) then showmessage( 'é igual´); []s alexandre - Original Message - From: Luciano Calenzani Simões To: [EMAIL PROTECTED] os.com.br Sent: Friday, July 25, 2008 1:47 PM Subject: Res: [delphi-br] duvidas sobre strings if Length(Trim( Edit1.Tex) ) = Edit1.MaxLength then showmessage( 'É igual!') Luciano Calenzani Simões - Mensagem original De: Leonardo Baldino portaldoinferno@ gmail.com Para: Grupo_Delphi [EMAIL PROTECTED] os.com.br Enviadas: Sexta-feira, 25 de Julho de 2008 10:12:01 Assunto: [delphi-br] duvidas sobre strings eu tenho um edit e eu preciso verificar se todos os espaço disponivel dentro do edit foi preenchido por numero inteiros, por isso eu gostaria de saber se alguem sabe como eu posso fazer isso -- Leonardo Carlos Baldino - The Highlander Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg. com Version: 8.0.138 / Virus Database: 270.5.6/1572 - Release Date: 25/7/2008 06:51 [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Verificar se existe o arquivo atrav és de um ip
Se no servidor, o administrador lhe der permissão, então será possível. --- Em qua, 23/7/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Assunto: RE: [delphi-br] Verificar se existe o arquivo através de um ip Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 23 de Julho de 2008, 15:58 Meu caro, só é possível vc conseguir acessar a pasta raiz da unidade C:\ de um micro remoto se, e somente se, vc tiver um usuário e senha do administrador da máquina. Por exemplo, se vc quiser checar o arquivo C:\ArquivoProcurado .txt no computador 192.168.1.10, teria que fazer algo nesse sentido: if FileExists(' \\192.168. 1.10\c$\ArquivoP rocurado. txt') then { ... } Mas pra isso funcionar, na hora o Windows vai te pedir o nome de usuário e senha, preferencialmente do administrador desse computador. Ou seja, sem chance pra vc! Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com.br Date: Wed, 23 Jul 2008 14:50:00 -0300 Subject: [delphi-br] Verificar se existe o arquivo através de um ip Salve pessoal! Alguém sabe se existe uma maneira de verificar se existe um determinado arquivo através de um ip sabendo o caminho desse arquivo na máquina possuidora desse mesmo ip? A como faria para copiá-lo caso não exista? Ex: no ip 192.168.1.10, C:\ArquivoProcurado .txt Valew!! []s _ _ _ _ _ _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. live.com/ signup/signup2. aspx?lc=pt- br Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] VErficar se mouse foi clicado
Use o Evento OnMouseDown !! Faça: begin if Button = mbLeft then // Pode ser mbLeft, mbMiddle, or mbRight begin end; end Espero ter ajudado. --- Em seg, 14/7/08, Maycon Sanches Amaro [EMAIL PROTECTED] escreveu: De: Maycon Sanches Amaro [EMAIL PROTECTED] Assunto: Re: [delphi-br] VErficar se mouse foi clicado Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 14 de Julho de 2008, 11:49 Galera tive fora e só hj voltei a ver as dicas.. Seguinte.. Preciso pegar a posicao do mouse qd ele for clicado. Tenho um Ttimer e nele tentei o seguinte if mouse.Capture= MOUSEEVENTF_ LEFTDOWN then ... if mouseB2 = mbleft then if mouse.Capture= WM_LBUTTONDOWN then mas nenhum desse funcionam... Aguma dica no que to fazendo errado?? Valeu. Att. Maycon Sanches Amaro Alisson escreveu: Use os eventos OnMouseDown e OnMouseUp do Form para o clique do botão esquerdo, e o evento OnContextPopup para o clique do botão direito. _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ http://br.beta. messenger. yahoo.com/ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FireBird campo numerico trazendo caracter especial
Tire a dll do uses e coloque a dll junto com o executável. --- Em qua, 25/6/08, Marlon Tiedt [EMAIL PROTECTED] escreveu: De: Marlon Tiedt [EMAIL PROTECTED] Assunto: [delphi-br] FireBird campo numerico trazendo caracter especial Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 25 de Junho de 2008, 11:34 Pessoal estou com um problema. Fiz uma aplicação com banco de dados FireBird 2.1 e coloquei conexão via dbExpress + TSQLQuery + DSP + CDS. Quando eu coloco no dpr a clausula DBExpInt para embutir a dll do dbExpress no executavel, o sistema está trazendo campos númericos com caracteres especiais. Exemplo: o valor retornado pela query é: 137,14, porém o sistema está retornando o valor de 137= ou 137! ou [EMAIL PROTECTED] Se eu não colocar essa dll no executavel, o mesmo não roda no cliente, se eu colcoar ela, o sistema traz os caracteres especiais nos campos numericos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi com Excel
// mesclar celulas // excel.Workbooks[1].WorkSheets[1].Range['A1:I2'].Merge; Você pode encontrar mais recursos em: www.devmedia.com.br/articles/viewcomp.asp?comp=5092hl= www.devmedia.com.br/articles/viewcomp.asp?comp=5092 www.delphi.eti.br/ver_dica.php?id=5329 Espero ter ajudado. Adjalma Costa [EMAIL PROTECTED] escreveu: Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Confirmação de e-mail
Este problema apareceu aqui na lista e a solução dada foi esta. Não testei. Utilizo o componente INDY para o envio de e-mail pelo Delphi 7. Agora estou com o seguinte problema: Preciso enviar um email com CONFIRMAÇÃO de leitura. solução IdMsgSend.ReceiptRecipient.Text := '[EMAIL PROTECTED]'; Espero ter ajudado. Allan GabrielAM [EMAIL PROTECTED] escreveu: Prezados, estou precisando criar um sistema de envio e de resposta de e-mails, só que o e-mail de envio quase nunca são os mesmos, vou explicar o caso. Envio um e-mail para o fornecedor, preciso que ele me confirme o recebimento, mas se ele não confirmar o recebimento fica difícil, então pensei em algo que ao ler a mensagem ele envie a resposta sem pedir nada ao usuário/leitor do e-mail. Preciso saber também que componentes usarei, se alguém tem algum exemplo pra isso por favor me de umas dicas, pois ainda não desenvolvi nada parecido.. Obrigado desde já. Atenciosamente, Rafael Vivan Bem Bom Móveis Ltda. Aqui é bom de comprar e fácil de pagar Rua Marechal Deodoro,647 Concórdia - SC - 89700-000 (0xx49) 3444-2090 (0xx49) 3444-6967 (0xx49) 9987-0539 MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Case When no Delphi
Qual o BD? Qual a versão do BD? Parece que o problema está na falta de plic´s antes da descrição. Experimente assim: (...) sql.add(' when 1 then ' + + 'CRIANÇA' + ); sql.add(' when 2 then ' + + 'ADULTO' + ); sql.add(' when 3 then ' + + 'IDOSO' + ); (...) Espero ter ajudado. ca_programador007 [EMAIL PROTECTED] escreveu: Olá amigos da lista Preciso de uma ajuda meio urgente.. Não sei o que eu estou fazendo de errado. Preciso utilizar o case when na minha consulta pelo seguinte: Quando vier no conteúdo do campo (varchar) o número 1, então que me retorna a palavra CRIANÇA, quando vier o número 2, que me retorna a palavra ADULTO e quando vier o número 3, que me retorna a palavra IDOSO. sql.add('select flag AS idade'); sql.add('case vci.flag'); sql.add('when 1 then CRIANÇA'); sql.add('when 2 then ADULTO'); sql.add('when 3 then IDOSO end as idade'); sql.add('from'); sql.add('tabela'); O que tem de errado aqui? no aguardo de uma ajuda.. valeu, carlos - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE - Inserir uma imagem na planilha Excel
Peguei estas duas dicas na lista. try xlws.Shapes.AddPicture(logofname, LinkToFile, SaveWithDocument, 1, 1, 143, 32); except end; Onde: xlws é um objeto do tipo TExcelWorksheet logofname é uma variável que contem o path + o nome do jpg LinkToFile pode ser setado para 0 SaveWithDocument informa se a imagem deve ser salva no local de destino, sete ela para 1 os dois ultimos parametros, 143 e 32, correspondem as medidas que você quer que a imagem tenha na planilha ** www.devmedia.com.br/articles/viewcomp.asp?comp=1298hl= Espero ter ajudado. Jorge Ericsson [EMAIL PROTECTED] escreveu: Olá amigos delphianos, Primeiramente desejo a todos do grupo um 2008 repleto de desafios e mais conhecimentos. Que o desejo de todos se realizem neste ano que se inicia. Pessoal, através de OleContainer eu atribuir dados em uma planinha e formatei os campos do jeito que precisava, mas não consegui acrescentar na primeira linha da primeira coluna a logo do meu cliente. Alguém tem uma idéia de como faço isso automaticamente sem ter que ir na opção INSERIR IMAGEM ?: Obs.: Alguém utiliza o componente DevExpress cxSpreadBook ? []´s Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro de arredondamento
A explicação que gostaria e que o Rubens Nascimento respondeu é: porque 1,5 arrdonda para 2 e 2,5 não arredonda para 3? fabio_giro wrote: se edit1 = 1,5 - edit2 = 2 se edit1 = 2,5 - edit2 = 2 se edit1 = 3,5 - edit2 = 4 se edit1 = 4,5 - edit2 = 4 ou seja, quando a parte inteira é impar arredonda. Alguém poderia me explicar? Testei no D7. Você mesmo explicou, e é bem assim que deve funcionar. Que outra explicação você precisa? -- Joao Morais - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Erro de arredondamento
O edit2 ficou igual ao edit1 (edit1=1,5 - edit2=1,5) Bruno Lichot [EMAIL PROTECTED] escreveu: Já tentou usar a funcao simpleroundto da unit math? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de fabio_giro Enviada em: sexta-feira, 11 de janeiro de 2008 15:28 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro de arredondamento Tenho um relatório que faz o seguinte cálculo: taxa1 e taxa2 : double; taxa1 := 161,5 * (3 /100); (resultado = 4,845) taxa2 := strtofloat(formatfloat('#0.00',taxa1)); Na primeira vez que executo o programa o resultado da taxa2 = 4,80 . Se o usuário rodar o relatório novamente, SEM SAIR DO SISTEMA, o reultado da taxa2 = 4,85 Baseado nisso, resolvi fazer o seguinte teste: criei uma aplicação nova, coloquei 2 edit´s e 1 botão e fiz o seguinte: procedure TForm1.Button1Click(Sender: TObject); var tx : double; begin tx := strtofloat(edit1.text); tx := round(tx); edit2.text := floattostr(tx); end; se edit1 = 1,5 - edit2 = 2 se edit1 = 2,5 - edit2 = 2 se edit1 = 3,5 - edit2 = 4 se edit1 = 4,5 - edit2 = 4 ou seja, quando a parte inteira é impar arredonda. Alguém poderia me explicar? Testei no D7. Agradeço antecipadamente. __ NOD32 2783 (20080111) Information __ This message was checked by NOD32 antivirus system. part000.txt - is OK part001.htm - is OK http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ícones
www.icone-gif.com/ Espero ter ajudado. ::: | RICARDO AMORIM | SOLUÇÕES EM SOFTWARES | ::: [EMAIL PROTECTED] escreveu: Olá pessoal, tudo bem ? Estou necessitando de ícones (.ico) para diversas aplicações. Por gentileza alguém saberia me dizer onde posso encontrar uma boa biblioteca de ícones ? Antecipadamente grato e um abraço a todos. Ricardo - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi download
Para baixar produtos free da Borland acesse http://www.codegear.com/downloads/free , agora para instalar, a lista pode te ajudar. Espero ter ajudado Luiz Fernando [EMAIL PROTECTED] escreveu: E ae galera blz Eu utilizo o Lazarus, que é uma versão freepascal, não sei se vcs conhecem, mas vamos ao que interessa, alguém ai sabe onde eu possa encontrar o Delphi para baixar (grátis rsrsrs), e como instalá-lo, alguém ai pode me ajudar por favor e me desculpem se estou querendo algo pirata, mas quem nunca obteve algo pirata que atire a primeira pedra!!! Muito Obrigado pela atenção, Juninho 215 - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Manter a aplicação em Fore ground
Esta dica peguei nesta lista e serve para o sistema não aparecer na barra de tarefas. *** Insira estas linhas no onShow do seu Aplicativo para que ele fique invisível na barra do menu Iniciar: var H : HWnd; begin H := FindWindow(Nil,'Project1'); {troque project1 pelo nome do seu projeto) if H 0 then ShowWindow(H,SW_HIDE); end; *** Se colocar no menu principal, a propriedade do BorderStyle = BsNone e minimizar, acredito que funcione. Espero ter ajudado. william.designer [EMAIL PROTECTED] escreveu: alguém sabe me dizer como faço para manter minha aplicação criada em delphi por cima de qualquer outro programa que se abra no windows xp, Quando o usuário entra no word por exemplo meu pequeno formulario fica por tras da tela do word... Será que não tem um jeito do usuário usar o word normalmente mas com a minha janelinha aparecendo no topo ou na base da janela... Desde já agradeço... - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Treinamento em Delphi For PHP
Acabei de entrar em contado com a Helena (tdscursos) sobre este curso. Como não sei nada de PHP me interessei, mas ela me informou que é o básico do PHP então fiquei na dúvida se um bom livro não bastaria para aprender a mesma coisa, porém mais barato. O que você está achando do curso? jadirconsult [EMAIL PROTECTED] escreveu: Fala moçada, me inscrevi neste curso e estou convidando vc´s ! Como sou ex-aluno minha indicação vale desconto (heheheh) o programa o curso é : Dia 1 / Primeiras 8 horas : PHP Language Essentials Introdução Desenvolvimento de Aplicações Web Estrutura e Ambiente Web Como funciona o PHP Tags do PHP Declarações e espaços em branco Comentários Funções Variáveis em PHP Tipos Nomes(Identificadores) Tipagem Escopo de variáveis SuperGlobais Constantes Manipulação Estrutura do PHP Operadores Páginas Dinâmicas Passagem de Valores via URL Estruturas de Decisão Estruturas de Repetição Arrays Enumerados Associativos Bidimensionais Funções de Manipulação Formulários HTML Estrutura de Trabalho Variável FORM Strings no PHP Formatação Concatenação Funções de Manipulação Funções do PHP Definindo e Utilizando Valores Default Escopo de Variáveis Referência X Valor DIA 2 / A IDE Delphi for PHP Introdução ao Desenvolvimento de Aplicações WEB Regra de Negócio X Lógica de Negócios O que é a interface de Usuário? Elementos básicos da Interface Arquitetura da VCL Componentes Desenvolvento a Interface de Usuário Designer de Formulário e Editor de Código Designer de Formulário Criando Interfaces Editor de Código Ferramenta Two-Way Debugger Controlando a execução do Programa Analizando dados em tempo de Execução Banco de Dados Visão Geral sobre o Desenvolvimento com banco de dados Arquitetura de Banco de Dados Tecnologias de acesso a banco de dados Deploy de Aplicações Web Arquivos da Aplicação Aplicações com banco de Dados Ta molinho heimn ??? Valor do investimento (fora o desconto) ! R$ 560,00, parcelado em 5x no cheque ou no cartão! Procure por Fabiana Sant' Anna - [EMAIL PROTECTED] Tel.: (21) 2223-1234 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com Parâmetro em fo rmato de Data
A função está recebendo aDATAANOTSERV e você está usando ParamByName('par03').AsString := pDATAANOTSERV; Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Bom dia companheiros de lista. Tenho a seguinte função: * Function PegaNUMANOTSERV(aNUMMAQCAMVEI, aNBOLANOTSERV: Integer; aDATAANOTSERV: TDate; aTIPOANOTSERV, aTROLEOANOTSERV: String): Integer; Var Temp : Integer; aSQL : TSQLQuery; Begin aSQL := TSQLQuery.Create(nil); with aSQL do begin SQLConnection := dm.ConSENPAR; with SQL do begin Add('Select NUMANOTSERV ' ); Add('From ANOTSERV ' ); Add('Where NUMMAQCAMVEI = :par01' ); Add(' And NBOLANOTSERV = :par02' ); Add(' And DATAANOTSERV = :par03' ); Add(' And TIPOANOTSERV = :par04' ); Add(' And TROLEOANOTSERV = :par05' ); end; ParamByName('par01').AsInteger := aNUMMAQCAMVEI; ParamByName('par02').AsInteger := aNBOLANOTSERV; ParamByName('par03').AsString := pDATAANOTSERV; ParamByName('par04').AsString := aTIPOANOTSERV; ParamByName('par05').AsString := aTROLEOANOTSERV; Open; end; Temp := aSQL.Fields[0].AsInteger; aSQL.Free; Result := Temp; End; *** Sempre que tento passar a data para o banco de dados como parâmetro o banco não retorna os dados esperados. O campo DATAANOTSERV é do tipo DATE e o banco de dados é Firebird v1.5.2 Tentei passar o parâmetro como Date (AsDate e AsDateTime) e como String (AsString) mas mesmo tendo registros que atendam aos requisitos da consulta, nenhum dado é retornado quando a consulta é feita pela aplicação. Fazendo a mesma consulta num front-end (IBExpert) a consulta retorna os dados normalmente. Não tenho nenhuma mensagem de erro em nenhuma das adaptações que tentei. Grato, Ricardo. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: RES: [delphi-br] Delphi+Postgre
Concordo com você. Você já tinha explicado isso antes. Além do braço do HD, tem também, má programação, alteração de tipo de campo (varchar - integer), problema de hardware(HD), etc, e estes erros independem do banco de dados. Mas é que trabalhei com oracle 7.3.2 com 14 estações acessando num servidor pentium 166 (este ano o micro estaria fazendo 11 anos) e houve uma queda de luz. Quando a luz voltou, o oracle levantou, sacudiu a poeira e continuou trabalhando. Mas vamos dar por encerrada esta discussão que está saido do assunto do título. Um Abraço. Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Fabio, Nem sempre isso pode ocorrer, mas que existe a probabilidade existe. Supunhetemos um caso em que o braço do HD está naquele exato momento efetuando uma gravação física no arquivo do banco de dados e cai a energia ou então um reboot inesperado no Servidor... Outro dia um cara me escreveu no messenger pedindo pra eu dar uma luz pra ele lá pois ele acessava o SQL Server e recebia a mensagem de que o banco não tinha encontrado o marcador de fim de arquivo. Passei isso pro DBA daqui da Telemont e ele disse que o banco foi corrompido. Existem muitos utilitários aí no mercado que recuperam MDF danificado, mas nenhum deles assegura a boa consistência e integridade dos dados lá contidos. Em outra palavras, Recupera o MDF pra nada né... Também convenhamos né! As mensagem de erro da Microsoft são pra lá de confusas. Não seria melhor dizer que o mdf estava corrompido do que falar que o banco não achou o marcador de fim de arquivo?? []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 Code Gear: http://cc.codegear.com/Author/46502 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de fabio giro Enviada em: quarta-feira, 26 de setembro de 2007 11:38 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Delphi+Postgre Por queda de energia, já tentei e não consegui corromper o banco. Fiz o seguinte teste. Com 1 contador na tela de registros lidos, lia um arquivo txt com 1000 registros e a cada 100 registros dava commitretainning. Em várias situações desligava o micro no botão, pelo cabo de força, com ctrl+alt+del (foram 10 tentativas) e o banco não corrompeu. Fiz o teste no FB 1.5.2 + D7 + IBX. Vitor Redes [EMAIL PROTECTED] escreveu: E tem outros problemas também. O cara faz umas tabelas lá de qualquer jeito, controla tudo na munheca, as transações no banco ficam todas abertas, enfim... Não tem no-break no servidor, aliás, muitas vezes nem servidor existe, e se existe, está lá só por estar, não trabalha como servidor, não está bem configurado, não está nada. Claro que existem exceções, assim como explanou o Walter, mas a maior parte das cacas que acontecem aí são por erro dos programadores mesmo, ou por falta de um mínimo de segurança. E depois colocam a culpa nos coitados dos bancos de dados. É a mesma coisa que guardar todo o seu dinheiro num cofre e deixar a porta aberta... Pô, mas era pra ser seguro... Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quarta-feira, 26 de setembro de 2007 10:57 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Delphi+Postgre Prioridade: Alta Não poderia ter feito explanação melhor que esta. Faço minhas as suas palavras, Walter. Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom os.com.brFrom: [EMAIL PROTECTED] mailto:wchagas%40telemont.com.brDate com.brDate: Wed, 26 Sep 2007 10:54:49 -0300Subject: RES: [delphi-br] Delphi+Postgre Eu penso o seguinte:Nenhum banco de dados está seguro de acidentes. Se estivesse, não existiria Backup e servidor não seria espelhado. Se, no exato momento de uma gravação, ocorre uma queda de energia, há sim a possiblidade do banco se ferrar. Aqui na Telemont, já perdemos um banco do MSDE na regional Tocantins e outro em Anápolis também por conta de queda de energia e queda de rede. O arquivo .mdf foi danificado em Tocantins e em Anápolis foi o log.Lembrando que PostgreSQL e mySQL TAMbém estão sujeitos a isso. Até Oracle, que muitos o tratam como o invulnerável, está. Pode ainda não ter acontecido. Basta a falha ocorrer no exato momento em que o braço do HD está efetuando uma gravação no arquivo do banco.Os riscos são maiores ainda nos momentos dos Commit ou dos Rollback.[]sWalter Alves Chagas JuniorProjeto e desenvolvimento de sistemasTelemont Engenharia de telecomunicações S/ABelo Horizonte - MG - Brasilwchagas@ mailto:Brasilwchagas%40telemont.com.brFone telemont.com.brFone: (31) 3389-8217 Fax: (31) 3389-8215Code Gear:http://cc.codegear. http://cc.codegear.com/Author/46502-Mensagem com/Author/46502-Mensagem original-De: [EMAIL PROTECTED] mailto:delphi
Re: RES: RES: [delphi-br] Delphi+Postgre
Por queda de energia, já tentei e não consegui corromper o banco. Fiz o seguinte teste. Com 1 contador na tela de registros lidos, lia um arquivo txt com 1000 registros e a cada 100 registros dava commitretainning. Em várias situações desligava o micro no botão, pelo cabo de força, com ctrl+alt+del (foram 10 tentativas) e o banco não corrompeu. Fiz o teste no FB 1.5.2 + D7 + IBX. Vitor Redes [EMAIL PROTECTED] escreveu: E tem outros problemas também. O cara faz umas tabelas lá de qualquer jeito, controla tudo na munheca, as transações no banco ficam todas abertas, enfim... Não tem no-break no servidor, aliás, muitas vezes nem servidor existe, e se existe, está lá só por estar, não trabalha como servidor, não está bem configurado, não está nada. Claro que existem exceções, assim como explanou o Walter, mas a maior parte das cacas que acontecem aí são por erro dos programadores mesmo, ou por falta de um mínimo de segurança. E depois colocam a culpa nos coitados dos bancos de dados. É a mesma coisa que guardar todo o seu dinheiro num cofre e deixar a porta aberta... Pô, mas era pra ser seguro... Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quarta-feira, 26 de setembro de 2007 10:57 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Delphi+Postgre Prioridade: Alta Não poderia ter feito explanação melhor que esta. Faço minhas as suas palavras, Walter. Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom os.com.brFrom: [EMAIL PROTECTED] mailto:wchagas%40telemont.com.brDate com.brDate: Wed, 26 Sep 2007 10:54:49 -0300Subject: RES: [delphi-br] Delphi+Postgre Eu penso o seguinte:Nenhum banco de dados está seguro de acidentes. Se estivesse, não existiria Backup e servidor não seria espelhado. Se, no exato momento de uma gravação, ocorre uma queda de energia, há sim a possiblidade do banco se ferrar. Aqui na Telemont, já perdemos um banco do MSDE na regional Tocantins e outro em Anápolis também por conta de queda de energia e queda de rede. O arquivo .mdf foi danificado em Tocantins e em Anápolis foi o log.Lembrando que PostgreSQL e mySQL TAMbém estão sujeitos a isso. Até Oracle, que muitos o tratam como o invulnerável, está. Pode ainda não ter acontecido. Basta a falha ocorrer no exato momento em que o braço do HD está efetuando uma gravação no arquivo do banco.Os riscos são maiores ainda nos momentos dos Commit ou dos Rollback.[]sWalter Alves Chagas JuniorProjeto e desenvolvimento de sistemasTelemont Engenharia de telecomunicações S/ABelo Horizonte - MG - Brasilwchagas@ mailto:Brasilwchagas%40telemont.com.brFone telemont.com.brFone: (31) 3389-8217 Fax: (31) 3389-8215Code Gear:http://cc.codegear. http://cc.codegear.com/Author/46502-Mensagem com/Author/46502-Mensagem original-De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de FernandoEnviada em: quarta-feira, 26 de setembro de 2007 10:43Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brAssunto os.com.brAssunto: Re: [delphi-br] Delphi+PostgreQue estranho!!! Estou acostumado a ouvir este tipo de coisa a respeito do Paradox, nãodo Firebird...este último então está sujeito a idiossincrasias e peripaques, como o ParadoxE eu que estava pensando em migrar pro Firebirdcruiz credoAbraços.Fernando.Plinio Cesar Pavin escreveu: Eu parei de usar firebird por isso, numa queda de energia fui obrigado a restaurar o backup do servidor, coisa que nunca me aconteceu com PostgreSQL ou mySQL. De:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Para:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Cópia: Data:Wed, 26 Sep 2007 08:22:37 -0300 (ART) Assunto:Re: [delphi-br] Delphi+Postgre No Postgree há o problema de corrupção? Trabalho com FireBird e sempre vejo mensagem de corrupção do banco (por exemplo: copiar o banco se estiver sendo usado). Há algum software para recuperar o banco? Trabalhei com Oracle durante 10 anos e numca tive problema com o banco. José Mário Silva Guedes jmarioguedes@ mailto:jmarioguedes%40gmail.com gmail.com mailto:jmarioguedes%40gmail.com escreveu: Então: Eu particularmente não uso e espero nunca usar o Linux, por isso não sei como se instala o PostgreSQL no Linux, porém no Windows, a instalação é muito tranquila, algumas telas e pronto: pode começar a usar. Eu sei que o PostgreSQL no Linux, como qualquer outro servidor, é mais eficiente no Linux. Inclusive consegui colocar o instalador do PostgreSQL dentro dos instaladores dos meus programas. O usuário nem toma conhecimento. Basta chamar o instalador original com uma série de parâmetros. O que queimou o filme do PostgreSQL eram as primeiras versões for windows. Em especial a da DBExperts. Era emulada e o bicho caia toda
Re: [delphi-br] Executável do sistema
Não tenho sistema modularizado, mas dêem uma olhada nestes sites. www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=141 www.imasters.com.br/artigo/1047/delphi/usando_pacotes_para_modularizar_aplicacoes_parte_final/ www.imasters.com.br/busca/0/29/6/artigo Espero ter ajudado. André Luis de Oliveira [EMAIL PROTECTED] escreveu: Como cria um sistema em dll??? - Original Message - From: Guionardo Furlan To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 26, 2007 9:50 AM Subject: Re: [delphi-br] Executável do sistema Hmm, e como o sistemaX.exe sabe quais módulos estão disponíveis? Fileexists(arquivodll)? E a troca de informações entre eles? Em 26/09/07, Yahoo [EMAIL PROTECTED] escreveu: Para quem não entendeu como se divido o sistema em dlls, vou tentar explicar. Faço a tela principal como exe. Cada item de menu chama um módulo. Esses módulos chamados em cada item de menu é uma dll. Por exemplo : Tenho um sistema como o nome de SistemaX, que tem uma tela de vendas, um cadastro de pessoas e um cadastro de produtos. Então o sistema teria o executável com o nome de SistemaX.exe e os módulos Vendas.dll, Pessoas.dll e Produtos.dll. Desenvolvendo o sistema dessa forma ficaria mais fácil atualizar o sistema, pois só disponibilizaria para o usuário os módulos que lhe interessassem e só seria necessário atualizar os módulos alterados. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.13.30/1030 - Release Date: 25/9/2007 08:02 [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] palm+sistema delphi
Talves estes sites possam te ajudar. www.clubepalm.com.br www.clubepda.com.br Espero ter ajudado. Rafael Jorge [EMAIL PROTECTED] escreveu: tenho um cliente que quer que meu sistema interaja com palms. alquem ai me recomendaria alguma ferramente pra desenvolvimento do mesmo? o palm so vai verificar disponibilidade de estoque e emitir pedido. so isso. nao sei nem se vai imprimir alguma coisa.. t+ -- Rafael jorge alves Analista/desenvolvedor www.sistemafocus.com.br -- ERP completo www.acinformatica.org -- Empresa [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desligar o micro após um d eterminado processo.
O que o -f faz? Leandro A. Nunes [EMAIL PROTECTED] escreveu: o comando para desligar o PC é shutdown -s -f -t 0 não func no WIN2K e WIN9X - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 9:43 AM Subject: RES: [delphi-br] Desligar o micro após um determinado processo. Vou te dizer aonde tem peixe. Procure no help por esses caretas: TTimer (componente) Now ou Date (retorna hora ou data e hora, não lembro) O comando pra desligar tem que procurar na net (google), ou alguém que já tem a API possa te passar. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sandro Ricardo Enviada em: quarta-feira, 19 de setembro de 2007 09:14 Para: Undisclosed-Recipient:; Assunto: [delphi-br] Desligar o micro após um determinado processo. Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] QuickReport - Retirar botões
Desculpe. Estou enviando a dica correta agora. testei e funcionou. Não esqueça de fazer a cópia. No diretorio /Lib tem um arquivo chamado Qrprev.dfm. Abre ele e inclua a seguinte linha (que está com a seta): Object QRStandardPreviw: TQRStandardPreview Left = 229 Top = 191 Width = 652 Heigth = 579 BorderIcons = [biSystemMenu, biMaximize] --- Caption Agora é só salvar e compilar novamente sua aplicação, você verá que sua aplicação não exibirá mais o botão de minimizar o form. Eduardo Suruagy [EMAIL PROTECTED] escreveu: Fabio eu tentei encontra o q vc me disse mas não existe BorderIcons no arquivo q vc disse nao, eu procurei em todos os outros arquivos mas tbm não existe. Vc não saberia dizer outro lugar não??? Em 12/09/07, Eduardo Suruagy [EMAIL PROTECTED] escreveu: Blz Fabio vou testar aqui e qualquer coisa eu aviso se deu certo ok Em 12/09/07, fabio giro [EMAIL PROTECTED] escreveu: eu só preciso alterar o arquivo QRPREV.DFM na linha BorderIcons Para BorderIcons = [biSystemMenu], Dessa forma fica só o fechar . Repito. Faça uma copia antes de alterar Todos os relatórios vão ficar sem o botão salvar . Esse texto fazia parte de outra dica. Eduardo Suruagy [EMAIL PROTECTED] eduardosuruagy%40gmail.com escreveu: Fabio, quer dizer q eu só preciso alterar o arquivo QRPREV.DFM na linha BorderIcons Para BorderIcons = [biSystemMenu], Dessa forma fica só o fechar. eu só nao entendi o q vc quis dizer na ultima linha Todos os relatórios vão ficar sem o botão salvar [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] QuickReport - Retirar botões
Peguei esta dica algum tempo atrás No arquivo QRPREV.DFM se nao me engano mude a linha BorderIcons Para BorderIcons = [biSystemMenu], Dessa forma fica só o fechar. Se quiser o maximizar coloque nesta linha tmb. Obs.: Faça uma cópia antes deste arquivo. Todos os relatórios vão ficar sem o botão salvar. Eduardo Suruagy [EMAIL PROTECTED] escreveu: Como faço pra retirar os botões de minimizar, maximizar e fechar de um relatorio no quickreport [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Qual a melhor opção para preparar e/ou colocar um executável na rede =3F?=
Tinha um sistema rodando em rede e tinha colocado o executável no servidor e criado o atalho nas estações. O executável tinha +/- 1.8 Mb. Quando o usuário entrava no sistema demorava +/- 5/10 seg. Dei uma melhorada/incrementada no sistema e ele ficou com 2.2 Mb. Resolvi testar colocando o executável nas estações. Coloquei no show do menuprincipal para comparar a data do executavel da estação com o do servidor e se for diferente, atualiza a estação. Executável no servidor: pró - coloca em um lugar contra - quando você gera uma nova versão, só pode fazer se ninguém estiver usando o sistema Executável nas estações: pró - pode atualizar o servidor sem incomodar os usários. Basta o usuário sair e entrar no sistema que a estação fica atualizada contra - na primeira vez, tem que instalar em todas as estações Analise e veja qual é melhor para você. Renato Bermudo [EMAIL PROTECTED] escreveu: Boa tarde! Gostaria da opinião dos colegas sobre qual a melhor opção para preparação e distribuição do executável em uma rede. O cenário é o seguinte: Sistema feito em delphi 7+Firebird 1.5.4 com a midas.dll declarada dentro do executável (tamanho do executável 10.2MB), estações windows95/XP/2000 e como servidor windows2003, Linux e as vezes windows XP. Atualmente eu tenho no servidor uma pasta compartilhada que contém os arquivos (sistema.exe, dbexpint.dll, qtintf70.dll, fbclient.dll) e para que o sistema rode nas estações eu somente crio um atalho apontando para o executável que se encontra no servidor, eu fiz isso para não precisar ficar copiando as dll's para a estação toda vez que alguém reinstale o sistema operacional e também para facilitar a atualização, visto que eu só tenho um executável para substituir, mas às vezes em determinadas estações ele pede para que registre as dll's. Meu problema agora é que o sistema está demorando muito para carregar em rede com fio e em estações com rede sem fio fica até inviável, o mesmo não acontece com o executável instalado na estação. Alguém pode relatar sua experiencia (ou passar algum exemplo) sobre os locais de executáveis e dll's (na estação ou compartilhado no servidor) e como fazem para automatizar as atualizações dos executáveis em uma rede onde existem dezenas de estações? Desculpe o texto longo, mas desde já agradeço. [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] QuickReport - Retirar botões
eu só preciso alterar o arquivo QRPREV.DFM na linha BorderIcons Para BorderIcons = [biSystemMenu], Dessa forma fica só o fechar . Repito. Faça uma copia antes de alterar Todos os relatórios vão ficar sem o botão salvar . Esse texto fazia parte de outra dica. Eduardo Suruagy [EMAIL PROTECTED] escreveu: Fabio, quer dizer q eu só preciso alterar o arquivo QRPREV.DFM na linha BorderIcons Para BorderIcons = [biSystemMenu], Dessa forma fica só o fechar. eu só nao entendi o q vc quis dizer na ultima linha Todos os relatórios vão ficar sem o botão salvar [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TreeView
Veja se pode te ajudar treeview.selectedindex Espero ter ajudado. Satoy Matsuoka [EMAIL PROTECTED] escreveu: Bom dia pessoal, Gostaria de um Help com TreeView. Após criar um novo item queria que o foco ficasse no item que acabei de criar, tipo um SETFOCUS no item. Ví no manual e exemplos pela NET mas não vi nada que faça isso. Alguém saberia me dizer como poderia colocar o foco no item que acabei de criar Obrigado []'s Satoy [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Commit automático
Satoy, você recebeu o site com a vídeo-aula? Satoy Matsuoka [EMAIL PROTECTED] escreveu: Obrigado Fábio, Mas quando utilizo uma tabela ??? Na verdde uso Tquery pq as próprias pessoas da lista me disseram que não poderia utilizar o Ttable. Mas uso o DBgrid ou DBEdit e DBnavigator ... Onde vou dar o commit E como ??? Grato Abraços []'s Satoy Em 30/08/07, fabio giro [EMAIL PROTECTED] escreveu: Quando trabalhava com IBX fazia assim: with DM.qryManut do begin close; sql.clear; if btIncAlt.caption = 'Incluir' then begin sql.add('INSERT INTO EMPRESA (CODEMP, DESCRICAO) sql.add(' VALUES (:pcodemp, :pdescr); end else if btIncAlt.caption = 'Alterar' then begin sql.add('UPDATE EMPRESA'); sql.add(' SET DESCRICAO = :pdescr'); sql.add(' WHERE CODEMP = :pcodemp'); end; if not Transaction.InTransaction then Transaction.StartTransaction; prepare; Params.ByName('pcodemp').asstring := trim(edtCodEmp.text); Params.ByName('pdescr').asstring := trim(edtDescr.text); ExecQuery; try Transaction.Commit; except Transaction.Rollback; end; end; Mais uma coisa, sempre que você acessar o banco (select, insert, update, delete), tem que dar commit; Espero ter ajudado. Satoy Matsuoka [EMAIL PROTECTED] satoym%40gmail.com escreveu: Olá Rubem, Mas não é o que ocorre com minha aplicação. Ex. se estou na tela simples (Cód. descrição). Depois que faço a atualização, (aperto o botão de insert do DBNavigator), e sem sair da tela, faço a query por fora do sistema, ela não me responde com as alterações feitas. Somente depois que saido, ou dou um commit explícito, é que enchergo as alterações. Então estou fazendo algo de errado na minha estrutura ?? Grato []'s Satoy Em 30/08/07, Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com escreveu: Até onde me consta, em qualquer SGBD relacional, se você envia somente uma instrução SQL de DML (INSERT, UPDATE ou DELETE) ao banco de dados, e este não está envolvido em um contexto transacional, o COMMIT ocorrerá de forma automática pelo servidor. Ou seja, se você tem várias operações SQL de DML que necessitam ser efetivadas de forma atômica (ou seja, ou tudo ou nada!), faça o contexto transacional (START TRANSACTION/COMMIT/ROLLBACK) envolvendo todas essas operações. Se for apenas uma única operação, o banco se encarrega de fazer COMMIT ou ROLLBACK automático se ocorrer alguma operação errada. Sds. To: [EMAIL PROTECTED]delphi-br%40yahoogrupos.com.brFromdelphi-br%40yahoog rupos.com.brFrom: [EMAIL PROTECTED] satoym%40gmail.comDate satoym%40gmail.comDate: Thu, 30 Aug 2007 11:34:22 -0300Subject: [delphi-br] Commit automático Bom dia pessoal,Estou usando o D7 com Firebird e IBX.Queria saber se existe alguma forma de configurar o Delphi para fazer ocommit automático.Ou seja qq insert já faz o commit.Seja em um execsql, ou usando um DBNagivator ...Sem ter que ficar dando o Commit explicito.Grato []'s[As partes desta mensagem que não continham texto foram removidas] __ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retirar sinais de uma data
Vá no help e veja ABS pcinfowave [EMAIL PROTECTED] escreveu: Ola amigos, Alguem podria me passar uma função que retire os sinais de uma data, deixando apenas os numeros? Obrigado! []´ Paulo Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quick report às vezes não imprime imagem
Já vi esta mensagem na lista há muito tempo atrás e a pessoa sugeriu colocar no beforeprint da banda em que está a imagem, sleep(500). Comigo isto também já aconteceu (imprimia o logotipo da empresa), mas o usuário não se importava de imprimir o relatório novamente. maniacapordelphi [EMAIL PROTECTED] escreveu: Tenho relatórios que imprimem imagem do produto, em sua maioria etiquetas de produto com imagem e codigo de barras. Só que às vezes, o quick report não mostra a imagem no visualizador nem imprime. Alguém sabe o porque disso? Ps.: as imagens são em formato jpg e não ultrapassam 100kb. O interessante é que, às vezes imprime e outras vezes, não. Mani Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Commit automático
Quando trabalhava com IBX fazia assim: with DM.qryManut do begin close; sql.clear; if btIncAlt.caption = 'Incluir' then begin sql.add('INSERT INTO EMPRESA (CODEMP, DESCRICAO) sql.add(' VALUES (:pcodemp, :pdescr); end else if btIncAlt.caption = 'Alterar' then begin sql.add('UPDATE EMPRESA'); sql.add(' SET DESCRICAO = :pdescr'); sql.add(' WHERE CODEMP = :pcodemp'); end; if not Transaction.InTransaction then Transaction.StartTransaction; prepare; Params.ByName('pcodemp').asstring:= trim(edtCodEmp.text); Params.ByName('pdescr').asstring:= trim(edtDescr.text); ExecQuery; try Transaction.Commit; except Transaction.Rollback; end; end; Mais uma coisa, sempre que você acessar o banco (select, insert, update, delete), tem que dar commit; Espero ter ajudado. Satoy Matsuoka [EMAIL PROTECTED] escreveu: Olá Rubem, Mas não é o que ocorre com minha aplicação. Ex. se estou na tela simples (Cód. descrição). Depois que faço a atualização, (aperto o botão de insert do DBNavigator), e sem sair da tela, faço a query por fora do sistema, ela não me responde com as alterações feitas. Somente depois que saido, ou dou um commit explícito, é que enchergo as alterações. Então estou fazendo algo de errado na minha estrutura ?? Grato []'s Satoy Em 30/08/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Até onde me consta, em qualquer SGBD relacional, se você envia somente uma instrução SQL de DML (INSERT, UPDATE ou DELETE) ao banco de dados, e este não está envolvido em um contexto transacional, o COMMIT ocorrerá de forma automática pelo servidor. Ou seja, se você tem várias operações SQL de DML que necessitam ser efetivadas de forma atômica (ou seja, ou tudo ou nada!), faça o contexto transacional (START TRANSACTION/COMMIT/ROLLBACK) envolvendo todas essas operações. Se for apenas uma única operação, o banco se encarrega de fazer COMMIT ou ROLLBACK automático se ocorrer alguma operação errada. Sds. To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] satoym%40gmail.comDate: Thu, 30 Aug 2007 11:34:22 -0300Subject: [delphi-br] Commit automático Bom dia pessoal,Estou usando o D7 com Firebird e IBX.Queria saber se existe alguma forma de configurar o Delphi para fazer ocommit automático.Ou seja qq insert já faz o commit.Seja em um execsql, ou usando um DBNagivator ...Sem ter que ficar dando o Commit explicito.Grato[]'s[As partes desta mensagem que não continham texto foram removidas] __ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
Vou te passar um email que foi colocado na lista_delphi. A informata Consultoria de Dados, software house especializada em distribuição e logistica www.informata.com.br esta contratando profissionais Delphi em Recife/PE. Caso tenha interesse, envie seu currículo para: [EMAIL PROTECTED] com o subject: COD. PROG07 Espero ter ajudado. [EMAIL PROTECTED] escreveu: Será que so pessoas jovens tem direito de procurar emprego. Ou é algo excepcional alguem precisar trabalhar Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Anderson Marques Ferraz To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 1:30 PM Subject: Re: [delphi-br] Procurando Serviço Isso não pode ser sério. Em 27/08/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br]Em nome de [EMAIL PROTECTED] clovis.machado%40uol.com.br Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Anderson Caco Marques Ferraz 2.º Período de Engenharia da Computação - UEFS A player who makes the team great is more valuable than a great player. Losing yourself in the group, for the good of the group, that's teamwork. (John Wooden) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] OFF: Desabafo - Code Gear (Delphi for php)
Bruno, ele mesmo escreveu que tem muito a aprender. E você, como sempre faz, acabou ensinado-o, dizendo para entrar em contrato diretamente com você / Andreano. Tenho certeza que ele vai lhe pedir desculpas. Você sempre ajudou, e muito, a todos que lhe pediram ajuda. Você ensina a pescar, limpa o peixe, frita e até tira as espinhas. Como você escreveu, foi um email infundado. Bruno Lichot [EMAIL PROTECTED] escreveu: Olha Hudson, Não sei te dizer sobre a lista de Delphi For PHP, mas nem eu e nem o Andreano criamos a lista, ela foi criada por membros da comunidade e mantida pela comunidade não temos poderes de incluir ou remover ninguém da lista. Estou muito decepcionado com seu email, pois nunca neguei auxilio para ninguém e todas as vezes que vc me solicitou eu prontamente respondi e quando não sabia corri atrás pra poder te ajudar. Eu não te removi ou fiz bloqueio no skype, é muito sério expor as pessoas assim, estou demasiadamente triste e com muita raiva de você com o que você colocou, pois uma das minhas funções é servir a comunidade e prestar o melhor serviço possível. Se você não sabe o skype estava com problemas com seus servidores e fiquei mais de uma semana e final de semana passado inteiro sem ele. Eu acredito que deveria ter entrado em contato comigo antes de fazer estas acusações infundadas. Sempre te demos apoio, o Andreano fez o componente, eu te ajudei da forma que pude e nunca te negamos nada. E agora você me vem com este email completamente infundado. O que vc ganhou com isso? Por que não passou email para nós? Ou ligou diretamente, todos sabem que não deixo de atender a ninguém. Eu espero no mínimo uma retratação com pedido de desculpas, porque me lembro de ter passado inclusive o link com a thread sobre o componente e com depoimentos de como funciona. Lamentável seu email e a forma anti-ética de posicionar de forma pejorativa na comunidade, pois ninguém tem a ver com seu problema, todos podemos ajudar e contribuir, mas por conta de uma falha no skype e me desculpe a palavra, um piti de TPM seu, nos coloca numa situação desta nos acusando de algo que não fizemos e que você não tem prova. Lamentável, simplesmente lamentável, até por que não tenho obrigação nenhuma em lhe dar meu skype ou ser obrigado a lhe atender, pois suporte é um serviço pago, tudo o que fizemos foi ajudar e num ataque de raiva sem fundamento você se presta a um papel deste. Sem mais, Bruno Lichot CodeGear Product Evangelist http://www.codegear.com http://cc.codegear.com/Author/795118 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Enviada em: terça-feira, 28 de agosto de 2007 12:52 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] OFF: Desabafo - Code Gear (Delphi for php) Ola a todos da lista, Venho através deste meio de comunicação, informar a todos a minha indignação com a postura da equipe de engenharia da Code Gaer... Sou programador a três anos, tenho muito que aprender e para ensinar por isso participo e gosto desta lista. No ultimo lançamento da Code Gear, agradei da ferramenta Delphi For PHP, ate mesmo por programar nesta liguangem, e antes usava o Dreamweaver... Por se tratar de uma ferramenta nova, precisa de alguns ajustes. Em um projeto que ainda não terminei em Delphi for php, aonde não tinha opção de fazer upload de imagens, passei esta informação para o Andreano, aonde o mesmo criou um componente EditUploadFile, baixei e instalei. Reconheço que não sobe utiliza-lo, voltei a entrar em contato com o Andreano não consegui... Atendente da Code Gaer me passou para falar com o Bruno Lichot, aonde o mesmo me forneceu o seu Skype... A indignação: Apos tudos isso feito e adquirido e pago pela ferramenta, eles me bloqueou da lista Delphi For PHP e tambem do seus Skype, e tive que fazer o projeto tudo de novo no Dreamweaver... Reconheço também que eles são muito ocupados e não podem me explicar, mas fique indignado por eles me bloquearem da lista e skype... Só queria a solução para o meu problema e ficar mais satisfeito com a compra Exponho o meu problema de forma democrático e parcial neste caso Atenciosamente Hudson Dias www.alcancedigital.com.br MSN: [EMAIL PROTECTED] mailto:hudson_bh%40hotmail.com Skype: hudson_bh Tele: (31)3434-6304 [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2488 (20070828) __ 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] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Curso Delphi - RJ
Veja o site www.tdscursos.com.br . Satoy Matsuoka [EMAIL PROTECTED] escreveu: *Bom dia Lista,* ** *Alguém conheçe um bom curso de Delphi no RJ de preferência no Centro da Cidade ?* ** *Grato* *[]'s* *Satoy* [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você cria, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] String Grid
Colocar a imagem. Adapte as suas necessidades. private { Private declarations } Bitmap: TBitmap; procedure TForm1.FormCreate(Sender: TObject); var x , y : Integer; begin for x := 0 to sg.ColCount do for y := 0 to sg.RowCount do sg.Cells[x,y] := IntToStr(x) + IntToStr(y); Bitmap := TBitmap.Create; Bitmap.LoadFromFile('c:\ImagensBotao\proximo.bmp'); end; procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var y , x , AlinharA : integer; begin // AlinharA := 0; // Esquerda // AlinharA := 1; // Centro // AlinharA := 2; // Direita if ACol in [ 0 , 1 ] then AlinharA := 1 else if ACol = 2 then AlinharA := 2 else AlinharA := 0; if gdFixed in State then begin sg.Canvas.Brush.Color := clBtnFace; AlinharA := 1; sg.Canvas.Font.Style := sg.Canvas.Font.Style + [fsBold]; end else begin sg.Canvas.Brush.Color := clWhite; sg.Canvas.Font.Style := sg.Canvas.Font.Style - [fsBold]; end; y := Rect.Top + (Rect.Bottom - Rect.Top - sg.Canvas.TextHeight(sg.Cells[ACol, ARow]) ) div 2; case AlinharA of 1: x := Rect.Left + (Rect.Right - Rect.Left - sg.Canvas.TextWidth(sg.Cells[ACol, ARow]) ) div 2 - 1; // Centro 2: x := Rect.Right - sg.Canvas.TextWidth(sg.Cells[ACol, ARow]) - 2; // Direita else x := Rect.Left + 2; // Esquerda end; sg.Canvas.TextRect(Rect, x , y, sg.Cells[ACol, ARow]); sg.Canvas.Draw(Rect.Left+2,Rect.Top+5,Bitmap); {desenha o retângulo de foco} if gdSelected in State then sg.Canvas.DrawFocusRect(Rect); if gdFocused in State then sg.Canvas.DrawFocusRect(Rect); end; Espero ter ajudado. BandaLemuel [EMAIL PROTECTED] escreveu: Alguem sabe como colocar imagem no StringGrid...?? Preciso que em tempo de execução... alterar esta imagem tbm alguem tem ideia de como fazer ??? Wesley [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você cria, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Calculo de Horas
Acho que pode ajudar. Adpate as suas necessidades. colocar 5 edits e 1 botao: no edit1 colocar data/hora inicial - 01/01/2004 07:00 no edit2 colocar data/hora final - 02/01/2004 10:00 no edit3 virá a diferenca da data/hora no edit4 virá a diferenca de dias e horas no edit5 virá a diferenca de horas procedure TForm1.Button1Click(Sender: TObject); var dt1 : tdate; dt2 : tdate; hr1 : ttime; hr2 : ttime; dti : double; hri : shortint; begin edit3.clear; edit4.clear; edit5.clear; dt1 := strtodate(copy(edit1.text,1,10)); dt2 := strtodate(copy(edit2.text,1,10)); hr1 := strtotime(copy(edit1.text,12,5)); hr2 := strtotime(copy(edit2.text,12,5)); edit3.text := datetimetostr(strtodatetime(edit2.text) - strtodatetime(edit1.text)); if dt2 = dt1 then // mesmo dia begin if hr2 = hr1 then// mesma hora edit5.text := '00:00' else begin // horas diferentes edit5.text := timetostr(hr2 - hr1); edit5.text := FormatDateTime('hh:mm',strtotime(edit5.text)); end; end else begin // dia seguinte dti := dt2 - dt1; if dti = 1 then begin if hr2 hr1 then // menos de 24 horas begin hri := strtoint(copy(edit3.text,12,2)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); edit5.text := FormatDateTime('hh:mm',strtotime(edit5.text)); // 24 horas edit5.text:=timetostr(StrToTime('23:59:59')+ StrToTime('00:00:01') - Hr1 + Hr2); end else if hr2 = hr1 then // 24 horas begin edit4.text := floattostr(dti) + ' dia'; hri := trunc(dti * 24); edit5.text := inttostr(hri) + ':00'; end else begin// entre 24 e 48 horas edit4.text := floattostr(dti) + ' dia e ' + copy(edit3.text,12,5) + ' hora(s)'; hri := strtoint(copy(edit3.text,12,2)); hri := hri + (trunc(dti * 24)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); end end else if hr2 hr1 then// mais de 1 dia, porem menos de 48,72,... horas begin edit4.text := floattostr(dti - 1) + ' dia(s) e ' + copy(edit3.text,12,5) + ' hora(s)'; hri := strtoint(copy(edit3.text,12,2)); hri := hri + (trunc((dti - 1) * 24)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); end else if hr2 = hr1 then// 48,72,... horas begin edit4.text := floattostr(dti) + ' dias'; hri := trunc(dti * 24); edit5.text := inttostr(hri) + ':00'; end else begin// mais de 1 dia, mais de 48,72,... horas edit4.text := floattostr(dti) + ' dia(s) e ' + copy(edit3.text,12,5) + ' hora(s)'; hri := strtoint(copy(edit3.text,12,2)); hri := hri + (trunc((dti) * 24)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); end end; end; Daniel [EMAIL PROTECTED] escreveu: Aê Pessoal...Help por favor... Preciso saber como faço pra calcular o intervalo entre duas horas que estão em datas diferentes... Exemplo... Qtas horas há entre 16:00:00 do dia 24/05/2007 e o 21:10:00 do dia 28/05/2007 Ajuda por favor O resultado deve ser em HH:mm:ss, tem uma função no Delphi, mas não retorna dessa forma...so retorna se foi 24, 48, 72 horas... Se eu pedir e a diferença for maior que 24 e menor que 48 ele retorna 24 Por favor ajudem-me [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Consulta de CEP
A algum tempo atrás peguei um exemplo na internet, mas não sei se o endereço WSDL é atualizado. Experimentem. O endereço é : http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?WSDL Espero ter ajudado. Gerhard Roger Nack [EMAIL PROTECTED] escreveu: Caridade, depende ... já vi alguns sites, dentre eles o que citei nos outros emails, que adquirem a base legalmente do correio pagando um valor bem razoável (caro), migram as informações da base para outras estruturas e as revendem por um custo bem inferior porém em grande quantidade devido ao baixo custo, conseguindo assim ainda obter um bom lucro mesmo pagando caro pela base original do correio. E acho que isso não pode ser chamado de pirataria. [ ]s Gerhard Roger Nack [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: quarta-feira, 4 de julho de 2007 15:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Consulta de CEP Tenho o mesmo ponto de q vc Walter. Os Correios são proprietários do meio/estrutura onde os dados foram armazenados (p. ex. a estrutura de tabelas e um arquivo .MDB onde está a base de dados). A partir que alguém comprou a base, extraiu os dados dessa base, criou uma nova estrutura de dados e armazenou em outro arquivo, acabou a propriedade dos correios. Ninguém faz este tipo de caridade, mas que é possível, é. Sds, Ricardo. Walter Alves Chagas Junior [EMAIL PROTECTED] mailto:wchagas%40telemont.com.br escreveu: Em 2004 eu entrei em contato com eles lá e eles me disseram que é propriedade dos correios, o meio aonde estão os dados. Mas os dados não são propriedade deles. Sendo assim o que seria considerado pirataria é você pegar a base oficial dos correios e usá-la em outro programa que não o dos correios. Agora se você tem uma base aí populada que voce mesmo fez, ou copiou da base dos correios pra sua. A sua você pode fazer dela o que bem quiser. Se a base no E-Mule for a oficial dos correios, então é pirataria sim. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] mailto:wchagas%40telemont.com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ]Em nome de Adriano Santos Enviada em: quarta-feira, 4 de julho de 2007 14:58 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Consulta de CEP Flávio, Quanto a base no Emule, é pirataria. Certamente alguém comprou ou copiou de algum lugar e saiu distribuindo no emule. Já em relação a comprar a base e disponibilizar para seus clientes eu não sei, teria que ler o contrato de compra dos Correios. -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com Flávio S F Martins respondeu: Existe uma base firebird no emule , será que o uso dessa base é permitido ? Após comprar dos correios posso disponibilizar para clientes e colegas ? - Original Message - From: Guionardo Furlan To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 04, 2007 1:13 PM Subject: Re: [delphi-br] Consulta de CEP O exemplo que passei está funcionando. Acabei de compilar e está OK. Em 04/07/07, Adriano Santos [EMAIL PROTECTED] mailto:artes%40doiscliques.com mailto:artes%40doiscliques.com escreveu: Só tem um detalhe Ricardo. Não funciona mais. Os Correios bloquearam recentemente o acesso gratuito ao seu WebServices. O serviço sempre foi pago, porém havia uma forma de consumir o webservice. Depois que o artigo saiu da revista, cerca de 1 mês depois o acesso ao webservice parou de funcionar. Após isso não testei mais nenhum exemplo de acesso. Baixei o exemplo que nos passou e vou testar novamente. Como mencionei, o servio é pago. Tem no site dos correios as informações sobre como comprar o serviço. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/885 - Release Date: 3/7/2007 10:02 -- -- *Adriano Santos* -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos _ - Novo Yahoo! Cadê? - Experimente uma
Re: RES: [delphi-br] Delphi 7 com Windows Vista
Você escreveu Aconteceu igual com o Firebird 1.5.0.3. Ainda não tenho Vista, mas o que aconteceu com o Firebird e como você resolveu? Adriano Santos [EMAIL PROTECTED] escreveu: Instale sim. Se suas aplicações funcionam com BDE você deverá retirar o aruqivo bdeadmin.cpl da pasta System32, pois se abrir o Painel de Controle do Windows com este arquivo lá, o bicho trava. Fiz o teste aqui. Acontece igual com o Firebird versão 1.5.03. Não testei com outras versões. O arquivo cpl nada mais é que o ícone que aparecer no painel de controle. Se você entrar pelo Iniciar Programas DelphiBDE Administrator funciona. Se você trabalha com o BDE crie um instalador via InstallShield ou InnoSetup que faz a instalação do BDE pra você sem copiar o arquivo no System32. Abs -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com Davi Eduardo Borges Wall respondeu: Não instale o BDE. []'s -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Carlos B. Schmidt Enviada em: terça-feira, 3 de julho de 2007 10:27 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Delphi 7 com Windows Vista Assinatura BennerGalera, Gostaria de saber se roda sem problemas delphi 7 no Windows Vista, pois estou recebendo esta semana uma máquina nova já com Vista. Se acontece alguma coisa estranha ou não, etc... At. Carlos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/885 - Release Date: 3/7/2007 10:02 - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quick report - novas paginas.
Peguei esta dica na lista, mas não testei. Adapte as suas necessidades. quickreport2.PrinterSettings.FirstPage := 2; quickreport2.PrinterSettings.LastPage := 2; Espero ter ajudado. Régis Bender [EMAIL PROTECTED] escreveu: Boa tarde, aproveitando que estão falando do Quick Report, como eu faço para imprimir uma determinada página de um relatório? Tipo, tenho um relatório de 50 páginas e preciso imprimir a 45. sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] www.regisbender.com.br - Original Message - From: Rafael Jorge To: delphi-br@yahoogrupos.com.br Sent: Monday, July 02, 2007 4:51 PM Subject: Re: [delphi-br] Quick report - novas paginas. hum.. pq tu nao manda ele imprimri 3 veze? nao conheco tua logica por traz do recibo. mas qualquer coisa assim resolve. t+ Em 02/07/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Colegas Eu fiz um recibo em quick report e gostaria que esse fosse impresso em 03 vias. Porem, nao consigo fazer com que o quick report abra a visualizaçao das 03 vias, ele somente mostra a ultima via a ser impressa. Qual comando devo usara para abrir uma nova pagina em sequencia da primeira? Obrigado pela ajuda, qualquer ajuda é bem-vinda. []s. -- Rafael jorge alves www.acinformatica.org [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 12:19 [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Incorret values within SQLDA structure, no sistema 3 Camadas, o que pode ser?
Isso aconteceu comigo esta semana, mas num sistema cliente/servidor num relatório. Depois de quebrar muito cabeça resolvi excluir o CDS e incluí-lo novamente. Resolveu o problema. Bruno Lichot [EMAIL PROTECTED] escreveu: Já esperimentou remover os datasets e provider todos e reconfigurar Se fizer isso e não funcionar, pode ser corrupção no banco de dados tb Abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: quarta-feira, 27 de junho de 2007 10:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Incorret values within SQLDA structure, no sistema 3 Camadas, o que pode ser? Olá amigos, meu sistema em 3 camadas de uma hora pra outra começou a dar este erro Incorret values within SQLDA structure. Seguinte.. tenho um campo de FOTO.. que tenho o componente DBImage do DevExpress... seleciono a foto e mando gravar e dá erro.. O estranho que se eu der um Active no CDS ele funciona sem problemas... O que pode ser isso? Desde já agradeço. []s -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2358 (20070627) __ 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] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Delphi como Cliente de Servidor Java
Dê uma olhada na revista ClubeDelphi nº 70. Alexandre Vianna [EMAIL PROTECTED] escreveu: Olá Rubem, Já me informaram que a comunicação é perfeitamente possível via SOAP. O problema é a falta de literatura sobre o tema. Estou pesquisando. Abraço Alexandre. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 25 de junho de 2007 20:53 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Delphi como Cliente de Servidor Java Prioridade: Alta Companheiro, estou com um projeto na empresa onde trabalho com uma aplicação em três camadas (FireBird + BSS + IntraWeb/Client Desktop), mas estou pensando em criar na camada intermediária um web service, pois a aplicação web tem a possibilidade de ser acessada por outros clientes em outras unidades geograficamente remotas. Não tenho muita experiência com interoperabilidade entre Delphi e Java, mas se é possível criar um webservice com Java, e o Delphi pode se consumir WebServices, então ... ! Outra coisa, se você usa o Delphi 2005 ou Delphi 2006, informe-se sobre uma ferramenta chamada Janeva. Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom os.com.brFrom: alexandre_net_ mailto:alexandre_net_br%40yahoo.com.brDate [EMAIL PROTECTED]: Mon, 25 Jun 2007 19:48:58 -0300Subject: [delphi-br] Delphi como Cliente de Servidor Java Olá a todos,Gostaria de saber se alguém já teve a necessidade de construir um clienteDelhpi para um Servidor Java.Tenho uma aplicação desenvolvida em Delphi 7 que funciona como um cliente deum aplicativo servidor desenvolvido em JavaSE. No momento a comunicaçãoentre os dois aplicativos é toda baseada em banco de dados.Gostaria de implementar uma comunicação direta do cliente com o servidorutilizando SOAP por exemplo.Alguém já passou por esta situação?[As partes desta mensagem que não continham texto foram removidas] __ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. http://mobile.live.com/signup/signup2.aspx?lc=pt-br live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Material sobre BPL´s
www.activedelphi.com.br/modules.php? op=modloadname=Newsfile=articlesid=141 www.imasters.com.br/busca/0/29/6/artigo www.imasters.com.br/artigo/1047/delphi/usando_pacotes_para_modularizar_ aplicacoes_parte_final/ Espero ter ajudado Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu: Dê uma lida na função LoadPackages e GetClass Vc poderá carregar uma bpl no seu projeto e pegar uma classe que vc desconhece e instancia-la. E trabalhar com ela no na sua aplicação. Ajuda muito na hora de trabalhar com herança. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leandro Enviada em: quarta-feira, 20 de junho de 2007 07:48 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Material sobre BPL´s Bom dia, Estou procurando material sobre modularização de sistemas através de BPL´s. Achei um material básico no delphi.about.com... mas queria saber mais detalhes sobre como interagir com formularios de uma BPL, trocar dados entre BPL´s (pelo que percebi seria com parametros de retorno em procedimentos exportados)... enfim... queria uma material mais aprofundado. Desde já agradeço. Leandro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Iniciante - Inserir data em branco no banco de dados postgres.
No paradox. parambyname('pentrada').datatype := ftdatetime; parambyname('pentrada').clear; No FB. parambyname('pdata').IsNull := true Exprimente no PG. Espero ter ajudado. [EMAIL PROTECTED] escreveu: Ainda nao conseguir inserir uma data em branco, não deu... No meu caso via pgadmin o banco POSTGRES aceita deixar esta data em branco, uma vez que nao habilitei a opcao notnull. Eu faço a inserção de dados via sql com uma query que recebe parametros: qryInsere.ParamByName('pdata').asDate := frmCliente.editData.text; Se algum colega puder ajudar eu agradeço sinceramente. Muito obrigado pela atenção. []´s Tiano. - Original Message - From: Danilo Lustosa Neves [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 19, 2007 12:46 PM Subject: Re: [delphi-br] Iniciante - Inserir data em branco no banco de dados postgres. Por definição os DBs nao aceitam valore em branco nos campos tipo Data e Hora. Vc pode deixar a opção do campo receber na criacao da tabela. Na criacao da tabela, se vc colocar notnull ele nunca recebera valores nulos. Se nao colocar nada, por padrao ele deixar inserir registro sem a obrigacao de preencher o campo Data. Veja que EM BRANCO e NULO sao coisas totalmente diferentes Em 19/06/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Colegas Como faço para inserir um campo data em branco no banco de dados? Grato. []´s -- Atenciosamente, [] Danilo A. Lustosa Neves 71 3489.9529 / 9141.4170 [EMAIL PROTECTED] SERVIRTUAL - TECNOLOGIA EM SISTEMAS DE INTERNET [---] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TreeView com checkbox
delphi.about.com/od/vclusing/l/aa092104a.htm Espero ter ajudado. Renato [EMAIL PROTECTED] escreveu: Olá, estou tentando descobrir como posso colocar um checkbox pra cada item de uma TreeView. Como devo proceder? Cheguei a ver alguns componentes que já fazem isso, mas não quero ficar preso a isso. Obrigado. __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] CheckBox na DBGrid. Tem Como?
delphi.about.com/od/usedbvcl/l/aa082003a.htm Espero ter ajudado. Tiago Zacchi [EMAIL PROTECTED] escreveu: Olá pessoal! Gostaria de seber se tem fazer com que um dos campos da minha DBGrid seja um CheckBox, ou algo parecido! Tem como fazer isso ? Obrigado, [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Menu popup
Usei um listbox para teste. Adapte as suas necessidades. procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_F1 then PopupMenu1.Popup(ListBox1.ClientOrigin.x, ListBox1.ClientOrigin.y + ListBox1.Height); end; Espero ter ajudado. Emilio Córdova [EMAIL PROTECTED] escreveu: Bom dia amigos, Estou querendo fazer algo de deve ser muito facil mas realmente nao estou conseguindo Programei na listview um menupopup e n opções e tenho casos que o cliente nao tem mouse só via teclado dai que tive que mudar meu sistema pra trabalhar com alt+teclas e F´s alguma coisa. O pb é que nos casos do menupopup nao consigo acionar eles, será que alguem sabe como fazer com que precionando alguma tecla ele apareca como se tivesse clicado com o botao direito do mouse? Desde ja agradeço a ajuda, Abraços. Emilio Córdova [EMAIL PROTECTED] (41) 9218-6059 - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar uma Thread no delphi, como eu faço?
Adapte as suas necessidades www.imasters.com.br/artigo/1148 Espero ter ajudado. Fellipe Henrique [EMAIL PROTECTED] escreveu: Olá amigos, tenho uma classe, e nela eu preciso criar um thread que fique rodando em background no sistema, fazendo uma verificação... minha questão é: como eu crio um negócio desses? :o) Nunca mexi com isso, e estou com problemas... Desde já agradeço. []s -- _ Fellipe Henrique [EMAIL PROTECTED] Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Code/Gear...
Não vejo necessidade em todo ano ter que lançar um Delphi novo, ainda que devendo coisas, só pra falar que vai ficar obsoleto no mercado. Se a Borland tivesse feito seu ultimo lançamento, o Delphi 7 e só agora viesse com o 2007 mas já pronto e consolidado, teria sido muito melhor pra ele e pra ela. Já que, do que adianta você lançar um Delphi turbinadão de recursos mas que só trabalha com um framework antigo sendo que já estamos no 3.0? PERFEITO! Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Não dá pra ninguem, que trabalhe profissionalmente com Desenvolvimento, abominar o dotNET. O que pode-se no máximo e estudar o critério de usubilidade da plataforma. Eu por exemplo, ainda não tive a oportunidade de desenvolver nada para esta plataforma, a não ser quando estava estudando C#. O que vi é que o programa roda um pouco mais lento que o normal e demora um pouco mais pra carregar. Agora, é claro que tendo máquina pra isto, isto acaba se tornando imperceptivel mas e quando não tem? Aqui na Telemont temos o eterno dilema do Windows 98, principalmente nas regionais. O RM.NET não funciona legal nelas. Trava toda hora, lento, gordo e pesadão. Quanto a questão de versão no Framework para o Delphi, infelizmente a Borland foi prejudicada nessa pois, quando eles lançaram o Delphi 2006, o dotNET 2.0 estava recentemente chegando na praça e aí, até que dá pra entender, que é complicado abortar o lançamento de uma ferramenta já lá na rampa, para voltar pro laboratorio e adequá-la ao novo Framework. É foda um troço destes, ainda mais num mercado disputado como é o das ferramentas de desenvolvimento. Mas também é aquilo que eu falei: Não vejo necessidade em todo ano ter que lançar um Delphi novo, ainda que devendo coisas, só pra falar que vai ficar obsoleto no mercado. Se a Borland tivesse feito seu ultimo lançamento, o Delphi 7 e só agora viesse com o 2007 mas já pronto e consolidado, teria sido muito melhor pra ele e pra ela. Já que, do que adianta você lançar um Delphi turbinadão de recursos mas que só trabalha com um framework antigo sendo que já estamos no 3.0? Foi a mesma coisa que terem colocado um motor do Uno num Stillo. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Márcio Ricardo Enviada em: quarta-feira, 30 de maio de 2007 15:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Code/Gear... Beleza Bruno. Fiquei aliviado com esse seu e-mail, sinceramente eu tinha entendido que você abominava o .net. Bom como temos várias licença do delphi e se não me engano temos contrato com a Borland que assim que saia uma versão eles nos disponibliza. Tomara que disponiblize logo essa versão, pois sinceramente esse processo já passou por três programadores e nenhum de nós conseguiu chegar o que se deseja. Obrigado pelos esclarecimentos, e com certeza contatarei vocês. Valeu, Márcio Ricardo. - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 30, 2007 2:35 PM Subject: RES: [delphi-br] Code/Gear... Salve Mestre Márcio! Não disse em momento nenhum que sou contra .NET, e respondi sua pergunta dizendo que o Delphi 2007 For .NET virá com suporte ao .NET 2.0 e já Tb o 3.0. Eu uso .NET como descrevi no email, e tenho 2 sistemas comerciais em .NET usando ASP.NET com um foco bastante especifico. O BDS 2006 não terá suporte ao .NET 2.0, somente o 2007. Logo, não será necessário trocar de ferramentas. E não tem como algo que veio do Delphi ser ruim não é mesmo? E o .NET é baseado na VCL como todos sabem. E acredito na maturidade que este alcançará pois existe muito investimento e uma excelente equipe trabalhando nisso, o que fiz foi levantar questionamentos sobre o uso ou não da plataforma e me colocar a disposição para ajudar no que fosse necessário independente de qual tecnologia fosse. E se precisar, não titubeie em nos contatar, estou aqui para auxiliar e me desculpe se me expressei mal, definitivamente não sou contra o .NET, ou Win32 ou ao Java, pelo contrário, sou a favor daquilo que mais se adapta ao meu negócio, minhas necessidades, meu bolso e meus clientes, e nisso tudo o que se adapta melhor são soluções Borland/CodeGear. Por exemplo, através do Delphi eu consigo prover soluções para meus clientes em Web, C/S, N-TIER, .NET e Java e tudo integrado e se tiver mais um pedacinho na colcha de retalhos que se falar em Datapackage, .NET, Java ou web services encaixamos também de forma limpa, rápida e segura. Grandes novidades estão sendo preparadas para o próximo semestre. Sinta -se a vontade de chamar sempre que preciso. Será um imenso prazer ajudar. As ordens Bruno De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Márcio Ricardo
Re: [delphi-br] QuickReport sem Banco de dados (adicionar,incluir linhas)
Este exemplo imprime um arquivo. Dê uma estudada no evento OnNeedData. uses Unit1; {$R *.DFM} procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); begin {-o OnNeedData, é executado da seguinte forma: na hora de gerar o corpo do relatório ele é chamado, e lá vc altera o valor dos seus campos (ex.: QrLabel) para o valor que vc quiser, e ele vai ficar sendo chamado repetidas vezes (em cada execução, uma linha do relatório é gerada) até que vc altere a variável MoreData para false. } moredata := false; if tem_dados then begin moredata := true; readln(form1.arq, form1.reg); qrlabel8.caption := form1.reg; if not eof(form1.arq) then tem_dados := true else tem_dados := false; end; { moredata := false; inc(j); if j = form1.richedit1.lines.count - 1 then begin moredata := true; qrlabel8.caption := form1.richedit1.lines[j]; end; }end; Espero ter ajudado. Luiz Fabiano Ribeiro [EMAIL PROTECTED] escreveu: Como imprimir vetores, stringlist, srtinggrids, variaveis, etc... Qualquer coisa q nao seja banco de dados no quickreport, alguem sabe? Ex.: Vetor: array [1..100] of integer; quero fazer um loop nele e imprimir uma linha pra cada indice for i:=1 to 100 do Begin { no writeln(arq,vetor[i]); eu conseguiria colocando a linha aki, e no quiskreport?} end; Obrigado __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi...Um desabafo à CodeGea r...
Trabalho com delphi desde o 1 e atualmente estou trabalhando com o D7 e também com VB e digo-lhe que o que você faz com apenas um clique nas propriedades do componente, em delphi, você terá que fazer na unha em VB. Você está reclamando do gerador de relatórios do delphi, porque não conhece o DataReport(VB). Até na página de dicas/consultas do VB (www.vbmania.com.br) eles não usam o datareport por ser tão ruim(eles usam o crystal report). Quanto as suas questões: 1 - ninguém abandonou o delphi porque mudou o posicionamento da IDE, apesar das reclamações; 2 - se você usa componetes de terceiros (rxlib, etc) pode muito bem usar o fortes report que dizem que é parecido com o quick; 3 - por que que Borland iria incorporar componetes que se encontram na net? Ainda uso D7 e não uso componentes de terceiros e os usuários estão satisfeitos com os sistemas. maniacapordelphi [EMAIL PROTECTED] escreveu: Trabalho com Delphi desde o Delphi 3 e sempre adorei essa ferramenta. Infelizmente, pra minha tristeza, minha equipe decidiu adotar o VB e migrar todos os projetos, até que se possa abandonar o Delphi definitivamente. Motivos? Vários!!! 1. Desde o Delphi 8 a IDE do Delphi ficou horrivel. Telas e mais telas enchendo o espaço do monitor em detrimento do espaço que tínhamos para as telas do nosso aplicativo no Delphi 7. 2. Descontinuidade de componentes tão usados no Brasil, como Quick Report, substituindo-o por aquela ferramenta tenebrosa: O Rave Report, que não deu ibope, tanto é que nem foi adicionada a palheta do Delphi 2007. 3. 30 dias para testes com o trial do Delphi 2007. O que dá pra fazer em 30 dias pra quem tem 10 projetos de peso? 4. Preço do Delphi 2007, totalmente incompativel com a realidade brasileira. 5. Componentes que sempre julgamos primordiais e que nunca foram adicionados ao Delphi como componentes da RXLib: currencyEdit, DateEdit, coisas que facilitam muito a vida do programador. 6. Falta de um bom componente para relatório, inclusive que sirva pra impressão em matriciais. Desculpem o desabafo, mas eu gostava muito do Delphi:( Mani __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mudar fonte no DBRichEdit
Adapte as suas necessidades. Crie 1 form e coloque 1 richedit. procedure TForm1.FormShow(Sender: TObject); begin {Negrito} Richedit1.SelAttributes.Style:=[fsBold]; Richedit1.Lines.Add('Texto Negrito'); {Tirando Formatação} Richedit1.SelAttributes.Style:=[]; Richedit1.Lines.Add('Texto Sem Negrito'); end; Espero ter ajudado. fabricio venancio [EMAIL PROTECTED] escreveu: Olá amigos Preciso mudar em run-time a fonte do texto selecionado num DBRichEdit. Sei que pra saber o conteúdo da seleção eu uso SelText, fiz uma busca na documentação do Delphi mas não encontrei nada que me ajudasse... Grato __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Recuperação de um banco fi rebird 1.0 danificado
Em www.firebase.com.br tem um artigo sobre recuperação de banco corrompido. fsfilho03 [EMAIL PROTECTED] escreveu: Olá, Quem conhece uma ferramenta free para recuperacao de um banco firebird 1.0 ou interbase 6.0 danificado? Obrigado Florentino S. Filho Goiania-GO __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] QuickReport pra D7
Abra o Delphi, vá em COMPONENT | INSTALL PACKAGES | ADD e mande instalar o package que esta em c:\arquivos de programas \ Borland \ Delphi7\BIN\DCLQRT70.BPL Rafael Marques [EMAIL PROTECTED] escreveu: Alguem sabe onde consigo achar/baixar o Quick Report pra Delphi 7?!!? mto obrigado Rafael [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bug Delphi 2007 DBX4
Qual foi a edição? Leonardo Quinino [EMAIL PROTECTED] escreveu: Pode ser o driver não compativel mesmo, a solução seria instalar um driver feito para firebird, FUIB e deve haver outras soluções, saiu inclusive uns tempos atras na revista CLUBEDELPHI www.devmedia.com.br um artigo mostrando como instalar uma dll propria para firebird e continuar usando o DBX... Em 30/04/07, Daniel Bastos [EMAIL PROTECTED] escreveu: Cara tb não consegui acessar firebird com dbx4... Acho que o driver do interbase não é mais compatível com firebird. Em 30/04/07, Paulo Geloramo [EMAIL PROTECTED]paulogeloramo%40terra.com.br escreveu: Delphi 2007 DBX 4 IB6 ou IB7 ou FB2 Para qualquer erro retorna a mensagem genérica: Unable to execute Query. Este bug Inviabiliza a utilização do DbExpress 4, pois se o usuário liga para o suporte e apresenta a mensagem de erro genérica, se o erro for apenas a falta de permissão para um campo, como o suporte vai saber qual tabela e campo? A menagem de erro deve retornar o nome da tabela e campo como ocorre com D7 e D2006. t+ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com ClientDataSet e DBGrid
Costumo fazer assim: with DM.cdsManut do begin DM.qryManut.parambyname('placre').asstring:= trim(edtLacre.text); close; open; end; Abrir e fechar o clientdataset. Experimente. Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Primeiramente obrigado pela resposta, Rafael. Realmente esta foi uma das primeiras medidas que tomei. Fecho o TSQLQuery antes de pedir novos dados; atualizo o parametro de busca e reabro o TSQLQuery. Até aqui tudo funciona bem, o problema é que o TClientDataSet não reflete os dados do TSQLQuery. Se mais alguém puder contribuir, ficamos agradecidos. Sds, Ricardo Rafael Marques [EMAIL PROTECTED] escreveu: eu ja passei por uma situacao assim (nao sei se é exatamente a mesma solucao q pra sua), mas o q fiz foi sempre fechar o SqlQuery antes de passar o parametro. Eu fecho e o ClientDataset, passo o parametro e depois abro o clientdataset eu fiz isso e funfo!! - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Friday, April 27, 2007 8:44 AM Subject: [delphi-br] Problemas com ClientDataSet e DBGrid Bom dia amigos da lista, como vão? Gostaria de uma ajuda de qualquer um que já passou por esta situação. Tenho um DataModule onde entre outros componentes referentes a um determindado módulo da minha aplicação tenho um TSQLQuery, um TDataSetProvider, um TClientDataSet e um TDataSource ligados entre si e o TDataSource ligado a um TDBGrid. Dentro da aplicação existe uma rotina que faz uma busca parametrizada e traz apenas os registros correspondentes para o TDBGrid (pelo menos faz em outros módulos, somente neste que não faz). Para isto, montei a instrução SQL dentro do TSQLQuery, algo que sempre faço, inclusive coloquei o parâmetro dentro da própria SQL e configurei o parametro com seu tipo correto. Até aqui nenhum problema. Quando rodo a aplicação e chamo esta rotina, na primeira execução que faço, os dados vem para o TDBGrid da maneira esperada, mas quando chamo novamente esta rotina, os dados do TDBGrid continuam a ser referentes ao parâmetro anterior. Debugei a aplicação para ver se o parâmetro estava realmente sendo passado da maneira correta (atualizada) e notei que tudo estava OK. Fiz mais um teste para saber se o TSQLQuery estava fazendo a consulta que eu estava pedindo. Novamente tudo estava OK, ou seja, a instrução SQL era executada e os dados vinham para o TSQLQuery. Aí notei que o problema só poderia ser no TClientDataSet. Tentei várias abordagens como fechar e abrir novamente o TClientDataSet, fazer um refresh nele, mas nada resolveu. É como se o TClientDataSet estivesse mantendo os dados em memória referentes a primeira consulta executada, mesmo depois do TClientDataSet ser fechado e reaberto, e do conjunto de dados ao qual ele deveria refletir ter mudado. Alguém já passou por esta situação, e pode me dar alguma dica? Sds, Ricardo. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 26/04/2007 / Versão: 5.1.00/5018 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com ClientDataSet e DBGrid
Você faz assim query.parambyname('pparam').asinteger = 001 ou query.parambyname('pparam').asinteger = strtoint(edit1.text); Se você usa a primeira opção, dá uma verificada se na query o parametro não esta com o valor pré definido? Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Olá Fábio. Já havia experimentado uma técnica como a que vc descreveu anteriormente e não havia funcionado. Tentei novamente e continuei não tendo o resultado esperado. O que mais me intriga é que o ClientDataSet mantém o Cache de dados da 1ª consulta efetuada. Posso fazer qualquer alteração nos parâmetros da instrução SQL que vem do TSQLQuery que elas não se refletem no TClientDataSet. Na verdade elas só se refletem na primeira solicitação, nunca nas outras solicitações. Grato, Ricardo. fabio giro [EMAIL PROTECTED] escreveu: Costumo fazer assim: with DM.cdsManut do begin DM.qryManut.parambyname('placre').asstring := trim(edtLacre.text); close; open; end; Abrir e fechar o clientdataset. Experimente. Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Primeiramente obrigado pela resposta, Rafael. Realmente esta foi uma das primeiras medidas que tomei. Fecho o TSQLQuery antes de pedir novos dados; atualizo o parametro de busca e reabro o TSQLQuery. Até aqui tudo funciona bem, o problema é que o TClientDataSet não reflete os dados do TSQLQuery. Se mais alguém puder contribuir, ficamos agradecidos. Sds, Ricardo Rafael Marques [EMAIL PROTECTED] escreveu: eu ja passei por uma situacao assim (nao sei se é exatamente a mesma solucao q pra sua), mas o q fiz foi sempre fechar o SqlQuery antes de passar o parametro. Eu fecho e o ClientDataset, passo o parametro e depois abro o clientdataset eu fiz isso e funfo!! - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Friday, April 27, 2007 8:44 AM Subject: [delphi-br] Problemas com ClientDataSet e DBGrid Bom dia amigos da lista, como vão? Gostaria de uma ajuda de qualquer um que já passou por esta situação. Tenho um DataModule onde entre outros componentes referentes a um determindado módulo da minha aplicação tenho um TSQLQuery, um TDataSetProvider, um TClientDataSet e um TDataSource ligados entre si e o TDataSource ligado a um TDBGrid. Dentro da aplicação existe uma rotina que faz uma busca parametrizada e traz apenas os registros correspondentes para o TDBGrid (pelo menos faz em outros módulos, somente neste que não faz). Para isto, montei a instrução SQL dentro do TSQLQuery, algo que sempre faço, inclusive coloquei o parâmetro dentro da própria SQL e configurei o parametro com seu tipo correto. Até aqui nenhum problema. Quando rodo a aplicação e chamo esta rotina, na primeira execução que faço, os dados vem para o TDBGrid da maneira esperada, mas quando chamo novamente esta rotina, os dados do TDBGrid continuam a ser referentes ao parâmetro anterior. Debugei a aplicação para ver se o parâmetro estava realmente sendo passado da maneira correta (atualizada) e notei que tudo estava OK. Fiz mais um teste para saber se o TSQLQuery estava fazendo a consulta que eu estava pedindo. Novamente tudo estava OK, ou seja, a instrução SQL era executada e os dados vinham para o TSQLQuery. Aí notei que o problema só poderia ser no TClientDataSet. Tentei várias abordagens como fechar e abrir novamente o TClientDataSet, fazer um refresh nele, mas nada resolveu. É como se o TClientDataSet estivesse mantendo os dados em memória referentes a primeira consulta executada, mesmo depois do TClientDataSet ser fechado e reaberto, e do conjunto de dados ao qual ele deveria refletir ter mudado. Alguém já passou por esta situação, e pode me dar alguma dica? Sds, Ricardo. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 26/04/2007 / Versão: 5.1.00/5018 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus
Re: [delphi-br] QuickReport Etiquetas !!!
Crie um relatorio com clientdataset e colcoque o num de campos igual ao num de colunas p/ imprimir. Associe os campos do clientdataset aos campos do relatorio. Preencha o clientdataset no form1. No form1 faça o seguinte: col := 1; while not ibquery1.eof do // select nomesind from tabela order by nomesind begin case col of 1 : form2.ClientDataSet1.FieldByName('col1').asstring := IBQuery1.fieldbyname('NOMESIND').asstring; 2 : form2.ClientDataSet1.FieldByName('col2').asstring := IBQuery1.fieldbyname('NOMESIND').asstring; 3 : form2.ClientDataSet1.FieldByName('col3').asstring := IBQuery1.fieldbyname('NOMESIND').asstring; end; if col = 3 then begin form2.ClientDataSet1.Post; form2.ClientDataSet1.append; col := 0; end; inc(col); ibquery1.next; end; if col 1 then form2.ClientDataSet1.Post; ibquery1.close; form2.QuickRep1.Preview; form2.ClientDataSet1.close; form2.release; No form2 coloque 1 clientdataset, 1banddetail e 3 qrdbtext (qrdbtext1 - col1, qrdbtext2 - col2, ...) col1,col2 são os campos do clientdataset. Adapte as suas necessidades. Se não conseguir, lhe mando os .pas . Espero ter ajudado Djonatas Tenfen [EMAIL PROTECTED] escreveu: Olá Amigos... Seguinte preciso de uma ajuda com o QuickReport estou tentando emitir etiquetas em linha ou seja 1 | 2 3 | 4 5 | 6 7 | 8 Mas ele imprime de outra forma 1 | 5 2 | 6 3 | 7 4 | 8 Alguém pode me ajudar com isso ??? Agradeço se alguém me ajudar estou precisando o quanto antes disto Atenciosamente Djonatas Tenfen [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] FIREBIRD X POSTGREE X MYSQL
Faça o download da revista DBFreeMagazine edição nº 8 (www.dbfreemagazine.com.br). Espero ter ajudado. Geazi Teles Barbosa Júnior [EMAIL PROTECTED] escreveu: Desde os primórdios, até o meio do ano de 2006 eu utilizava o Interbase 6.02, foram quase 7 anos. Porque o custo era pequeno (free), era praticamente autônomo (não precisava de DBA) e era muito rápido. Em uma de nossas aplicações, num cliente com 3 filiais interligadas por FRAME WAY (um Frame Relay mais pobre e mais barato da TELEMAR) Com velocidade de conexão de 128k, um banco de dados com 1.200 MB (1,2 GB), populados com o que se segue: CLIENTES: 400.000 registros PRODUTOS: 100.000 registros (considerando cor e tamanho em grade) CREDIARIO: 300.000 registros PARCELAS: 1.500.000 registros VENDAS: 600.000 registros ITENS DE VENDAS: 2.000.000 registros E outras tabelinhas mais, crescendo a cada mês uns 40.000 registros, o desempenho era satisfatório e nunca me deixou na mão, nunca precisou de recuperação. Mas a estrutura era muito boa, para a época. O servidor era um INTEL PENTIUM 3 DE 1.000 MHz com 2 processadores (isso no ano 2000) HDD Ultra Wide SCSI-2 de 36 GB e 512 MB de RAM (pra época era um absurdo). Em Junho/2006 o cliente resolveu trocar o servidor. Ai, já que a Borland havia mudado a licença do INTERBASE 7.0, Decidimos instalar o FIREBIRD 1.5 Mas, novamente a estrutura ficou muito boa. O Cliente comprou um SERVIDOR DELL POWER EDGE Com 2 processadores XEON de núcleo duplo (4 processadores virtuais), 4 GB de RAM e HDD de 146 GB SAS (uma evolução do SCSI) com velocidade de 15.000 rpm, 2 placas de rede de 1 Gigabit. Antes que alguém diga que é um exagero, custou ao cliente apenas R$ 8.400,00, divididos em 8 parcelas de R$ 1.050,00 (o preço de 2 notebooks). Nada que vá quebrar o cliente. A infra-estrutura também incluiu UPS para todas as máquinas E o servidor antigo ficou sendo utilizado para backups automáticos. Resultado: Adivinha ? Uma bala de fuzil disparada a queima roupa. Não teve erro. O negócio dele aumentou, inaugurou mais 2 filiais e agora são 5 penduradas no servidor Com 45 máquinas ao todo. 2 filiais são interligadas via internet (conexão velox de 300k) Lembrando que o UPLOAD, ou seja, a resposta do servidor, é a 128k. E daí ? Roda que é uma beleza. Nunca dá pau. Então, eu posso dizer que Firebird é uma boa escolha. Mas, independente de qual banco escolher, o mais importante é: 1) Um bom planejamento de tabelas/relacionamentos/stored procedures/triggers 2) Cuidado com os fatcheAll da vida e os SELECT * FROM ALGUMACOISA, que muita gente adora mas que detonam a largura de banda e engasgam a rede e o servidor; 3) Uma boa infra-estrutura de rede/servidor (talvez não tão boa quanto essa, mas a economia em infra-estrutura é diretamente proporcional a quantidade de problemas) Se isso for ser levado em conta, tanto faz o Postgree, MySQL ou Firebird. Mas, se não puder contar com esses 2 pontos, escolha o FIREBIRD que é O LANDROVER dos SGBDs grátis. E desculpem-me pelo tamanho do email Um abraço a todos. Geazi De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adevaldo Oliveira Enviada em: sexta-feira, 23 de março de 2007 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] FIREBIRD X POSTGREE X MYSQL Ola!!! Sou iniciante em delphi, gostaria de saber daqueles que tem mais experiencia, qual o banco de dados preferido da comunidade, e que roda bem com delphi, firebird, postgree, mysql ou outros. Obs: de preferencia banco de dados free, para aplicacoes medias, comecei com o paradox mais me informaram que da muito problema, entao comecei a pesquisar e cheguei a esse tres que citei acima. Desde ja muito obrigado. Adevaldo [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBGrid que possa mudar a cor da Borda.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin DBGrid1.Canvas.Pen.Color := CLRED; DBGrid1.Canvas.Rectangle(RECT); DBGrid1.Canvas.Brush.Style := bsClear; DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); END; COLOQUE O DEFAULTDRAWING PARA FALSE... Espero ter ajudado. Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Olá Pessoal, alguém conhece um tipo de DBGRID onde eu possa mudar a cor da Borda? [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Boa noite galera
Desculpe estar me intrometendo. procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var y , x , AlinharA : integer; begin // AlinharA := 0; // Esquerda // AlinharA := 1; // Centro // AlinharA := 2; // Direita if ACol in [ 0 , 1 ] then AlinharA := 1 else if ACol = 2 then AlinharA := 2 else AlinharA := 0; if gdFixed in State then begin sg.Canvas.Brush.Color := clBtnFace; AlinharA := 1; sg.Canvas.Font.Style := sg.Canvas.Font.Style + [fsBold]; end else begin sg.Canvas.Brush.Color := clWhite; sg.Canvas.Font.Style := sg.Canvas.Font.Style - [fsBold]; end; y := Rect.Top + (Rect.Bottom - Rect.Top - sg.Canvas.TextHeight(sg.Cells[ACol, ARow]) ) div 2; case AlinharA of 1: x := Rect.Left + (Rect.Right - Rect.Left - sg.Canvas.TextWidth(sg.Cells[ACol, ARow]) ) div 2 - 1; // Centro 2: x := Rect.Right - sg.Canvas.TextWidth(sg.Cells[ACol, ARow]) - 2; // Direita else x := Rect.Left + 2; // Esquerda end; sg.Canvas.TextRect(Rect, x , y, sg.Cells[ACol, ARow]); end; Espero ter ajudado. Alisson Yahoo [EMAIL PROTECTED] escreveu: Procure por esse assunto no Google e você deve achar o que procura. Eu já tinha feito isso uma vez, mas depois percebi que era melhor usar DbGrid com ClientDataset e não tenho o código dessa rotina aqui no serviço. Bom dia Alisson!! aproveitando a dica. Tem como alinhar tb alinhar à direita (ou centralizado) o texto de células em especifico??? mto obrigado [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Digitar Maiúsculo no Me mo
No evento OnKeyPress do DBMemo eu coloco o seguinte: Key := AnsiUpperCase(Key)[1]; Bruno Stort [EMAIL PROTECTED] escreveu: Como eu obrigo o usuário a digitar maiúsculo em um Memo? [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cor de celula no StringGrid
Adapte as suas necessidades (testado no Delphi 3). procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState); begin if (Row=1) and (Col=1) then begin StringGrid1.Canvas.Font.Color := clwhite; StringGrid1.Canvas.Brush.Color := clAqua; StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2,StringGrid1.Cells[Col, Row]); end; end; Espero ter ajudado. - Original Message - From: aoliveira_sys To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 07, 2006 2:39 PM Subject: [delphi-br] Cor de celula no StringGrid Como faço para uma determinada celular fique por exemplo com o fundo vermelho e a cor de fonte amarelo?? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html