Re: [delphi-br] caminhar automaticamente dentro de um filelist
vc quer andar dentro deo fileListbox e isso?? se for isso tem jeito nao.. estraga Clovis iTelefonica escreveu: Ola Pessoal Boa tarde e Saudações Como faço para cominhar automaticamente dentro de um FileListBox? Obrigado Clovito Clovis Machado Ferreira Que o grande arquiteto do Universo nos Ilumine Dourado(SP) - clovito.ferreira@ hotmail.com mailto:clovito.ferreira%40hotmail.com(MSN) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Calculo de datas
Olá pessoal, sou iniciante no mundo Delphi e estou com o seguinte problema, eu tenho uma data inicial e o numero de meses e preciso que o sistema calcule e me mostre a data final a partir dessas 2 informações ja tentei no google mas sempre encontro calculos entre 2 datas mas nesse caso eh uma data e o numero de meses para mostrar a data final desse calculo, se alguem puder me ajudar eu ficarei muito agradecido ! Obrigado. -- Antonio Mateus Estudante de Sistemas de Informação [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Salvar uma imagem
Bom dia pessoal,
Preciso salvar algumas fotos armazenadas em banco de dados Paradox p/ um JPG
ou BMP, qual sabe como fazer?
Tentei assim NTClientesfoto.SaveToFile('C:\foto.jpg'); mas não salda a
imagem.
Dimas Bolognani
Ouro Fino - MG
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Calculo de datas
para obter a data final, transforme os meses em dias e some na data inicial: DataFinal := DataInicial + ( Meses * 30 ) ; []s Alexandre - Original Message - From: Antonio Mateus To: delphi-br@yahoogrupos.com.br Sent: Friday, August 15, 2008 8:18 AM Subject: [delphi-br] Calculo de datas Olá pessoal, sou iniciante no mundo Delphi e estou com o seguinte problema, eu tenho uma data inicial e o numero de meses e preciso que o sistema calcule e me mostre a data final a partir dessas 2 informações ja tentei no google mas sempre encontro calculos entre 2 datas mas nesse caso eh uma data e o numero de meses para mostrar a data final desse calculo, se alguem puder me ajudar eu ficarei muito agradecido ! Obrigado. -- Antonio Mateus Estudante de Sistemas de Informação [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.6.3/1612 - Release Date: 14/8/2008 18:03 [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Calculo de datas
Use IncMonth, segue exemplo: procedure TForm1.Button1Click(Sender: TObject); var x : tdatetime; begin x := date; x := IncMonth(x, 13); showmessage(datetostr(x)); end; Luciano Calenzani Simões - Mensagem original De: Antonio Mateus [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 8:18:48 Assunto: [delphi-br] Calculo de datas Olá pessoal, sou iniciante no mundo Delphi e estou com o seguinte problema, eu tenho uma data inicial e o numero de meses e preciso que o sistema calcule e me mostre a data final a partir dessas 2 informações ja tentei no google mas sempre encontro calculos entre 2 datas mas nesse caso eh uma data e o numero de meses para mostrar a data final desse calculo, se alguem puder me ajudar eu ficarei muito agradecido ! Obrigado. -- Antonio Mateus Estudante de Sistemas de Informação 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]
Res: [delphi-br] Salvar uma imagem
Que tipo de objeto é esse NTClientesfoto? Luciano Calenzani Simões - Mensagem original De: Dimas Bolognani [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 8:31:59 Assunto: [delphi-br] Salvar uma imagem Bom dia pessoal, Preciso salvar algumas fotos armazenadas em banco de dados Paradox p/ um JPG ou BMP, qual sabe como fazer? Tentei assim NTClientesfoto. SaveToFile( 'C:\foto. jpg'); mas não salda a imagem. Dimas Bolognani Ouro Fino - MG 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]
Res: [delphi-br] Calculo de datas
Alexandre, com esse tipo de cálculo há uma margem de erro quando o número de meses for muito elevado, por exemplo 100 meses, visto que muitos meses terão 31 dias. Com essa sua conta você ignorando ao memos 50 dias, que dá mais de um mês. O ideal é usar o IncMonth. Luciano Calenzani Simões - Mensagem original De: Nicolas [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 8:33:03 Assunto: Re: [delphi-br] Calculo de datas para obter a data final, transforme os meses em dias e some na data inicial: DataFinal := DataInicial + ( Meses * 30 ) ; []s Alexandre - Original Message - From: Antonio Mateus To: [EMAIL PROTECTED] os.com.br Sent: Friday, August 15, 2008 8:18 AM Subject: [delphi-br] Calculo de datas Olá pessoal, sou iniciante no mundo Delphi e estou com o seguinte problema, eu tenho uma data inicial e o numero de meses e preciso que o sistema calcule e me mostre a data final a partir dessas 2 informações ja tentei no google mas sempre encontro calculos entre 2 datas mas nesse caso eh uma data e o numero de meses para mostrar a data final desse calculo, se alguem puder me ajudar eu ficarei muito agradecido ! Obrigado. -- Antonio Mateus Estudante de Sistemas de Informação [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.6.3/1612 - Release Date: 14/8/2008 18:03 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] Calculo de datas
Valeu pessoal, vou começar a implementar aqui, muito Obrigado !! Em 15/08/08, Nicolas [EMAIL PROTECTED] escreveu: para obter a data final, transforme os meses em dias e some na data inicial: DataFinal := DataInicial + ( Meses * 30 ) ; []s Alexandre - Original Message - From: Antonio Mateus To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, August 15, 2008 8:18 AM Subject: [delphi-br] Calculo de datas Olá pessoal, sou iniciante no mundo Delphi e estou com o seguinte problema, eu tenho uma data inicial e o numero de meses e preciso que o sistema calcule e me mostre a data final a partir dessas 2 informações ja tentei no google mas sempre encontro calculos entre 2 datas mas nesse caso eh uma data e o numero de meses para mostrar a data final desse calculo, se alguem puder me ajudar eu ficarei muito agradecido ! Obrigado. -- Antonio Mateus Estudante de Sistemas de Informação [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.6.3/1612 - Release Date: 14/8/2008 18:03 [As partes desta mensagem que não continham texto foram removidas] -- Antonio Mateus Estudante de Sistemas de Informação 5º Periodo [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Usando dbexpress e clientDataset
Salve Amigo,
No meu link de downloads gratuitos, tem uma apostila bem passo a passo sobre o
assunto que com certeza vai te ajudar.
Procure pela apostila de desenvolvimento client/Server com Delphi, DBExpress e
FireBird.
Tem vários outros exemplos e vídeos também todos gratuitos que podem ser uma
boa fonte de consulta, teste e aprendizado.
HTTP://cc.codegear.com/author/795118 HTTP://cc.codegear.com/author/795118
Abs
BL
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
crist_ita
Sent: quinta-feira, 14 de agosto de 2008 15:20
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Usando dbexpress e clientDataset
Amigos boa tarde
Tenho a seguinte consulta no delphi:
procedure TfrmAgenda.Calendario;
var
mostraData : String;
mostraRegiao : String;
begin
mostraData := FormatDateTime('dd-mm-', MonthCalendar1.Date);
mostraRegiao := ComboBox1.Text;
sqlConsAgenda.Close;
sqlConsAgenda.SQL.Clear;
sqlConsAgenda.SQL.Add('SELECT a.hora FROM calendario a INNER JOIN
calendario b');
sqlConsAgenda.SQL.Add('ON a.controle = b.controle');
sqlConsAgenda.SQL.Add('where b.dataagenda ='+ #39 + mostraData +
#39);
sqlConsAgenda.SQL.Add('AND b.zonaatuacao ='+ #39 + mostraRegiao +
#39);
sqlConsAgenda.Open;
end;
Seleciono todos os horários disponíveis dentro desta consulta, a
mesma está funcionando, mais precisava mostra ao usuário o resultado
da consulta que seria o campo `hora' desta consulta dentro de um
DBLookupComboBox, neste caso trago o campo que preciso dentro do
ClientDataSet, mais ao selecionar o registro gera o erro :
allowed on a unidirectional dataset
Alguém poderia dar uma dica como solucionar este problema.
Agradeço a ajuda!!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Incremento no For
Joao Morais escreveu: Fabrício | PrismaFive wrote: É possível fazer algum tipo de incremento no loop For? Gostaria de fazer loop no for de 2 em 2, ou 3 em 3. Em outras linguagens que utilizo é possível fazer tal procedimento. Não. Ou você faz o for com a quantidade de iterações e multiplica para pegar o valor atual, ou você usa um while com inc. Joao Morais No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 270.6.0/1604 - Release Date: 11/8/2008 05:50 Resolvido senhores. Solução foi usar um while incremento o controle em +2. Exemplo: while i 10 do begin [...] Inc(i, 2); [...] end; Obrigado a todos participantes. Um abraço Fabrício Veiga
[delphi-br] Problemas com RD Print
Ola bom dia, instalei o rdprint, instalei ele no dp 6 e 7 mas fiz um teste no meu sistema e qdo mando compilar ele ta pedindo o arquivo rdprint.pas Aki nao tenho ele.. como proceder??? Att. Inacio Mecena inacioacp @ gmail . com
Res: [delphi-br] Evitar que sistema seja fechado
Passo pelo mesmo problema. Luciano Calenzani Simões - Mensagem original De: Leodinei Bielak [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 10:08:26 Assunto: [delphi-br] Evitar que sistema seja fechado Olá. Estamos tendo problema com as aplicações de alguns bancos. Elas simplesmente fecham o sistema sem aviso. Tem alguma maneira de evitar isso? Talvez tratar alguma mensagem do windows? Obrigado. -- Leodinei Bielak http://leodinei. blogspot. 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]
[delphi-br] Snanner Metrologic MS700i com delphi e XP
Recentemente me deparei com um scanner de mesa modelo MS700i da metrologic, só que ele lê mas não passa os dados para o componente, ou seja, não aparece nada no edit...alguem já teve esse problema??? Qual a solução???
Re: [delphi-br] Problemas com RD Print
Coloque o caminho de onde está instalado o RDPrint no Library Path do Delphi. -- Boa Leitura, Adriano Santos Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br inacio_mecena respondeu: Ola bom dia, instalei o rdprint, instalei ele no dp 6 e 7 mas fiz um teste no meu sistema e qdo mando compilar ele ta pedindo o arquivo rdprint.pas Aki nao tenho ele.. como proceder??? Att. Inacio Mecena inacioacp @ gmail . com No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.3/1612 - Release Date: 14/8/2008 18:03
Re: [delphi-br] Evitar que sistema seja fechado
No form principal, use o evento onclosequery 2008/8/15 Leodinei Bielak [EMAIL PROTECTED] Olá. Estamos tendo problema com as aplicações de alguns bancos. Elas simplesmente fecham o sistema sem aviso. Tem alguma maneira de evitar isso? Talvez tratar alguma mensagem do windows? Obrigado. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Problemas com RD Print
ja fiz isso .. mas mesmo assim continua.. --- Em sex, 15/8/08, Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu: De: Adriano Santos (Yahoo) [EMAIL PROTECTED] Assunto: Re: [delphi-br] Problemas com RD Print Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 15 de Agosto de 2008, 10:18 Coloque o caminho de onde está instalado o RDPrint no Library Path do Delphi. -- Boa Leitura, Adriano Santos Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi. blogspot. com www.adrianosantos. pro.br www.devmedia. com.br inacio_mecena respondeu: Ola bom dia, instalei o rdprint, instalei ele no dp 6 e 7 mas fiz um teste no meu sistema e qdo mando compilar ele ta pedindo o arquivo rdprint.pas Aki nao tenho ele.. como proceder??? Att. Inacio Mecena inacioacp @ gmail . com No virus found in this incoming message. Checked by AVG - http://www.avg. com Version: 8.0.138 / Virus Database: 270.6.3/1612 - Release Date: 14/8/2008 18:03 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] Evitar que sistema seja fechado
2008/8/15 Guionardo Furlan [EMAIL PROTECTED]: No form principal, use o evento onclosequery 2008/8/15 Leodinei Bielak [EMAIL PROTECTED] Olá. Estamos tendo problema com as aplicações de alguns bancos. Elas simplesmente fecham o sistema sem aviso. Tem alguma maneira de evitar isso? Talvez tratar alguma mensagem do windows? Obrigado. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com Não funciona quando o sistema do banco fecha o programa nem se eu usar o CTRL + ALT + DEL. Obrigado. -- Leodinei Bielak http://leodinei.blogspot.com/ The whole point of getting things done is knowing what to leave undone.
Res: [delphi-br] Evitar que sistema seja fechado
Leodine, dá para você explicar melhor sua resposta? Está sem vírgulas e com isso não consegui enteder. Obrigado. Luciano Calenzani Simões Não funciona quando o sistema do banco fecha o programa nem se eu usar o CTRL + ALT + DEL. Obrigado. -- Leodinei Bielak http://leodinei. blogspot. 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]
RES: [delphi-br] Salvar uma imagem
É apenas o nome da Table e o nome do campo que contem a foto. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luciano Calenzani Simões Enviada em: sexta-feira, 15 de agosto de 2008 08:38 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Salvar uma imagem Que tipo de objeto é esse NTClientesfoto? Luciano Calenzani Simões - Mensagem original De: Dimas Bolognani [EMAIL PROTECTED] mailto:dimas%40dbsoftinformatica.com.br tica.com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 8:31:59 Assunto: [delphi-br] Salvar uma imagem Bom dia pessoal, Preciso salvar algumas fotos armazenadas em banco de dados Paradox p/ um JPG ou BMP, qual sabe como fazer? Tentei assim NTClientesfoto. SaveToFile( 'C:\foto. jpg'); mas não salda a imagem. Dimas Bolognani Ouro Fino - MG Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new. http://br.new.mail.yahoo.com/addresses 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.6.3/1611 - Release Date: 14/8/2008 06:20 [As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Salvar uma imagem
Bom dia,
Não quero salvar uma imagem no banco.. QUERO LER A IMAGEM DO BANCO E SALVAR
EM JPG.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Carlos
Enviada em: sexta-feira, 15 de agosto de 2008 09:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] Salvar uma imagem
Meu camarada, bom dia!
Vamos ver se eu entendi.Você quer salvar imagens em BD no formato JPG
ou BPM, é isso?
Caso seja isto, vc pode usar a função abaixo:
procedure GravaFoto(DataSet : TDataSet; BlobFieldName, FileName :
String; Nome: String);
var
ext, mDir, mSql : string;
JpegImage : TJPEGImage;
bitmap:TBitMap;
begin
DataSet.Insert;
if (DataSet.State in [dsEdit,dsInsert]) then
begin
mDir := ExtractFileDir(FileName);
ext := UpperCase(ExtractFileExt(FileName));
if (ext '.BMP') and (ext '.JPG') and (ext '.JPEG') then
begin
raise EAccessViolation.Create('Formato de imagem não suportado! '+
'Formato suportado: Jpeg ou Bitmap');
Abort;
end;
try
JpegImage := TJpegImage.Create;
Bitmap := TBitmap.Create;
if (ext = '.BMP') then
begin
Bitmap.LoadFromFile(FileName);
JpegImage.Assign(Bitmap);
JpegImage.Compress;
end
else
JpegImage.LoadFromFile(FileName);
JpegImage.SaveToFile(Nome + '.JPG');
(DataSet.FieldByName(BlobFieldName) as
TBlobField).LoadFromFile(Nome + '.JPG');
DataSet.Post;
DeleteFile(PChar(FileName));
DeleteFile(PChar(mDir + '.JPG'));
finally
Bitmap.Free;
JpegImage.Free;
end;
end;
end;
Espero ter ajudado,
Fraterno abraço,
Carlos
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.3/1611 - Release Date: 14/8/2008
06:20
[As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Salvar uma imagem
Carlos me desculpa pela caixa alta na mensagem anterior... não tinha
reparado.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Carlos
Enviada em: sexta-feira, 15 de agosto de 2008 09:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] Salvar uma imagem
Meu camarada, bom dia!
Vamos ver se eu entendi.Você quer salvar imagens em BD no formato JPG
ou BPM, é isso?
Caso seja isto, vc pode usar a função abaixo:
procedure GravaFoto(DataSet : TDataSet; BlobFieldName, FileName :
String; Nome: String);
var
ext, mDir, mSql : string;
JpegImage : TJPEGImage;
bitmap:TBitMap;
begin
DataSet.Insert;
if (DataSet.State in [dsEdit,dsInsert]) then
begin
mDir := ExtractFileDir(FileName);
ext := UpperCase(ExtractFileExt(FileName));
if (ext '.BMP') and (ext '.JPG') and (ext '.JPEG') then
begin
raise EAccessViolation.Create('Formato de imagem não suportado! '+
'Formato suportado: Jpeg ou Bitmap');
Abort;
end;
try
JpegImage := TJpegImage.Create;
Bitmap := TBitmap.Create;
if (ext = '.BMP') then
begin
Bitmap.LoadFromFile(FileName);
JpegImage.Assign(Bitmap);
JpegImage.Compress;
end
else
JpegImage.LoadFromFile(FileName);
JpegImage.SaveToFile(Nome + '.JPG');
(DataSet.FieldByName(BlobFieldName) as
TBlobField).LoadFromFile(Nome + '.JPG');
DataSet.Post;
DeleteFile(PChar(FileName));
DeleteFile(PChar(mDir + '.JPG'));
finally
Bitmap.Free;
JpegImage.Free;
end;
end;
end;
Espero ter ajudado,
Fraterno abraço,
Carlos
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.3/1611 - Release Date: 14/8/2008
06:20
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fórum de discussão sobre o Sintegra
Olá, saudações a todos Alguém poderia me indicar um bom fórum de discusssão sobre o Sintegra? [ ]s, Henrique
[delphi-br] Fórum de discussão sobre o Sintegra
Olá, saudações a todos Alguém poderia me indicar um bom fórum de discusssão sobre o Sintegra? [ ]s, Henrique
[delphi-br] Fórum de discussão sobre o Sintegra
Olá, saudações a todos Alguém poderia me indicar um fórum de discusssão sobre o Sintegra? [ ]s, Henrique
[delphi-br] Firebird, qual componente usar?
Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Snanner Metrologic MS700i com delphi e XP, alguem sabe?
Recentemente me deparei com um scanner de mesa modelo MS700i da metrologic, só que ele lê mas não passa os dados para o componente, ou seja, não aparece nada no edit...alguem já teve esse problema??? Qual a solução???
[delphi-br] Fw: Firebird, qual componente usar?
Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird, qual componente usar?
Bom, primeiro o IBO não é Free. Se você desenvolver pra ganhar lucro, você deve comprar uma licença, não sei o valor. Eu uso o IBDAC da CoreLab ( www.crlab.com). Ao meu ver, o melhor de todos. []s 2008/8/15 Darkzad [EMAIL PROTECTED] Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird, qual componente usar?
O IBO não é free como nosso colega falou, mas tem um tipo de licença chamado Trustware, que como o nome fala, é na base da confiança. Você solicita essa licença pro desenvolvedor do IBO e ele te manda o produto full, aí qdo você começar a lucrar com o seu desenvolvimento faz a aquisição do produto. Eu utilizo IBO e é muito bom! [] Andrei 2008/8/15 Fellipe Henrique [EMAIL PROTECTED] Bom, primeiro o IBO não é Free. Se você desenvolver pra ganhar lucro, você deve comprar uma licença, não sei o valor. Eu uso o IBDAC da CoreLab ( www.crlab.com). Ao meu ver, o melhor de todos. []s 2008/8/15 Darkzad [EMAIL PROTECTED] Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] AutoDropDown em LookupField
Pessoal, probleminha básico. Tenho um formulário, Master-Detail, utilizando jvUltimGrid (Grid do Jedi) no filho. Um desses campos do ClientDataSet do Filho é um Lookup Field. Setei tudo bonitinho pra aparecer um dblookupcombo box(na verdade, basta setar o lookup field), e realmente ele aparece. Aí chega o problema. Sempre tento nessa aplicação, fazer aquele esquema da substituição do Tab pelo Enter, e funcionou ok. Mas o que eu precisaria seria que, enquanto eu vou dando os enter, quando entrasse nesse campo LokupField, o LookupCombo já desse um DropDown automático. Isso é possível? Atenciosamente, -- Sérgio Cavalcante [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Compactar arquivo pelo delphi, sem usar componentes
Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, mas não quero usar componente para isso, procurei na net, e encontrei o seguinte codigo: InputFileName := JvFilenameEdit1.Text; OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; try InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); finally CompressionStream.Free; OutputStream.Free; InputStream.Free; Screen.Cursor := crDefault; end; Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o arquivo fica corrompido. Alguém poderia me dar uma luz? []s -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes
Uma coisa é compactar, outra coisa é gerar o formato da compactação de forma que o WinZip (ou similar!) consiga reconhecê-lo. Dica: http://cc.codegear.com/Item/17665 (para acessar o link, vc tem que ser registrado no site!) Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 16:04:27 -0300 Subject: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, mas não quero usar componente para isso, procurei na net, e encontrei o seguinte codigo: InputFileName := JvFilenameEdit1.Text; OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; try InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); finally CompressionStream.Free; OutputStream.Free; InputStream.Free; Screen.Cursor := crDefault; end; Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o arquivo fica corrompido. Alguém poderia me dar uma luz? []s -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [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.live.com/signup/signup2.aspx?lc=pt-br
Re: [delphi-br] Firebird, qual componente usar?
Felipe, o IBDAC é gratuito? Alexandre Trindade 2008/8/15 Fellipe Henrique [EMAIL PROTECTED] Bom, primeiro o IBO não é Free. Se você desenvolver pra ganhar lucro, você deve comprar uma licença, não sei o valor. Eu uso o IBDAC da CoreLab ( www.crlab.com). Ao meu ver, o melhor de todos. []s 2008/8/15 Darkzad [EMAIL PROTECTED] darkzad%40yahoo.com.br Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [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] Compactar arquivo pelo delphi, sem usar componentes
Procure tb, na Internet (Google, Altavista, etc.), por PasZLib! Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 19:21:41 + Subject: RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Uma coisa é compactar, outra coisa é gerar o formato da compactação de forma que o WinZip (ou similar!) consiga reconhecê-lo. Dica: http://cc.codegear.com/Item/17665 (para acessar o link, vc tem que ser registrado no site!) Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 16:04:27 -0300 Subject: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, mas não quero usar componente para isso, procurei na net, e encontrei o seguinte codigo: InputFileName := JvFilenameEdit1.Text; OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; try InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); finally CompressionStream.Free; OutputStream.Free; InputStream.Free; Screen.Cursor := crDefault; end; Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o arquivo fica corrompido. Alguém poderia me dar uma luz? []s _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: [delphi-br] Firebird, qual componente usar?
E a o DBExpress é bom? É nativo do delphi pois eu tento ao maximo não usar componentes de terceiro. Valeu - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Friday, August 15, 2008 2:41 PM Subject: Re: [delphi-br] Firebird, qual componente usar? Bom, primeiro o IBO não é Free. Se você desenvolver pra ganhar lucro, você deve comprar uma licença, não sei o valor. Eu uso o IBDAC da CoreLab ( www.crlab.com). Ao meu ver, o melhor de todos. []s 2008/8/15 Darkzad [EMAIL PROTECTED] Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [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] Firebird, qual componente usar?
Instalei o IBO mas ele vem com vários componentes, vou fazer alguns testes. Valeu - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br Sent: Friday, August 15, 2008 3:14 PM Subject: Re: [delphi-br] Firebird, qual componente usar? O IBO não é free como nosso colega falou, mas tem um tipo de licença chamado Trustware, que como o nome fala, é na base da confiança. Você solicita essa licença pro desenvolvedor do IBO e ele te manda o produto full, aí qdo você começar a lucrar com o seu desenvolvimento faz a aquisição do produto. Eu utilizo IBO e é muito bom! [] Andrei 2008/8/15 Fellipe Henrique [EMAIL PROTECTED] Bom, primeiro o IBO não é Free. Se você desenvolver pra ganhar lucro, você deve comprar uma licença, não sei o valor. Eu uso o IBDAC da CoreLab ( www.crlab.com). Ao meu ver, o melhor de todos. []s 2008/8/15 Darkzad [EMAIL PROTECTED] Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [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] Compactar arquivo pelo delphi, sem usar componentes
Valeu Rubens... estava tentando usar o zlib... []s 2008/8/15 Rubem Nascimento da Rocha [EMAIL PROTECTED] Procure tb, na Internet (Google, Altavista, etc.), por PasZLib! Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] djpardalrocha%40hotmail.com Date: Fri, 15 Aug 2008 19:21:41 + Subject: RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Uma coisa é compactar, outra coisa é gerar o formato da compactação de forma que o WinZip (ou similar!) consiga reconhecê-lo. Dica: http://cc.codegear.com/Item/17665 (para acessar o link, vc tem que ser registrado no site!) Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] fellipeh%40gmail.com Date: Fri, 15 Aug 2008 16:04:27 -0300 Subject: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, mas não quero usar componente para isso, procurei na net, e encontrei o seguinte codigo: InputFileName := JvFilenameEdit1.Text; OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; try InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); finally CompressionStream.Free; OutputStream.Free; InputStream.Free; Screen.Cursor := crDefault; end; Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o arquivo fica corrompido. Alguém poderia me dar uma luz? []s __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes
O nome é Rubem! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 16:37:58 -0300 Subject: Re: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Valeu Rubens... estava tentando usar o zlib... []s 2008/8/15 Rubem Nascimento da Rocha [EMAIL PROTECTED] Procure tb, na Internet (Google, Altavista, etc.), por PasZLib! Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 19:21:41 + Subject: RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Uma coisa é compactar, outra coisa é gerar o formato da compactação de forma que o WinZip (ou similar!) consiga reconhecê-lo. Dica: http://cc.codegear.com/Item/17665 (para acessar o link, vc tem que ser registrado no site!) Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 16:04:27 -0300 Subject: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, mas não quero usar componente para isso, procurei na net, e encontrei o seguinte codigo: InputFileName := JvFilenameEdit1.Text; OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; try InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); finally CompressionStream.Free; OutputStream.Free; InputStream.Free; Screen.Cursor := crDefault; end; Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o arquivo fica corrompido. Alguém poderia me dar uma luz? []s _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
Re: RES: Res: [delphi-br] Salvar uma imagem
Meu camarada, boa tarde! Quanto a caixa alta, sem problemas, esta vida de desenvolvedor deixa qualquer um meio fora de foco às vezes... rsrs... Eu salvo a imagem em disco de duas formas: 1ª Se o cliente ira visualizar a imagem em um TImage e após isso irá salvar a imagem em um diretório a sua escolha, então coloco um componente TSavePictureDialog da Paleta Dialogs e uso essa procedure no evento onClik do button: procedure TfCadEfetivo.aExportarFotoExecute(Sender: TObject); Var MyJPEG : TJPEGImage; begin if dlgSave.Execute then begin // se a extensão for .jpeg, salva no formato JPEG, senão salva em BMP if UpperCase(ExtractFileExt(dlgSave.FileName)) = '.JPG' then begin MyJPEG := TJPEGImage.Create; // Converte o BMP para JPEG with MyJPEG do begin Assign(imgFoto.Picture); SaveToFile(dlgSave.FileName); Free; end; end else imgFoto.Picture.SaveToFile(dlgSave.FileName); end; end; Agora, se é para salvar a imagem em um local específico, então coloco um TImage, deixo sua propriedade como Visible = False, euso este pequeno pedaço de código(é evidente que só coloquei o que acho que precisa, nada impede que vc implemente este modelo): img1.Picture := nil; funcoes.ExibeFoto(NomeDaTabela, 'foto', img1); img1.Picture.SaveToFile(Caminho + CampoTabelaComNomeImagem + '.jpg'); img1.Picture := nil; A função ExibeFoto te mandei anteriormente. Espero que te ajude, mas, qualquer dúvida poste ai para nós, e caso tenha resolvido de outra forma, por favor, nos mostre como. Fraterno abraço, Carlos
Re: [delphi-br] Incremento no For
Dê uma olhada na documentação do FOR. ela é sua amiga! ;) *For* counter *=* start *To* end [*Step* step] * *Use STEP Evandro* * Fabrício | PrismaFive wrote: Resolvido senhores. Solução foi usar um while incremento o controle em +2. Exemplo: while i 10 do begin [...] Inc(i, 2); [...] end;
[delphi-br] Re: Usando dbexpress e clientDataset
Bom dia a todos Carlos funcionou muito bem, eu já estava há algum tempo tentando entender como se passava uma consulta sql usando dbexpress e clientDataset. Vou dar uma estudada na apostila do Bruno Lichot. Valeu a dica. Muito grato mesmo!!
[delphi-br] Banco de dados
Pergunta de quem não entende do assunto ...
Essa discussão de banco de dados ... Firebird, DBIsam, Paradox ... etc etc
gostaria de saber o sgte ... o que leva um ser melhor q outro ...
que características sugerem a utilização de um em vezde outro ...
tendo em vista que os acessos e organização de dados é desenvolvida em
delphi ..
obrigado
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alexandre Rodrigues
Enviada em: terça-feira, 12 de agosto de 2008 23:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Exportar imagem JPG do banco de dados para arquivo
em disco
FileOut := TFileStream.Create('C:\Nome_do_arquivo.jpg', fmCreate or
fmShareExclusive);
try
BlobField(qryFiles.FieldByName('file')).SaveToStream(FileOut );
finally
FileOut.Free;
end;
Carlos escreveu:
Boa noite senhores!
Tem hora que esta vida se torna cansativa. Imaginem os senhores que
consegui, na minha opinião, o mais difícil, ou seja, o usuário clica
no botão, é criado uma pasta em tempo de execução, adicionado arquivos
nesta pasta, abre-se o Outlook já inserindo os destinatários,
pré-estabelecidos em uma tabela, o usuário só tem o trabalho de
colocar o assunto e o texto que deseja...mas...tudo sempre tem um
mas...eu não estou conseguindo salvar as imagens em formato jpg que se
encontram salvas no banco de dados para esta pasta, perdi quase o dia
todo com isto, e então, após procurar no google e na lista, decidi
importuna-los com mais esta dúvida/problema.
Agradeço antecipadamente qualquer auxílio.
Fraterno abraço,
Carlos
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tecla de atalho para listar ComboBox no DBGrid
Alguém sabe qual a tecla de atalho para listar o ComboBox no DBGrid, para que ñ precise ficar clicando?
RE: [delphi-br] Incremento no For
Evandro, se fosse Turbo Pascal ou Pascal-Padrão, tudo bem! Mas o Object Pascal não aceita a cláusula STEP na sintaxe da estrutura FOR. Eu já inclusive comentei sobre isso, se não foi nesta lista foi em outra! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 09:58:48 -0300 Subject: Re: [delphi-br] Incremento no For Dê uma olhada na documentação do FOR. ela é sua amiga! ;) *For* counter *=* start *To* end [*Step* step] * *Use STEP Evandro* * Fabrício | PrismaFive wrote: Resolvido senhores. Solução foi usar um while incremento o controle em +2. Exemplo: while i 10 do begin [...] Inc(i, 2); [...] end; _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
Re: [delphi-br] Banco de dados
Meu amigo, esse assunto não é tão simples assim...
Adotar um Banco ao invés de outro depende muito do tipo de aplicação que vc vai
usar: OLTP, BI, WEB, em algumas situações um se sai melhor que o outro, vc não
usaria Oracle, para simples cadastro em um site web, para isso vc usaria MySQL
e por ai vai.
Vinicius dos Santos
http://www.msisolucoes.com.br
- Original Message -
From: [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 15, 2008 2:42 PM
Subject: [delphi-br] Banco de dados
Pergunta de quem não entende do assunto ...
Essa discussão de banco de dados ... Firebird, DBIsam, Paradox ... etc etc
gostaria de saber o sgte ... o que leva um ser melhor q outro ...
que características sugerem a utilização de um em vezde outro ...
tendo em vista que os acessos e organização de dados é desenvolvida em
delphi ..
obrigado
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alexandre Rodrigues
Enviada em: terça-feira, 12 de agosto de 2008 23:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Exportar imagem JPG do banco de dados para arquivo
em disco
FileOut := TFileStream.Create('C:\Nome_do_arquivo.jpg', fmCreate or
fmShareExclusive);
try
BlobField(qryFiles.FieldByName('file')).SaveToStream(FileOut );
finally
FileOut.Free;
end;
Carlos escreveu:
Boa noite senhores!
Tem hora que esta vida se torna cansativa. Imaginem os senhores que
consegui, na minha opinião, o mais difícil, ou seja, o usuário clica
no botão, é criado uma pasta em tempo de execução, adicionado arquivos
nesta pasta, abre-se o Outlook já inserindo os destinatários,
pré-estabelecidos em uma tabela, o usuário só tem o trabalho de
colocar o assunto e o texto que deseja...mas...tudo sempre tem um
mas...eu não estou conseguindo salvar as imagens em formato jpg que se
encontram salvas no banco de dados para esta pasta, perdi quase o dia
todo com isto, e então, após procurar no google e na lista, decidi
importuna-los com mais esta dúvida/problema.
Agradeço antecipadamente qualquer auxílio.
Fraterno abraço,
Carlos
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Banco de dados
Eita assunto polêmico. Paradox não é um banco de dados. Eu só da opnião que o melhor banco é o que melhor se encaixa ao modelo de negócio que o software ou a empresa irá utilizar. Por exemplo, se for pré-requisito o SGDB ser freeware vai ter que usar FireBird, Postgresql, ... Existem casos, quando o software é feito por encomenda e não em modelo de produto de partilheira, que o cliente dtermina que quer o SGDB X, Y ou Z, muitas vezes por já possuir licenças e infra-estrutura para este. O Delphi atualmente suporta muitos sabores de banco de dados, dos mais caros aos gratúitos, ou seja, o Delphi não será um fator muito determinante nesta decisão. Outra coisa é o seu próprio conhecimento. Imagine que você vai desenvolver um software e possui um grande conhecimento em Postgresql. Não vejo porque você o faria para FireBird. Outra solução é desenvolvê-lo para muito banco. Dá muito mais trabalho, mas ganha muito portabilidade. Luciano Calenzani Simões - Mensagem original De: [EMAIL PROTECTED] [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 14:42:04 Assunto: [delphi-br] Banco de dados Pergunta de quem não entende do assunto ... Essa discussão de banco de dados ... Firebird, DBIsam, Paradox ... etc etc gostaria de saber o sgte ... o que leva um ser melhor q outro ... que características sugerem a utilização de um em vezde outro ... tendo em vista que os acessos e organização de dados é desenvolvida em delphi .. obrigado Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 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: *****SPAM***** [delphi-br] Tecla de atalho para listar ComboBox no DBGrid
ENTER no campo, depois ALT + SETA P/ BAIXO Leandro - Original Message - From: Alexsandro To: delphi-br@yahoogrupos.com.br Sent: Friday, August 15, 2008 3:57 PM Subject: *SPAM* [delphi-br] Tecla de atalho para listar ComboBox no DBGrid Alguém sabe qual a tecla de atalho para listar o ComboBox no DBGrid, para que ñ precise ficar clicando? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird, qual componente usar?
Zeos tb da suporte a firebird 2008/8/15 Darkzad [EMAIL PROTECTED] Instalei o IBO mas ele vem com vários componentes, vou fazer alguns testes. Valeu - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, August 15, 2008 3:14 PM Subject: Re: [delphi-br] Firebird, qual componente usar? O IBO não é free como nosso colega falou, mas tem um tipo de licença chamado Trustware, que como o nome fala, é na base da confiança. Você solicita essa licença pro desenvolvedor do IBO e ele te manda o produto full, aí qdo você começar a lucrar com o seu desenvolvimento faz a aquisição do produto. Eu utilizo IBO e é muito bom! [] Andrei 2008/8/15 Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Bom, primeiro o IBO não é Free. Se você desenvolver pra ganhar lucro, você deve comprar uma licença, não sei o valor. Eu uso o IBDAC da CoreLab ( www.crlab.com). Ao meu ver, o melhor de todos. []s 2008/8/15 Darkzad [EMAIL PROTECTED] darkzad%40yahoo.com.br Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes
Nativo do delphi acho que não tem, mas se mesmo assim não quiser usar componentes de terceiros, pode usar um compactador por linha de comando. O 7z é uma opção neste caso, principalmente por ser freeware. Alem disso, o próprio xp tem recursos para compactação de arquivos no formato ZIP. Este último, é visível pela opção enviar para do seu Explorer. 2008/8/15 Rubem Nascimento da Rocha [EMAIL PROTECTED] O nome é Rubem! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] fellipeh%40gmail.com Date: Fri, 15 Aug 2008 16:37:58 -0300 Subject: Re: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Valeu Rubens... estava tentando usar o zlib... []s 2008/8/15 Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com Procure tb, na Internet (Google, Altavista, etc.), por PasZLib! Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] djpardalrocha%40hotmail.com Date: Fri, 15 Aug 2008 19:21:41 + Subject: RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Uma coisa é compactar, outra coisa é gerar o formato da compactação de forma que o WinZip (ou similar!) consiga reconhecê-lo. Dica: http://cc.codegear.com/Item/17665 (para acessar o link, vc tem que ser registrado no site!) Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] fellipeh%40gmail.com Date: Fri, 15 Aug 2008 16:04:27 -0300 Subject: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, mas não quero usar componente para isso, procurei na net, e encontrei o seguinte codigo: InputFileName := JvFilenameEdit1.Text; OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; try InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); finally CompressionStream.Free; OutputStream.Free; InputStream.Free; Screen.Cursor := crDefault; end; Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o arquivo fica corrompido. Alguém poderia me dar uma luz? []s __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes
Segundo os idealizadores da PasZLib, que cheguei a mencionar no meu penúltimo post, a mesma se propõe a gerar arquivos .ZIP usando o padrão de compactação que vêm com o Delphi, e que está encapsulado na unit ZLib. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 18:51:47 -0300 Subject: Re: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Nativo do delphi acho que não tem, mas se mesmo assim não quiser usar componentes de terceiros, pode usar um compactador por linha de comando. O 7z é uma opção neste caso, principalmente por ser freeware. Alem disso, o próprio xp tem recursos para compactação de arquivos no formato ZIP. Este último, é visível pela opção enviar para do seu Explorer. 2008/8/15 Rubem Nascimento da Rocha [EMAIL PROTECTED] O nome é Rubem! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 16:37:58 -0300 Subject: Re: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Valeu Rubens... estava tentando usar o zlib... []s 2008/8/15 Rubem Nascimento da Rocha [EMAIL PROTECTED] Procure tb, na Internet (Google, Altavista, etc.), por PasZLib! Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 19:21:41 + Subject: RE: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Uma coisa é compactar, outra coisa é gerar o formato da compactação de forma que o WinZip (ou similar!) consiga reconhecê-lo. Dica: http://cc.codegear.com/Item/17665 (para acessar o link, vc tem que ser registrado no site!) Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 15 Aug 2008 16:04:27 -0300 Subject: [delphi-br] Compactar arquivo pelo delphi, sem usar componentes Olá amigos, preciso compactar e descompactar um arquivo pelo meu sistema, mas não quero usar componente para isso, procurei na net, e encontrei o seguinte codigo: InputFileName := JvFilenameEdit1.Text; OutputFilename := ExtractFilePath(Application.Exename) + Arq + '.z'; try InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); finally CompressionStream.Free; OutputStream.Free; InputStream.Free; Screen.Cursor := crDefault; end; Ele cria o ZIP, mas parece ser corrompido...pois não consigo abrir ele em nenhum descompactador, e mesmo eu descompactando ele, é a mesma coisa, o arquivo fica corrompido. Alguém poderia me dar uma luz? []s _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: [delphi-br] Fw: Firebird, qual componente usar?
Eu utilizo dbexpress do delphi 7, com driver do interbase até mesmo com o firebird 2.1 e não tenho encontrado problemas. Vinicius Barreira Check-In Informática Software Para Hotéis / Pousadas / Moteis São Bernardo do Campo - SP http://www.check-in.com.br Fone (11) 4330-3148 msn / e-mail: [EMAIL PROTECTED] skype: vinibarr Darkzad wrote: Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com consultas (MS Access)
Boa tarde,
Estou com o seguinte problema...
Tenho uma tabela Animais que contém campos COD_ANIMAL,
PROPRIEDADE, RAÇÃ , IDADE...
Estou fazendo duas consultas
A primeira consulta eu mostro apenas os animais de uma determinada
propriedade..
Depois eu faço uma outra consulta utilizando a primeira consulta já
feita e add uma crítica para aparecer somente a partir do 21ª animal
cadastrado..
Estou utilizando a função CInt(DCount(''COD_ANIMAL'',''BEZERRA_TUBER
'',''COD_ANIMAL ='' [COD_ANIMAL]20)) ..
No access funciona, só que agora gostaria de passar para o delphi em
forma sql...
Tem alguma forma de eu fazer isso?
eu já tentei fazer com UNION mas n da certo
Re: [delphi-br] Firebird, qual componente usar?
Eu uso o FIBPlus. Excelente. sds, Fabio. Daniel Bastos escreveu: Zeos tb da suporte a firebird 2008/8/15 Darkzad [EMAIL PROTECTED] mailto:darkzad%40yahoo.com.br Instalei o IBO mas ele vem com vários componentes, vou fazer alguns testes. Valeu - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, August 15, 2008 3:14 PM Subject: Re: [delphi-br] Firebird, qual componente usar? O IBO não é free como nosso colega falou, mas tem um tipo de licença chamado Trustware, que como o nome fala, é na base da confiança. Você solicita essa licença pro desenvolvedor do IBO e ele te manda o produto full, aí qdo você começar a lucrar com o seu desenvolvimento faz a aquisição do produto. Eu utilizo IBO e é muito bom! [] Andrei 2008/8/15 Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com Bom, primeiro o IBO não é Free. Se você desenvolver pra ganhar lucro, você deve comprar uma licença, não sei o valor. Eu uso o IBDAC da CoreLab ( www.crlab.com). Ao meu ver, o melhor de todos. []s 2008/8/15 Darkzad [EMAIL PROTECTED] mailto:darkzad%40yahoo.com.br darkzad%40yahoo.com.br Olá pessoal, Estou em uma duvida tremenda, não consigo escolher um componente para acesso ao firebird. O IB que vem com o Delphi falam que não tem mais tanta compatibilidade com o Firebird, eu uso ele e direto tenho usuário reclamando de dead locking. Estava testando o Fibplus mas não é free e não tenho grana pra pagar. o IBO falam que é o mais completo e Free. Será que é bom mesmo? Alguém usa? Me ajudem por favor. Darkzad [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://tecfree.wordpress.com/ http://tecfree.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Fw: Firebird, qual componente usar?
Vinicius, cuidado com o controle de transação do driver Internet do DBExpress com FireBird 2.1. Se dentro de uma trasação você fizer algum comando SELECT com um TSQLDataSet, no momento do TSQLDataSet.Close a transação será comitada antes mesmo de chegar no Commit. Luciano Calenzani Simões - Mensagem original De: Vinicius Barreira [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 19:08:44 Assunto: Re: [delphi-br] Fw: Firebird, qual componente usar? Eu utilizo dbexpress do delphi 7, com driver do interbase até mesmo com o firebird 2.1 e não tenho encontrado problemas. Vinicius Barreira Check-In Informática Software Para Hotéis / Pousadas / Moteis São Bernardo do Campo - SP http://www.check- in.com.br Fone (11) 4330-3148 msn / e-mail: [EMAIL PROTECTED] in.com.br skype: vinibarr Darkzad wrote: 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]
[delphi-br] Re: Problemas com consultas (MS Access)
Vamos ver se eu entendi(já vou avisando que Access não é minha praia). Você tem uma tabela onde cadastra animais tb_animal cod_animal tipo raca propriedade idade peso doenca Então você faz uma consulta para ver os animais de uma determinada propriedade, e depois efetua outra consulta, onde você quer contar os animais desta mesma propriedade, mas que o cod_animal seja maior que 20 Então não seria mais fácil se você fizesse assim: Select cod_animal, tipo, raca, propriedade, idade, peso, count(doenca) as Cont_doenca from tb_animal where (cod_animal 20) and (propriedade = :pPropr) and (doenca = :pDoenca) Group by tipo Não sei se falei besteira(mas caso tenha dito, releve), pois entendi que você quer contar animais(COD_ANIMAL), sendo um determinado tipo de animal(campo BEZERRA_TUBER) que possuam uma determinada doença , então você passa o parâmetro que COD_ANIMAL tem que ser maior que 20, e creio que você tenha um cadastro de propriedades, então é só fazer um LookUpComboBox com as propriedades, e outro para as doenças, e pronto(eu acho). Caso contrário, seja mais explicito na questão para que assim possamos ajuda-lo. Fraterno abraço. Carlos
[delphi-br] Re: Usando dbexpress e clientDataset
Sempre as ordens!
[delphi-br] Re: Evitar que sistema seja fechado
Olá, complementado a dica do colega, no evento onCloseQuery você
coloca a seguinte linha de código, e assim, antes de fechar, ele lhe
pedirá autorização para isto(isto, seguindo a dica do colega que
informou para usar este evento).
if Application.MessageBox('Quer realmente sair do sistema?',
'Confirmação', MB_YESNO + MB_ICONQUESTION) = IDYES then
CanClose := True
else
CanClose := False;
Fraterno abraço,
Carlos
Re: [delphi-br] Re: Evitar que sistema seja fechado
2008/8/15 Carlos [EMAIL PROTECTED]:
Olá, complementado a dica do colega, no evento onCloseQuery você
coloca a seguinte linha de código, e assim, antes de fechar, ele lhe
pedirá autorização para isto(isto, seguindo a dica do colega que
informou para usar este evento).
if Application.MessageBox('Quer realmente sair do sistema?',
'Confirmação', MB_YESNO + MB_ICONQUESTION) = IDYES then
CanClose := True
else
CanClose := False;
Fraterno abraço,
Carlos
Saiu estranha a resposta. :D
O evento OnCloseQuery funciona quando usuário manda fechar a
aplicação, mas não quando eu fecho pelo gerenciador de tarefas do
windows. O que os softwares dos bancos fazem é semelhante ao Ctrl +
Alt + Del.
Eu preciso de uma maneira de bloquear isto.
Valeu.
--
Leodinei Bielak
http://leodinei.blogspot.com/
The whole point of getting things done is knowing what to leave undone.
