Re: [delphi-br] OFF-TOPIC
na verdade, existem 2 contribuições anuais... a primeira diz respeito a uma contribuição sindical. Essa, infelizmente, não tem como sair... a segunda é sobre uma contribuição de ajuda de custo de suprimentos (ajuda para gastar com papelada). Dessa vc se livra, porque não é obrigado segue um modelo q usamos aqui pra fugir dela (mas tem q ser escrita à mão mesmo!!!) Solicitação de cancelamento de taxa de Contribuição Assistencial Eu SEU NOME COMPLETO, portador do RG X, CPF - Y,admitida pela empresa NOME DA EMPRESA, localizada a Av. NOME DA RUA, nº 69, Bairro - Centro - SÃO PAULO/SP CNPJ 00.000.000/-00 para realizar a função de NOME DA SUA FUNCAO, desde o dia 01 primeiro de JANEIRO de 2007; venho através desta me OPOR ao desconto de contribuição Sindical Assistencial realizado anualmente por este sindicato. SÃO PAULO, _de_ de 2007 _ SEU NOME COMPLETO - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Friday, January 19, 2007 5:54 PM Subject: Res: [delphi-br] OFF-TOPIC Kra, sinceramente, penso que sindicado só serve pra dar vida mansa aos sindicalistas (com raras excessões). Até onde sei, se quiser parar de pagar, terá que redigir uma carta de próprio punho, alegando a sua decisão de não pagar mais, e entregar ao departamento pessoal da empresa, que a encaminhará ao sindicado. Se informe no departamento pessoal da empresa. Eles saberão te orientar melhor. [ ]´s Luis Alberto Belo Horizonte - MG - Mensagem original De: Itabyte® [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 19 de Janeiro de 2007 14:54:34 Assunto: Re: [delphi-br] OFF-TOPIC eu num pago !!! JESUS TE AMA !!! - Original Message - From: Fabio Dantas To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 18, 2007 1:40 PM Subject: [delphi-br] OFF-TOPIC Pessoal alguem aqui paga sindicato ? To perguntando porque um amigo meu comentou que tem como sair do sindicato ou algo assim. Teria algum beneficio ? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ 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] __ Informação do NOD32 IMON 1990 (20070119) __ 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]
Res: [delphi-br] Evento OnTitleClick do DBgrid
Se vc estiver usando DBX e ClientDataSet, basta colocar esta linha de código no evento OnTitleClick. (Column.Field.DataSet as TClientDataset).IndexFieldNames := Column.FieldName; Luis Alberto Belo Horizonte - MG - Mensagem original De: Juliana Duque [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 21 de Janeiro de 2007 21:34:02 Assunto: [delphi-br] Evento OnTitleClick do DBgrid Olá pessoal, Tenho uma dúvida sobre o dbgrid. Preciso ordenar as colunas que trazem no dbgrid. Tenho um botão onde está a consulta trazendo vários campos, funcionando corretamente, alguns campos que trago na consulta tem aliases, outros não. Ex: ('select campo1 as camp, campo 2 from tabela') No dbgrid, no evento OnTitleClick eu utilizo exatamente a mesma consulta para fazer a ordenação de cada título da coluna que for clicada. Acontece que os campos que tem alias não funcionam a ordenação, só funciona a ordenação dos campos que não estou dando um alias para eles. Dá erro de Coluna desconhecida. Tem alguma restrição quanto a isso? Não posso utilizar na consulta para cada campo um alias porque é regra do dbgrid neste evento OnTitleClick? Porque quando a consulta é feita sem nenhum alias ele funciona!! Ou estou fazendo algo errado? procedure TBusca.DBGrid1TitleClick(Column: TColumn); var coluna_campo:string; begin coluna_campo:=column.fieldname; application.processmessages; datamod.SQLx.sql.clear; datamod.SQLx.add('select campo1 as camp, campo2 from tabela); datamod.SQLx.add('order by '+coluna_campo); if not datamod.SQLx.Prepared then datamod.SQLx.Prepare; datamod.SQLx.Open; DBGrid1.Columns[0].Width:=200; DBGrid1.Columns[1].Width:=350; End; Obrigada Juliana __ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ 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]
[delphi-br] Re: Problemas com ExecuteNonQuery do BdpCommand do ASP.NET no Delphi 2006
Tentou fazer este mesmo teste utilizando o provider do MySQL? --- Em delphi-br@yahoogrupos.com.br, mestre_skald [EMAIL PROTECTED] escreveu Olá a todos, Estou tentando fazer uma rotina simples de inclusão, alteração e exclusão de dados através do ASP.NET, porém sou iniciante nesta área e estou com uma pequena dúvida. Faço estas rotinas em Delphi 7 e nunca apresentaram problemas. Uso o MySQL como banco de dados e instruções SQL para as operações. Mas não quer funcionar no Delphi 2006. Segue o código: procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs); begin bdpConnection1.Open; try BdpCommand1.ExecuteNonQuery(); finally BdpConnection1.Close; end; end; O BdpCommand está configurado corretamente, com o CommandType em Text e o CommandText correto também. O erro é o seguinte: Execute failed. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: Borland.Data.Common.BdpException: Execute failed. Source Error: Line 95: bdpConnection1.Open; Line 96: try Line 97: BdpCommand1.ExecuteNonQuery(); Line 98: finally Line 99: BdpConnection1.Close; Na linha 97. Desde já agradeço a atenção. Abraços.
[delphi-br] Re: Evento OnTitleClick do DBgrid
Bom dia Juliana. Olha, o exemplo abaixo eu uso com CDS, mas pra ele funcionar voce terá que adicionar todos os campos do CDS no Fields Editor dele: procedure OrdenaDataSetGrid(var CDS: TClientDataSet; Column: TColumn; var dbgPrin: TDBGrid); const idxDefault = 'DEFAULT_ORDER'; var strColumn : string; i : integer; bolUsed : boolean; idOptions : TIndexOptions; begin strColumn := idxDefault; if Column.Field.FieldKind in [fkCalculated, fkLookup, fkAggregate, fkInternalCalc] then Exit; if Column.Field.DataType in [ftBlob, ftMemo] then Exit; // // for i := 0 to dbgPrin.Columns.Count -1 do dbgPrin.Columns [i].Title.Font.Style := []; for i := 0 to dbgPrin.Columns.Count -1 do dbgPrin.Columns [i].Title.Font.Color := clActiveCaption; // bolUsed := (Column.Field.FieldName = CDS.IndexName); // CDS.IndexDefs.Update; for i := 0 to CDS.IndexDefs.Count - 1 do begin if CDS.IndexDefs.Items[i].Name = Column.Field.FieldName then begin strColumn := Column.Field.FieldName; case (CDS.IndexDefs.Items[i].Options = [ixDescending]) of True : idOptions := []; False : idOptions := [ixDescending]; end; end; end; // if (strColumn = idxDefault) or (bolUsed) then begin if bolUsed then CDS.DeleteIndex(Column.Field.FieldName); try CDS.AddIndex(Column.Field.FieldName, Column.Field.FieldName, idOptions, '', '', 0); strColumn := Column.Field.FieldName; except if bolUsed then strColumn := idxDefault; end; end; // try CDS.IndexName := strColumn; Column.Title.Font.Color := clRed; Column.Title.Caption := Column.Title.Caption; Column.Title.Font.Style := [fsbold]; except CDS.IndexName := idxDefault; end; // end; Neste Exemplo, a coluna ordenada fica com o título em vermelho. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Juliana Duque [EMAIL PROTECTED] escreveu Olá pessoal, Tenho uma dúvida sobre o dbgrid. Preciso ordenar as colunas que trazem no dbgrid. Tenho um botão onde está a consulta trazendo vários campos, funcionando corretamente, alguns campos que trago na consulta tem aliases, outros não. Ex: ('select campo1 as camp, campo 2 from tabela') No dbgrid, no evento OnTitleClick eu utilizo exatamente a mesma consulta para fazer a ordenação de cada título da coluna que for clicada. Acontece que os campos que tem alias não funcionam a ordenação, só funciona a ordenação dos campos que não estou dando um alias para eles. Dá erro de Coluna desconhecida. Tem alguma restrição quanto a isso? Não posso utilizar na consulta para cada campo um alias porque é regra do dbgrid neste evento OnTitleClick? Porque quando a consulta é feita sem nenhum alias ele funciona!! Ou estou fazendo algo errado? procedure TBusca.DBGrid1TitleClick(Column: TColumn); var coluna_campo:string; begin coluna_campo:=column.fieldname; application.processmessages; datamod.SQLx.sql.clear; datamod.SQLx.add('select campo1 as camp, campo2 from tabela); datamod.SQLx.add('order by '+coluna_campo); if not datamod.SQLx.Prepared then datamod.SQLx.Prepare; datamod.SQLx.Open; DBGrid1.Columns[0].Width:=200; DBGrid1.Columns[1].Width:=350; End; Obrigada Juliana __ 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]
[delphi-br] Backup com Firebird
Bom dia pessoal !!! Alguem tem alguma dica ou sugestão de como faço uma aplicação para o cliente fazer backup do banco de dados Firebird ??? Se alguem poder me ajudar fico grato ... Uso Delphi 7 e Firebird 2.0 Danilo Marques
[delphi-br] Duvida no ClientDataSet
Oi Gente, Preciso carregar no meu clientdataset informações salvas em três arquivos .cds. Para carregar o primeiro uso o clientdataset.loadfromfile, o problema começa depois pois se usar novamento o loadfromfile perco os dados do load anterior. Existe alguma forma de carregar o segundo e terceiro sem perder o primeiro? Abraço a todos, José Bernardo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Backup com Firebird
--- Em delphi-br@yahoogrupos.com.br, Danilo Marques [EMAIL PROTECTED] escreveu Bom dia pessoal !!! Alguem tem alguma dica ou sugestão de como faço uma aplicação para o cliente fazer backup do banco de dados Firebird ??? Se alguem poder me ajudar fico grato ... Uso Delphi 7 e Firebird 2.0 Danilo Marques === Bom dia! Utilizo dessa forma: -- Coloque um componente chamado IBBackupService da paleta InterbaseAdmin. -- Coloque um botão no form e coloque o seguinte código: try with IBBackupService do begin ServerName := 'localhost'; //no caso de rede, coloque o IP do servidor LoginPrompt := False; Params.Add('user_name=fulano'); Params.Add('password=1234'); Active := True; try Verbose := True; Options := [NonTransportable, IgnoreLimbo]; DatabaseName := 'c:\teste\banco.fdb'; BackupFile.Add('c:\teste\backup\backup.fbk'); ServiceStart; finally showmessage('BACKUP realizado com sucesso!!'); Active := False; end; end; except on e : Exception do showmessage('Nome de arquivo inválido!!'+e.message); end; -- Agora, para restaurar, utilize o componente IBRestoreService. -- Coloque outro botão e com o seguinte código: with IBRestoreService do begin ServerName := 'localhost'; LoginPrompt := False; Params.Add('user_name=fulano'); Params.Add('password=1234'); Active := True; try Verbose := True; Options := [Replace, UseAllSpace]; PageBuffers := 3000; PageSize := 4096; DatabaseName.Add('c:\teste\temp\banco.fdb'); // joga o banco em um outro diretório para não dar erro no banco em execução BackupFile.Add('c:\teste\backup\backup.fbk'); ServiceStart; finally showmessage('Restauração realizada com sucesso!!'); Active := False; end; end; NOTA: Para esses procedimentos, vc precisa jogar uma cópia do seu banco em um diretório(c:\teste\temp\banco.fdb) onde, vc efetuará o RESTORE. Logo após o restore, utilize uma função ou crie um esquema para copiar o banco do diretório temporário para o diretório real.
Re: [delphi-br] StringGrid (CLX)
Você pode usar um TClientDataSet virtual... Crie os campos que precisa nele, para cria-lo para inserir dados, faça o seguinte: if ClientDataSet.Active then ClientDataSet.EmptyDataSet() else ClientDataSet.CreateDataSet(); A partir daqui, vc pode inserir seus dados tranquilamente, com Insert, Edit, Post, Delete, enfim... assim você pode usar DataAware sem problemas... Vitor Luiz Redes Analista de Sistemas Redsystem Software / Bureau Software Messenger: [EMAIL PROTECTED] Phone: 3379-6939 Cel. Phone: 9677-8445 - Original Message - From: Romario (Listas) To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 20, 2007 11:23 AM Subject: Re: [delphi-br] StringGrid (CLX) Ôxe! Eu adoraria se o princípio fosse o mesmo. (rsrs) No DBGrid você associa um campo da tabela à coluna onde quer que apareça o CheckBox. No meu caso, não existe esse campo e nenhum dos outros também. Entendeu porque preciso que seja uma StringGrid? Valeu pela força! Sds, Romario Marcos Douglas escreveu: Romario, Segue o link http://delphi.about.com/od/usedbvcl/l/aa082003a.htm http://delphi.about.com/od/usedbvcl/l/aa082003a.htm Como eu não utilizo StringGrid pra nada, não posso garantir que vá funcionar, pois o link é para DBGrid, mas é o mesmo princípio para qq outro componente. Veja que no final do link tb ensina adicionar um Combo, DBLookup, etc... PS: Pq vc não pode utilziar nenhum componente data-aware? Só não me diga que é pq o projeto é OO que vc tem que utilizar somente componentes no-aware, ok? ;) PS2: Obrigado pelo email contendo o componente. Vou dar uma testada. Abraços, -- Marcos Douglas ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.410 / Virus Database: 268.16.7/620 - Release Date: 8/1/2007 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Quick Report - Imprimir em posiçã o fixa ototal dos detalhes que são variáveis
Bom dia, Roberto! Se entendi, sugiro mudar a propriedade da banda4 para rbPageFooter(BandType). Apesar de te dar o total página a página, deste jeito será sempre impresso no rodapé da folha. Não sei se te ajudou... Sucesso Sempre, Rejane -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de [EMAIL PROTECTED] Enviada em: sexta-feira, 19 de janeiro de 2007 10:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Quick Report - Imprimir em posição fixa ototal dos detalhes que são variáveis Colegas, qual o método para que a referida banda4 (total dos detalhes), inicie a impressão sempre no mesmo lugar, visto que as linhas de detalhe são variáveis? procedure TForm1.QRBand4BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRBand4.? := 1000; end; Obrigado, Roberto. -- Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte grátis e muito mais. Baixe grátis o Discador em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar na internet sem pagar uma fortuna, assine Oi Internet banda larga a partir de R$ 9,90. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Evento OnTitleClick do DBgrid
Segue abaixo duas classes que criei para ordenar e buscar em um dbgrid com ADOQuery Declare esta unit no uses, depois crie duas variaveis do tipo de cada classes. feito isso é usa-la no ontitleclick do dbgrid. ex.: procedure Ordenar(Col:TColumn;DBGridOrdenar:TDBGrid); ADOQueryOrdenaGrid.Ordenar(Column,DbgridSeugrid) e para a busca no Onkeypress assim: ADOQueryBusca.Busca(DBGridSeugrid,Key) essa busca depende da coluna onde o foco esta e não funciona para campos calculados unit ClassesPublicas; interface uses ADODB, Variants, Grids,DBGrids, ExtCtrls,DB, SysUtils, Classes; type TADOQueryOrdenaGrid = class constructor Create; private Ordem:string; TempoOrdenar:TTimer; procedure TempoOrdenarTimer(Sender:TObject); public procedure Ordenar(Col:TColumn;DBGridOrdenar:TDBGrid); end; TADOQueryBusca = class constructor Create; private Busca:string; TempoBusca:TTimer; procedure TempoBuscaTimer(Sender:TObject); public procedure Buscar(DBGridBusca:TDBGrid;Key:Char); end; implementation constructor TADOQueryOrdenaGrid.Create; begin TempoOrdenar:= TTimer.Create(nil); TempoOrdenar.OnTimer:=TempoOrdenarTimer; end; procedure TADOQueryOrdenaGrid.Ordenar(Col:TColumn;DBGridOrdenar:TDBGrid); begin if not (Col.Field.FieldKind in [fkCalculated, fkLookup, fkAggregate]) then begin TempoOrdenar.Enabled:= false; if Pos(Col.FieldName+' ASC',Ordem)0 then begin Ordem:= StringReplace(Ordem,Col.FieldName+' ASC',Col.FieldName+' DESC',[]); DBGridOrdenar.Hint:=StringReplace(DBGridOrdenar.Hint, Col.Title.Caption+' A-Z ',Col.Title.Caption+' Z-A ',[]); end else if Pos(Col.FieldName+' DESC',Ordem)0 then begin Ordem:= StringReplace(Ordem,Col.FieldName+' DESC',Col.FieldName+' ASC',[]); DBGridOrdenar.Hint:=StringReplace(DBGridOrdenar.Hint, Col.Title.Caption+' Z-A ',Col.Title.Caption+' A-Z ',[]); end else begin if Ordem '' then begin Ordem:= Ordem+','; end else DBGridOrdenar.Hint:=''; Ordem:=Ordem+Col.FieldName+' ASC'; DBGridOrdenar.Hint:=DBGridOrdenar.Hint+Col.Title.Caption+' A-Z '; end; (Col.Field.DataSet as TADOQuery).Sort:=Ordem; DBGridOrdenar.ShowHint:=True; TempoOrdenar.Enabled:= true; end; end; procedure TADOQueryOrdenaGrid.TempoOrdenarTimer(Sender:TObject); begin Ordem:=''; (Sender as TTimer).Enabled:= false; end; //* constructor TADOQueryBusca.Create; begin TempoBusca:= TTimer.Create(nil); TempoBusca.OnTimer:=TempoBuscaTimer; end; procedure TADOQueryBusca.TempoBuscaTimer(Sender:TObject); begin Busca:=''; (Sender as TTimer).Enabled:= false; end; procedure TADOQueryBusca.Buscar(DBGridBusca:TDBGrid;Key:Char); begin if not (DBGridBusca.DataSource.State in [dsedit,dsinsert]) then begin TempoBusca.Enabled:=False; Busca:= Busca+Char(key); TempoBusca.Enabled:=True; if not (DBGridBusca.SelectedField.FieldKind in [fkCalculated, fkLookup, fkAggregate]) then DBGridBusca.DataSource.DataSet.Locate( DBGridBusca.SelectedField.FieldName, Busca, [loCaseInsensitive,loPartialKey]); end; end; //* end. Em 22/01/07, Walter Chagas (Yahoo) [EMAIL PROTECTED] escreveu: Bom dia Juliana. Olha, o exemplo abaixo eu uso com CDS, mas pra ele funcionar voce terá que adicionar todos os campos do CDS no Fields Editor dele: procedure OrdenaDataSetGrid(var CDS: TClientDataSet; Column: TColumn; var dbgPrin: TDBGrid); const idxDefault = 'DEFAULT_ORDER'; var strColumn : string; i : integer; bolUsed : boolean; idOptions : TIndexOptions; begin strColumn := idxDefault; if Column.Field.FieldKind in [fkCalculated, fkLookup, fkAggregate, fkInternalCalc] then Exit; if Column.Field.DataType in [ftBlob, ftMemo] then Exit; // // for i := 0 to dbgPrin.Columns.Count -1 do dbgPrin.Columns [i].Title.Font.Style := []; for i := 0 to dbgPrin.Columns.Count -1 do dbgPrin.Columns [i].Title.Font.Color := clActiveCaption; // bolUsed := (Column.Field.FieldName = CDS.IndexName); // CDS.IndexDefs.Update; for i := 0 to CDS.IndexDefs.Count - 1 do begin if CDS.IndexDefs.Items[i].Name = Column.Field.FieldName then begin strColumn := Column.Field.FieldName; case (CDS.IndexDefs.Items[i].Options = [ixDescending]) of True : idOptions := []; False : idOptions := [ixDescending]; end; end; end; // if (strColumn = idxDefault) or (bolUsed) then begin if bolUsed then CDS.DeleteIndex(Column.Field.FieldName); try CDS.AddIndex(Column.Field.FieldName, Column.Field.FieldName, idOptions, '', '', 0); strColumn := Column.Field.FieldName; except if bolUsed then strColumn := idxDefault;
[delphi-br] assinatura de revista
Pessoal to querendo assinar a clibe delphi https://ssl.dominal.com/devmedia/subscribe/subscribe.asp?site=3 to em duvida do pacote 3 ou do pacote 1 compensa pelo conteudo o pacote 1 ??? vcs conhecem uma outra revista especializada em delphi, melhor ?? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quais os requisitos para rodar Delphi e F i r e bird????
Se o seu projeto não usa nenhuma Dll de 3°s basta que vc copie o GDS32.Dll no diretório da aplicação. E basta também declarar a midaslib no seu projeto que vc não precisa mais mandar a midas.dll junto com o projeto. Na verdade, recomendo que vc leia o arquivo de leiame que acompanha o pacote do FB que lá tem informações mais completas sobre como fazer o Deploy do FB e a instalação apenas cliente. []'s Ricardo Marcos P. M. de Souza [EMAIL PROTECTED] escreveu: E ai pessoal, Pois é...tenho na minha máquina o Delphi 7.0 e o Firebird 2.0 rodando em perfeito estado. Criei um programa que se conecta atraves dos componentes nativos Delphi 7.0 ao Firebird . O firebird que está instalado seria o Full, incluindo a parte do servidor firebird. Gostaria de saber quanto a parte do cliente da rede. O que ele precisa ter instalado pra poder acessar o meu servidor Firebird atraves desse programa?? Eu posso resolver o problema simplesmente instalando o Firebird completo como está na minha máquina. Mas nao quero partir pra essa solução. Procurei alguma coisa e descobri que o trabalho do cliente é feito através da DLL chamada gds32.dll na pasta de system do usuário. Mas basta apenas isso O que é que falta além disso??? ainda nao testei...;-) Marcos P. M. de Souza www.mpsoftwares.com http://www.mpsoftwares.com/ [EMAIL PROTECTED] [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]
[delphi-br] Interagir com o console
Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? Muito Grato. Um Abraço ____ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| http://www.e-easy.com.br/ www.e-easy.com.br ' `-` ' msn: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Planos profissionais com qualidade. consulte nossos planos, http://www.e-easy.com.br/websites.php click aqui [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Evento OnTitleClick do DBgrid
Salve Juliana! No meu exemplo do BorCon 2006 em http://cc.codegear.com/Author.aspx?ID=795118 na aplicação cliente, no cadastro de clientes, por exemplo, vc encontra uma rotina completa para fazer isso sem ter q fazer mais um acesso ao banco de dados, é completamente fácil, rápida e adaptavel a qq situação ou dbgrid. Abraços Bruno Lichot Juliana Duque escreveu: Olá pessoal, Tenho uma dúvida sobre o dbgrid. Preciso ordenar as colunas que trazem no dbgrid. Tenho um botão onde está a consulta trazendo vários campos, funcionando corretamente, alguns campos que trago na consulta tem aliases, outros não. Ex: ('select campo1 as camp, campo 2 from tabela') No dbgrid, no evento OnTitleClick eu utilizo exatamente a mesma consulta para fazer a ordenação de cada título da coluna que for clicada. Acontece que os campos que tem alias não funcionam a ordenação, só funciona a ordenação dos campos que não estou dando um alias para eles. Dá erro de Coluna desconhecida. Tem alguma restrição quanto a isso? Não posso utilizar na consulta para cada campo um alias porque é regra do dbgrid neste evento OnTitleClick? Porque quando a consulta é feita sem nenhum alias ele funciona!! Ou estou fazendo algo errado? procedure TBusca.DBGrid1TitleClick(Column: TColumn); var coluna_campo:string; begin coluna_campo:=column.fieldname; application.processmessages; datamod.SQLx.sql.clear; datamod.SQLx.add('select campo1 as camp, campo2 from tabela); datamod.SQLx.add('order by '+coluna_campo); if not datamod.SQLx.Prepared then datamod.SQLx.Prepare; datamod.SQLx.Open; DBGrid1.Columns[0].Width:=200; DBGrid1.Columns[1].Width:=350; End; Obrigada Juliana __ 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] __ Informação do NOD32 IMON 1995 (20070121) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br -- -- []´s Bruno Lichot
Re: [delphi-br] Interagir com o console
Comece com a função ShellExecuteEx da unit ShellAPI.pas -- Marcos Douglas Mensagem Original From: Marcos André [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Seg, Janeiro 22, 2007 11:09 am Subject: [delphi-br] Interagir com o console Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? Muito Grato. Um Abraço ____ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| http://www.e-easy.com.br/ www.e-easy.com.br ' `-` ' msn: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Planos profissionais com qualidade. consulte nossos planos, http://www.e-easy.com.br/websites.php click aqui [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Data do arquivo online
Por gentileza alguém teria um exemplo de como posso obter a data de criação um arquivo que esteja online. Estou trabalhando na rotina de download de versões de um sistema, tenho um arquivo ATUALIZACAO.EXE que esta num endereco, exemplo: http://www.meusite.com.br/download/atualizacao.exe e necessito obter a data de criacao deste arquivo. Alguém poderia me ajudar ?A rotina de download ja tem, estou utilizando o FTP do Indy, mas nao estou conseguindo verificar a data do arquivo no provedor para comparação. Antecipadamente agradeço a todos. Ricardo Amorim [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] EDBImage
Olá pessoal, alguem utiliza ai o componente EDBImage? Se alguem utiliza pode me dar uma forcinha para conseguir gravar a imagem no banco não estou conseguindo estou utilizando sqlDataSet, ClientDataset, DataSource e DataSetProvider, nào da nenhum erro, simplesmente não grava a imagem no banco... valeu.. __ 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]
[delphi-br] Tengesis
Bom Gente, Alguem poderia me dar uma ajuda de como eu faço pra pode usar o componente Tengesis? __ 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]
[delphi-br] Problemas com componentes do MySql no Delphi 2006
Sim, porém a instalação do provider do MySql deu um erro. Ele carrega tudo certinho no Data Explorer mas na tela de inicialização do Delphi 2006 aparece uma mensagem de erro dizendo que foi impossível carregar o provider do MySql. O nome do componente que instalei é Core Labs MySql Developer Tools. Com isso, procurei pelo provider .NET no site do MySql e este instalou corretamente, aparecendo o aba do Mysql na Tool Palete junto com o commands, connections, etc.. Usando estes componentes do MySql o erro não ocorreu, porém mais pra frente surgiu um outro, e creio que a culpa seja do provider do Mysql. Quando crio um Parâmetro no Command, ele dá erro ao compilar o progama. O processo de criação e como executar o parâmetro está correto, pois faço video-aulas e lá dá certo, somente aqui que não. Segue a linha de comando e o erro: Self.MySqlCommand1.Parameters.Add(MySql.Data.MySqlClient.MySqlParameter.Create('c' + 'or', System.Data.DbType.String, 0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 'cor', System.Data.DataRowVersion.Current, nil)); Erro: [Pascal Error] WebForm1.pas(56): E2250 There is no overloaded version of 'Create' that can be called with these arguments [Pascal Fatal Error] FundamentosADONETCommands.dpr(22): F2063 Could not compile used unit 'WebForm1.pas' O que poderia estar acarretando estes problemas ? Seriam os componente do MySql ? Desde já agradeço a ajuda. Murillo Proença [EMAIL PROTECTED] escreveu: Tentou fazer este mesmo teste utilizando o provider do MySQL? --- Em delphi-br@yahoogrupos.com.br, mestre_skald [EMAIL PROTECTED] escreveu Olá a todos, Estou tentando fazer uma rotina simples de inclusão, alteração e exclusão de dados através do ASP.NET, porém sou iniciante nesta área e estou com uma pequena dúvida. Faço estas rotinas em Delphi 7 e nunca apresentaram problemas. Uso o MySQL como banco de dados e instruções SQL para as operações. Mas não quer funcionar no Delphi 2006. Segue o código: procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs); begin bdpConnection1.Open; try BdpCommand1.ExecuteNonQuery(); finally BdpConnection1.Close; end; end; O BdpCommand está configurado corretamente, com o CommandType em Text e o CommandText correto também. O erro é o seguinte: Execute failed. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: Borland.Data.Common.BdpException: Execute failed. Source Error: Line 95: bdpConnection1.Open; Line 96: try Line 97: BdpCommand1.ExecuteNonQuery(); Line 98: finally Line 99: BdpConnection1.Close; Na linha 97. Desde já agradeço a atenção. Abraços. __ 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] Interagir com o console
Marcos Douglas wrote: Comece com a função ShellExecuteEx da unit ShellAPI.pas -- Marcos Douglas From: Marcos André [EMAIL PROTECTED] Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? E continue com essa aqui: (código retirado do Dev-Pascal) Cuidado com as quebras de linha. function ExecuteProcLog(Cmd, WorkDir: String): string; var tsi: TStartupInfo; tpi: TProcessInformation; nRead: DWORD; aBuf: array[0..101] of Char; sa: TSecurityAttributes; hOutputReadTmp, hOutputRead, hOutputWrite, hInputWriteTmp, hInputRead, hInputWrite, hErrorWrite: THandle; FOutput: string; begin FOutput := ''; sa.nLength := SizeOf(TSecurityAttributes); sa.lpSecurityDescriptor := nil; sa.bInheritHandle := True; CreatePipe(hOutputReadTmp, hOutputWrite, @sa, 0); DuplicateHandle(GetCurrentProcess(), hOutputWrite, GetCurrentProcess(), @hErrorWrite, 0, true, DUPLICATE_SAME_ACCESS); CreatePipe(hInputRead, hInputWriteTmp, @sa, 0); // Create new output read handle and the input write handle. Set // the inheritance properties to FALSE. Otherwise, the child inherits // the these handles; resulting in non-closeable handles to the pipes // being created. DuplicateHandle(GetCurrentProcess(), hOutputReadTmp, GetCurrentProcess(), @hOutputRead, 0, false, DUPLICATE_SAME_ACCESS); DuplicateHandle(GetCurrentProcess(), hInputWriteTmp, GetCurrentProcess(), @hInputWrite, 0, false, DUPLICATE_SAME_ACCESS); CloseHandle(hOutputReadTmp); CloseHandle(hInputWriteTmp); FillChar(tsi, SizeOf(TStartupInfo), 0); tsi.cb := SizeOf(TStartupInfo); tsi.dwFlags:= STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; tsi.hStdInput := hInputRead; tsi.hStdOutput := hOutputWrite; tsi.hStdError := hErrorWrite; CreateProcess(nil, PChar(Cmd), @sa, @sa, true, 0, nil, PChar(WorkDir), tsi, tpi); CloseHandle(hOutputWrite); CloseHandle(hInputRead ); CloseHandle(hErrorWrite); Application.ProcessMessages; repeat if (not ReadFile(hOutputRead, aBuf, 16, nRead, nil)) or (nRead = 0) then begin if GetLastError = ERROR_BROKEN_PIPE then Break else MessageDlg('Pipe read error, could not execute file', mtError, [mbOK]); end; aBuf[nRead] := #0; FOutput := FOutput + PChar(@aBuf[0]); Application.ProcessMessages; until False; Result := FOutput; // GetExitCodeProcess(tpi.hProcess, nRead) = True; end; -- Joao Morais
Re: [delphi-br] Tengesis
dê uma olhada aqui http://www.forumweb.com.br/foruns/lofiversion/index.php/t53601.html espero ter ajudado. - - - - att' Paulo Batalhão - batalhao_arroba_msn.com arphanet.com - http://www.arphanet.com/ arphanet.rainulf.org - http://www.arphanet.rainulf.org/ saudeamericana.com.br - http://www.saudeamericana.com.br/ fusame.com.br - http://www.fusame.com.br/ Não existe patch para a estupidez humana www.postgresql.org - www.mysql.com - www.firebirdsql.org - Original Message - From: Patricia Moura To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Monday, January 22, 2007 11:03 AM Subject: [delphi-br] Tengesis Bom Gente, Alguem poderia me dar uma ajuda de como eu faço pra pode usar o componente Tengesis? __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/
Re: [delphi-br] Backup com Firebird
que componente de acesso você utiliza ? --- att' Paulo Batalhão - [EMAIL PROTECTED] arphanet.com - http://www.arphanet.com/ arphanet.rainulf.org - http://www.arphanet.rainulf.org/ saudeamericana.com.br - http://www.saudeamericana.com.br/ fusame.com.br - http://www.fusame.com.br/ Não existe patch para a estupidez humana www.postgresql.org - www.mysql.com - www.firebirdsql.org - Original Message - From: Danilo Marques To: delphi-br@yahoogrupos.com.br Sent: Monday, January 22, 2007 9:42 AM Subject: [delphi-br] Backup com Firebird Bom dia pessoal !!! Alguem tem alguma dica ou sugestão de como faço uma aplicação para o cliente fazer backup do banco de dados Firebird ??? Se alguem poder me ajudar fico grato ... Uso Delphi 7 e Firebird 2.0 Danilo Marques
[delphi-br] OPORTUNIDADE!!!!
Srs., Boa Tarde ! Estamos precisando de um profissional para ocupar de imediato a oportunidade listada abaixo. Solicitamos sua indicação e divulgação junto aos amigos/contatos. Aos interessados solicitamos o CV atualizado, remuneração (CLT) e disponibilidade. 17 anos - Tecnologia de Informação com Qualidade PROFISSIONAL MÓDULO NÍVEL IDIOMA QTDE LOCAL DATAS PREVISTAS OBSERVAÇÃO EXPER. PROJETO INÍCIO DURAÇÃO Analista Programador VB/Asp /Net PL 1 Rio de Janeiro Imediato Indeterminado Atenciosamente, Vanessa Souza CTT Integration Group Tel.: (55 21) 2258-8694 Fax: (55 21) 3879-5595 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Agenda Médica
Amigos, Estou precisando fazer uma agenda aonde tenha a data e o horário, ate ai tudo bem ja fiz, so que eu quero pegar o intervalo de horas vagas disponivel no sistema. Exemplo : O medico ele atende de 08:00 as 12:00 O primeiro horario dele e as 08:00 ja ta preenchido no banco esta tudo direitinho , a proxima consulta dele e as 08:40, que tb esta preenchido, cada consulta dele tem um intervalo de 40 a 40 minutos. Gostaria de pegar no banco ou alguma funcao no delphi aonde eu possa descobrir o horario dele vago neste periodo de horas de 08:00 as 12:00. Se alguem puder me ajudar ficarei grato. Obs : os horarios ja preenchidos e gravados no banco ja fiz a coleta destes dados agora so quere pegar o horario vago que e o mais importante pra mim. No mais agradeço a atenção de todos. Rodrigo __ 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] Quick Report - Imprimir em posição fixa ototal dos detalhes que são variáveis
Rejane, em primeiro lugar obrigado pelo atendimento.[ Pense como nota fiscal em formulário pré impresso, onde vc tem linhas de detalhes (itens vendidos) logo no ínicio da nota, e depois lá pelo meio vc tem a banda4 com o total destes ítens. Na banda4 tenho que totalizar os ítens sempre no mesmo lugar, independente da quantidade de ítens impressos. Até já resolvi, mais estava querendo ir direto com algum método onde informo onde começa a impressão da banda4. Depois da banda 4 há outras bandas na mesma página. - Original Message - From: Rejane Lista To: delphi-br@yahoogrupos.com.br Sent: Monday, January 22, 2007 10:33 AM Subject: RES: [delphi-br] Quick Report - Imprimir em posição fixa ototal dos detalhes que são variáveis Bom dia, Roberto! Se entendi, sugiro mudar a propriedade da banda4 para rbPageFooter(BandType). Apesar de te dar o total página a página, deste jeito será sempre impresso no rodapé da folha. Não sei se te ajudou... Sucesso Sempre, Rejane -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de [EMAIL PROTECTED] Enviada em: sexta-feira, 19 de janeiro de 2007 10:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Quick Report - Imprimir em posição fixa ototal dos detalhes que são variáveis Colegas, qual o método para que a referida banda4 (total dos detalhes), inicie a impressão sempre no mesmo lugar, visto que as linhas de detalhe são variáveis? procedure TForm1.QRBand4BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRBand4.? := 1000; end; Obrigado, Roberto. -- Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte grátis e muito mais. Baixe grátis o Discador em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar na internet sem pagar uma fortuna, assine Oi Internet banda larga a partir de R$ 9,90. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! [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.432 / Virus Database: 268.17.4/644 - Release Date: 22/1/2007 07:30 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Interagir com o console
Olá João, Isto é exatamente o que eu precisa, só que não consegui enviar parâmetros: ex: C:\reparar.bat renal.gdb É desta forma q eu executo no prompt, porém não consigo enviar o renal.gdb pela procedure, tow pesquisando, mas num tow encontrando como fazer... Tem uma idéia? Um Abraço ____ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| www.e-easy.com.br http://www.e-easy.com.br/ ' `-` ' msn: [EMAIL PROTECTED] Planos profissionais com qualidade. consulte nossos planos, click aqui http://www.e-easy.com.br/websites.php De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: segunda-feira, 22 de janeiro de 2007 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Interagir com o console Marcos Douglas wrote: Comece com a função ShellExecuteEx da unit ShellAPI.pas -- Marcos Douglas From: Marcos André [EMAIL PROTECTED] mailto:marcos%40e-easy.com.br Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? E continue com essa aqui: (código retirado do Dev-Pascal) Cuidado com as quebras de linha. function ExecuteProcLog(Cmd, WorkDir: String): string; var tsi: TStartupInfo; tpi: TProcessInformation; nRead: DWORD; aBuf: array[0..101] of Char; sa: TSecurityAttributes; hOutputReadTmp, hOutputRead, hOutputWrite, hInputWriteTmp, hInputRead, hInputWrite, hErrorWrite: THandle; FOutput: string; begin FOutput := ''; sa.nLength := SizeOf(TSecurityAttributes); sa.lpSecurityDescriptor := nil; sa.bInheritHandle := True; CreatePipe(hOutputReadTmp, hOutputWrite, @sa, 0); DuplicateHandle(GetCurrentProcess(), hOutputWrite, GetCurrentProcess(), @hErrorWrite, 0, true, DUPLICATE_SAME_ACCESS); CreatePipe(hInputRead, hInputWriteTmp, @sa, 0); // Create new output read handle and the input write handle. Set // the inheritance properties to FALSE. Otherwise, the child inherits // the these handles; resulting in non-closeable handles to the pipes // being created. DuplicateHandle(GetCurrentProcess(), hOutputReadTmp, GetCurrentProcess(), @hOutputRead, 0, false, DUPLICATE_SAME_ACCESS); DuplicateHandle(GetCurrentProcess(), hInputWriteTmp, GetCurrentProcess(), @hInputWrite, 0, false, DUPLICATE_SAME_ACCESS); CloseHandle(hOutputReadTmp); CloseHandle(hInputWriteTmp); FillChar(tsi, SizeOf(TStartupInfo), 0); tsi.cb := SizeOf(TStartupInfo); tsi.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; tsi.hStdInput := hInputRead; tsi.hStdOutput := hOutputWrite; tsi.hStdError := hErrorWrite; CreateProcess(nil, PChar(Cmd), @sa, @sa, true, 0, nil, PChar(WorkDir), tsi, tpi); CloseHandle(hOutputWrite); CloseHandle(hInputRead ); CloseHandle(hErrorWrite); Application.ProcessMessages; repeat if (not ReadFile(hOutputRead, aBuf, 16, nRead, nil)) or (nRead = 0) then begin if GetLastError = ERROR_BROKEN_PIPE then Break else MessageDlg('Pipe read error, could not execute file', mtError, [mbOK]); end; aBuf[nRead] := #0; FOutput := FOutput + PChar(@aBuf[0]); Application.ProcessMessages; until False; Result := FOutput; // GetExitCodeProcess(tpi.hProcess, nRead) = True; end; -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Interagir com o console
Se eu não estiver errado, o parâmetro Cmd da função deve ser o seu comando completo, com parâmetros e tudo mais []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br Sent: Monday, January 22, 2007 1:28 PM Subject: RES: [delphi-br] Interagir com o console Olá João, Isto é exatamente o que eu precisa, só que não consegui enviar parâmetros: ex: C:\reparar.bat renal.gdb É desta forma q eu executo no prompt, porém não consigo enviar o renal.gdb pela procedure, tow pesquisando, mas num tow encontrando como fazer... Tem uma idéia? Um Abraço __ __ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| www.e-easy.com.br http://www.e-easy.com.br/ ' `-` ' msn: [EMAIL PROTECTED] Planos profissionais com qualidade. consulte nossos planos, click aqui http://www.e-easy.com.br/websites.php De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: segunda-feira, 22 de janeiro de 2007 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Interagir com o console Marcos Douglas wrote: Comece com a função ShellExecuteEx da unit ShellAPI.pas -- Marcos Douglas From: Marcos André [EMAIL PROTECTED] mailto:marcos%40e-easy.com.br Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? E continue com essa aqui: (código retirado do Dev-Pascal) Cuidado com as quebras de linha. function ExecuteProcLog(Cmd, WorkDir: String): string; var tsi: TStartupInfo; tpi: TProcessInformation; nRead: DWORD; aBuf: array[0..101] of Char; sa: TSecurityAttributes; hOutputReadTmp, hOutputRead, hOutputWrite, hInputWriteTmp, hInputRead, hInputWrite, hErrorWrite: THandle; FOutput: string; begin FOutput := ''; sa.nLength := SizeOf(TSecurityAttributes); sa.lpSecurityDescriptor := nil; sa.bInheritHandle := True; CreatePipe(hOutputReadTmp, hOutputWrite, @sa, 0); DuplicateHandle(GetCurrentProcess(), hOutputWrite, GetCurrentProcess(), @hErrorWrite, 0, true, DUPLICATE_SAME_ACCESS); CreatePipe(hInputRead, hInputWriteTmp, @sa, 0); // Create new output read handle and the input write handle. Set // the inheritance properties to FALSE. Otherwise, the child inherits // the these handles; resulting in non-closeable handles to the pipes // being created. DuplicateHandle(GetCurrentProcess(), hOutputReadTmp, GetCurrentProcess(), @hOutputRead, 0, false, DUPLICATE_SAME_ACCESS); DuplicateHandle(GetCurrentProcess(), hInputWriteTmp, GetCurrentProcess(), @hInputWrite, 0, false, DUPLICATE_SAME_ACCESS); CloseHandle(hOutputReadTmp); CloseHandle(hInputWriteTmp); FillChar(tsi, SizeOf(TStartupInfo), 0); tsi.cb := SizeOf(TStartupInfo); tsi.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; tsi.hStdInput := hInputRead; tsi.hStdOutput := hOutputWrite; tsi.hStdError := hErrorWrite; CreateProcess(nil, PChar(Cmd), @sa, @sa, true, 0, nil, PChar(WorkDir), tsi, tpi); CloseHandle(hOutputWrite); CloseHandle(hInputRead ); CloseHandle(hErrorWrite); Application.ProcessMessages; repeat if (not ReadFile(hOutputRead, aBuf, 16, nRead, nil)) or (nRead = 0) then begin if GetLastError = ERROR_BROKEN_PIPE then Break else MessageDlg('Pipe read error, could not execute file', mtError, [mbOK]); end; aBuf[nRead] := #0; FOutput := FOutput + PChar(@aBuf[0]); Application.ProcessMessages; until False; Result := FOutput; // GetExitCodeProcess(tpi.hProcess, nRead) = True; end; -- Joao Morais [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] [URGENTE] Contorno de imagens.
ok, mas a bronca é que eu nao sei fazer isso. e to meioi que sem tempo. tu tem como me dar uma ajuda me enviando tutoriasi ou algo desse tipo? obrigado. Em 21/01/07, André Geraldo [EMAIL PROTECTED] escreveu: Olha só procura na Web filtro passa alta, é o que queres o que procuras é linhas de alto contraste, dá para fazer no braço tb, tens que passar a imagem para tons de cinza e então procurar valores onde aja uma mudança alta em relação a uma de suas vizinhanas. André Geraldo Mestrando em Ciência da Computação/UFRGS. Rafael Jorge wrote: quem puder me ajudar agradeceria muito.. preciso de uma rotina, compomente, macumba, jeitinho ou qualquer coisa que peque uma imagem e so me devolva o contorno da mesma. tipo.. pegar uma imagem colorida e so me retornar os contorno do desenho que esta nela. sem cores sem nada. to precisando disso urgente mente para comcluir um projeto quem puder me ajudar serei muito grato. t+ -- Rafael jorge alves www.itrecife.com - para verem meus artigos e trabalhos t+ [As partes desta mensagem que não continham texto foram removidas] -- Rafael jorge alves www.itrecife.com - para verem meus artigos e trabalhos t+ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Backup com Firebird
Brother Eu faço através de BAT, se quiser me envia seu e-mail q te mando a bat com os arquivos em anexo Um Abraço ____ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| www.e-easy.com.br http://www.e-easy.com.br/ ' `-` ' msn: [EMAIL PROTECTED] Planos profissionais com qualidade. consulte nossos planos, click aqui http://www.e-easy.com.br/websites.php De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Batalhão Enviada em: segunda-feira, 22 de janeiro de 2007 11:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Backup com Firebird que componente de acesso você utiliza ? --- att' Paulo Batalhão - [EMAIL PROTECTED] mailto:batalhao%40msn.com arphanet.com - http://www.arphanet.com/ arphanet.rainulf.org - http://www.arphanet.rainulf.org/ saudeamericana.com.br - http://www.saudeamericana.com.br/ fusame.com.br - http://www.fusame.com.br/ Não existe patch para a estupidez humana www.postgresql.org - www.mysql.com - www.firebirdsql.org - Original Message - From: Danilo Marques To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, January 22, 2007 9:42 AM Subject: [delphi-br] Backup com Firebird Bom dia pessoal !!! Alguem tem alguma dica ou sugestão de como faço uma aplicação para o cliente fazer backup do banco de dados Firebird ??? Se alguem poder me ajudar fico grato ... Uso Delphi 7 e Firebird 2.0 Danilo Marques [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Interagir com o console
Opa Eric, é não... Se eu jogar o parãmetro junto do cmd ele entende tudo como um comando só. e diz que o comando não Existe. O pior é que se eu acertar este lance do parametro, fica 10 Ou seja... aih eu zero os meus problemas... :) Em 22/01/07, Eric D. [EMAIL PROTECTED] escreveu: Se eu não estiver errado, o parâmetro Cmd da função deve ser o seu comando completo, com parâmetros e tudo mais []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] ericdesenv%40yahoo.com.br Talk is cheap, show me the code... - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, January 22, 2007 1:28 PM Subject: RES: [delphi-br] Interagir com o console Olá João, Isto é exatamente o que eu precisa, só que não consegui enviar parâmetros: ex: C:\reparar.bat renal.gdb É desta forma q eu executo no prompt, porém não consigo enviar o renal.gdb pela procedure, tow pesquisando, mas num tow encontrando como fazer... Tem uma idéia? Um Abraço __ __ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| www.e-easy.com.br http://www.e-easy.com.br/ ' `-` ' msn: [EMAIL PROTECTED] mralcatraz%40hotmail.com Planos profissionais com qualidade. consulte nossos planos, click aqui http://www.e-easy.com.br/websites.php 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 Joao Morais Enviada em: segunda-feira, 22 de janeiro de 2007 11:03 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Interagir com o console Marcos Douglas wrote: Comece com a função ShellExecuteEx da unit ShellAPI.pas -- Marcos Douglas From: Marcos André [EMAIL PROTECTED] marcos%40e-easy.com.brmailto: marcos% marcos%2540e-easy.com.br Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? E continue com essa aqui: (código retirado do Dev-Pascal) Cuidado com as quebras de linha. function ExecuteProcLog(Cmd, WorkDir: String): string; var tsi: TStartupInfo; tpi: TProcessInformation; nRead: DWORD; aBuf: array[0..101] of Char; sa: TSecurityAttributes; hOutputReadTmp, hOutputRead, hOutputWrite, hInputWriteTmp, hInputRead, hInputWrite, hErrorWrite: THandle; FOutput: string; begin FOutput := ''; sa.nLength := SizeOf(TSecurityAttributes); sa.lpSecurityDescriptor := nil; sa.bInheritHandle := True; CreatePipe(hOutputReadTmp, hOutputWrite, @sa, 0); DuplicateHandle(GetCurrentProcess(), hOutputWrite, GetCurrentProcess(), @hErrorWrite, 0, true, DUPLICATE_SAME_ACCESS); CreatePipe(hInputRead, hInputWriteTmp, @sa, 0); // Create new output read handle and the input write handle. Set // the inheritance properties to FALSE. Otherwise, the child inherits // the these handles; resulting in non-closeable handles to the pipes // being created. DuplicateHandle(GetCurrentProcess(), hOutputReadTmp, GetCurrentProcess(), @hOutputRead, 0, false, DUPLICATE_SAME_ACCESS); DuplicateHandle(GetCurrentProcess(), hInputWriteTmp, GetCurrentProcess(), @hInputWrite, 0, false, DUPLICATE_SAME_ACCESS); CloseHandle(hOutputReadTmp); CloseHandle(hInputWriteTmp); FillChar(tsi, SizeOf(TStartupInfo), 0); tsi.cb := SizeOf(TStartupInfo); tsi.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; tsi.hStdInput := hInputRead; tsi.hStdOutput := hOutputWrite; tsi.hStdError := hErrorWrite; CreateProcess(nil, PChar(Cmd), @sa, @sa, true, 0, nil, PChar(WorkDir), tsi, tpi); CloseHandle(hOutputWrite); CloseHandle(hInputRead ); CloseHandle(hErrorWrite); Application.ProcessMessages; repeat if (not ReadFile(hOutputRead, aBuf, 16, nRead, nil)) or (nRead = 0) then begin if GetLastError = ERROR_BROKEN_PIPE then Break else MessageDlg('Pipe read error, could not execute file', mtError, [mbOK]); end; aBuf[nRead] := #0; FOutput := FOutput + PChar(@aBuf[0]); Application.ProcessMessages; until False; Result := FOutput; // GetExitCodeProcess(tpi.hProcess, nRead) = True; end; -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Um abraço Marcos André [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Backup com Firebird
Utilizo a DbExpress ... SqlConection , SqlQuery , ClientDataSet , DataSetProvider Danilo Marques -Mensagem Original- From: Paulo Batalhão [EMAIL PROTECTED] Date: Mon, 22 Jan 2007 12:05:34 -0300 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Backup com Firebird que componente de acesso você utiliza ? --- att' Paulo Batalhão - [EMAIL PROTECTED] arphanet.com - http://www.arphanet.com/ arphanet.rainulf.org - http://www.arphanet.rainulf.org/ saudeamericana.com.br - http://www.saudeamericana.com.br/ fusame.com.br - http://www.fusame.com.br/ Não existe patch para a estupidez humana www.postgresql.org - www.mysql.com - www.firebirdsql.org - Original Message - From: Danilo Marques To: delphi-br@yahoogrupos.com.br Sent: Monday, January 22, 2007 9:42 AM Subject: [delphi-br] Backup com Firebird Bom dia pessoal !!! Alguem tem alguma dica ou sugestão de como faço uma aplicação para o cliente fazer backup do banco de dados Firebird ??? Se alguem poder me ajudar fico grato ... Uso Delphi 7 e Firebird 2.0 Danilo Marques
Re: [delphi-br] Interagir com o console
melhoria: qdo for rodar o comando, use: COMMAND.COM /C C:\REPARAR.BAT RENAL.GDB o parametro /C faz com q o command feche a janela após sua conclusão. se vc quiser deixar uma mensagem tipo PRESSIONE QQ TECLA PARA CONTINUAR, use @PAUSE no seu .bat. outra coisa: use command.com porque cmd é do win2000/xp daí, se o cara estiver com win98, pode ter problemas. And. - Original Message - From: Eric D. To: delphi-br@yahoogrupos.com.br Sent: Monday, January 22, 2007 4:19 PM Subject: Re: [delphi-br] Interagir com o console Se eu não estiver errado, o parâmetro Cmd da função deve ser o seu comando completo, com parâmetros e tudo mais []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br Sent: Monday, January 22, 2007 1:28 PM Subject: RES: [delphi-br] Interagir com o console Olá João, Isto é exatamente o que eu precisa, só que não consegui enviar parâmetros: ex: C:\reparar.bat renal.gdb É desta forma q eu executo no prompt, porém não consigo enviar o renal.gdb pela procedure, tow pesquisando, mas num tow encontrando como fazer... Tem uma idéia? Um Abraço __ __ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| www.e-easy.com.br http://www.e-easy.com.br/ ' `-` ' msn: [EMAIL PROTECTED] Planos profissionais com qualidade. consulte nossos planos, click aqui http://www.e-easy.com.br/websites.php De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: segunda-feira, 22 de janeiro de 2007 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Interagir com o console Marcos Douglas wrote: Comece com a função ShellExecuteEx da unit ShellAPI.pas -- Marcos Douglas From: Marcos André [EMAIL PROTECTED] mailto:marcos%40e-easy.com.br Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? E continue com essa aqui: (código retirado do Dev-Pascal) Cuidado com as quebras de linha. function ExecuteProcLog(Cmd, WorkDir: String): string; var tsi: TStartupInfo; tpi: TProcessInformation; nRead: DWORD; aBuf: array[0..101] of Char; sa: TSecurityAttributes; hOutputReadTmp, hOutputRead, hOutputWrite, hInputWriteTmp, hInputRead, hInputWrite, hErrorWrite: THandle; FOutput: string; begin FOutput := ''; sa.nLength := SizeOf(TSecurityAttributes); sa.lpSecurityDescriptor := nil; sa.bInheritHandle := True; CreatePipe(hOutputReadTmp, hOutputWrite, @sa, 0); DuplicateHandle(GetCurrentProcess(), hOutputWrite, GetCurrentProcess(), @hErrorWrite, 0, true, DUPLICATE_SAME_ACCESS); CreatePipe(hInputRead, hInputWriteTmp, @sa, 0); // Create new output read handle and the input write handle. Set // the inheritance properties to FALSE. Otherwise, the child inherits // the these handles; resulting in non-closeable handles to the pipes // being created. DuplicateHandle(GetCurrentProcess(), hOutputReadTmp, GetCurrentProcess(), @hOutputRead, 0, false, DUPLICATE_SAME_ACCESS); DuplicateHandle(GetCurrentProcess(), hInputWriteTmp, GetCurrentProcess(), @hInputWrite, 0, false, DUPLICATE_SAME_ACCESS); CloseHandle(hOutputReadTmp); CloseHandle(hInputWriteTmp); FillChar(tsi, SizeOf(TStartupInfo), 0); tsi.cb := SizeOf(TStartupInfo); tsi.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; tsi.hStdInput := hInputRead; tsi.hStdOutput := hOutputWrite; tsi.hStdError := hErrorWrite; CreateProcess(nil, PChar(Cmd), @sa, @sa, true, 0, nil, PChar(WorkDir), tsi, tpi); CloseHandle(hOutputWrite); CloseHandle(hInputRead ); CloseHandle(hErrorWrite); Application.ProcessMessages; repeat if (not ReadFile(hOutputRead, aBuf, 16, nRead, nil)) or (nRead = 0) then begin if GetLastError = ERROR_BROKEN_PIPE then Break else MessageDlg('Pipe read error, could not execute file', mtError, [mbOK]); end; aBuf[nRead] := #0; FOutput := FOutput + PChar(@aBuf[0]); Application.ProcessMessages; until False; Result := FOutput; // GetExitCodeProcess(tpi.hProcess, nRead) = True; end; -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1997 (20070122) __ 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]
[delphi-br] OFF-Topic PC Virtual - MSDOS
Ola Povo Sera que alguem que trabalha com o PC Virtual teria o arquivo .vdh de um ambiente MS-Dos para abrir uns sistemas jurasticos em Clipper que estão sendo passados para o Delphi? Se alguem tiver eu agradeço muito. Marô [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como salvar e manter salvo uma foto.jpeg em BD Access?
Olá pessoal estou com uma dúvida neste exemplo que baixei. Assim eu achei que este exemplo iria salvar a foto.jpeg na tabela e se mantivesse foto.jpeg mas acho que ao copiar a foto ela se transforma em bmp ou outro formato. var imagem:Tpicture; begin // criei um form para visualizar e escolher a foto Application.CreateForm(TFrmVisuliFotos, FrmVisuliFotos); FrmVisuliFotos.ShowModal; //label2 é onde está o caminho da foto if FrmVisuliFotos.Label2.Caption'' then begin // cria variavel p/armazenar imagem imagem:=tpicture.create(); // busca imagem do arquivo e joga na variavel imagem.loadfromfile(FrmVisuliFotos.Label2.Caption); // passa imagem p/clipboard clipboard.Assign(imagem); // copia imagem para a coluna foto Foto.PasteFromClipboard;//e aqui acho que muda para bmp?! // libera variavel imagem.Free; end; end; Este exemplo salva tanto jpeg quanto bmp (conforme filtro) só que engorda demais o BD. Observei que uma foto no formato .bmp de 50.454 bytes após salvar no BD aumentou para 73.728 bytes. Que formato estou salvando? O BD foi reindexado antes de iserir a foto e depois de inserida. Ai cheguei nestes bytes. Também observei que a mesma foto só que .jpeg de 4.067 bytes após salvar no BD aumentou para 65.536 bytes ou seja ainda é vantagem salvar jpeg mas porque? Eu queria manter jpeg no BD porque acredito que ocupa menos bytes. Ou estou errado? Isto é possível? Alguém tem um exemplo que mantem foto.jpeg na tabela de dado access? Como faço para uma foto ocupar pouco espaço no BD Access? Poderia me enviar? [EMAIL PROTECTED]
Re: [delphi-br] Interagir com o console
E se vc colocar o próprio shell antes do comando e seu arquivo.bat com o caminho completo? Algo do tipo: command /c c:\caminhocompleto\seuarquivo.bat seusparametros ou cmd /c c:\caminhocompleto\seuarquivo.bat seusparametros Então ficaria: (...) memo1.text := ExecuteProcLog('cmd /c c:\restaurabd.bat meubanco.fdb', 'c:\') (...) Pq eu utilizei uma vez em uma rotina parecida com esta desta maneira que eu te passei acima.. e nunca me deu problemas com o buffer retornado do cmd =) []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br Sent: Monday, January 22, 2007 2:39 PM Subject: Re: [delphi-br] Interagir com o console Opa Eric, é não... Se eu jogar o parãmetro junto do cmd ele entende tudo como um comando só. e diz que o comando não Existe. O pior é que se eu acertar este lance do parametro, fica 10 Ou seja... aih eu zero os meus problemas... :) Em 22/01/07, Eric D. [EMAIL PROTECTED] escreveu: Se eu não estiver errado, o parâmetro Cmd da função deve ser o seu comando completo, com parâmetros e tudo mais []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] ericdesenv%40yahoo.com.br Talk is cheap, show me the code... - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, January 22, 2007 1:28 PM Subject: RES: [delphi-br] Interagir com o console Olá João, Isto é exatamente o que eu precisa, só que não consegui enviar parâmetros: ex: C:\reparar.bat renal.gdb É desta forma q eu executo no prompt, porém não consigo enviar o renal.gdb pela procedure, tow pesquisando, mas num tow encontrando como fazer... Tem uma idéia? Um Abraço __ __ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| www.e-easy.com.br http://www.e-easy.com.br/ ' `-` ' msn: [EMAIL PROTECTED] mralcatraz%40hotmail.com Planos profissionais com qualidade. consulte nossos planos, click aqui http://www.e-easy.com.br/websites.php 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 Joao Morais Enviada em: segunda-feira, 22 de janeiro de 2007 11:03 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Interagir com o console Marcos Douglas wrote: Comece com a função ShellExecuteEx da unit ShellAPI.pas -- Marcos Douglas From: Marcos André [EMAIL PROTECTED] marcos%40e-easy.com.brmailto: marcos% marcos%2540e-easy.com.br Olá Pessoal, Tenho uma BAT que executa alguns arquivos do Firebird para recuperação de bases, GBAK, GFIX, etc... Gostaria de fazer um programa que lidasse com estes arquivos, tipo enviasse comandos para o prompt e leia a resposta... alguém poderia me ajudar com um ponto de partida??? E continue com essa aqui: (código retirado do Dev-Pascal) Cuidado com as quebras de linha. function ExecuteProcLog(Cmd, WorkDir: String): string; var tsi: TStartupInfo; tpi: TProcessInformation; nRead: DWORD; aBuf: array[0..101] of Char; sa: TSecurityAttributes; hOutputReadTmp, hOutputRead, hOutputWrite, hInputWriteTmp, hInputRead, hInputWrite, hErrorWrite: THandle; FOutput: string; begin FOutput := ''; sa.nLength := SizeOf(TSecurityAttributes); sa.lpSecurityDescriptor := nil; sa.bInheritHandle := True; CreatePipe(hOutputReadTmp, hOutputWrite, @sa, 0); DuplicateHandle(GetCurrentProcess(), hOutputWrite, GetCurrentProcess(), @hErrorWrite, 0, true, DUPLICATE_SAME_ACCESS); CreatePipe(hInputRead, hInputWriteTmp, @sa, 0); // Create new output read handle and the input write handle. Set // the inheritance properties to FALSE. Otherwise, the child inherits // the these handles; resulting in non-closeable handles to the pipes // being created. DuplicateHandle(GetCurrentProcess(), hOutputReadTmp, GetCurrentProcess(), @hOutputRead, 0, false, DUPLICATE_SAME_ACCESS); DuplicateHandle(GetCurrentProcess(), hInputWriteTmp, GetCurrentProcess(), @hInputWrite, 0, false, DUPLICATE_SAME_ACCESS); CloseHandle(hOutputReadTmp); CloseHandle(hInputWriteTmp); FillChar(tsi, SizeOf(TStartupInfo), 0); tsi.cb := SizeOf(TStartupInfo); tsi.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; tsi.hStdInput := hInputRead; tsi.hStdOutput := hOutputWrite; tsi.hStdError := hErrorWrite; CreateProcess(nil, PChar(Cmd), @sa, @sa, true, 0, nil, PChar(WorkDir), tsi, tpi); CloseHandle(hOutputWrite); CloseHandle(hInputRead );
[delphi-br] OFF TOPIC - Gerenciamento de projetos
Boa tarde. Estamos com um projeto, para desenvolver alguns sistemas em parceria com outra empresa de software. O que vai ocorrer é que varios programadores das duas empresas terão que ter acesso aos codigos fontes ao mesmo tempo. Gostaria de saber se alguem trabalha com algum gerenciador de projetos que permita esse compartilhamento ? Preferelcialmente que funcione em servidor linux. Aqui na empresa temos um servidor de internet, rodando em linux. Ouvi falar no CVS Free, mas ainda nao tive a oprotunidade de testá-lo e nem tenho material. Agradeço desde já a atenção dispensada. []s _ João Paulo Pyl Cascavel - Paraná [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ref. Erro ao sair de campo data
Ola Delphianos. Estou com uma questão aqui. Tenho um campo data formatado com máscara. Quando entro no campo e digitoi apenas metade da data, e tento sair, ele me exibe a mensagem: Erro de valor de entrada ou Valor de entrada inválido. Tem como evitar isto ou tratar, ??? Sem mais, Abço e sucesso a todos. Omar M. Haddad Analista de Sistemas __ 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] Interagir com o console
Marcos André wrote: Opa Eric, é não... Se eu jogar o parãmetro junto do cmd ele entende tudo como um comando só. e diz que o comando não Existe. O pior é que se eu acertar este lance do parametro, fica 10 Ou seja... aih eu zero os meus problemas... :) Se não me falha a memória, eu usava esse troço para executar o gbak e colocava tanto o programa quanto os parâmetros no parâmetro cmd. Faz um teste com um binário ao invés de um .bat, veja no que dá. -- João Morais Em 22/01/07, Eric D. [EMAIL PROTECTED] escreveu: Se eu não estiver errado, o parâmetro Cmd da função deve ser o seu comando completo, com parâmetros e tudo mais []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] ericdesenv%40yahoo.com.br Talk is cheap, show me the code... - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, January 22, 2007 1:28 PM Subject: RES: [delphi-br] Interagir com o console Olá João, Isto é exatamente o que eu precisa, só que não consegui enviar parâmetros: ex: C:\reparar.bat renal.gdb É desta forma q eu executo no prompt, porém não consigo enviar o renal.gdb pela procedure, tow pesquisando, mas num tow encontrando como fazer... Tem uma idéia? Um Abraço __ __ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| www.e-easy.com.br http://www.e-easy.com.br/ ' `-` ' msn: [EMAIL PROTECTED] mralcatraz%40hotmail.com Planos profissionais com qualidade. consulte nossos planos, click aqui http://www.e-easy.com.br/websites.php
Re: [delphi-br] OFF TOPIC - Gerenciamento de projetos
Joao Paulo EsPyl wrote: Estamos com um projeto, para desenvolver alguns sistemas em parceria com outra empresa de software. O que vai ocorrer é que varios programadores das duas empresas terão que ter acesso aos codigos fontes ao mesmo tempo. Gostaria de saber se alguem trabalha com algum gerenciador de projetos que permita esse compartilhamento ? Preferelcialmente que funcione em servidor linux. Aqui na empresa temos um servidor de internet, rodando em linux. Ouvi falar no CVS Free, mas ainda nao tive a oprotunidade de testá-lo e nem tenho material. Subversion. Uso para projetos de código livre e na rede local. Muito bom. Use com TortoiseSVN. Tutorial pra instalar em servidor linux com suporte a Apache: http://www.vivaolinux.com.br/artigos/verArtigo.php?codigo=5505pagina=1 Nota pessoal: para que o Subversion, como cliente, possa acessar repositórios sob https, basta incluir --with-ssl como parâmetro do script configure (além do parâmetro --with-apxs conforme explicado no artigo). Segui o tutorial e funcionou 100%. Qualquer problema, PVT. -- Joao Morais
Re: [delphi-br] Ref. Erro ao sair de campo data
Como está o campo editMask? 00/00/:0 ??? - Original Message - From: Omar Marques To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] Sent: Monday, January 22, 2007 5:13 PM Subject: [delphi-br] Ref. Erro ao sair de campo data Ola Delphianos. Estou com uma questão aqui. Tenho um campo data formatado com máscara. Quando entro no campo e digitoi apenas metade da data, e tento sair, ele me exibe a mensagem: Erro de valor de entrada ou Valor de entrada inválido. Tem como evitar isto ou tratar, ??? Sem mais, Abço e sucesso a todos. Omar M. Haddad Analista de Sistemas __ 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] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 22/01/2007 / Versão: 5.1.00/4945 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Quantidade de páginas enviadas para a impressora
Boa Tarde Pessoal, pessoal alguem sabe como eu pego a quantidade de páginas enviadas para a impressora? uso o Rave reports e como não achei atraves dele estou procurando a solução via API do windows, alguem pode me ajuda? Henrique Peixinho [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como salvar e manter salvo uma foto.jpeg em BD Access?
Elizeu, sugiro que use outra forma de armazenamento, o access ja fica gordo armazenando muitos registros, imagina imagens. o tamanho sempre crece mesmo, eu salvo imagens num banco mysql, a tabela tem 32.000 e ja ta com 985 MB, um conselho, escolha outro banco, access é rapidinho e tal mas não aguenta o tranco não. agora se vc for guardar pouco coisa não se preocupe não, afinal para um HD de 80GB que é a média de hj não vaio ser grande problema. Em 22/01/07, Elizeu jaime Martins Chiogna [EMAIL PROTECTED] escreveu: Olá pessoal estou com uma dúvida neste exemplo que baixei. Assim eu achei que este exemplo iria salvar a foto.jpeg na tabela e se mantivesse foto.jpeg mas acho que ao copiar a foto ela se transforma em bmp ou outro formato. var imagem:Tpicture; begin // criei um form para visualizar e escolher a foto Application.CreateForm(TFrmVisuliFotos, FrmVisuliFotos); FrmVisuliFotos.ShowModal; //label2 é onde está o caminho da foto if FrmVisuliFotos.Label2.Caption'' then begin // cria variavel p/armazenar imagem imagem:=tpicture.create(); // busca imagem do arquivo e joga na variavel imagem.loadfromfile(FrmVisuliFotos.Label2.Caption); // passa imagem p/clipboard clipboard.Assign(imagem); // copia imagem para a coluna foto Foto.PasteFromClipboard;//e aqui acho que muda para bmp?! // libera variavel imagem.Free; end; end; Este exemplo salva tanto jpeg quanto bmp (conforme filtro) só que engorda demais o BD. Observei que uma foto no formato .bmp de 50.454 bytes após salvar no BD aumentou para 73.728 bytes. Que formato estou salvando? O BD foi reindexado antes de iserir a foto e depois de inserida. Ai cheguei nestes bytes. Também observei que a mesma foto só que .jpeg de 4.067 bytes após salvar no BD aumentou para 65.536 bytes ou seja ainda é vantagem salvar jpeg mas porque? Eu queria manter jpeg no BD porque acredito que ocupa menos bytes. Ou estou errado? Isto é possível? Alguém tem um exemplo que mantem foto.jpeg na tabela de dado access? Como faço para uma foto ocupar pouco espaço no BD Access? Poderia me enviar? [EMAIL PROTECTED]novoelizeu%40yahoo.com.br.Obrigado . -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Olá Pessoal!!
Olá pessoal!!! Gostaria de saber se alguem tem como me dizer como se usa o componente do delphi UpdateSQL...?! Abraços e, 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]
[delphi-br] Criacao de determinado formulário...
Boa tarde... Tenho dois relatorios (quase iguais), que precisa chamar conforme estabelecido pelo usuario. Vamos chamar de relatorio1 e relatorio2. Minha dúvida é justamente qual mandar criar em tempo de execucao, sendo que passo os mesmo parametros para ambos, mas nao quero ter q fazer dois codigos identicos, um chamando relatorio1 e outro chamando relatorio2. Segue abaixo o que eu preciso. procedure Form1.imprimir; begin if (CdRelatorioEscolhido.AsInteger = 1) then RelatorioEsolhido := Relatorio1 else RelatorioEsolhido := Relatorio2; if not Assigned(RelatorioEsolhido) then Application.CreateForm(TRelatorioEsolhido, RelatorioEsolhido); with RelatorioEsolhido.QueryConsulta do begin Close; SQL.Clear; SQL.Add('SELECT * FROM TABELA'); Open; end; if RelatorioEsolhido.QueryConsulta.IsEmpty then begin Application.MessageBox('Tabela vazia.', 'Teste', 64); Close; exit; end; RelatorioEsolhido.PrinterSettings.Copies := StrToInt(CurrEditNVias.Text); RelatorioEsolhido.preview; end; No caso a variavel RelatorioEsolhido identificaria qual dos dois relatorios seria o escolhido. []s _ João Paulo
Re: [delphi-br] Ref. Erro ao sair de campo data
Omar Marques escreveu: Ola Delphianos. Estou com uma questão aqui. Tenho um campo data formatado com máscara. Quando entro no campo e digitoi apenas metade da data, e tento sair, ele me exibe a mensagem: Erro de valor de entrada ou Valor de entrada inválido. Tem como evitar isto ou tratar, ??? Sem mais, Abço e sucesso a todos. Omar M. Haddad Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.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.432 / Virus Database: 268.17.4/643 - Release Date: 21/1/2007 17:12 eu normalmente qdo uso esse tipo de campo eu ponho no onexit dele uma funcao como: function data_valida(data: String): Boolean; var d: tdate; begin Result := true; try d := StrToDate(data do campo); except Result := False; end; end;
[delphi-br] Off-topic. Oportunidade de empresa SSA...
Gostaria de apresentar oportunidade de emprego para programador Delphi 7 com bons conhecimentos de SQL Server 2000 para contratação imediata na cidade de Salvador/BA. O salário é de 1.500,00 com alimentação, Unimed, transporte, férias, 13º, etc. Interessados podem mandar currículo para mim em [EMAIL PROTECTED] Saudações e desculpa aos colegas pelo off. Sávio Cler Rio de Janeiro - Salvador 22.8127-6895 75.9138-0425 MSN [EMAIL PROTECTED] [EMAIL PROTECTED] www.stc.eti.br [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
[delphi-br] Re: impedir o ctrl esc (iniciar)
--- Em delphi-br@yahoogrupos.com.br, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu alguém aí sabe como bloquear o acesso ao iniciar via teclado??? obrigado. And [As partes desta mensagem que não continham texto foram removidas] Não tenho certeza se funciona para essa combinação específica, dá uma olhada no setwindowshookex Obs: o uso da função é complicado, não espere conseguir fazer funcionar na primeira nem na segunda vez, se precisar de mais ajuda grite :)