Re: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir
Teu problema para recuperar a imagem está na linha em negrito que coloquei
abaixo:
procedure TProcFoto.DBGrid1DblClick(Sender: TObject);
begin
Principal.Edit1.Text := Query1.fieldbyname('CODIGO').AsString;
Principal.Edit2.Text := Query1.fieldbyname('NOME').AsString;
Principal.imgFoto.Picture.Bitmap.LoadFromFile(Principal.Camera1.FichierImage);
close;
end;
Neste código estás pegando a imagem do arquivo e não do banco de dados.
Bem, mas para te ajudar mesmo, sugiro que trabalhes com vou mostrar. Para
auxiliar nessa tarefa, criei duas funções, assim para todos os casos que
tiverem imagens sempre elas. Neste caso uso os componentes da IBX, mas pode ser
usado como exemplo para migrar para outros componentes (por isso é bom usar
funções ...). Vale observar que trato aqui tanto para campos BLOB que receberão
imagens ou textos.
procedure LeCampoBlob(Query: TIBQuery; Campo: string; Propriedade: TPersistent);
var TempStream : TStream;
begin
TempStream := Query.CreateBlobStream(Query.FieldByName(Campo),bmRead);
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.LoadFromStream(TempStream);
end else begin
TStrings(Propriedade).Clear;
TStrings(Propriedade).LoadFromStream(TempStream);
end;
TempStream.Free;
end;
procedure GravaCampoBlob(Query: TIBQuery; Parametro: string; Propriedade:
TPersistent);
var TempStream : TMemoryStream;
begin
TempStream := TMemoryStream.Create;
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end else begin
TStrings(Propriedade).SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end;
TempStream.Free;
end;
A utilização fica assim:
ps: utilizar abaixo que a imagem estará numa variável chamada IMAGEM
1) Para inserir uma imagem no banco de dados use o seguinte esquema
QInsert.SQL.Text := 'INSERT INTO tabela (codigo,nome,foto) VALUES
(:codigo,:nome;:foto)';
QInsert.SQL.ParamByName('codigo').AsString := Edit1.Text;
QInsert.SQL.ParamByName('nome').AsString := Edit2.Text;
GravaCampoBlob(QInsert,'foto',IMAGEM);
QInsert.ExecSQL;
2) Para ler uma imagem do banco ...
QSelect.SQL.Text := 'SELECT nome,foto FROM tabela WHERE codigo=:codigo';
QSelect.SQL.ParamByName('codigo').AsString := Edit1.Text;
QSelect.Open;
Edit2.Text := QSelect.FieldByName('nome').AsString;
LeCampoBlob(QSelect,'foto',IMAGEM);
QSelect.Close;
Depois faça ...
COMPONENTE_IMAGE.Picture.BitMap.Assign(IMAGEM);
é mais ou menos isso ... adptei essas funções da minha classe de persistência
...
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: rafaelpinto19
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 06, 2008 7:16 PM
Subject: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir
Alessandro, Ricardo e Bruno e aos demais membros do Grupo, quero
agradecer por tentarem me expilcar e ajudar a resolver este problema,
Estou em fase de aprendizagem ainda. Eu tentei um código, mas não deu
certo. Mas perece q eu estou no caminho certo. No Primeiro momento eu
até pensei que consegui gravar a imagen capturada, pensei em ter
conseguindo resolver o problema. Sempre quando faço uma consulta para
retornar a foto da pessoa resgitrada no Sistema, sempre aparece a foto
da última imagem capturada. Ou seja...se eu registrei João, Maria e
José respectivamente e capturei a foto de cada um deles, mesmo eu
consultando o João, sempre me rotorna a imagem do José, por ter sido o
último quem o sistema capturou a imagem. Postei esse meu código para
ver onde eu estou errando e ver se vcs conseguem me ajudar a resolver
este problema.
procedure TPrincipal.BtnGravarClick(Sender: TObject);
begin
//imgFoto.Visible:= True;
imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('insert into VISITA(CODIGO,NOME,FOTO) values
(:CODIGO,:NOME,:FOTO)');
Query.ParamByName('FOTO').LoadFromFile(Camera1.FichierImage,ftBlob);
//:= imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
Query.ParamByName('CODIGO').AsString := Edit1.Text;
Query.ParamByName('NOME').AsString := Edit2.Text;
Query.ExecSQL;
Query.Transaction.Commit;
Query.Transaction.Active := true;
end.
Onde:
. imgFoto = TImage(Image), é o 6º componente da palheta Aditional no
Delphi e responsável pela visualização de imagens, fotos e etc.
. Camera1 =TCamera(Câmera), É o único componente da palheta Yves e é
responsável pela visualização de imagens de uma Webcam ou Câmeras
digitais. Nela conseguimos fazer a devidas e necessárias capturas.
e esse é o código que eu uso na para visualizar os dados e foto do
registro consultado.
procedure TProcFoto.DBGrid1DblClick(Sender: TObject);
begin
Principal.Edit1.Text :=
RE: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir
No meu link de downloads gratuitos(HTTP://cc.codegear.com/author/795118), no
primeiro exemplo, no cadastro de cliente eu trabalho com fotos dos clientes.
E está funcional e otimizado a forma de se trabalhar com persistência no banco
de imagens.
Eu apenas recomendaria, que no caso de produção, não use a mesma tabela de
clientes para armazenar a foto, mas que crie uma tabela clientes foto, não
somente pela melhora do armazenamento, mas também pela organização e dificulta
que algum estagiário desavisado ou programador inexperiente aplique um select *
na tabela de clientes e trafegue aquele montão de fotos desnecessariamente :D.
Sobre pesar no banco, olha, é claro que bancos de dados com imagens o fazem
crescer mais, mas o fato do banco ficar lento, está mais relacionado com a sua
construção, manutenção e configuração do que conter fotos ou não. Um banco de
dados sem fotos corre os mesmos riscos de ser lento.
Abs
BL
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
rafaelpinto19
Sent: terça-feira, 6 de maio de 2008 19:17
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir
Alessandro, Ricardo e Bruno e aos demais membros do Grupo, quero
agradecer por tentarem me expilcar e ajudar a resolver este problema,
Estou em fase de aprendizagem ainda. Eu tentei um código, mas não deu
certo. Mas perece q eu estou no caminho certo. No Primeiro momento eu
até pensei que consegui gravar a imagen capturada, pensei em ter
conseguindo resolver o problema. Sempre quando faço uma consulta para
retornar a foto da pessoa resgitrada no Sistema, sempre aparece a foto
da última imagem capturada. Ou seja...se eu registrei João, Maria e
José respectivamente e capturei a foto de cada um deles, mesmo eu
consultando o João, sempre me rotorna a imagem do José, por ter sido o
último quem o sistema capturou a imagem. Postei esse meu código para
ver onde eu estou errando e ver se vcs conseguem me ajudar a resolver
este problema.
procedure TPrincipal.BtnGravarClick(Sender: TObject);
begin
//imgFoto.Visible:= True;
imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('insert into VISITA(CODIGO,NOME,FOTO) values
(:CODIGO,:NOME,:FOTO)');
Query.ParamByName('FOTO').LoadFromFile(Camera1.FichierImage,ftBlob);
//:= imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
Query.ParamByName('CODIGO').AsString := Edit1.Text;
Query.ParamByName('NOME').AsString := Edit2.Text;
Query.ExecSQL;
Query.Transaction.Commit;
Query.Transaction.Active := true;
end.
Onde:
* imgFoto = TImage(Image), é o 6º componente da palheta Aditional no
Delphi e responsável pela visualização de imagens, fotos e etc.
* Camera1 =TCamera(Câmera), É o único componente da palheta Yves e é
responsável pela visualização de imagens de uma Webcam ou Câmeras
digitais. Nela conseguimos fazer a devidas e necessárias capturas.
e esse é o código que eu uso na para visualizar os dados e foto do
registro consultado.
procedure TProcFoto.DBGrid1DblClick(Sender: TObject);
begin
Principal.Edit1.Text := Query1.fieldbyname('CODIGO').AsString;
Principal.Edit2.Text := Query1.fieldbyname('NOME').AsString;
Principal.imgFoto.Picture.Bitmap.LoadFromFile(Principal.Camera1.FichierImage);
close;
end;
Onde:
* Principal é o nome do Form de destino onde estão os edtis que vão
mostrar as dados a serem pesquisados e a foto do registro a ser mostrada.
--- Em delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br,
Alessandro DUARTE de Moraes
[EMAIL PROTECTED] escreveu
Essa discussão é bem relevante, então cito alguns pontos a favor:
1) Para acessos remotos, isto é, o servidor está em uma localidade e
o cliente em outra, não vejo uma forma mais coerente do que ter a
imagem tb no banco de dados
2) Menos gambiarra qdo for executar uma select para relatórios ...
Para completar, sugiro que seja criada uma tabela no banco que seja
dedicada a armazenar imagens, apenas com 2 campos: id INTEGER e imagem
BLOB
e nas tabelas que são necessárias ter uma ou mais imagens basta
colocar campos referenciando ao id desta tabela de imagens.
Tive experiências traumáticas com as imagens em uma pasta ... mas
uma solução bem elaborada pode dar certo, exceto no caso do item 1 que
citei acima.
Abraços,
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Ricardo Cabral
To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br
Sent: Monday, May 05, 2008 2:02 PM
Subject: RE: [delphi-br] Gravar imagens no Banco Interbase/Firebir
Bruno,
Gravando no banco não deixaria o mesmo muito pesado ?
Bruno Lichot [EMAIL PROTECTED] escreveu:
Eu prefiro gravar imagens no banco, é mais rápido de trabalhar e
no meu modo de ver mais seguro também.
Abs
BL
From: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br
[delphi-br] Minimizar formulário
Ai galera blz, Tenho uma aplicação de uma tela só, gostaria de fazer com que quando o usuário perder o foco deste formulário o mesmo serja minimizado. Tentei no onDeactivatet, mas sem resultado. Agluém tem alguma idéia disso. No google, tentei mas n achei nada que resolvesse o problema. Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe - http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Lascou-se! Couro de joelho agora? Andreano, comente por favor! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 7 May 2008 07:46:51 -0700 Subject: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Pessoal, A Embarcadero (WWW.embarcadero.com) tem tudo a ver com nosso produtos, esta é a melhor notícia que poderíamos ter. Nada mudou aqui no Brasil, continuaremos a distribuir e evoluir os produtos. http://www.codegear.com/about/news/embt É a melhor notícia que poderíamos ter. Estamos mais fortes, focados e vivos do que nunca! Grande Abraço! GO Delphi!! Bruno Lichot From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Rubem Nascimento da Rocha Sent: quarta-feira, 7 de maio de 2008 11:48 To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Importance: High Lascou-se! Couro de joelho agora? Andreano, comente por favor! Sds. To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED]mailto:simoesluciano%40yahoo.com.br Date: Wed, 7 May 2008 07:46:51 -0700 Subject: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Ola Bruno, Mesmo assim prefiro esperar um pouco para adiquerir o novo produto (D4PHP 2)... Ja que estava em negociação. Tbm fiquei preocupado quando a Macromedia foi comprada pela ADOBE e apos o lançamento da versão CS3, nossa vi os resultados. - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 07, 2008 11:55 AM Subject: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pessoal, A Embarcadero (WWW.embarcadero.com) tem tudo a ver com nosso produtos, esta é a melhor notícia que poderíamos ter. Nada mudou aqui no Brasil, continuaremos a distribuir e evoluir os produtos. http://www.codegear.com/about/news/embt É a melhor notícia que poderíamos ter. Estamos mais fortes, focados e vivos do que nunca! Grande Abraço! GO Delphi!! Bruno Lichot From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Rubem Nascimento da Rocha Sent: quarta-feira, 7 de maio de 2008 11:48 To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Importance: High Lascou-se! Couro de joelho agora? Andreano, comente por favor! Sds. To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED]mailto:simoesluciano%40yahoo.com.br Date: Wed, 7 May 2008 07:46:51 -0700 Subject: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [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] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Curioso como o mundo dá voltas... A dois anos, surgiu a notícia de que a Borland venderia o Delphi. Muito bafafa, cada um dando o seu pitaco, até que a Borland veio e esclareceu que o que aconteceria é que seria criado uma outra empresa com foco nas ferramentas de desenvolvimento. OK. Agora, a CodeGear é vendida, numa negociação que começou já no ano passado, ou seja, um ano, um ano e pouco depois que a CodeGear foi criada. Posso estar equivocado, mas não lhes parece que a CodeGear foi criada já com intuito de vendê-la? E talvez só não o fizeram a dois anos porque a comunidade chiou? Agora foi tudo na moita, só ficamos sabendo depois do acontecido. Claro que caímos naquela coisa de que ninguém aqui é acionista da CodeGear/Borland, bem talvez alguns sejam, e não nos cabe ficar aqui apontando o que a CodeGear/Borland deve fazer ou deixar de fazer. Mas ao mesmo tempo, quem faz a coisa acontecer são os clientes, ou seja, nós. Sei lá, talvez um mínimo de discussão com a comunidade teria sido prudente... [] Andrei 2008/5/7 Luciano Calenzani Simões [EMAIL PROTECTED]: http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Concordo amigo Andrei, dá-se a impressão justamente disso. Criaram outra empresa, estruturaram ela do jeito que um possivel comprar queria, e depois, por debaixo dos panos, vendem. Tomara, que com isso, o produto nao perca a qualidade, e que parem de lançar todo ano uma nova versão... Bons tempos aqueles do Delphi 3, onde só lançavam versões novas, após uma boa procurada nos bugs.. rsrsrs []s 2008/5/7 Andrei Luís [EMAIL PROTECTED]: Curioso como o mundo dá voltas... A dois anos, surgiu a notícia de que a Borland venderia o Delphi. Muito bafafa, cada um dando o seu pitaco, até que a Borland veio e esclareceu que o que aconteceria é que seria criado uma outra empresa com foco nas ferramentas de desenvolvimento. OK. Agora, a CodeGear é vendida, numa negociação que começou já no ano passado, ou seja, um ano, um ano e pouco depois que a CodeGear foi criada. Posso estar equivocado, mas não lhes parece que a CodeGear foi criada já com intuito de vendê-la? E talvez só não o fizeram a dois anos porque a comunidade chiou? Agora foi tudo na moita, só ficamos sabendo depois do acontecido. Claro que caímos naquela coisa de que ninguém aqui é acionista da CodeGear/Borland, bem talvez alguns sejam, e não nos cabe ficar aqui apontando o que a CodeGear/Borland deve fazer ou deixar de fazer. Mas ao mesmo tempo, quem faz a coisa acontecer são os clientes, ou seja, nós. Sei lá, talvez um mínimo de discussão com a comunidade teria sido prudente... [] Andrei 2008/5/7 Luciano Calenzani Simões [EMAIL PROTECTED]simoesluciano%40yahoo.com.br : http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Fiquei com essa mesma impressão Andrei, enjoei de ver aquele vídeo do presidente da Borland acalmando os usuários, e agora, menos de 2 anos depois vem essa notícia... Alexandre - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 07, 2008 1:05 PM Subject: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Curioso como o mundo dá voltas... A dois anos, surgiu a notícia de que a Borland venderia o Delphi. Muito bafafa, cada um dando o seu pitaco, até que a Borland veio e esclareceu que o que aconteceria é que seria criado uma outra empresa com foco nas ferramentas de desenvolvimento. OK. Agora, a CodeGear é vendida, numa negociação que começou já no ano passado, ou seja, um ano, um ano e pouco depois que a CodeGear foi criada. Posso estar equivocado, mas não lhes parece que a CodeGear foi criada já com intuito de vendê-la? E talvez só não o fizeram a dois anos porque a comunidade chiou? Agora foi tudo na moita, só ficamos sabendo depois do acontecido. Claro que caímos naquela coisa de que ninguém aqui é acionista da CodeGear/Borland, bem talvez alguns sejam, e não nos cabe ficar aqui apontando o que a CodeGear/Borland deve fazer ou deixar de fazer. Mas ao mesmo tempo, quem faz a coisa acontecer são os clientes, ou seja, nós. Sei lá, talvez um mínimo de discussão com a comunidade teria sido prudente... [] Andrei 2008/5/7 Luciano Calenzani Simões [EMAIL PROTECTED]: http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Rubem, já disponibilizamos algumas informações, as principais perguntas e respostas aqui estão: http://www.codegear.com/article/38124/images/38124/CG_Customer_FAQ_FINAL_5.7.08.pdf Carta do CEO da Embarcadeiro - http://www.codegear.com/article/38124/images/38124/WWCustomerLetterFinal.pdf []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Rubem Nascimento da Rocha Sent: Wednesday, May 07, 2008 7:48 AM To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Importance: High Lascou-se! Couro de joelho agora? Andreano, comente por favor! Sds. To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED]mailto:simoesluciano%40yahoo.com.br Date: Wed, 7 May 2008 07:46:51 -0700 Subject: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Enviar e-mail usando programa padrão
To com um galho, to a uns 2 dias tentando resolver e não consigo...
preciso montar um e-mail pra enviar usando o programa de e-mail padrão
instalado no computador...
dai eu fiz essa procedure:
procedure PrepararEmail(Para, Assunto, Msg: string);
var
S: string;
wsl : TStringList;
begin
S := 'mailto:' + Para + '?subject=' + Assunto + 'body='+wsl.Text+''+
'[EMAIL PROTECTED][EMAIL PROTECTED]';
ShellExecute(0, 'open', PChar(S), nil, nil, SW_SHOWNORMAL);
end;
Essa procedure acima funciona em Outlook, Thunderbird e IncrediMail,
perfeito... mas ai apareceu um problema...eu precisava mandar um arquivo
anexo...essa função mailto não manda anexo.
Dai eu fiz isso:
//X
TMailDTO = class(TPersistent)
private
FSubject: String;
FToRecipients: TStringList;
FCCRecipients: TStringList;
FAttachments: TStringList;
FCCoRecipients: TStringList;
FBody: TStringList;
FCharSet: String;
FHighPriority: boolean;
FContentType: String;
FReplyTo: TStringList;
FTempFile: String;
procedure SetTempFile(const Value: String);
procedure SetCharSet(const Value: String);
procedure SetContentType(const Value: String);
procedure SetHighPriority(const Value: boolean);
procedure SetSubject(const Value: String);
public
property Subject : String read FSubject write SetSubject;
property ToRecipients: TStringList read FToRecipients;
property CCRecipients: TStringList read FCCRecipients;
property CCoRecipients: TStringList read FCCoRecipients;
property Body: TStringList read FBody;
property ContentType: String read FContentType write SetContentType;
property ReplyTo: TStringList read FReplyTo;
property HighPriority: boolean read FHighPriority write SetHighPriority;
property CharSet: String read FCharSet write SetCharSet;
property Attachments : TStringList read FAttachments;
property TempFile : String read FTempFile write SetTempFile;
constructor Create;
destructor Destroy;
end;
//X
DataModulo
//X
unit Unit2;
interface
uses
SysUtils, Classes, IdBaseComponent, IdMessageParts, IdMessage, Unit1,
IdEMailAddress, IdAttachment, ShellAPI, Windows, IdAttachmentFile;
type
TDMMAPIMail = class(TDataModule)
IdMessage1: TIdMessage;
private
procedure AddToAddressList(AnAddressList: TIDEMailAddressList;
AStringList: TStringList);
procedure AddToAttachmentList(AMessageParts: TIdMessageParts;
AStringList: TStringList);
{ Private declarations }
public
procedure SendMail(AMailDTO: TMailDTO);
{ Public declarations }
end;
var
DMMAPIMail: TDMMAPIMail;
implementation
{$R *.dfm}
procedure TDMMAPIMail.AddToAddressList(AnAddressList:
TIDEMailAddressList; AStringList: TStringList);
var
tempStr: String;
addressItem: TIdEMailAddressItem;
begin
for tempStr in AStringList do
begin
if(Trim(tempStr) '') then
begin
addressItem := AnAddressList.Add;
addressItem.Address := tempStr;
addressItem.Name := tempStr;
end;
end;
end;
procedure TDMMAPIMail.AddToAttachmentList(AMessageParts:
TIdMessageParts; AStringList: TStringList);
var
tempStr: String;
begin
for tempStr in AStringList do
begin
if(Trim(tempStr) '') then
begin
if ( FileExists(tempStr) ) then
TIdAttachmentFile.Create(AMessageParts,tempStr)
end;
end;
end;
procedure TDMMAPIMail.SendMail(AMailDTO: TMailDTO);
begin
IdMessage1.Subject := AMailDTO.Subject;
IdMessage1.CharSet := AMailDTO.CharSet;
IdMessage1.ContentType := AMailDTO.ContentType;
IdMessage1.Body.Text := AMailDTO.Body.Text;
IdMessage1.Headers.Add('X-Unsent: 1');
IdMessage1.Date := Now;
AddToAddressList(IdMessage1.Recipients,AMailDTO.ToRecipients);
AddToAddressList(IdMessage1.CCList,AMailDTO.CCRecipients);
AddToAddressList(IdMessage1.BccList,AMailDTO.CCoRecipients);
AddToAddressList(IdMessage1.ReplyTo,AMailDTO.ReplyTo);
AddToAttachmentList(IdMessage1.MessageParts,AMailDTO.Attachments);
//
// try
IdMessage1.SaveToFile(AMailDTO.TempFile,false);
// except
// end;
ShellExecute(0, 'open', PChar(AMailDTO.TempFile), '','', SW_SHOWNORMAL);
end;
end.
//X
O probleama aqui é...de onde eu peguei esse código, diz q esse Header:
X-Unsent: 1 q ele ficaria pendende de envio, mas ele fica como se
tivesse lido, ou seja..não consigo enviar
acho q expliquei bem o problema...se alguem puder me dar uma ajuda.
Abraço
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Para acabar com alguma coisa... nada como comprá-la. - Original Message - From: Alexandre Nicolas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 07, 2008 1:45 PM Subject: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Fiquei com essa mesma impressão Andrei, enjoei de ver aquele vídeo do presidente da Borland acalmando os usuários, e agora, menos de 2 anos depois vem essa notícia... Alexandre - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 07, 2008 1:05 PM Subject: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Curioso como o mundo dá voltas... A dois anos, surgiu a notícia de que a Borland venderia o Delphi. Muito bafafa, cada um dando o seu pitaco, até que a Borland veio e esclareceu que o que aconteceria é que seria criado uma outra empresa com foco nas ferramentas de desenvolvimento. OK. Agora, a CodeGear é vendida, numa negociação que começou já no ano passado, ou seja, um ano, um ano e pouco depois que a CodeGear foi criada. Posso estar equivocado, mas não lhes parece que a CodeGear foi criada já com intuito de vendê-la? E talvez só não o fizeram a dois anos porque a comunidade chiou? Agora foi tudo na moita, só ficamos sabendo depois do acontecido. Claro que caímos naquela coisa de que ninguém aqui é acionista da CodeGear/Borland, bem talvez alguns sejam, e não nos cabe ficar aqui apontando o que a CodeGear/Borland deve fazer ou deixar de fazer. Mas ao mesmo tempo, quem faz a coisa acontecer são os clientes, ou seja, nós. Sei lá, talvez um mínimo de discussão com a comunidade teria sido prudente... [] Andrei 2008/5/7 Luciano Calenzani Simões [EMAIL PROTECTED]: http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões [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] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC® - Analista/Programador - Delphi,PHP,ASP *
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED]: Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP *
RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
To dentro! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei Luís Enviada em: quarta-feira, 7 de maio de 2008 14:56 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED] mailto:itabyte%40itabyte.com : Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Podemos contar com uma ajudinha do BNDES !! :-) - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 07, 2008 2:58 PM Subject: RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies To dentro! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei Luís Enviada em: quarta-feira, 7 de maio de 2008 14:56 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED] mailto:itabyte%40itabyte.com : Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * [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] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Aumentando a proposta do Andrei, segundo o site da embarcadeiro, http://www.embarcadero.com/news/press_releases/codegear_050708.html a CodeGear tem mais de 3 milhoes de usuários no mundo :) $30.000.000,00 / 3.000.000 = $10,00 pela cotação do dolar hoje, cada 1 desembolsaria aqui no brasil R$ 16,61. Huahau ... ao inves de comprar uma licença do delphi, compra a fabricante toda por menos de 20 pratas :) 2008/5/7 Davi Eduardo Borges Wall [EMAIL PROTECTED]: To dentro! 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 Andrei Luís Enviada em: quarta-feira, 7 de maio de 2008 14:56 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED] itabyte%40itabyte.com mailto: itabyte%40itabyte.com itabyte%2540itabyte.com : Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * [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] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Eu com meu senso de cooperação abro minha conta corrente no Bradesco (Ag. 1780 conta: 17.299-0) para que os depositos já possam entrar. Vamos colaborar gente ! Andrei Luís [EMAIL PROTECTED] escreveu: Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED]: Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Deploy de banco de dados SQL Server
vc pode copiar o mdf e o arquivo de log e colocar no servidor, mas acho que a melhor forma é criar um script da sua base e executar no novo servidor. 2008/5/1 Geazi Teles Barbosa Junior [EMAIL PROTECTED]: Prezados, Em todos os meus projetos, até hoje, sempre utilizei o Interbase/Firebird como SGBD. Acontece que agora, por necessidade, fiz um projeto usando o SQL Server. Terminei o projeto. Mas, como faço para colocar o banco de dados em outro servidor ? Como faço o deploy ? é só copiar o arquivo .MDF ??? Peço desculpas antecipadamente pela pergunta amplamente tola, mas conto com a compreensão e a ajuda dos colegas. Geazi [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] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Sou um cara apaixonado pelo Delphi, e já evangelizei muita gente, e francamente temo pelo seu futuro, desculpe aos queridos amigos da comunidade mais não da pra acreditar no que falam com agente, porque falam uma coisa e o que acontece é outra. Na Borcon do ano passado fizeram um monte de promessas e de um hora pra outra eles vendem a empresa, francamente agora acho que ninguém sabe o que vai acontecer. Vamos esperar pra ver o que vai dar, vou torcer pra que esse acontecimento seja bom pra comunidade e para o Delphi. Desculpem a franquesa e um abraço a todos. Willian Leal Desenvolvedor Delphi Em 07/05/08, Carlos B. Schmidt [EMAIL PROTECTED] escreveu: Para acabar com alguma coisa... nada como comprá-la. - Original Message - From: Alexandre Nicolas To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, May 07, 2008 1:45 PM Subject: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Fiquei com essa mesma impressão Andrei, enjoei de ver aquele vídeo do presidente da Borland acalmando os usuários, e agora, menos de 2 anos depois vem essa notícia... Alexandre - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, May 07, 2008 1:05 PM Subject: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Curioso como o mundo dá voltas... A dois anos, surgiu a notícia de que a Borland venderia o Delphi. Muito bafafa, cada um dando o seu pitaco, até que a Borland veio e esclareceu que o que aconteceria é que seria criado uma outra empresa com foco nas ferramentas de desenvolvimento. OK. Agora, a CodeGear é vendida, numa negociação que começou já no ano passado, ou seja, um ano, um ano e pouco depois que a CodeGear foi criada. Posso estar equivocado, mas não lhes parece que a CodeGear foi criada já com intuito de vendê-la? E talvez só não o fizeram a dois anos porque a comunidade chiou? Agora foi tudo na moita, só ficamos sabendo depois do acontecido. Claro que caímos naquela coisa de que ninguém aqui é acionista da CodeGear/Borland, bem talvez alguns sejam, e não nos cabe ficar aqui apontando o que a CodeGear/Borland deve fazer ou deixar de fazer. Mas ao mesmo tempo, quem faz a coisa acontecer são os clientes, ou seja, nós. Sei lá, talvez um mínimo de discussão com a comunidade teria sido prudente... [] Andrei 2008/5/7 Luciano Calenzani Simões [EMAIL PROTECTED]simoesluciano%40yahoo.com.br : http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegear-para-a-embarcadero-technologies/ Luciano Calenzani Simões [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Willian Leal Desenvolvedor de Softwares MSN: [EMAIL PROTECTED] Celular:(32) 8409 - 3077 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Pessoal, Está na hora de baixar ao versões GRÁTIS(Express) do Visual Studio 8 e começar a brincar com elas. Já estou pensando seriamente em adquirir um cópia do VS8, pois do jeito que a carruagem vai indo... Já vi isso quando a CA comprou o Clipper, lembram-se? João Carlos De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andreano Lanusse Enviada em: quarta-feira, 7 de maio de 2008 12:25 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Rubem, já disponibilizamos algumas informações, as principais perguntas e respostas aqui estão: http://www.codegear.com/article/38124/images/38124/CG_Customer_FAQ_FINAL_5.7 .08.pdf Carta do CEO da Embarcadeiro - http://www.codegear.com/article/38124/images/38124/WWCustomerLetterFinal.pdf []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] On Behalf Of Rubem Nascimento da Rocha Sent: Wednesday, May 07, 2008 7:48 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Importance: High Lascou-se! Couro de joelho agora? Andreano, comente por favor! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:simoesluciano%40yahoo.com.br mailto:simoesluciano%40yahoo.com.br Date: Wed, 7 May 2008 07:46:51 -0700 Subject: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegea r-para-a-embarcadero-technologies/ Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 269.23.9/1419 - Release Date: 07/05/2008 07:46 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Eu achei um valor baixíssimo. A MySQL foi vendida para a Sun por 1 Bi. Mas como dizia o Vicente Matheus: Uma coisa é uma coisa e outra coisa é outra coisa. Adriano Santos --- Editor Técnico Revista ClubeDelphi e WebMobile http://www.delphitodelphi.blogspot.com http://www.adrianosantos.pro.br http://www.devmedia.com.br Daniel Bastos respondeu: Aumentando a proposta do Andrei, segundo o site da embarcadeiro, http://www.embarcadero.com/news/press_releases/codegear_050708.html http://www.embarcadero.com/news/press_releases/codegear_050708.html a CodeGear tem mais de 3 milhoes de usuários no mundo :) $30.000.000,00 / 3.000.000 = $10,00 pela cotação do dolar hoje, cada 1 desembolsaria aqui no brasil R$ 16,61. Huahau ... ao inves de comprar uma licença do delphi, compra a fabricante toda por menos de 20 pratas :) 2008/5/7 Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br: To dentro! De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Andrei Luís Enviada em: quarta-feira, 7 de maio de 2008 14:56 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED] mailto:itabyte%40itabyte.com itabyte%40itabyte.com mailto: itabyte%40itabyte.com itabyte%2540itabyte.com : Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * [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] No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 269.23.9/1420 - Release Date: 7/5/2008 14:12
RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Aqui já fizemos isso... Projetos novos são em C#/VS, coisa legada é Delphi ou PHP. Se for comprar o VS, dá uma olhada se não é mais interessante assinar o MSDN. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de jcpf Enviada em: quarta-feira, 7 de maio de 2008 15:22 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pessoal, Está na hora de baixar ao versões GRÁTIS(Express) do Visual Studio 8 e começar a brincar com elas. Já estou pensando seriamente em adquirir um cópia do VS8, pois do jeito que a carruagem vai indo... Já vi isso quando a CA comprou o Clipper, lembram-se? João Carlos De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Andreano Lanusse Enviada em: quarta-feira, 7 de maio de 2008 12:25 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Rubem, já disponibilizamos algumas informações, as principais perguntas e respostas aqui estão: http://www.codegear.com/article/38124/images/38124/CG_Customer_FAQ_FINAL_5.7 .08.pdf Carta do CEO da Embarcadeiro - http://www.codegear.com/article/38124/images/38124/WWCustomerLetterFinal.pdf []'s Andreano Lanusse CodeGear Product Line Manager Lead Evangelist Latin America From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] On Behalf Of Rubem Nascimento da Rocha Sent: Wednesday, May 07, 2008 7:48 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Importance: High Lascou-se! Couro de joelho agora? Andreano, comente por favor! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:simoesluciano%40yahoo.com.br mailto:simoesluciano%40yahoo.com.br mailto:simoesluciano%40yahoo.com.br Date: Wed, 7 May 2008 07:46:51 -0700 Subject: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies http://idgnow.uol.com.br/mercado/2008/05/07/borland-anuncia-venda-da-codegea r-para-a-embarcadero-technologies/ Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 269.23.9/1419 - Release Date: 07/05/2008 07:46 [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] Borland anuncia venda da CodeGear para a Embarcadero Technologies
O que nos leva a questão de um amigo logo atrás... será problemas financeiros? Se for, o quão isso é prejudicial para a ferramenta? []s 2008/5/7 Adriano Santos (Yahoo) [EMAIL PROTECTED]: Eu achei um valor baixíssimo. A MySQL foi vendida para a Sun por 1 Bi. Mas como dizia o Vicente Matheus: Uma coisa é uma coisa e outra coisa é outra coisa. Adriano Santos --- Editor Técnico Revista ClubeDelphi e WebMobile http://www.delphitodelphi.blogspot.com http://www.adrianosantos.pro.br http://www.devmedia.com.br Daniel Bastos respondeu: Aumentando a proposta do Andrei, segundo o site da embarcadeiro, http://www.embarcadero.com/news/press_releases/codegear_050708.html http://www.embarcadero.com/news/press_releases/codegear_050708.html a CodeGear tem mais de 3 milhoes de usuários no mundo :) $30.000.000,00 / 3.000.000 = $10,00 pela cotação do dolar hoje, cada 1 desembolsaria aqui no brasil R$ 16,61. Huahau ... ao inves de comprar uma licença do delphi, compra a fabricante toda por menos de 20 pratas :) 2008/5/7 Davi Eduardo Borges Wall [EMAIL PROTECTED]davi.wall%40mult.com.br mailto:davi.wall%40mult.com.br davi.wall%2540mult.com.br: To dentro! De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Andrei Luís Enviada em: quarta-feira, 7 de maio de 2008 14:56 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED] itabyte%40itabyte.com mailto:itabyte%40itabyte.com itabyte%2540itabyte.com itabyte% 40itabyte.com mailto: itabyte%40itabyte.com itabyte%2540itabyte.com : Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * [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] -- No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 269.23.9/1420 - Release Date: 7/5/2008 14:12 -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TWebBrowser
Olá pessoal ! Alguem sabe como faço para esconder a barra de rolagem vertical em um TWebBrowser ? Obrigado, desde já ! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Por esse valor Andrei, bastaria cada um de nós comprar uma licença do RAD Studio que acho que já devia dar direito ;) Agora falando sério... achei a estratégia meio estranha mesmo. Tomara que nossos companheiros Bruno e Andreano não sejam pegos de surpresa se a Embarcadero decidir descontinuar o Delphi, algo que D-U-V-I-D-O que aconteça. Atte, Ricardo. Andrei Luís [EMAIL PROTECTED] escreveu: Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED]: Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Int64 x Variant no Delphi 6
João, boa tarde! Desculpe a demora, mas só agora eu voltei pro escritório com tempo pra fazer isso. Peguei um Copy/Paste do Delphi 2005, serve? [* Copy/Paste Begin *] function TLargeintField.GetAsVariant: Variant; begin if IsNull then Result := Null else begin Result := GetAsLargeInt; end; end; [* Copy/Paste End *] De lambujem, tô passando o GetAsLargeInt e GetValue tumen: [* Copy/Paste Begin *] function TLargeintField.GetValue(var Value: Largeint): Boolean; begin Result := GetData(@Value); end; function TLargeintField.GetAsLargeint: Largeint; begin if not GetValue(Result) then Result := 0; end; [* Copy/Paste End *] Atte, Ricardo. Joao Morais [EMAIL PROTECTED] escreveu: Pessoal, algum dos presentes poderia mandar um Ctrl+C + Ctrl+V da função TLargeintField.GetAsVariant, que encontra-se na unit source\vcl\db.pas do Delphi 6? Gostaria de conhecer a compatibilidade do Int64 do Delphi 6 com Variant. Obrigado, Joao Morais _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Galera, Acredito que de uma forma ou de outra estaremos sempre nas mãos de fornecedores de software e cabe a nós apostar em algum deles e tocar o barco. A codegear foi vendida. Se vai ser melhor ou pior para nós ainda é cedo para dizer mas acredito que com o passar do tempo teremos essa resposta. Especulações nesse ponto somente vai assuntar a comunidade podendo novamente sair um hoax que o delphi ta morto e acho que ninguém mais aguenta o tópico Delphi está morto!. []´s Sérgio Uetanabaro _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: quarta-feira, 7 de maio de 2008 17:16 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Por esse valor Andrei, bastaria cada um de nós comprar uma licença do RAD Studio que acho que já devia dar direito ;) Agora falando sério... achei a estratégia meio estranha mesmo. Tomara que nossos companheiros Bruno e Andreano não sejam pegos de surpresa se a Embarcadero decidir descontinuar o Delphi, algo que D-U-V-I-D-O que aconteça. Atte, Ricardo. Andrei Luís HYPERLINK mailto:compuvale.software%40gmail.com[EMAIL PROTECTED] escreveu: Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta?-?? :-) [] Andrei 2008/5/7 MarcioCC(R) HYPERLINK mailto:itabyte%40itabyte.com[EMAIL PROTECTED]: Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(-só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! -*-*-*-** MarcioCC(R) - Analista/Programado-r - Delphi,PHP,ASP -*-*-*-** Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.9/1419 - Release Date: 07/05/2008 07:46 No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.9/1419 - Release Date: 07/05/2008 07:46 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
Camaradas da Lista Acreditem, já tentei muita coisa. Eu estou com o seguinte problema, eu preciso criar uma SP(StoredProcedure) que retorne uma tabela e acessar esta tabela por um data set que pode ser Zeos TZQuery ou ADO TADOQuery. Mas está muito difícil de fazer isto rodar. Alguém tem uma idéia de como chamar a SP pela query que retorne os valores da tabela, esta tabela tem vários campos e vários registros Pensei em colocar a chamada da SP em um SELECT, mas isto não funciona. Algum bom cristão pode dar uma força? Valeu, Benn [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
Qual a versão do MySQL, do Zeos e do Delphi? 2008/5/7 Benn Alle [EMAIL PROTECTED]: Camaradas da Lista Acreditem, já tentei muita coisa. Eu estou com o seguinte problema, eu preciso criar uma SP(StoredProcedure) que retorne uma tabela e acessar esta tabela por um data set que pode ser Zeos TZQuery ou ADO TADOQuery. Mas está muito difícil de fazer isto rodar. Alguém tem uma idéia de como chamar a SP pela query que retorne os valores da tabela, esta tabela tem vários campos e vários registros Pensei em colocar a chamada da SP em um SELECT, mas isto não funciona. Algum bom cristão pode dar uma força? Valeu, Benn [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Andrei Luís wrote: Posso estar equivocado, mas não lhes parece que a CodeGear foi criada já com intuito de vendê-la? Foi exatamente este o burburinho no news da própria Borland, na época em que a CG foi criada. E talvez só não o fizeram a dois anos porque a comunidade chiou? Tinham que pelo menos lançar algum produto novo através dessa nova empresa, não concordas?
Re: [delphi-br] Enviar e-mail usand o programa padrão
Caro amigo, estou com mesmo problema, no thunderbird não funfa de jeito
nenhum, no outlook express funciona e deve funcionar também no outlook,
mas não testei ainda. Não testei com outros programas para saber o
resultado. Em quais programas tu testaste o código?
Alan Vieceli escreveu:
To com um galho, to a uns 2 dias tentando resolver e não consigo...
preciso montar um e-mail pra enviar usando o programa de e-mail padrão
instalado no computador...
dai eu fiz essa procedure:
procedure PrepararEmail(Para, Assunto, Msg: string);
var
S: string;
wsl : TStringList;
begin
S := 'mailto:' + Para + '?subject=' + Assunto + 'body='+wsl.Text+''+
'[EMAIL PROTECTED][EMAIL PROTECTED]';
ShellExecute(0, 'open', PChar(S), nil, nil, SW_SHOWNORMAL);
end;
Essa procedure acima funciona em Outlook, Thunderbird e IncrediMail,
perfeito... mas ai apareceu um problema...eu precisava mandar um arquivo
anexo...essa função mailto não manda anexo.
Dai eu fiz isso:
//X
TMailDTO = class(TPersistent)
private
FSubject: String;
FToRecipients: TStringList;
FCCRecipients: TStringList;
FAttachments: TStringList;
FCCoRecipients: TStringList;
FBody: TStringList;
FCharSet: String;
FHighPriority: boolean;
FContentType: String;
FReplyTo: TStringList;
FTempFile: String;
procedure SetTempFile(const Value: String);
procedure SetCharSet(const Value: String);
procedure SetContentType(const Value: String);
procedure SetHighPriority(const Value: boolean);
procedure SetSubject(const Value: String);
public
property Subject : String read FSubject write SetSubject;
property ToRecipients: TStringList read FToRecipients;
property CCRecipients: TStringList read FCCRecipients;
property CCoRecipients: TStringList read FCCoRecipients;
property Body: TStringList read FBody;
property ContentType: String read FContentType write SetContentType;
property ReplyTo: TStringList read FReplyTo;
property HighPriority: boolean read FHighPriority write SetHighPriority;
property CharSet: String read FCharSet write SetCharSet;
property Attachments : TStringList read FAttachments;
property TempFile : String read FTempFile write SetTempFile;
constructor Create;
destructor Destroy;
end;
//X
DataModulo
//X
unit Unit2;
interface
uses
SysUtils, Classes, IdBaseComponent, IdMessageParts, IdMessage, Unit1,
IdEMailAddress, IdAttachment, ShellAPI, Windows, IdAttachmentFile;
type
TDMMAPIMail = class(TDataModule)
IdMessage1: TIdMessage;
private
procedure AddToAddressList(AnAddressList: TIDEMailAddressList;
AStringList: TStringList);
procedure AddToAttachmentList(AMessageParts: TIdMessageParts;
AStringList: TStringList);
{ Private declarations }
public
procedure SendMail(AMailDTO: TMailDTO);
{ Public declarations }
end;
var
DMMAPIMail: TDMMAPIMail;
implementation
{$R *.dfm}
procedure TDMMAPIMail.AddToAddressList(AnAddressList:
TIDEMailAddressList; AStringList: TStringList);
var
tempStr: String;
addressItem: TIdEMailAddressItem;
begin
for tempStr in AStringList do
begin
if(Trim(tempStr) '') then
begin
addressItem := AnAddressList.Add;
addressItem.Address := tempStr;
addressItem.Name := tempStr;
end;
end;
end;
procedure TDMMAPIMail.AddToAttachmentList(AMessageParts:
TIdMessageParts; AStringList: TStringList);
var
tempStr: String;
begin
for tempStr in AStringList do
begin
if(Trim(tempStr) '') then
begin
if ( FileExists(tempStr) ) then
TIdAttachmentFile.Create(AMessageParts,tempStr)
end;
end;
end;
procedure TDMMAPIMail.SendMail(AMailDTO: TMailDTO);
begin
IdMessage1.Subject := AMailDTO.Subject;
IdMessage1.CharSet := AMailDTO.CharSet;
IdMessage1.ContentType := AMailDTO.ContentType;
IdMessage1.Body.Text := AMailDTO.Body.Text;
IdMessage1.Headers.Add('X-Unsent: 1');
IdMessage1.Date := Now;
AddToAddressList(IdMessage1.Recipients,AMailDTO.ToRecipients);
AddToAddressList(IdMessage1.CCList,AMailDTO.CCRecipients);
AddToAddressList(IdMessage1.BccList,AMailDTO.CCoRecipients);
AddToAddressList(IdMessage1.ReplyTo,AMailDTO.ReplyTo);
AddToAttachmentList(IdMessage1.MessageParts,AMailDTO.Attachments);
//
// try
IdMessage1.SaveToFile(AMailDTO.TempFile,false);
// except
// end;
ShellExecute(0, 'open', PChar(AMailDTO.TempFile), '','', SW_SHOWNORMAL);
end;
end.
//X
O probleama aqui é...de onde eu peguei esse código, diz q esse Header:
X-Unsent: 1 q ele ficaria pendende de envio, mas ele fica como se
tivesse lido, ou seja..não consigo enviar
acho q expliquei bem o problema...se alguem puder me dar uma ajuda.
Abraço
RES: [delphi-br] Enviar e-mail usando programa padrão
Galera,
Eu uso o componente TAFQuickMail.
http://delphi.icm.edu.pl/ftp/d30free/AFQuickMail.zip
Atenciosamente,
Douglas Uesato
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alexandre Rodrigues
Enviada em: quarta-feira, 7 de maio de 2008 17:31
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Enviar e-mail usando programa padrão
Caro amigo, estou com mesmo problema, no thunderbird não funfa de jeito
nenhum, no outlook express funciona e deve funcionar também no outlook,
mas não testei ainda. Não testei com outros programas para saber o
resultado. Em quais programas tu testaste o código?
Alan Vieceli escreveu:
To com um galho, to a uns 2 dias tentando resolver e não consigo...
preciso montar um e-mail pra enviar usando o programa de e-mail padrão
instalado no computador...
dai eu fiz essa procedure:
procedure PrepararEmail(Para, Assunto, Msg: string);
var
S: string;
wsl : TStringList;
begin
S := 'mailto:' + Para + '?subject=' + Assunto + 'body='+wsl.Text+''+
'[EMAIL PROTECTED][EMAIL PROTECTED]';
ShellExecute(0, 'open', PChar(S), nil, nil, SW_SHOWNORMAL);
end;
Essa procedure acima funciona em Outlook, Thunderbird e IncrediMail,
perfeito... mas ai apareceu um problema...eu precisava mandar um arquivo
anexo...essa função mailto não manda anexo.
Dai eu fiz isso:
//X
TMailDTO = class(TPersistent)
private
FSubject: String;
FToRecipients: TStringList;
FCCRecipients: TStringList;
FAttachments: TStringList;
FCCoRecipients: TStringList;
FBody: TStringList;
FCharSet: String;
FHighPriority: boolean;
FContentType: String;
FReplyTo: TStringList;
FTempFile: String;
procedure SetTempFile(const Value: String);
procedure SetCharSet(const Value: String);
procedure SetContentType(const Value: String);
procedure SetHighPriority(const Value: boolean);
procedure SetSubject(const Value: String);
public
property Subject : String read FSubject write SetSubject;
property ToRecipients: TStringList read FToRecipients;
property CCRecipients: TStringList read FCCRecipients;
property CCoRecipients: TStringList read FCCoRecipients;
property Body: TStringList read FBody;
property ContentType: String read FContentType write SetContentType;
property ReplyTo: TStringList read FReplyTo;
property HighPriority: boolean read FHighPriority write SetHighPriority;
property CharSet: String read FCharSet write SetCharSet;
property Attachments : TStringList read FAttachments;
property TempFile : String read FTempFile write SetTempFile;
constructor Create;
destructor Destroy;
end;
//X
DataModulo
//X
unit Unit2;
interface
uses
SysUtils, Classes, IdBaseComponent, IdMessageParts, IdMessage, Unit1,
IdEMailAddress, IdAttachment, ShellAPI, Windows, IdAttachmentFile;
type
TDMMAPIMail = class(TDataModule)
IdMessage1: TIdMessage;
private
procedure AddToAddressList(AnAddressList: TIDEMailAddressList;
AStringList: TStringList);
procedure AddToAttachmentList(AMessageParts: TIdMessageParts;
AStringList: TStringList);
{ Private declarations }
public
procedure SendMail(AMailDTO: TMailDTO);
{ Public declarations }
end;
var
DMMAPIMail: TDMMAPIMail;
implementation
{$R *.dfm}
procedure TDMMAPIMail.AddToAddressList(AnAddressList:
TIDEMailAddressList; AStringList: TStringList);
var
tempStr: String;
addressItem: TIdEMailAddressItem;
begin
for tempStr in AStringList do
begin
if(Trim(tempStr) '') then
begin
addressItem := AnAddressList.Add;
addressItem.Address := tempStr;
addressItem.Name := tempStr;
end;
end;
end;
procedure TDMMAPIMail.AddToAttachmentList(AMessageParts:
TIdMessageParts; AStringList: TStringList);
var
tempStr: String;
begin
for tempStr in AStringList do
begin
if(Trim(tempStr) '') then
begin
if ( FileExists(tempStr) ) then
TIdAttachmentFile.Create(AMessageParts,tempStr)
end;
end;
end;
procedure TDMMAPIMail.SendMail(AMailDTO: TMailDTO);
begin
IdMessage1.Subject := AMailDTO.Subject;
IdMessage1.CharSet := AMailDTO.CharSet;
IdMessage1.ContentType := AMailDTO.ContentType;
IdMessage1.Body.Text := AMailDTO.Body.Text;
IdMessage1.Headers.Add('X-Unsent: 1');
IdMessage1.Date := Now;
AddToAddressList(IdMessage1.Recipients,AMailDTO.ToRecipients);
AddToAddressList(IdMessage1.CCList,AMailDTO.CCRecipients);
AddToAddressList(IdMessage1.BccList,AMailDTO.CCoRecipients);
AddToAddressList(IdMessage1.ReplyTo,AMailDTO.ReplyTo);
AddToAttachmentList(IdMessage1.MessageParts,AMailDTO.Attachments);
//
// try
IdMessage1.SaveToFile(AMailDTO.TempFile,false);
// except
// end;
ShellExecute(0, 'open', PChar(AMailDTO.TempFile), '','', SW_SHOWNORMAL);
end;
end.
//X
O probleama aqui é...de onde eu peguei esse código, diz q esse Header:
X-Unsent: 1 q ele ficaria pendende de envio, mas ele fica como se
tivesse lido, ou seja..não consigo enviar
acho
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
ZEOSDBO6 MySQL 5.0 Delphi 7 2008/5/7 Eduardo Silva dos Santos [EMAIL PROTECTED]: Qual a versão do MySQL, do Zeos e do Delphi? 2008/5/7 Benn Alle [EMAIL PROTECTED] bennalle%40gmail.com: Camaradas da Lista Acreditem, já tentei muita coisa. Eu estou com o seguinte problema, eu preciso criar uma SP(StoredProcedure) que retorne uma tabela e acessar esta tabela por um data set que pode ser Zeos TZQuery ou ADO TADOQuery. Mas está muito difícil de fazer isto rodar. Alguém tem uma idéia de como chamar a SP pela query que retorne os valores da tabela, esta tabela tem vários campos e vários registros Pensei em colocar a chamada da SP em um SELECT, mas isto não funciona. Algum bom cristão pode dar uma força? Valeu, Benn [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Agradecido, Benn R. Alle .'. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
Olá Benn, em relação ao ADO, faça o seguinte, tente usar a versão mais atual do Driver ODBC para MySQL, mas creio que nao vai funcionar para a questão da SP. quanto ao Zeos, se for versão 6.1 ou 6.5 eles não são 100% compatíveis com MySQL 5, tente o Zeos 6.6 ( nunca testei ) se vc quiser fazer um ótimo investimento e ter um componente compatível com todas as versões do MySQL a solução do seu problema é esta: www.crlab.com/mydac boa sorte. 2008/5/7 Benn Alle [EMAIL PROTECTED]: ZEOSDBO6 MySQL 5.0 Delphi 7 2008/5/7 Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com : Qual a versão do MySQL, do Zeos e do Delphi? 2008/5/7 Benn Alle [EMAIL PROTECTED] bennalle%40gmail.com bennalle% 40gmail.com: Camaradas da Lista Acreditem, já tentei muita coisa. Eu estou com o seguinte problema, eu preciso criar uma SP(StoredProcedure) que retorne uma tabela e acessar esta tabela por um data set que pode ser Zeos TZQuery ou ADO TADOQuery. Mas está muito difícil de fazer isto rodar. Alguém tem uma idéia de como chamar a SP pela query que retorne os valores da tabela, esta tabela tem vários campos e vários registros Pensei em colocar a chamada da SP em um SELECT, mas isto não funciona. Algum bom cristão pode dar uma força? Valeu, Benn [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Agradecido, Benn R. Alle .'. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
Na verdade tanto faz para mim usar o ADO ou Zeos, o que eu preciso é que funcione isso. O Problema que eu tenho que resolver é o seguinte: Eu tenho uma tabela com os campos, máquina, tipo e valor, Existem dois tipos apenas tipo A e Tipo B existem várias ocorrências nesta tabela com a mesma máquina e os mesmos tipos, eu agrupo por máquina e tipo e somo o valor: Tenho que retornar uma tabela com os seguintes campos Maquina; TotalValorTipoA, TotalValorTipoB Exemplo Tabela Original Máquina Tipo Valor MAC01 A 1,00 MAC01 B 2,00 MAC01 A 2,50 MAC02 A 1,50 MAC01 A 1,00 MAC02 B 2,00 MAC01 A 2,50 MAC02 A 1,50 Agrupando e fico com isto: MAC01 A 7,00 MAC01 B 2,00 MAC02 A 4,50 MAC02 B 2,50 Até aqui sem problemas, dou um Group By Maquina, Tipo e fica certinho, porém tenho que gerar uma tabela como resultado no seguinte formato Maquina; TotalValorTipoA; TotalValorTipoB; MAC01 7,002,00 MAC02 4,502,50 Eu resolvi um problema parecido criando pelo Delphi uma tabela temporária com o segundo formato e por um loop dentro do Delphi, onde lia de registro a registro, cadastrava os dados nesta nova tabela. Este é um processo que resolve, mas me parece uma gambiarra sem fim, e que torna o processo bem lento. Acredito que é possível fazer isso em SQL, e pensei em colocar isse código a ser gerado em uma SP ou SF, que quando chamada de dentro do Delphi, retornasse a nova tabela para o DataSet (Eu uso o ZeosDB 6). O que você acha? Já fez algo parecido? Será que é possível? Por isso que eu precisava retornar os dados da SP no Dephi. Só para chamar a SP não tem problema com o ZEOSDB, basta colocar em uma TZQuery CALL spNomeDaSP; e pronto, ele roda a SP, a naba é o retorno dos valores. Entendeu? [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Salve Amigos!!! É com muita alegria que trago na íntegra a carta do José Eugênio, VP de Marketing e Comercial. Grande Abraço a Todos! Bruno Lichot - Amigos, Como vocês se lembram, em fevereiro de 2006 a Borland criou uma unidade de negócios voltada a ferramentas de desenvolvimento e banco de dados, com a finalidade de aumentar os investimentos nestas linhas de produto. Esta unidade foi chamada, posteriormente, de CodeGear. Nestes 2 anos, continuamos a evoluir nosso negócio, atualizando as ferramentas já consagradas pelo mercado (como Delphi, JBuilder, C++ Builder e InterBase), além de fornecer produtos novos, para tecnologias emergentes (como PHP e Ruby), alcançando a liderança tecnológica nestas áreas estratégicas, sempre com o objetivo de aumentar a produtividade e a rentabilidade de nossos clientes. Em 2007 a TCB, Thoma Cressey Bravo, uma empresa de private equity com foco em investimentos em software, adquiriu a Embarcadero. É com enorme entusiasmo e motivação que anunciamos que hoje a Embarcadero Technologies assinou um acordo definitivo de compra de ativos com a Borland Software Corporation para adquirir sua divisão CodeGear, criando o maior fornecedor de ferramentas independentes de plataforma para o design, desenvolvimento, gerenciamento e otimização de aplicações e bancos de dados. A complementariedade das linhas de produtos, posicionamento geográfico e canais de comercialização, alinhada à similaridade da cultura das empresas e a um sólido fundo de investimentos com capital, garantem o sucesso da nova empresa e criam oportunidades incríveis para clientes e parceiros. A empresa já nasce com um faturamento de mais de US$ 100 milhões por ano e com mais de 3,2 milhões de usuários em mais de 29 países. Mais informações sobre o anúncio, como o press release e a carta aberta do David I, podem ser acessadas em http://www.codegear.com/br/about/news/embt Ficamos ainda mais felizes em informar que não está planejada qualquer mudança futura na forma como o mercado brasileiro é atendido. Como sempre, toda a nossa equipe está à disposição para atendê-los. José Eugênio Braga Vice-Presidente de Marketing e Comercial [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
O problema é que nem o ADO nem o Zeos 6.5 tem a capacidade de retornar um ResultSet o zeos 6.5 é compativel com mysql 4.1 que nao retornava ResultSet em SP. o ADO vai depender do Driver ODBC, mas nunca fiz testes a fundo, até porque eu não aceito usar Acesso à um banco de dados via ODBC quanto tempo a opção de acessar nativamente e ter pelo menos 70% a mais de desempenho. quanto ao seu problema, a solução que será usada na SP vai ser bem parecida com a que vc fez no Delphi. 2008/5/7 Benn Alle [EMAIL PROTECTED]: Na verdade tanto faz para mim usar o ADO ou Zeos, o que eu preciso é que funcione isso. O Problema que eu tenho que resolver é o seguinte: Eu tenho uma tabela com os campos, máquina, tipo e valor, Existem dois tipos apenas tipo A e Tipo B existem várias ocorrências nesta tabela com a mesma máquina e os mesmos tipos, eu agrupo por máquina e tipo e somo o valor: Tenho que retornar uma tabela com os seguintes campos Maquina; TotalValorTipoA, TotalValorTipoB Exemplo Tabela Original Máquina Tipo Valor MAC01 A 1,00 MAC01 B 2,00 MAC01 A 2,50 MAC02 A 1,50 MAC01 A 1,00 MAC02 B 2,00 MAC01 A 2,50 MAC02 A 1,50 Agrupando e fico com isto: MAC01 A 7,00 MAC01 B 2,00 MAC02 A 4,50 MAC02 B 2,50 Até aqui sem problemas, dou um Group By Maquina, Tipo e fica certinho, porém tenho que gerar uma tabela como resultado no seguinte formato Maquina; TotalValorTipoA; TotalValorTipoB; MAC01 7,00 2,00 MAC02 4,50 2,50 Eu resolvi um problema parecido criando pelo Delphi uma tabela temporária com o segundo formato e por um loop dentro do Delphi, onde lia de registro a registro, cadastrava os dados nesta nova tabela. Este é um processo que resolve, mas me parece uma gambiarra sem fim, e que torna o processo bem lento. Acredito que é possível fazer isso em SQL, e pensei em colocar isse código a ser gerado em uma SP ou SF, que quando chamada de dentro do Delphi, retornasse a nova tabela para o DataSet (Eu uso o ZeosDB 6). O que você acha? Já fez algo parecido? Será que é possível? Por isso que eu precisava retornar os dados da SP no Dephi. Só para chamar a SP não tem problema com o ZEOSDB, basta colocar em uma TZQuery CALL spNomeDaSP; e pronto, ele roda a SP, a naba é o retorno dos valores. Entendeu? [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
Eu já consegui criar a SP que agrupa os dados, cria uma nova tabela e insere os dados. Mas tenho este problema para retornar os dados que são gerados para o Delphi. O que eu fiz para funcionar (meio gambiarra) foi criar ao invés de uma tabela temporária, uma normal, e primeiro eu rodo a SP e depois abro a tabela normalmente. Funciona, mas assim tenho os seguintes problemas: - Como não tenho retorno, não sei se a tabela tem realmente os dados mais atuais - Não sei quantos registros foram criados - E se mais de usuário chamar o relatório (teria que fazer uma tabela por usuário)? - Sempre fico com mais tabelas do que preciso, pois fica com um lixo (tabela com dados gerados) - Quando eu vou apagar esta tabela Você sabe que as vezes estas gambiarras as vezes acabam trazendo muitos problemas e dão no final das contas muito mais trabalho do que fazer o processo correto. Parece bom o componente que você indicou, mas por enquanto não posso comprar ele. 2008/5/7 Eduardo Silva dos Santos [EMAIL PROTECTED]: O problema é que nem o ADO nem o Zeos 6.5 tem a capacidade de retornar um ResultSet o zeos 6.5 é compativel com mysql 4.1 que nao retornava ResultSet em SP. o ADO vai depender do Driver ODBC, mas nunca fiz testes a fundo, até porque eu não aceito usar Acesso à um banco de dados via ODBC quanto tempo a opção de acessar nativamente e ter pelo menos 70% a mais de desempenho. quanto ao seu problema, a solução que será usada na SP vai ser bem parecida com a que vc fez no Delphi. 2008/5/7 Benn Alle [EMAIL PROTECTED] bennalle%40gmail.com: Na verdade tanto faz para mim usar o ADO ou Zeos, o que eu preciso é que funcione isso. O Problema que eu tenho que resolver é o seguinte: Eu tenho uma tabela com os campos, máquina, tipo e valor, Existem dois tipos apenas tipo A e Tipo B existem várias ocorrências nesta tabela com a mesma máquina e os mesmos tipos, eu agrupo por máquina e tipo e somo o valor: Tenho que retornar uma tabela com os seguintes campos Maquina; TotalValorTipoA, TotalValorTipoB Exemplo Tabela Original Máquina Tipo Valor MAC01 A 1,00 MAC01 B 2,00 MAC01 A 2,50 MAC02 A 1,50 MAC01 A 1,00 MAC02 B 2,00 MAC01 A 2,50 MAC02 A 1,50 Agrupando e fico com isto: MAC01 A 7,00 MAC01 B 2,00 MAC02 A 4,50 MAC02 B 2,50 Até aqui sem problemas, dou um Group By Maquina, Tipo e fica certinho, porém tenho que gerar uma tabela como resultado no seguinte formato Maquina; TotalValorTipoA; TotalValorTipoB; MAC01 7,00 2,00 MAC02 4,50 2,50 Eu resolvi um problema parecido criando pelo Delphi uma tabela temporária com o segundo formato e por um loop dentro do Delphi, onde lia de registro a registro, cadastrava os dados nesta nova tabela. Este é um processo que resolve, mas me parece uma gambiarra sem fim, e que torna o processo bem lento. Acredito que é possível fazer isso em SQL, e pensei em colocar isse código a ser gerado em uma SP ou SF, que quando chamada de dentro do Delphi, retornasse a nova tabela para o DataSet (Eu uso o ZeosDB 6). O que você acha? Já fez algo parecido? Será que é possível? Por isso que eu precisava retornar os dados da SP no Dephi. Só para chamar a SP não tem problema com o ZEOSDB, basta colocar em uma TZQuery CALL spNomeDaSP; e pronto, ele roda a SP, a naba é o retorno dos valores. Entendeu? [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Agradecido, Benn R. Alle .'. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
Realmente tem coisas que acabam atrapalhando mesmo, usando Zeos 6.5 ou ADO vai ser por ai mesmo. uma opção é vc testar o *Zeos 6.6.* quanto ao MyDAC, é simplismente o melhor para MySQL, eu uso desde 2004 e te garanto que vale cada centavo. os componentes são ótimos, o suporte é de qualidade, fora de série mesmo. sucesso ae. 2008/5/7 Benn Alle [EMAIL PROTECTED]: Eu já consegui criar a SP que agrupa os dados, cria uma nova tabela e insere os dados. Mas tenho este problema para retornar os dados que são gerados para o Delphi. O que eu fiz para funcionar (meio gambiarra) foi criar ao invés de uma tabela temporária, uma normal, e primeiro eu rodo a SP e depois abro a tabela normalmente. Funciona, mas assim tenho os seguintes problemas: - Como não tenho retorno, não sei se a tabela tem realmente os dados mais atuais - Não sei quantos registros foram criados - E se mais de usuário chamar o relatório (teria que fazer uma tabela por usuário)? - Sempre fico com mais tabelas do que preciso, pois fica com um lixo (tabela com dados gerados) - Quando eu vou apagar esta tabela Você sabe que as vezes estas gambiarras as vezes acabam trazendo muitos problemas e dão no final das contas muito mais trabalho do que fazer o processo correto. Parece bom o componente que você indicou, mas por enquanto não posso comprar ele. 2008/5/7 Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com : O problema é que nem o ADO nem o Zeos 6.5 tem a capacidade de retornar um ResultSet o zeos 6.5 é compativel com mysql 4.1 que nao retornava ResultSet em SP. o ADO vai depender do Driver ODBC, mas nunca fiz testes a fundo, até porque eu não aceito usar Acesso à um banco de dados via ODBC quanto tempo a opção de acessar nativamente e ter pelo menos 70% a mais de desempenho. quanto ao seu problema, a solução que será usada na SP vai ser bem parecida com a que vc fez no Delphi. 2008/5/7 Benn Alle [EMAIL PROTECTED] bennalle%40gmail.com bennalle% 40gmail.com: Na verdade tanto faz para mim usar o ADO ou Zeos, o que eu preciso é que funcione isso. O Problema que eu tenho que resolver é o seguinte: Eu tenho uma tabela com os campos, máquina, tipo e valor, Existem dois tipos apenas tipo A e Tipo B existem várias ocorrências nesta tabela com a mesma máquina e os mesmos tipos, eu agrupo por máquina e tipo e somo o valor: Tenho que retornar uma tabela com os seguintes campos Maquina; TotalValorTipoA, TotalValorTipoB Exemplo Tabela Original Máquina Tipo Valor MAC01 A 1,00 MAC01 B 2,00 MAC01 A 2,50 MAC02 A 1,50 MAC01 A 1,00 MAC02 B 2,00 MAC01 A 2,50 MAC02 A 1,50 Agrupando e fico com isto: MAC01 A 7,00 MAC01 B 2,00 MAC02 A 4,50 MAC02 B 2,50 Até aqui sem problemas, dou um Group By Maquina, Tipo e fica certinho, porém tenho que gerar uma tabela como resultado no seguinte formato Maquina; TotalValorTipoA; TotalValorTipoB; MAC01 7,00 2,00 MAC02 4,50 2,50 Eu resolvi um problema parecido criando pelo Delphi uma tabela temporária com o segundo formato e por um loop dentro do Delphi, onde lia de registro a registro, cadastrava os dados nesta nova tabela. Este é um processo que resolve, mas me parece uma gambiarra sem fim, e que torna o processo bem lento. Acredito que é possível fazer isso em SQL, e pensei em colocar isse código a ser gerado em uma SP ou SF, que quando chamada de dentro do Delphi, retornasse a nova tabela para o DataSet (Eu uso o ZeosDB 6). O que você acha? Já fez algo parecido? Será que é possível? Por isso que eu precisava retornar os dados da SP no Dephi. Só para chamar a SP não tem problema com o ZEOSDB, basta colocar em uma TZQuery CALL spNomeDaSP; e pronto, ele roda a SP, a naba é o retorno dos valores. Entendeu? [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Agradecido, Benn R. Alle .'. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MYSQL + StoredProcedure + ZeosLib/ADO
Muito Obrigado, Vou continuar tentando! 2008/5/7 Eduardo Silva dos Santos [EMAIL PROTECTED]: Realmente tem coisas que acabam atrapalhando mesmo, usando Zeos 6.5 ou ADO vai ser por ai mesmo. uma opção é vc testar o *Zeos 6.6.* quanto ao MyDAC, é simplismente o melhor para MySQL, eu uso desde 2004 e te garanto que vale cada centavo. os componentes são ótimos, o suporte é de qualidade, fora de série mesmo. sucesso ae. 2008/5/7 Benn Alle [EMAIL PROTECTED] bennalle%40gmail.com: Eu já consegui criar a SP que agrupa os dados, cria uma nova tabela e insere os dados. Mas tenho este problema para retornar os dados que são gerados para o Delphi. O que eu fiz para funcionar (meio gambiarra) foi criar ao invés de uma tabela temporária, uma normal, e primeiro eu rodo a SP e depois abro a tabela normalmente. Funciona, mas assim tenho os seguintes problemas: - Como não tenho retorno, não sei se a tabela tem realmente os dados mais atuais - Não sei quantos registros foram criados - E se mais de usuário chamar o relatório (teria que fazer uma tabela por usuário)? - Sempre fico com mais tabelas do que preciso, pois fica com um lixo (tabela com dados gerados) - Quando eu vou apagar esta tabela Você sabe que as vezes estas gambiarras as vezes acabam trazendo muitos problemas e dão no final das contas muito mais trabalho do que fazer o processo correto. Parece bom o componente que você indicou, mas por enquanto não posso comprar ele. 2008/5/7 Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com eduardo.drd%40gmail.com : O problema é que nem o ADO nem o Zeos 6.5 tem a capacidade de retornar um ResultSet o zeos 6.5 é compativel com mysql 4.1 que nao retornava ResultSet em SP. o ADO vai depender do Driver ODBC, mas nunca fiz testes a fundo, até porque eu não aceito usar Acesso à um banco de dados via ODBC quanto tempo a opção de acessar nativamente e ter pelo menos 70% a mais de desempenho. quanto ao seu problema, a solução que será usada na SP vai ser bem parecida com a que vc fez no Delphi. 2008/5/7 Benn Alle [EMAIL PROTECTED] bennalle%40gmail.combennalle% 40gmail.com bennalle% 40gmail.com: Na verdade tanto faz para mim usar o ADO ou Zeos, o que eu preciso é que funcione isso. O Problema que eu tenho que resolver é o seguinte: Eu tenho uma tabela com os campos, máquina, tipo e valor, Existem dois tipos apenas tipo A e Tipo B existem várias ocorrências nesta tabela com a mesma máquina e os mesmos tipos, eu agrupo por máquina e tipo e somo o valor: Tenho que retornar uma tabela com os seguintes campos Maquina; TotalValorTipoA, TotalValorTipoB Exemplo Tabela Original Máquina Tipo Valor MAC01 A 1,00 MAC01 B 2,00 MAC01 A 2,50 MAC02 A 1,50 MAC01 A 1,00 MAC02 B 2,00 MAC01 A 2,50 MAC02 A 1,50 Agrupando e fico com isto: MAC01 A 7,00 MAC01 B 2,00 MAC02 A 4,50 MAC02 B 2,50 Até aqui sem problemas, dou um Group By Maquina, Tipo e fica certinho, porém tenho que gerar uma tabela como resultado no seguinte formato Maquina; TotalValorTipoA; TotalValorTipoB; MAC01 7,00 2,00 MAC02 4,50 2,50 Eu resolvi um problema parecido criando pelo Delphi uma tabela temporária com o segundo formato e por um loop dentro do Delphi, onde lia de registro a registro, cadastrava os dados nesta nova tabela. Este é um processo que resolve, mas me parece uma gambiarra sem fim, e que torna o processo bem lento. Acredito que é possível fazer isso em SQL, e pensei em colocar isse código a ser gerado em uma SP ou SF, que quando chamada de dentro do Delphi, retornasse a nova tabela para o DataSet (Eu uso o ZeosDB 6). O que você acha? Já fez algo parecido? Será que é possível? Por isso que eu precisava retornar os dados da SP no Dephi. Só para chamar a SP não tem problema com o ZEOSDB, basta colocar em uma TZQuery CALL spNomeDaSP; e pronto, ele roda a SP, a naba é o retorno dos valores. Entendeu? [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Agradecido, Benn R. Alle .'. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Pô Waltão, só agora que ficamos sabendo né? :-) Como na maioria das vezes, esse tipo de negócio só é divulgado qdo tá fechado. [] Andrei 2008/5/7 Walter Chagas (BOL) [EMAIL PROTECTED]: Pois é, eu tenho uns 7 mil guardado no banco e minha esposa tem uma grana pra receber aí de umas reformas que ela acabou. Mas só agora que cê fala pô? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr -- Início da mensagem original --- De: delphi-br@yahoogrupos.com.br Para: delphi-br@yahoogrupos.com.br Cc: Data: Wed, 7 May 2008 14:55:43 -0300 Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED]: Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP *
Re:RES: [delphi-br] Borland anuncia ven da da CodeGear para a Embarcadero Techn ologies
Sergio, De uma forma ou de outra, você está com certa razão. Comprada já foi. Não é simples eles ouvirem a opinião de meia duzia e desfazerem um negócio, desse patamar, cujo contrato de compra e venda foi discutido, acordado, analisado e reanalizado por vários advogados, contadores e analistas de negócios. Este é o mercado minha gente que já fez a Boing levar a Mc Donnel Douglas, o Banco Santander levar o Real e antes levar o Banespa. Ninguem espalha a notícia antes do negócio consumado pra não aparecer atravessadores na coisa. Isto é regra. Claro, uma notícia destas pega todo mundo de surpresa e pegando todo mundo de surpresa começam os questionamentos e especulações. Eu mesmo fui um que especulei, falei, entrei na onda e inventei um monte de factoide sobre o assunto. Mas depois a gente começa a pensar direito e vê que nem tudo é desgraça num negócio destes. Se o Delphi vai continuar a evoluir ou não, o tempo nos dirá. Eu mesmo levantei a questão da C.A aqui com o Clipper, mas a verdade é que eu acho que o que desanimou eleles lá com o Clipper foi mais o fracasso do VO em relação a morte do ambiente DOS. Tirou o tesão deles com certeza já que tinha o VB e o Delphi já pintando no pedaço. Naquela altura do campeonato... Um caso muito peculiar que temos vivido a uns tempos atrás, foi o da aquisição da Rolls Royce pela BMW. Pegou todo mundo de surpresa também e aí começou o disse-me-disse, o questionamento se o a qualidade Rolls iria ser comprometida dentre outras coisas. Nada disso aconteceu. O que aconteceu foi que a BMW deixou a RR trabalhar em paz lá como ela sempre fez e não interferiu na qualidade tanto de seus automóveis como de seus motores de avião. MAS! Para a BMW foi muito bom pois daí pra frente os carros da BMW passaram a vir com tecnologia RR melhorando acentuadamente a qualidade dos mesmos porém mantendo o alto padrão e nível dos Rolls Royce e dos Bentley. Ninguem da BMW meteu o bedellho lá exigindo que o processo tal passasse a ser assim ou que a forma de fazer a peça X fosse desse ou daquele jeito. Se a Embarcadero for por essa linha, então ninguem aqui precisa se preocupar com o futuro do Delphi pois o Roadmap (Que outra coisa não é senão o cronograma de lançamento de produtos) da CG vai continuar vigorando dentro do previsto. Mas é como eu disse, agora só nos resta torcer para que os novos proprietarios do Delphi invistam o máximo que for possível para que a ferramenta melhore cada vez mais. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr -- Início da mensagem original --- De: delphi-br@yahoogrupos.com.br Para: delphi-br@yahoogrupos.com.br Cc: Data: Wed, 7 May 2008 17:33:05 -0300 Assunto: RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Galera, Acredito que de uma forma ou de outra estaremos sempre nas mãos de fornecedores de software e cabe a nós apostar em algum deles e tocar o barco. A codegear foi vendida. Se vai ser melhor ou pior para nós ainda é cedo para dizer mas acredito que com o passar do tempo teremos essa resposta. Especulações nesse ponto somente vai assuntar a comunidade podendo novamente sair um hoax que o delphi ta morto e acho que ninguém mais aguenta o tópico Delphi está morto!. []´s Sérgio Uetanabaro _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: quarta-feira, 7 de maio de 2008 17:16 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Por esse valor Andrei, bastaria cada um de nós comprar uma licença do RAD Studio que acho que já devia dar direito ;) Agora falando sério... achei a estratégia meio estranha mesmo. Tomara que nossos companheiros Bruno e Andreano não sejam pegos de surpresa se a Embarcadero decidir descontinuar o Delphi, algo que D-U-V-I-D-O que aconteça. Atte, Ricardo. Andrei Luís HYPERLINK mailto:compuvale.software%40gmail.com[EMAIL PROTECTED] escreveu: Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta?-?? :-) [] Andrei 2008/5/7 MarcioCC(R) HYPERLINK mailto:itabyte%40itabyte.com[EMAIL PROTECTED]: Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(-só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!!
Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
O valor de venda é simplesmente RIDÍCULO. Só para ter uma idéia, a RM Sistemas (em Belo Horizonte) foi vendida por mais de R$ 200.000.000,00 Se colocarmos o dolar a R$ 1,65, a CodeGear foi vendida por menos de R$ 50.000.000,00 INACREDITÁVEL!!! E gostei muito da idéia de dividirmos o custo entre todos os desenvolvedores no Brasil.. hehehe Walter Chagas (BOL) [EMAIL PROTECTED] escreveu: Pois é, eu tenho uns 7 mil guardado no banco e minha esposa tem uma grana pra receber aí de umas reformas que ela acabou. Mas só agora que cê fala pô? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr -- Início da mensagem original --- De: delphi-br@yahoogrupos.com.br Para: delphi-br@yahoogrupos.com.br Cc: Data: Wed, 7 May 2008 14:55:43 -0300 Assunto: Re: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies Pôxa, se tivessem avisado antes, a gente fazia uma vaquinha e comprava a CodeGear. Somos 4.166 associados x USD 7.202,00 = USD 30.003.532,00 Com o dolar a R$ 1,67, desembolsaríamos R$ 12.027,34 pra comprar a CodeGear. Será que dá tempo de fazer uma contraproposta??? :-) [] Andrei 2008/5/7 MarcioCC(R) [EMAIL PROTECTED]: Eita nóis a Borland nao perde tempo pagou levou isso sim é que negócio 30 pila ainda uma parte parcelada?? isso não gera um ar de aperto de dividas?? posso estar enganado , mais bola pra frente se for pra melhor que venha a tar de Embarcadero(só espero que nao embarcaderemos em barco furado)...hehehe ...t+ JESUS TE AMA !!! * MarcioCC(R) - Analista/Programador - Delphi,PHP,ASP * - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Borland anuncia venda da CodeGear para a Embarcadero Technologies
Boa noite! Não acredito que seja pra tanto... digo isso sinceramente e do fundo do meu coração. Além do mais se isso for acontecer ( continuo duvidando muito ) lembrem-se que existe uma IDE que pode ser usada sem problemas, que é o Lazarus com o compilador FreePascal. E se essa tragédia acontecer, pode ser um bom impulso ( talves o impulso que falte ) para o Lazarus/FPC pegar de vez. E olha que hoje essa dobradinha já oferece algumas vantagens que ainda estão no roadmap do Delphi. É para se pensar... Agora VS na minha máquina, só pra brincar mesmo. Prefiro Java. Atte, Ricardo. jcpf [EMAIL PROTECTED] escreveu: Pessoal, Está na hora de baixar ao versões GRÁTIS(Express) do Visual Studio 8 e começar a brincar com elas. Já estou pensando seriamente em adquirir um cópia do VS8, pois do jeito que a carruagem vai indo... Já vi isso quando a CA comprou o Clipper, lembram-se? João Carlos - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
