RE: Res: RES: RES: [delphi-br] Send Mail MAPI

[Rubem Nascimento da Rocha]

Sempre usei Indy ao invés de usar o cliente de e-mail que a estação de trabalho 
possui. Até o momento, estou 99% satisfeito. Vou estar mais ainda quando eu 
descobrir uma maneira de mandar vários e-mails ao mesmo com o Indy usando 
threads. Sds.


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 20 Jun 2007 10:51:44 
-0700Subject: Res: RES: RES: [delphi-br] Send Mail MAPI




Vou verificar , mas a idéia é usa o cliente de cliente que o cliente tiver para 
o envio de e-mails... Da para fazer isso com o Indy ? ---Talvez vc possa tentar 
tb usando os componentes Indy p/ envio de email.Assim vc nao fica preso ao 
outlook.AbsValdir_ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL 
PROTECTED] Emnome de Rodrigo Bevilacqua MarcondesEnviada em: quarta-feira, 20 
de junho de 2007 12:49Para: [EMAIL PROTECTED]: Res: RES: [delphi-br] Send Mail 
MAPIOla Valdir, ou ver o que consigo com isso, será que consigo jogar o 
chamadoque faço a API do MAPISendmail usando Threads  ??? Vou er o que 
consigo...Valeu---Colega,eu acho que vc podia resolver esse problema criando um 
servico windowsou uma thread p/ que este processo seja executado em segundo 
plano evitandoassim o travamento temporário de sua aplicação.O link abaixo tem 
um exemplo de como trabalhar c/ serviços windows:http://lib.seven. 
com.br/ampliar.asp?codartigo=545Vc
 pode também usar a suite de componentes JEDI lá tem um conjunto decomponentes 
Thread c/ exemplos onde vc pode fazer uma adaptação no 
seusistema.http://homepages. 
codegear.com/jedi/jvcl/AbsValdir_ 
De: [EMAIL PROTECTED]  
os.com.br[mailto:[EMAIL PROTECTED] 
os.com.br] Emnome de Rodrigo Bevilacqua 
MarcondesEnviada em: quarta-feira, 20 de junho de 2007 09:34Para: [EMAIL 
PROTECTED]  os.com.brAssunto: 
[delphi-br] Send Mail MAPIOlá ColegasUtilizo o Delphi 2005, e tenho um rotina 
para enviar e-mail com anexo,usando o "MAPISendMail", tudo funciona legal, mas 
gostaria de saber oseguinte:Quanto chama o outlook express e clicar em enviar, 
o S.O. trava até que oenvio completo do e-mail. Tem como não travar e mandar em 
segundo plano.Uso o seguinte comando SM(0, Application.Handle, message, 
MAPI_DIALOG orMAPI_LOGON_UI,0);Qualquer sugestão é bem vindaMuito 
ObrigadoRodrigo 
®¿®__Novo Yahoo! Cadê? 
- Experimente uma nova busca.http://yahoo. com.br/oqueeuganhocomisso>com.br/oqueeuganhocomisso
 [As partes desta mensagem que não continham texto foram removidas]_ E-mail 
classificado pelo Identificador de Spam Inteligente.Para alterar a categoria 
classificada, visite o 
Terra
 
terra.com.br/cgi-bin/imail.cgi?+_u=fastbyte&_l=1,1182342932.147937.32538.domoni.hst.terra.com.br,16235,Des15,Des15>
 Mail _ Esta mensagem foi verificada pelo E-mail Protegido 
Terra terra.com.br/> .Scan engine: 
McAfee VirusScan / Atualizado em 19/06/2007 / Versão:5.1.00/5056Proteja o seu 
e-mail Terra: http://mail. terra.com.br/ [As partes 
desta mensagem que não continham texto foram removidas]-- < FAVOR REMOVER 
ESTA PARTE AO RESPONDER ESTA MENSAGEM >Links do Yahoo! 
Grupos__Novo Yahoo! 
Cadê? - Experimente uma nova busca.http://yahoo. 
com.br/oqueeuganhocomisso [As partes 
desta mensagem que não continham texto foram removidas]_ E-mail 
classificado pelo Identificador de Spam Inteligente.Para alterar a categoria 
classificada, visite o 
Terra
 Mail _ Esta mensagem foi verificada pelo E-mail Protegido 
Terra .Scan engine: McAfee VirusScan / Atualizado em 
19/06/2007 / Versão:5.1.00/5056Proteja o seu e-mail Terra: 
http://mail.terra.com.br/ [As partes desta mensagem que não continham texto 
foram removidas]-- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
>Links do Yahoo! 
Grupos__Novo Yahoo! 
Cadê? - Experimente uma nova busca.http://yahoo.com.br/oqueeuganhocomisso [As 
partes desta mensagem que não continham texto foram removidas] 


_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Campo negativo

[Robson]

Teste simples:

If Valor1 < 0 Then
  Valor3 := Valor2 - Valor1
Else
  Valor3 := Valor1 -Valor2;

 
Kaputz, Robson


- Mensagem original 
De: Rodrigo Magno <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 20 de Junho de 2007 11:59:16
Assunto: [delphi-br] Campo negativo

Amigos Delphianos, 

Estou precisando de como fazer o seguinte, tem uma condição aonde que : 

Valor1- Valor2 = Valor3 

aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim : 

valor2-valor1 = valor3. 

Alguem poderia me falar como podera fazer isto ? 

Obs : Como posso descobrir se o valor e negativo

Rodrigo Magno 

* [EMAIL PROTECTED] com.br 
msn [EMAIL PROTECTED] com.br

 _ _ _ _ _ _
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. com.br/oqueeugan hocomisso 

[As partes desta mensagem que não continham texto foram removidas]





   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Erro Winspool.dll

[Tiago Zacchi]

Olá pessoal,

Quando vou executar meu projeto esta dando erro dizendo que a dll 
winspool.dll não foi encontrada! O erro acontece se tiro a opção "Build with 
runtime packages" das opções do projeto! 

Como posso resolver este problema ?

Obrigado!

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Dúvidas sobre quickreport.

[ricardo_sx]

Amigos, estou com o seguinte problema no quick report (estou 
utilizando o interbase 6.0):

Tenho a seguinte view: codigo_Caixa, data, valor, descricao, 
tipo_movimento, mes, ano

(isso vale também quando estou fazendo pela própria tabela)

E estou tentando gerar um relatório no seguinte formato:

Cabeçalho:  Relatório de Entradas
---
Group Header:  REferente ao mês de [DbMes]

codigomovimentado emvalordescricao
-
detail:  [codigo_Caixa]  [data]  [valor]   [descricao]
---
group footer: Subtotal Sum(valor)
--


No form create aonde está o componente quickrep, está assim:

  SqlTeste.Close;
  SqlTeste.SQL.Clear;
  SqlTeste.SQL.Add('SELECT * from vw_caixa');
  SqlTeste.SQL.Add('where tipo_Movimentacao = :ptipo  order by mes');
  SqlTeste.ParamByName('ptipo').AsString:='Entrada';

  SqlTeste.Open;


No BeforePrint do Group Header está assim:

  case sqlteste['mes'] of
  1:DbMes.Caption:='Janeiro';
  2:DbMes.Caption:='Fevereiro';
  3:DbMes.Caption:='Março';
  4:DbMes.Caption:='Abril';
  5:DbMes.Caption:='Maio';
  6:DbMes.Caption:='Junho';
  7:DbMes.Caption:='Julho';
  8:DbMes.Caption:='agosto';
  9:DbMes.Caption:='setembro';
  10:DbMes.Caption:='oututbro';
  11:DbMes.Caption:='novembro';
  12:DbMes.Caption:='dezembro';
  end;


Quando eu rodo a aplicação, ele só me mostra o 1º ou o último dado 
que consta na referida view no group header. Em detail, ele mostra 
todos os registros.  Por que isso está acontecendo? Por que o group 
header não está sendo atualizado quando é mudado de mês? Alguém 
poderia me ajudar?

Segue o modelo do resultado:

Referente ao mês de Março

codigo caixa  movimentado em   valor   descricao
000119/03/2007  100,00  jfgufg
000319/04/2007  100,00  jhgjguf
000419/06/2007  100,00  ufghfhg
.
.
.
subtotal 300,00

Lembrando que o componente SqlTeste (TIBQuery) não consta, 
previamente, uma instrução sql. Isso é feito no momento em que se 
cria o formulário.

[delphi-br] Reformular pergunta.. INNER JOIN

[cleitongmoretti]

Bom,
Acredito que nao consegui ser muito claro no meu POST anterior, entao 
vou reformular minha dúvida.

Imaginem o seguinte comando SQL em um dataset:


select 
  a.pedido,
  a.emissao,
  a.cod_cliente,
  b.nome_cliente
from
  vendas a
 inner join clientes b on (b.cod_cliente = a.cod_cliente)


*

Tenho 2 tabelas relacionadas.

A = Vendas
B = Clientes

*

Usuamente, quando fazemos um form, para mostrar a informacao do nome 
do cliente para o usuario, utilizamos o recurso de LOOKUP. Criamos um 
novo dataset e linkamos para fazer a busca e apresentar o dados.
Certo?

*

O que gostaria de saber, é como dispensar esse recurso de lookup, e 
atualizar a informacao para o usuario, usando apenas esse meu dataset 
com o join.

Quando estiver em modo insert, e o usuario digitar o COD_CLIENTE, o 
sistema disparar a consulta e atualizar o campo B.nome_cliente.

Existe alguma forma automatizada de atualizar esse campo relacionado 
no join?

Tz algum componente de acesso diferente dos padroes do Delphi...
Ou algum pago...

Desde de já obrigado pela atencao!!

Re: [delphi-br] Problemas Breakpoints

[Marlon Tiedt]

Apaga todos os arquivos do com o mesmo nome do DPR deve funcionar.
  - Original Message - 
  From: Clayton Yahoo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 20, 2007 5:12 PM
  Subject: Re: [delphi-br] Problemas Breakpoints


  Kra... uma vez eu mudei a configuração de compilação e deu essa merda.
  Verifique no menu Project/Options/Compiler.

  - Original Message - 
  From: Joao Morais 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 20, 2007 2:48 PM
  Subject: Re: [delphi-br] Problemas Breakpoints

  lucaoliveira7 wrote:
  > Pessoal,
  > 
  > Já postei aqui neste grupo porém ninguém tem uma solução plausível. Já 
  > procurei e vários grupos e na internet e nada achei. Peço mais uma vez 
  > a atenção de vcs.
  > Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como aconteceu, mas 
  > os breakpoints pararam de funcionar em um único programa. Estou 
  > utilizando VCLSkin, é a única coisa que me lembro de ter feito e depois 
  > parado de funcionar o breakpoint, só que msm retirando a VCLSkin o 
  > problema continua.
  > 
  > Já deletei todas as DCU´s e recompilei tudo
  > Não é problema de configuração do Delphi, uma vez que se abrir qq 
  > programa o breakpoint volta a funcionar.

  Project | Options | Compiler | Debug Information

  --
  Joao Morais

  > Então estou sem opções. E todos sabem que sem os breakpoints a 
  > depuração de erros se torna lenta e suscetível a mais erros, pq estou 
  > depurando com showmessages.
  > 
  > Grato.
  > 
  > 
  > 
  > 

  [As partes desta mensagem que não continham texto foram removidas]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.472 / Virus Database: 269.9.1/857 - Release Date: 20/6/2007 14:18


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Re: INNER JOIN com ADODataset...

[cleitongmoretti]

Ola!!
Mto obrigado pela dica..
Porem... gostaria de estar utilizando querys mesmo e cuidar de tudo 
na mao.
Mesmo porque estou contruindo classes para controlar as funcoes 
basicas do sistema.

Alguem saberia dizer como resolver essa questao da atualizacao da 
informacao das querys relacionadas?

--- Em delphi-br@yahoogrupos.com.br, Joao Morais <[EMAIL PROTECTED]> escreveu
>
> cleitongmoretti wrote:
> 
> > SELECT A.PEDIDO, A.COD_CLIENTE, B.NOME_CLIENTE 
> > FROM PEDIDOS A, CLIENTES B
> > WHERE B.COD_CLIENTE = A.COD_CLIENTE
> > 
> > ***
> > 
> > QUANDO USAR ESSE ADODataset para fazer INSERT, existe a 
possibilidade 
> > do campo b.nome_cliente, que é um campo relacionado com outra 
tabela, 
> > atualizar automaticamente para que logo que o usuario digitar o 
> > codigo do cliente, aparecer o nome dele de acordo com esse codigo?
> > 
> > Gostaria de algo automatizado, pois vou trabalhar com um numero 
muito 
> > grande de campos relacionados.
> 
> Já que não houve resposta (que eu tenha recebido), vai o 
comentário: a 
> melhor tática é trabalhar com mapeamento objeto-relacional, você 
trata 
> com objetos e o mapeamento converte os seus objetos em registros do 
> banco. Nada de tdataset, nada de ado, nada de tclientdataset, nada 
de 
> complicação, apenas objetos de negócio e uma camada para fazer a 
> persistência. Só sendo meio maluco pra construir isto, por este 
motivo é 
> melhor usar algum trabalho pronto. Tem alguns de código aberto 
internet 
> afora, destaque para tiopf, instantobjects e o que eu estou 
> desenvolvendo e usando, pressobjects.
> 
> --
> Joao Morais
>

[delphi-br] Código de barras sem componente

[Rodrigo Magno]

Gerar Código de Barras Ean13 


unit UnCriaCodBarras;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Printers;

type
  TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
  private
procedure GeraBarrasEAN13(CodBarras: string; Imagem: TCanvas);
procedure DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas);
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses UnCriaCodBarrasImpressao;

{$R *.dfm}

//--
//
// ..
// | | Tabela A | Tabela B | Tabela C |
// |---+--+--+--|
// | 0 | 0001101 | 0100111 | 1110010 |
// | 1 | 0011001 | 0110011 | 1100110 |
// | 2 | 0010011 | 0011011 | 1101100 |
// | 3 | 001 | 0011011 | 110 |
// | 4 | 0100011 | 0011101 | 1011100 |
// | 5 | 0110001 | 0111001 | 1001110 |
// | 6 | 010 | 101 | 101 |
// | 7 | 0111011 | 0010001 | 1000100 |
// | 8 | 0110111 | 0001001 | 1001000 |
// | 9 | 0001011 | 0010111 | 1110100 |
// ..
// Tabela Auxiliar
// .---.
// | Algarismo | Seqüência |
// |---+---|
// | 0 | AA |
// | 1 | AABABB |
// | 2 | AABBAB |
// | 3 | AABBBA |
// | 4 | ABAABB |
// | 5 | ABBAAB |
// | 6 | ABBBAA |
// | 7 | ABABAB |
// | 8 | ABABBA |
// | 9 | ABBABA |
// .---.
//
// Gerae código de barras padrão EAN13

procedure TForm1.GeraBarrasEAN13(CodBarras: string; Imagem: TCanvas);
const
  TabelaA: array[0..9] of string[7] = ('0001101', '0011001', '0010011', 
'001', '0100011', '0110001', '010', '0111011', '0110111', '0001011');
  TabelaB: array[0..9] of string[7] = ('0100111', '0110011', '0011011', 
'0011011', '0011101', '0111001', '101', '0010001', '0001001', '0010111');
  TabelaC: array[0..9] of string[7] = ('1110010', '1100110', '1101100', 
'110', '1011100', '1001110', '101', '1000100', '1001000', '1110100');
  TabAux: array[0..9] of string[6] = ('AA', 'AABABB', 'AABBAB', 'AABBBA', 
'ABAABB', 'ABBAAB', 'ABBBAA', 'ABABAB', 'ABABBA', 'ABBABA');
var
  Codigo: string;
  Formato: string;
  PegaDaTabela: string;
  DecimoTerceiroDig: Byte;
  Cont: Byte;
begin
  Formato := '';
  Codigo := CodBarras;
  DecimoTerceiroDig := StrToIntDef(CodBarras[1], 0);
  {}
  { Tendo o 13º dígito definido, posso definir o padrão de impressão das barras}
  { no primeiro conjunto de 6 dígitos baseado na tabela Auxiliar. }
  {}
  PegaDaTabela := TabAux[DecimoTerceiroDig] + 'CC';
  Formato := Formato + '101'; //--> Barra Auxiliar de Guarda 'Esquerda'
  for Cont := 1 to Length(PegaDaTabela) do
  begin

case PegaDaTabela[Cont] of
  'A': Formato := Formato + TabelaA[StrToInt(Codigo[Cont + 1])];
  'B': Formato := Formato + TabelaB[StrToInt(Codigo[Cont + 1])];
  'C': Formato := Formato + TabelaC[StrToInt(Codigo[Cont + 1])];
end;

if Cont = 6 then
  Formato := Formato + '01010'; //--> Barra Auxiliar de Guarda 'Central'

  end;
  Formato := Formato + '101'; //--> Barra Auxiliar de Guarda 'Direita'

  //-- Desenha o código alfa-numérico na imagem
  Imagem.Font.Size := 10;
  Imagem.Brush.Color := ClWhite;
  Imagem.Pen.Color := ClBlack;
  Imagem.TextOut(02, 51, Copy(CodBarras, 01, 01));
  Imagem.TextOut(13, 51, Copy(CodBarras, 02, 06));
  Imagem.TextOut(60, 51, Copy(CodBarras, 08, 06));
  //-- Desenha as barras na imagem
  DesenhaBarras(Formato, Imagem);
end;

procedure TForm1.DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas);
var
  X, Y, H: LongInt;
  A, B, C, D: TPoint;
  I: Boolean;
begin

  Imagem.Brush.Color := ClWhite;
  Imagem.Pen.Color := ClBlack;
  x := 10;
  i := True;
  for y := 1 to Length(SequenciaHexa) do
  begin
if SequenciaHexa[y] = '0' then
  Imagem.Pen.Color := ClWhite
else
  Imagem.Pen.Color := ClBlack;
h := 1;
a.x := x;
a.y := 0;
b.x := x;
b.y := 50;
c.x := x + h - 1;
c.y := 50;
d.x := x + h - 1;
d.y := 0;
case Y of
  1..3, 46..50, 93..95:
begin
  b.y := 55;
  c.y := 55;
end;
end;
Imagem.Polygon([A, B, C, D]);
i := not (i);
x := x + h;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GeraBarrasEAN13('7891089060350', Image1.Canvas);
end;


   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Código de barras sem componente

[Rodrigo Magno]

Criar Código de Barras 2x5i
Procedure CriaCodigo(Cod : String; Imagem : TCanvas);
 
Const
  digitos : array['0'..'9'] of string[5]= ('00110',
  '10001',
  '01001',
  '11000',
  '00101',
  '10100',
  '01100',
  '00011',
  '10010',
  '01010');
Var
  Numero : String;
  Cod1 : Array[1..1000] Of Char;
  Cod2 : Array[1..1000] Of Char;
  Codigo : Array[1..1000] Of Char;
  Digito : String;
  c1,c2 : Integer;
  x,y,z,h : LongInt;
  a,b,c,d : TPoint;
  I : Boolean;
Begin
  Numero := Cod;
  For x := 1 to 1000 Do
  Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
  End;
  c1 := 1;
  c2 := 1;
  x := 1;
  For y := 1 to Length(Numero) div 2 do
  Begin
Digito := Digitos[Numero[x ]]; 
For z := 1 to 5 do 
Begin 
  Cod1[c1] := Digito[z]; 
  Inc(c1); 
End;
Digito := Digitos[Numero[x+1]]; 
For z := 1 to 5 do 
Begin 
  Cod2[c2] := Digito[z]; 
  Inc(c2); 
End;
Inc(x,2);
  End;
  y := 5;
  Codigo[1] := '0'; 
  Codigo[2] := '0'; 
  Codigo[3] := '0'; 
  Codigo[4] := '0'; { Inicio do Codigo }
  For x := 1 to c1-1 do
  begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
  end;
  Codigo[y] := '1'; Inc(y); { Final do Codigo }
  Codigo[y] := '0'; Inc(y);
  Codigo[y] := '0';
  Imagem.Pen .Width := 1;
  Imagem.Brush.Color := ClWhite;
  Imagem.Pen .Color := ClWhite;
  a.x := 1; a.y := 0;
  b.x := 1; b.y := 79;
  c.x := 2000; c.y := 79;
  d.x := 2000; d.y := 0;
  Imagem.Polygon([a,b,c,d]);
  Imagem.Brush.Color := ClBlack;
  Imagem.Pen .Color := ClBlack;
  x := 0;
  i := True;
  for y:=1 to 1000 do
  begin
If Codigo[y] <> #0 Then
Begin
  If Codigo[y] = '0' then 
h := 1 
  Else 
h := 3;
  a.x := x; a.y := 0;
  b.x := x; b.y := 79;
  c.x := x+h-1; c.y := 79;
  d.x := x+h-1; d.y := 0;
  If i Then 
Imagem.Polygon([a,b,c,d]);
  i := Not(i);
  x := x + h;
End;
  end;
end;
 
Como Usar: 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CriaCodigo('03213213241',Image1.Canvas);
end;


   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Problemas Breakpoints

[Clayton Yahoo]

Kra... uma vez eu mudei a configuração de compilação e deu essa merda.
Verifique no menu Project/Options/Compiler.


  - Original Message - 
  From: Joao Morais 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 20, 2007 2:48 PM
  Subject: Re: [delphi-br] Problemas Breakpoints


  lucaoliveira7 wrote:
  > Pessoal,
  > 
  > Já postei aqui neste grupo porém ninguém tem uma solução plausível. Já 
  > procurei e vários grupos e na internet e nada achei. Peço mais uma vez 
  > a atenção de vcs.
  > Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como aconteceu, mas 
  > os breakpoints pararam de funcionar em um único programa. Estou 
  > utilizando VCLSkin, é a única coisa que me lembro de ter feito e depois 
  > parado de funcionar o breakpoint, só que msm retirando a VCLSkin o 
  > problema continua.
  > 
  > Já deletei todas as DCU´s e recompilei tudo
  > Não é problema de configuração do Delphi, uma vez que se abrir qq 
  > programa o breakpoint volta a funcionar.

  Project | Options | Compiler | Debug Information

  --
  Joao Morais

  > Então estou sem opções. E todos sabem que sem os breakpoints a 
  > depuração de erros se torna lenta e suscetível a mais erros, pq estou 
  > depurando com showmessages.
  > 
  > Grato.
  > 
  > 
  > 
  > 



   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Re: Problemas Breakpoints

[Joao Morais]

lucaoliveira7 wrote:
> Joao Morais
> 
> Não entendi sua colocação, não é problema de configuração, uma vez que 
> funciona em outros programas. Só não funciona para um programa-fonte. 
> Se abrir um nova aplicação escrever duas linhas e colocar o bendito 
> breakpoint funciona.

Eu entendi. O que eu coloquei é específico para cada projeto. A única 
explicação é que as suas units não estão gravando informações de debug, 
seja com $D- ou através do Project Options. Experimente colocar um {$D+} 
dentro da unit problemática.

--
Joao Morais


> Quanto a informação do Willer também já tentei colocar o breakpoints em 
> diversas partes do código fonte.
> 
> Grato
> 
> 
> 
> 

Re: [delphi-br] Iniciante - Inserir data em branco no banco de dadospostgres. {SOLUCIONADO!!!!!}

[tiano27]

Colegas

Acabei descobrindo na tentativa, assim funciona:

if  frmCliente.editData.text = '' then
qryInsere.ParamByName('pdata').value := null;

Obrigado pelas varias dicas, porem nenhuma delas funcionou, somente como 
passei acima.

[]´s

- Original Message - 
From: "Régis Bender" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, June 19, 2007 5:19 PM
Subject: Re: [delphi-br] Iniciante - Inserir data em branco no banco de 
dadospostgres.


No FB funciona.
Faça um teste:
if  frmCliente.editData.text = '' then
qryInsere.ParamByName('pdata').clear;

sds

Bender Desenvolvimento de Sistemas
   e  Serviços Contábeis (Régis)
   (51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED]
   www.regisbender.com.br



  - Original Message - 
  From: fabio giro
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, June 19, 2007 5:00 PM
  Subject: Re: [delphi-br] Iniciante - Inserir data em branco no banco de 
dadospostgres.


  No paradox.
  parambyname('pentrada').datatype := ftdatetime;
  parambyname('pentrada').clear;

  No FB.
  parambyname('pdata').IsNull := true

  Exprimente no PG.

  Espero ter ajudado.

  [EMAIL PROTECTED] escreveu:
  Ainda nao conseguir inserir uma data em branco, não deu...

  No meu caso via pgadmin o banco POSTGRES aceita deixar esta data em 
branco,
  uma vez que nao habilitei a opcao notnull.

  Eu faço a inserção de dados via sql com uma query que recebe parametros:

  qryInsere.ParamByName('pdata').asDate := frmCliente.editData.text;

  Se algum colega puder ajudar eu agradeço sinceramente.

  Muito obrigado pela atenção.

  []´s Tiano.

  - Original Message - 
  From: "Danilo Lustosa Neves" <[EMAIL PROTECTED]>
  To: 
  Sent: Tuesday, June 19, 2007 12:46 PM
  Subject: Re: [delphi-br] Iniciante - Inserir data em branco no banco de
  dados postgres.

  Por definição os DBs nao aceitam valore em branco nos campos tipo Data e
  Hora. Vc pode deixar a opção do campo receber na criacao da tabela. Na
  criacao da tabela, se vc colocar notnull ele nunca recebera valores nulos.
  Se nao colocar nada, por padrao ele deixar inserir registro sem a 
obrigacao
  de preencher o campo Data.

  Veja que EM BRANCO e NULO sao coisas totalmente diferentes

  Em 19/06/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> escreveu:
  >
  > Colegas
  >
  > Como faço para inserir um campo data em branco no banco de dados?
  >
  > Grato.
  > []´s
  >
  >
  >

  -- 
  Atenciosamente,
  []
  Danilo A. Lustosa Neves
  71 3489.9529 / 9141.4170
  [EMAIL PROTECTED]
  SERVIRTUAL - TECNOLOGIA
  EM SISTEMAS DE INTERNET
  [---]

  [As partes desta mensagem que não continham texto foram removidas]

  -- 
  < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

  Links do Yahoo! Grupos

  -
  Novo Yahoo! Cadê? - Experimente uma nova busca.

  [As partes desta mensagem que não continham texto foram removidas]






--
  E-mail classificado pelo Identificador de Spam Inteligente.
  Para alterar a categoria classificada, visite o Terra Mail



--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.472 / Virus Database: 269.9.0/853 - Release Date: 18/6/2007 
15:02


[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos



__ Informação do NOD32 IMON 2339 (20070619) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br

[delphi-br] Código de barras sem componente

[marcoagvillela]

Boa tarde a todos, 

Gostaria de saber se alguém tem um exemplo, 
rotina ou opinão sobre imprimir e gerar um 
código de barras sem componente, somente com 
fontes ou outro meio? 

[delphi-br] Re: Problemas Breakpoints

[lucaoliveira7]

Joao Morais

Não entendi sua colocação, não é problema de configuração, uma vez que 
funciona em outros programas. Só não funciona para um programa-fonte. 
Se abrir um nova aplicação escrever duas linhas e colocar o bendito 
breakpoint funciona.

Quanto a informação do Willer também já tentei colocar o breakpoints em 
diversas partes do código fonte.

Grato

Re: [delphi-br] 3 X 0 = 1

[Alcistemas Informática]

Boa..

dessa eu não sabia..

valeu!

  - Original Message - 
  From: Marcello Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 20, 2007 1:07 PM
  Subject: Re: [delphi-br] 3 X 0 = 1


  ALSI E SO USA MINIMO(1,XXX)

  --- Alcistemas Informática <[EMAIL PROTECTED]>
  wrote:

  > Em um determinado select eu preciso fazer com oque 3
  > X 0 Seja igual a 3:
  > 
  > ex:
  > 
  > select itens.qtd * itens.comprimento as total
  > 
  > Campos:
  > 
  > QTD = 3
  > COMPRIMENTO = 0
  > 
  > o comprimento pode variar.. 0,1,2,3, 4 
  > 
  > só que quando for zero preciso que assuma o valor de
  > 1 para que o total nao seja 0 e sim 3
  > 
  > 
  > 
  > [As partes desta mensagem que não continham texto
  > foram removidas]
  > 
  > 

  __
  Finding fabulous fares is fun. 
  Let Yahoo! FareChase search your favorite travel sites to find flight and 
hotel bargains.
  http://farechase.yahoo.com/promo-generic-14795097


   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.472 / Virus Database: 269.9.1/854 - Release Date: 19/6/2007 13:12


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Problemas Breakpoints

[willer]

Tive esse problema a um tempo quando coloquei um trecho de código que não era 
útil, então o Delphi desconsiderou o trecho que coloquei durante a compilação 
fazendo com que o BreakPoint não pudesse ser colocado lá. Talvez esse não seja 
o seu problema, mas dá uma olhada nisso, vê se colocando o Break em outros 
lugares do programa ele funciona...


Willer.
  - Original Message - 
  From: lucaoliveira7 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 20, 2007 1:37 PM
  Subject: [delphi-br] Problemas Breakpoints


  Pessoal,

  Já postei aqui neste grupo porém ninguém tem uma solução plausível. Já 
  procurei e vários grupos e na internet e nada achei. Peço mais uma vez 
  a atenção de vcs.
  Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como aconteceu, mas 
  os breakpoints pararam de funcionar em um único programa. Estou 
  utilizando VCLSkin, é a única coisa que me lembro de ter feito e depois 
  parado de funcionar o breakpoint, só que msm retirando a VCLSkin o 
  problema continua.

  Já deletei todas as DCU´s e recompilei tudo
  Não é problema de configuração do Delphi, uma vez que se abrir qq 
  programa o breakpoint volta a funcionar.

  Então estou sem opções. E todos sabem que sem os breakpoints a 
  depuração de erros se torna lenta e suscetível a mais erros, pq estou 
  depurando com showmessages.

  Grato.



   

  __ Informação do NOD32 IMON 2341 (20070620) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br


[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Re: Send Mail MAPI

[Rodrigo Bevilacqua Marcondes]

Oi Alan , eu ja tenho a rotina funcionando(manda e-mail com anexo normal), o 
problema é o tempo que demora para enviar um anexo - que congela a tela 
enquanto não envia o e-mail 
Estou utilizando MAPI 
-
Não entendi direi sua duvida, pois ja fiz um codigo de envio de 
email com arquivo anexo, é isto q vc precisa em???







   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: RES: [delphi-br] Send Mail MAPI

[Rodrigo Bevilacqua Marcondes]

Vou verificar , mas a idéia é usa o cliente de cliente que o cliente tiver para 
o envio de e-mails... 
Da para fazer isso com o Indy ? 
---

Talvez vc possa tentar tb usando os componentes Indy p/ envio de email.
Assim vc nao fica preso ao outlook.
 
Abs
 
Valdir

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rodrigo Bevilacqua Marcondes
Enviada em: quarta-feira, 20 de junho de 2007 12:49
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Send Mail MAPI



Ola Valdir, ou ver o que consigo com isso, será que consigo jogar o chamado
que faço a API do MAPISendmail usando Threads  ??? Vou er o que consigo
...

Valeu
---

Colega,

eu acho que vc podia resolver esse problema criando um servico windows
ou uma thread p/ que este processo seja executado em segundo plano evitando
assim o travamento temporário de sua aplicação.

O link abaixo tem um exemplo de como trabalhar c/ serviços windows:
http://lib.seven. 
com.br/ampliar.asp?codartigo=545

Vc pode também usar a suite de componentes JEDI lá tem um conjunto de
componentes Thread c/ exemplos onde vc pode fazer uma adaptação no seu
sistema.
http://homepages. 
codegear.com/jedi/jvcl/


Abs


Valdir

_ 

De: [EMAIL PROTECTED]  os.com.br
[mailto:[EMAIL PROTECTED] 
os.com.br] Em
nome de Rodrigo Bevilacqua Marcondes
Enviada em: quarta-feira, 20 de junho de 2007 09:34
Para: [EMAIL PROTECTED]  os.com.br
Assunto: [delphi-br] Send Mail MAPI

Olá Colegas

Utilizo o Delphi 2005, e tenho um rotina para enviar e-mail com anexo,
usando o "MAPISendMail", tudo funciona legal, mas gostaria de saber o
seguinte:
Quanto chama o outlook express e clicar em enviar, o S.O. trava até que o
envio completo do e-mail. Tem como não travar e mandar em segundo plano.
Uso o seguinte comando SM(0, Application.Handle, message, MAPI_DIALOG or
MAPI_LOGON_UI,0);

Qualquer sugestão é bem vinda

Muito Obrigado

Rodrigo ®¿®

__
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. 
com.br/oqueeuganhocomisso>
com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

_ 

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
 terra.com.br/cgi-bin/imail.cgi?+_u=fastbyte&_l=1,1182342932.147
937.32538.domoni.hst.terra.com.br,16235,Des15,Des15> Mail 

_ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
 terra.com.br/> .
Scan engine: McAfee VirusScan / Atualizado em 19/06/2007 / Versão:
5.1.00/5056
Proteja o seu e-mail Terra: http://mail. 
terra.com.br/ 

[As partes desta mensagem que não continham texto foram removidas]

-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos

__
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. 
com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]



 


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
 Mail 


  _  

Esta mensagem foi verificada pelo E-mail Protegido Terra
 .
Scan engine: McAfee VirusScan / Atualizado em 19/06/2007 / Versão:
5.1.00/5056
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 



[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos

 







   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Problemas Breakpoints

[Joao Morais]

lucaoliveira7 wrote:
> Pessoal,
> 
> Já postei aqui neste grupo porém ninguém tem uma solução plausível. Já 
> procurei e vários grupos e na internet e nada achei. Peço mais uma vez 
> a atenção de vcs.
> Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como aconteceu, mas 
> os breakpoints pararam de funcionar em um único programa. Estou 
> utilizando VCLSkin, é a única coisa que me lembro de ter feito e depois 
> parado de funcionar o breakpoint, só que msm retirando a VCLSkin o 
> problema continua.
> 
> Já deletei todas as DCU´s e recompilei tudo
> Não é problema de configuração do Delphi, uma vez que se abrir qq 
> programa o breakpoint volta a funcionar.

Project | Options | Compiler | Debug Information

--
Joao Morais



> Então estou sem opções. E todos sabem que sem os breakpoints a 
> depuração de erros se torna lenta e suscetível a mais erros, pq estou 
> depurando com showmessages.
> 
> Grato.
> 
> 
> 
> 

Re: [delphi-br] Duvida sobre Herança

[Marcos Bernardo]

Salve

como vc esta impelmentando isso?
vc adicionou o form "padrão" no seu projeto?

de maiores detalhes

abraço

Marcos Bernardo


Em 19/06/07, <> <[EMAIL PROTECTED]> escreveu:
>
>   Ola pessoal, estou começando agora com o Delphi, cheguei em um ponto
> em certo aplicativo que não consigo mais evoluir no meu estudo, pois
> fui criar um formulario "PADRAO" para que os outros forms pudessem
> herdar suas caracteristicas, até ai td bem, porém qdo criei um outro
> form ja herdando alguns atributos apareceu um erro q não consigo
> arrumar, talvez seja um problema simples para a maioria do pessoal,
> mas estou quebrando a cabeça e preciso da ajuda dos senhores,
> ERRO:
> [Error] WARNING. Duplicate resource(s):
> [Error] Type 10 (RCDATA), ID TFRMCADPADRAO:
> [Error]File UCadPadrao.dfm resource kept; file FormCadPadrao.dfm
> resource discarded.
>
> Caso apareça alguma pessoa que tenha interesse em me ajudar, eu
> poderia enviar todo o projeto, para que o mesmo fosse avaliado.
>
> Desde já agradeço a atençao e compreensão de todos.
>
> <>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>


[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] 3 X 0 = 1

[Jorge Henrique Monteiro de Brito]

Oi, tente isso.

select total = 
case itens.comprimento = 0 then itens.qtd
else itens.qtd * itens.comprimento
end
[]' Jorge


- Mensagem original 
De: Alcistemas Informática <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 20 de Junho de 2007 12:21:02
Assunto: [delphi-br] 3 X 0 = 1









  



Em um determinado select eu preciso fazer com oque 3 X 0  Seja 
igual a 3:



ex:



select itens.qtd * itens.comprimento as total



Campos:



QTD = 3

COMPRIMENTO = 0



o comprimento pode variar.. 0,1,2,3, 4 



só que quando for zero preciso que assuma o valor de 1 para que o total nao 
seja 0 e sim 3



[As partes desta mensagem que não continham texto foram removidas]






  
















   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Res:Re: Comp3 do Cobol para Numero

[SAFIG.Mario]

Tá aí, Leandro,

 

Para transformar um campo Comp3 do COBOL em Integer do Pascal:

 

Neste exemplo o campo hexa 09 17 20 14 0C foi convertido para 091720140



var

  Registro, CodigoCobol, CodigoDelphi: string;

  I, J, K, L: integer;

  F: file;

  Buf: array[0..79] of char;

begin

  AssignFile(F,'C:\ArquivoCobol.arq');

  Reset(F,1);

  BlockRead(F,Buf,SizeOf(Buf),NumRead);

  Registro := StrPas(Buf);

  while NumRead > 0 do

begin

  CodigoDelphi := '';

  for I := 0 to 4 do   // Neste caso estou convertendo 5 caracteres

begin

  CodigoCobol := Copy(Registro,1 + I,1);   // Pega 1 byte de cada vez

  if CodigoCobol = '' then   // É o caso do código $00

CodigoDelphi := CodigoDelphi + '00'

  Else

Begin

  J := Ord(CodigoCobol[1]);   // Acha o valor decimal do caracter 
correspondente

  K := Trunc(J / 16);

  L := J mod 16;

  if (L = 12) or

 (L = 13) or

 (L = 15) then   // É o caso do código $0C (Sinal Positivo), 
$0D (Sinal Negativo) ou $0F (Sem Sinal)

CodigoDelphi := CodigoDelphi + IntToStr(K)

  Else

CodigoDelphi := CodigoDelphi + Format('%2.2d',[(K * 10) + L]);

end;

end;

  BlockRead(F,Buf,SizeOf(Buf),NumRead);

  Registro := StrPas(Buf);

end;

  CloseFile(F);

Abraços
Mario Hardt

Blumenau-SC

- Original Message - 
From: Leandro 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, June 19, 2007 2:24 PM
Subject: [delphi-br] Comp3 do Cobol para Numero

Bom dia,

Alguem tem alguma função Delphi que converte valor compactado do Cobol para 
valor numerico?

Gerei txt´s das tabelas para importar no meu sistema, mas alguns campos estao 
compactados.

Obrigado,

Leandro



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Gravação de Laudo pelo Delphi

[Marcelo Carvalho]

Existe algum componente para gravação de voz (formato wave) para Delphi ?
Onde eu possa controlar tempo de gravação, fazer cortes e tudo mais ???

-- 
Marcelo Carvalho
MSN  [EMAIL PROTECTED]
ICQ 239-997-482


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] 3 X 0 = 1

[Marcello Santos]

MAXIMO(1,XXX)


--- Alcistemas Informática <[EMAIL PROTECTED]>
wrote:

> Em um determinado select eu preciso fazer com oque 3
> X 0  Seja igual a 3:
> 
> ex:
> 
> select itens.qtd * itens.comprimento as total
> 
> Campos:
> 
> QTD = 3
> COMPRIMENTO = 0
> 
> o comprimento pode variar.. 0,1,2,3, 4 
> 
> só que quando for zero preciso que assuma o valor de
> 1 para que o total nao seja 0 e sim 3
> 
> 
> 
> [As partes desta mensagem que não continham texto
> foram removidas]
> 
> 



 

Bored stiff? Loosen up... 
Download and play hundreds of games for free on Yahoo! Games.
http://games.yahoo.com/games/front

Re: [delphi-br] 3 X 0 = 1

[Marcello Santos]

ALSI E SO USA MINIMO(1,XXX)


--- Alcistemas Informática <[EMAIL PROTECTED]>
wrote:

> Em um determinado select eu preciso fazer com oque 3
> X 0  Seja igual a 3:
> 
> ex:
> 
> select itens.qtd * itens.comprimento as total
> 
> Campos:
> 
> QTD = 3
> COMPRIMENTO = 0
> 
> o comprimento pode variar.. 0,1,2,3, 4 
> 
> só que quando for zero preciso que assuma o valor de
> 1 para que o total nao seja 0 e sim 3
> 
> 
> 
> [As partes desta mensagem que não continham texto
> foram removidas]
> 
> 



 

Finding fabulous fares is fun.  
Let Yahoo! FareChase search your favorite travel sites to find flight and hotel 
bargains.
http://farechase.yahoo.com/promo-generic-14795097

Re: [delphi-br] Campo negativo

[Márcio Ricardo]

Outra opção..
verifica qual valor é maior entre o valor1 e valor2 e monte o seu calculo...

IF valor1 >= valor2 then
  valor3 = valor1 - valor2
ELSE
  valor3 = valor2 - valor1

Márcio Ricardo.
  - Original Message - 
  From: Guionardo Furlan 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 20, 2007 1:16 PM
  Subject: Re: [delphi-br] Campo negativo


  Use a função ABS da unit SYSTEM (ela retorna o valor absoluto de um
  número, isto é, sem o sinal).

  Por exemplo:

  Valor3:=Abs(Valor1-Valor2);

  Em 20/06/07, Rodrigo Magno <[EMAIL PROTECTED]> escreveu:

  > Amigos Delphianos,
  >
  > Estou precisando de como fazer o seguinte, tem uma condição aonde que :
  >
  > Valor1- Valor2 = Valor3
  >
  > aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim :
  >
  > valor2-valor1 = valor3.
  >
  > Alguem poderia me falar como podera fazer isto ?
  >
  > Obs : Como posso descobrir se o valor e negativo
  >
  > Rodrigo Magno

  -- 
  Timeo hominem unius libri
  Cogito ergo sum - Carpe diem

  []s
  Guionardo Furlan
  http://guionardo.blogspot.com


   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Campo negativo

[Eduardo Castro Alves]

Valor3 = Abs( Valor1- Valor2 );

O método Abs(valor) sempre retorna o valor positivo.


Eduardo




Rodrigo Magno escreveu:
>
> Amigos Delphianos,
>
> Estou precisando de como fazer o seguinte, tem uma condição aonde que :
>
> Valor1- Valor2 = Valor3
>
> aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim :
>
> valor2-valor1 = valor3.
>
> Alguem poderia me falar como podera fazer isto ?
>
> Obs : Como posso descobrir se o valor e negativo
>
> Rodrigo Magno
>
> * [EMAIL PROTECTED] 
> msn [EMAIL PROTECTED] 
>
> __
> Novo Yahoo! Cadê? - Experimente uma nova busca.
> http://yahoo.com.br/oqueeuganhocomisso 
> 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Res: RES: [delphi-br] Send Mail MAPI

[Rodrigo Bevilacqua Marcondes]

Ola Valdir, ou ver o que consigo com isso, será que consigo jogar o chamado que 
faço a API do MAPISendmail usando Threads  ???  Vou er o que consigo ...

Valeu
---

Colega,
 
eu acho que vc podia resolver esse problema criando um servico windows
ou uma thread p/ que este processo seja executado em segundo plano evitando
assim o travamento temporário de sua aplicação.
 
O link abaixo tem um exemplo de como trabalhar c/ serviços windows:
http://lib.seven.com.br/ampliar.asp?codartigo=545
 
Vc pode também usar a suite de componentes JEDI lá tem um conjunto de
componentes Thread c/ exemplos onde vc pode fazer uma adaptação no seu
sistema.
http://homepages.codegear.com/jedi/jvcl/
 
 
Abs
 
 
Valdir

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rodrigo Bevilacqua Marcondes
Enviada em: quarta-feira, 20 de junho de 2007 09:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Send Mail MAPI



Olá Colegas

Utilizo o Delphi 2005, e tenho um rotina para enviar e-mail com anexo,
usando o "MAPISendMail", tudo funciona legal, mas gostaria de saber o
seguinte:
Quanto chama o outlook express e clicar em enviar, o S.O. trava até que o
envio completo do e-mail. Tem como não travar e mandar em segundo plano.
Uso o seguinte comando SM(0, Application.Handle, message, MAPI_DIALOG or
MAPI_LOGON_UI,0);

Qualquer sugestão é bem vinda

Muito Obrigado

Rodrigo ®¿®

__
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. 
com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]



 


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
 Mail 


  _  

Esta mensagem foi verificada pelo E-mail Protegido Terra
 .
Scan engine: McAfee VirusScan / Atualizado em 19/06/2007 / Versão:
5.1.00/5056
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 



[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos

 







   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] 3 X 0 = 3

[Andrei Luís]

Dê uma estudada no comando Case do FB

[]
Andrei

Em 20/06/07, Alcistemas Informática<[EMAIL PROTECTED]> escreveu:
> OPS... Uso Delphi 7 com Firebird 1.5
>
> Em um determinado select eu preciso fazer com oque 3 X 0  Seja igual a 3:
>
> ex:
>
> select itens.qtd * itens.comprimento as total
>
> Campos:
>
> QTD = 3
> COMPRIMENTO = 0
>
> o comprimento pode variar.. 0,1,2,3, 4
>
> só que quando for zero preciso que assuma o valor de 1 para que o total nao 
> seja 0 e sim 3

[delphi-br] Problemas Breakpoints

[lucaoliveira7]

Pessoal,

Já postei aqui neste grupo porém ninguém tem uma solução plausível. Já 
procurei e vários grupos e na internet e nada achei. Peço mais uma vez 
a atenção de vcs.
Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como aconteceu, mas 
os breakpoints pararam de funcionar em um único programa. Estou 
utilizando VCLSkin, é a única coisa que me lembro de ter feito e depois 
parado de funcionar o breakpoint, só que msm retirando a VCLSkin o 
problema continua.

Já deletei todas as DCU´s e recompilei tudo
Não é problema de configuração do Delphi, uma vez que se abrir qq 
programa o breakpoint volta a funcionar.

Então estou sem opções. E todos sabem que sem os breakpoints a 
depuração de erros se torna lenta e suscetível a mais erros, pq estou 
depurando com showmessages.

Grato.

Re: [delphi-br] Duvida de XML

[Guionardo Furlan]

Não sei se dá pra fazer rápido com CDS acessando arquivos XML.
Mas vc pode fazer o seguinte:
Os dois arquivos devem ter a mesma estrutura de dados.
Não testei o código abaixo, mas a idéia é essa. CDS1 e CDS2 são os
dois clientdatasets, que deverão estar ativos.

var Destino : TClientDataSet;
  i : integer;
begin
  Destino:=TClientDataSet.Create(nil);
  Destino.FieldDefs.Assign(Origem.FieldDefs);
  Destino.CreateDataSet;
  CDS1.First;
  while not CDS1.Eof do begin
Destino.Append;
for i:=0 to CDS1.FieldCount-1 do
  Destino.Fields[i].Value:=CDS1.Fields[i].Value
Destino.Post;
CDS1.Next;
  end;
  CDS2.First;
  while not CDS2.Eof do begin
Destino.Append;
for i:=0 to CDS2.FieldCount-1 do
  Destino.Fields[i].Value:=CDS2.Fields[i].Value
Destino.Post;
CDS2.Next;
  end;
  Destino.SaveToFile('DESTINO.XML');
end;

Veja aí se dá certo.

Ah, FASSO é com Ç, eheh

Em 20/06/07, alan_adolfo2 <[EMAIL PROTECTED]> escreveu:
>
> Bom dia galera
>
>  Criei dois arquivos XML e gostaris de junta-la  como eu fasso
>  tenho 2 ClientDataSet, e 2 ClientDataSet, fazendo um SQL, como eu
>  fasso isto???


-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com

RE: [delphi-br] Duvida de XML

[Rubem Nascimento da Rocha]

Isso não existe de interagir SQL com XML usando ClientDataSet. O que vc tem que 
fazer é criar um novo ClientDataSet, que seria alimentado pelos outros dois 
ClientDataSets que estão associados aos dois arquivos XML. Sds.


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 20 Jun 2007 13:09:54 
+Subject: [delphi-br] Duvida de XML




Bom dia galeraCriei dois arquivos XML e gostaris de junta-la como eu fasso 
tenho 2 ClientDataSet, e 2 ClientDataSet, fazendo um SQL, como eu fasso isto??? 


_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Campo negativo

[Guionardo Furlan]

Use a função ABS da unit SYSTEM (ela retorna o valor absoluto de um
número, isto é, sem o sinal).

Por exemplo:

Valor3:=Abs(Valor1-Valor2);


Em 20/06/07, Rodrigo Magno <[EMAIL PROTECTED]> escreveu:

> Amigos Delphianos,
>
>  Estou precisando de como fazer o seguinte, tem uma condição aonde que :
>
>  Valor1- Valor2 = Valor3
>
>  aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim :
>
>  valor2-valor1 = valor3.
>
>  Alguem poderia me falar como podera fazer isto ?
>
>  Obs : Como posso descobrir se o valor e negativo
>
>  Rodrigo Magno

-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com

Re: [delphi-br] 3 X 0 = 1

[Alcistemas Informática]

Galera, consegui...

select itens.qtd * coalesce(nullif(itens.comprimento,0),1)as total 

ou seja se for 0 transforma em nulo usando a funcao nullif
sendo nulo transforma em 1 com a funcao coalesce




  - Original Message - 
  From: Alcistemas Informática 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 20, 2007 12:21 PM
  Subject: [delphi-br] 3 X 0 = 1


  Em um determinado select eu preciso fazer com oque 3 X 0 Seja igual a 3:

  ex:

  select itens.qtd * itens.comprimento as total

  Campos:

  QTD = 3
  COMPRIMENTO = 0

  o comprimento pode variar.. 0,1,2,3, 4 

  só que quando for zero preciso que assuma o valor de 1 para que o total nao 
seja 0 e sim 3

  [As partes desta mensagem que não continham texto foram removidas]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.472 / Virus Database: 269.9.1/854 - Release Date: 19/6/2007 13:12


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] 3 X 0 = 1 - CONSEGUI...

[Alcistemas Informática]

  Galera, consegui...

  select itens.qtd * coalesce(nullif(itens.comprimento,0),1)as total 

  ou seja se for 0 transforma em nulo usando a funcao nullif
  sendo nulo transforma em 1 com a funcao coalesce

- Original Message - 
From: Alcistemas Informática 
To: delphi-br@yahoogrupos.com.br 
Sent: Wednesday, June 20, 2007 12:21 PM
Subject: [delphi-br] 3 X 0 = 1


Em um determinado select eu preciso fazer com oque 3 X 0 Seja igual a 3:

ex:

select itens.qtd * itens.comprimento as total

Campos:

QTD = 3
COMPRIMENTO = 0

o comprimento pode variar.. 0,1,2,3, 4 

só que quando for zero preciso que assuma o valor de 1 para que o total nao 
seja 0 e sim 3

[As partes desta mensagem que não continham texto foram removidas]



 





No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.472 / Virus Database: 269.9.1/854 - Release Date: 19/6/2007 
13:12


[As partes desta mensagem que não continham texto foram removidas]

RES: RES: [delphi-br] Send Mail MAPI

[Valdir]

Talvez vc possa tentar tb usando os componentes Indy p/ envio de email.
Assim vc nao fica preso ao outlook.
 
Abs
 
Valdir

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rodrigo Bevilacqua Marcondes
Enviada em: quarta-feira, 20 de junho de 2007 12:49
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Send Mail MAPI



Ola Valdir, ou ver o que consigo com isso, será que consigo jogar o chamado
que faço a API do MAPISendmail usando Threads  ??? Vou er o que consigo
...

Valeu
---

Colega,

eu acho que vc podia resolver esse problema criando um servico windows
ou uma thread p/ que este processo seja executado em segundo plano evitando
assim o travamento temporário de sua aplicação.

O link abaixo tem um exemplo de como trabalhar c/ serviços windows:
http://lib.seven. 
com.br/ampliar.asp?codartigo=545

Vc pode também usar a suite de componentes JEDI lá tem um conjunto de
componentes Thread c/ exemplos onde vc pode fazer uma adaptação no seu
sistema.
http://homepages. 
codegear.com/jedi/jvcl/


Abs


Valdir

_ 

De: [EMAIL PROTECTED]  os.com.br
[mailto:[EMAIL PROTECTED] 
os.com.br] Em
nome de Rodrigo Bevilacqua Marcondes
Enviada em: quarta-feira, 20 de junho de 2007 09:34
Para: [EMAIL PROTECTED]  os.com.br
Assunto: [delphi-br] Send Mail MAPI

Olá Colegas

Utilizo o Delphi 2005, e tenho um rotina para enviar e-mail com anexo,
usando o "MAPISendMail", tudo funciona legal, mas gostaria de saber o
seguinte:
Quanto chama o outlook express e clicar em enviar, o S.O. trava até que o
envio completo do e-mail. Tem como não travar e mandar em segundo plano.
Uso o seguinte comando SM(0, Application.Handle, message, MAPI_DIALOG or
MAPI_LOGON_UI,0);

Qualquer sugestão é bem vinda

Muito Obrigado

Rodrigo ®¿®

__
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. 
com.br/oqueeuganhocomisso>
com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

_ 

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
 terra.com.br/cgi-bin/imail.cgi?+_u=fastbyte&_l=1,1182342932.147
937.32538.domoni.hst.terra.com.br,16235,Des15,Des15> Mail 

_ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
 terra.com.br/> .
Scan engine: McAfee VirusScan / Atualizado em 19/06/2007 / Versão:
5.1.00/5056
Proteja o seu e-mail Terra: http://mail. 
terra.com.br/ 

[As partes desta mensagem que não continham texto foram removidas]

-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos

__
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. 
com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]



 


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
 Mail 


  _  

Esta mensagem foi verificada pelo E-mail Protegido Terra
 .
Scan engine: McAfee VirusScan / Atualizado em 19/06/2007 / Versão:
5.1.00/5056
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Vaga de Arquiteto Delphi Sênior (URGENTE!)

[Nova Consultoria]

ARQUITETO DELPHI SÊNIOR 
  
Formação 
- Superior completo ou cursando 

Requisitos Profissionais 
- Experiência de 4 a 6 anos em Desenvolvimento Delphi 
- Sólidos conhecimentos em SQL Server 
- Orientação ao objeto 
- Modelagem de dados 

Desejável 
- Oracle 
- UML 

Requisitos Pessoais 
- Bom relacionamento interpessoal, flexibilidade, organização, pró-atividade. 

Boa oportunidade em empresa de grande porte líder no seu segmento no Rio de 
Janeiro.
   
  Encaminhar currículos para [EMAIL PROTECTED] especificando no campus Assunto 
o nome da vaga.
   
  Aguardamos confirmação do recebimento do mesmo.
   
  Att.
   
  
  21 2531.1204 – 2532.2533
  [EMAIL PROTECTED]
  

   
-
Novo Yahoo! Cadê? - Experimente uma nova busca. 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] 3 X 0 = 1

[Alcistemas Informática]

Em um determinado select eu preciso fazer com oque 3 X 0  Seja igual a 3:

ex:

select itens.qtd * itens.comprimento as total

Campos:

QTD = 3
COMPRIMENTO = 0

o comprimento pode variar.. 0,1,2,3, 4 

só que quando for zero preciso que assuma o valor de 1 para que o total nao 
seja 0 e sim 3



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] 3 X 0 = 3

[Alcistemas Informática]

OPS... Uso Delphi 7 com Firebird 1.5

Em um determinado select eu preciso fazer com oque 3 X 0  Seja igual a 3:

ex:

select itens.qtd * itens.comprimento as total

Campos:

QTD = 3
COMPRIMENTO = 0

o comprimento pode variar.. 0,1,2,3, 4 

só que quando for zero preciso que assuma o valor de 1 para que o total nao 
seja 0 e sim 3



[As partes desta mensagem que não continham texto foram removidas]

RES: [Spam] [delphi-br]Problema com impressão mo do texto (Códigos de controle)

[Valdir]

Já tentou o site dos fabricantes? O site da Epson disponibiliza os manuais
em PDF, já das outras marcas eu não sei mas deve ter tb.
 
Abs
 
Valdir

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de paganato
Enviada em: quarta-feira, 20 de junho de 2007 11:16
Para: delphi-br@yahoogrupos.com.br
Assunto: [Spam] [delphi-br]Problema com impressão modo texto (Códigos de
controle)



Colegas estou desenvolvendo um módulo de impressão onde será utilizado
o tipo texto. Estou precisando dos códigos de controle das principais
impressoras (HP deskjet e laser, epson matricial, deskjet e laser,
lexmark, elgin, rima, etc).
Estou com mais urgencia da epson matricial (LX-300+).
Se alguem tiver os códigos dessas impressoras ou puder indicar onde
encontrar agradeço muito.

Abraços.
Alexandre Paganato



 


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
 Mail 


  _  

Esta mensagem foi verificada pelo E-mail Protegido Terra
 .
Scan engine: McAfee VirusScan / Atualizado em 19/06/2007 / Versão:
5.1.00/5056
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Material sobre BPL´s

[fabio giro]

www.activedelphi.com.br/modules.php? op=modload&name=News&file=article&sid=141

www.imasters.com.br/busca/0/29/6/artigo

  www.imasters.com.br/artigo/1047/delphi/usando_pacotes_para_modularizar_
  aplicacoes_parte_final/

  Espero ter ajudado
Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:
  Dê uma lida na função LoadPackages e GetClass 

Vc poderá carregar uma bpl no seu projeto e pegar uma classe que vc desconhece 
e instancia-la.

E trabalhar com ela no na sua aplicação.

Ajuda muito na hora de trabalhar com herança.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leandro
Enviada em: quarta-feira, 20 de junho de 2007 07:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Material sobre BPL´s

Bom dia,

Estou procurando material sobre modularização de sistemas através de BPL´s.

Achei um material básico no delphi.about.com... mas queria saber mais detalhes 
sobre
como interagir com formularios de uma BPL, trocar dados entre BPL´s (pelo que 
percebi
seria com parametros de retorno em procedimentos exportados)... enfim... queria
uma material mais aprofundado.

Desde já agradeço.

Leandro

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]



 

   
-
Novo Yahoo! Cadê? - Experimente uma nova busca. 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Campo negativo

[Rodrigo Magno]

Amigos Delphianos, 


Estou precisando de como fazer o seguinte, tem uma condição aonde que : 


Valor1- Valor2 = Valor3 

aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim : 

valor2-valor1 = valor3. 


Alguem poderia me falar como podera fazer isto ? 

Obs : Como posso descobrir se o valor e negativo


Rodrigo Magno 

* [EMAIL PROTECTED] 
msn [EMAIL PROTECTED]


   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Res:Comp3 do Cobol para Numero

[Alessandro DUARTE de Moraes]

Se vc precisa ler um arquivo Cobol que tem COMP3 e não pode alterar esta FD, 
então vc pode tentar o seguinte:

*** não sei se realmente é assim, apenas vou dizer a técnica possível de 
utilização ***

Para armazenar os valor em um campo COMP3 o COBOL deve fazer o com que 2 
dígitos sejam armazenados ema apenas 1 byte, isto é, como 1 byte é composto por 
8 bits, os 4 primeiros bits armazena o 1º dígito e os 4 últimos o 2º dígito, 
utilizando a lógica binária. Exemplo:

PIC 9(5)V2 (conforme o teu exemplo) => 7245389 onde os em azul são os inteiros 
e os vermelhos os decimais.
com o COMP3 isso deve ocupar 4 bytes ( "tamanho total" 7 / 2 = 3,5 => 4)

** em verde: posição bit
** em azul: valor binário
** em vermelho: notação binária para o número

byte 1 - 07 (corresponde ao chr(7))
  1 2 3 4 5 6 7 8 
  8 4 2 1 8 4 2 1 
  0 0 0 0 0 1 1 1 


byte 2 - 24 (corresponde ao chr(36))
  1 2 3 4 5 6 7 8 
  8 4 2 1 8 4 2 1 
  0 0 1 0 0 1 0 0 


byte 3 - 53 (corresponde ao chr(83))
  1 2 3 4 5 6 7 8 
  8 4 2 1 8 4 2 1 
  0 1 0 1 0 0 1 1 


byte 4 - 89 (corresponde ao chr(137))
  1 2 3 4 5 6 7 8 
  8 4 2 1 8 4 2 1 
  1 0 0 0 1 0 0 1 



Volto a dizer, não sei se é exatamente isso que o COBOL faz, mas é muito 
provável, pois o tamanho em bytes de um COMP3 é a metade do que ocuparia o 
normal. Tenta pra ver.

Abraços,
Alessandro.

- Original Message - 
From: "Rodilson" <[EMAIL PROTECTED]>
To: "delphi-br @yahoogrupos.com.br" 
Sent: Wednesday, June 20, 2007 10:49 AM
Subject: [delphi-br] Res:Comp3 do Cobol para Numero


> Bom  dia Leandro,
> 
> O problema esta no cobol, quando você definir sua "FD" para o registro do 
> arquivo texto na Data Division, não use comp3, exemplo:
> DATA DIVISION.
>01 REG-TXT.
>03 VALOR  PIC 9(5)V2 COMP3. // Errado
>03 VALOR  PIC 9,99.  // Correto
> 
> Creio que isto deve resolver seu problema.
> 
> Um abraço,
> 
> Rodilson
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> 
> Links do Yahoo! Grupos
> 
> 
> 
> --
> E-mail Seguro Vetorial.net
> 
> Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
> encaminhe para [EMAIL PROTECTED]
> 
> Chave de Identificação: 54568,467933f3312731477644665
> 
>

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Re: Send Mail MAPI

[alan_adolfo2]

Rofrigo 

Não entendi direi sua duvida, pois ja fiz um codigo de envio de 
email com arquivo anexo, é isto q vc precisa em???


--- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes 
<[EMAIL PROTECTED]> escreveu
>
> Olá Colegas
> 
> Utilizo o Delphi 2005, e tenho um rotina para enviar e-mail 
com anexo, usando o "MAPISendMail", tudo funciona legal, mas 
gostaria de saber o seguinte:
> Quanto chama o outlook express e clicar em enviar, o S.O. trava 
até que o envio completo do e-mail. Tem como não travar e mandar em 
segundo plano.
> Uso o seguinte comando SM(0, Application.Handle, message, 
MAPI_DIALOG or MAPI_LOGON_UI,0);
> 
> Qualquer sugestão é bem vinda
> 
> Muito Obrigado
> 
> Rodrigo ®¿®
> 
> 
>
> 
_
___
> Novo Yahoo! Cadê? - Experimente uma nova busca.
> http://yahoo.com.br/oqueeuganhocomisso 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

RES: [delphi-br] Send Mail MAPI

[Valdir]

Colega,
 
eu acho que vc podia resolver esse problema criando um servico windows
ou uma thread p/ que este processo seja executado em segundo plano evitando
assim o travamento temporário de sua aplicação.
 
O link abaixo tem um exemplo de como trabalhar c/ serviços windows:
http://lib.seven.com.br/ampliar.asp?codartigo=545
 
Vc pode também usar a suite de componentes JEDI lá tem um conjunto de
componentes Thread c/ exemplos onde vc pode fazer uma adaptação no seu
sistema.
http://homepages.codegear.com/jedi/jvcl/
 
 
Abs
 
 
Valdir

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rodrigo Bevilacqua Marcondes
Enviada em: quarta-feira, 20 de junho de 2007 09:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Send Mail MAPI



Olá Colegas

Utilizo o Delphi 2005, e tenho um rotina para enviar e-mail com anexo,
usando o "MAPISendMail", tudo funciona legal, mas gostaria de saber o
seguinte:
Quanto chama o outlook express e clicar em enviar, o S.O. trava até que o
envio completo do e-mail. Tem como não travar e mandar em segundo plano.
Uso o seguinte comando SM(0, Application.Handle, message, MAPI_DIALOG or
MAPI_LOGON_UI,0);

Qualquer sugestão é bem vinda

Muito Obrigado

Rodrigo ®¿®

__
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. 
com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]



 


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
 Mail 


  _  

Esta mensagem foi verificada pelo E-mail Protegido Terra
 .
Scan engine: McAfee VirusScan / Atualizado em 19/06/2007 / Versão:
5.1.00/5056
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 



[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Material sobre BPL´s

[Davi Eduardo Borges Wall]

Dê uma lida na função LoadPackages e GetClass 

 

Vc poderá carregar uma bpl no seu projeto e pegar  uma classe que vc desconhece 
e instancia-la.

E trabalhar com ela no na sua aplicação.



Ajuda muito na hora de trabalhar com herança.

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leandro
Enviada em: quarta-feira, 20 de junho de 2007 07:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Material sobre BPL´s

 

Bom dia,

Estou procurando material sobre modularização de sistemas através de BPL´s.

Achei um material básico no delphi.about.com... mas queria saber mais detalhes 
sobre
como interagir com formularios de uma BPL, trocar dados entre BPL´s (pelo que 
percebi
seria com parametros de retorno em procedimentos exportados)... enfim... queria
uma material mais aprofundado.

Desde já agradeço.

Leandro

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Problema com impressão modo texto (Códigos de controle)

[paganato]

Colegas estou desenvolvendo um módulo de impressão onde será utilizado
o  tipo texto. Estou precisando dos códigos de controle das principais
impressoras (HP deskjet e laser, epson matricial, deskjet e laser,
lexmark, elgin, rima, etc).
Estou com mais urgencia da epson matricial (LX-300+).
Se alguem tiver os códigos dessas impressoras ou puder indicar onde
encontrar agradeço muito.

Abraços.
Alexandre Paganato

[delphi-br] Re: JvAVICapture e ShowModal

[blcksun954]

 Ignorem esse e-mail. Resolvi colocando o JvAviCapture invisível até a
hora de ajustar a propriedade previewing dele para True. 


--- Em delphi-br@yahoogrupos.com.br, "blcksun954" <[EMAIL PROTECTED]>
escreveu
>
>  Coloquei o JvAviCapture num form que exibo com ShowModal e ele
> simplesmente trava o programa, sem sequer desenhar por completo a nova
> janela. Se for pra usar Show, vou ter de fazer modificações em outras
> partes do código pra impedir que o código continue antes das janelas
> serem fechadas. Alguém tem alguma idéia de como resolver?
>

[delphi-br] Res:Comp3 do Cobol para Numero

[Rodilson]

Bom  dia Leandro,

O problema esta no cobol, quando você definir sua "FD" para o registro do 
arquivo texto na Data Division, não use comp3, exemplo:
DATA DIVISION.
01 REG-TXT.
03 VALOR  PIC 9(5)V2 COMP3. // Errado
03 VALOR  PIC 9,99.  // Correto

Creio que isto deve resolver seu problema.

Um abraço,

Rodilson

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] PROGRAMADOR JAVA !!URGENTE!!

[Paulo Eduardo Fagundes dos Santos]

!!URGENTE!!

PROGRAMADOR JAVA





Estamos em busca de Programador Java
com conhecimentos em Java, J2EE,JSF,Servlets, SQL, Linux e muita
vontade de aprender. 






Vaga de Bolsista CNPq/PCI no INPE
(Instituto Nacional de Pesquisas Espaciais) de São José
dos Campos.





Valor da bolsa variavél conforme
graduação de R$800,00 á R$1000,00


Mandar currículo (em doc ou pdf) para :
[EMAIL PROTECTED]



Obs: serão considerados
currículos somente da  região do Vale do
Paraíba.

Atenciosamente,
Paulo





   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] JvAVICapture e ShowModal

[blcksun954]

 Coloquei o JvAviCapture num form que exibo com ShowModal e ele
simplesmente trava o programa, sem sequer desenhar por completo a nova
janela. Se for pra usar Show, vou ter de fazer modificações em outras
partes do código pra impedir que o código continue antes das janelas
serem fechadas. Alguém tem alguma idéia de como resolver? 

Re: [delphi-br] Serviço

[Edu Nicácio]

Realmente esta é uma parte 'obscura', onde não encontramos facilmente material.

Quando precisei desenvolver alguns serviços aqui na empresa, e mesmo para meus 
projetos em casa, tive que me virar sozinho.

Dê uma olhada no help do Delphi sobre o TServiceApplication. Pode ser que 
muitas de suas dúvidas sejam esclarecidas.

Se ainda assim não conseguir implementar alguma coisa, volte a mandar mensagens.

Abraço.



  Atenciosamente:

 
 Eduardo Cláudio Nicácio
  Analista Programador
  Fábrica 02 - CTIS
  Tel.: (11) 3150-6841
  [EMAIL PROTECTED]
 



  - Original Message - 
  From: Leandro 
  To: delphi-br@yahoogrupos.com.br ; delphi-total 
  Sent: Tuesday, June 19, 2007 1:09 PM
  Subject: [delphi-br] Serviço


  Pessoal boa tarde,

  Seguinte, eu quero aprender a trabalhar com serviços do windows e já tenho 
uma idéia de como fazer,
  mas eu não consegui arrumar nenhuma material explicativo, ou nenhum 
exemplo... será que vcs podem me ajudar com algum mateiral/link/exemplo ??

  obrigado pessoal.

  Leandro A. Nunes

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Re: RES: RES: [delphi-br] BUG Delphi 2007 - Nada de usar o ClientDataSet, DataSnap,Remote Data Module, BSS....

[Edu Nicácio]

E o pior é que a EDS dá suporte em Unix, Oracle, Linux e o que mais resolverem 
implementar aqui... é só uma questão de contrato..

Mas fazer o que... são eles que decidem como gastar... paciência...

Abraços.



  Atenciosamente:

 
 Eduardo Cláudio Nicácio
  Analista Programador
  Fábrica 02 - CTIS
  Tel.: (11) 3150-6841
  [EMAIL PROTECTED]
 



  - Original Message - 
  From: Joao Morais 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 19, 2007 11:43 AM
  Subject: Re: RES: RES: [delphi-br] BUG Delphi 2007 - Nada de usar o 
ClientDataSet, DataSnap,Remote Data Module, BSS


  Edu Nicácio wrote:

  > compraram servidores com Intel 32 bits, SO Windows 2003 e SGBD SQL
  > Server 2005... Ou seja, foram na contramão porque a solução "Microsoft"
  > era mais barata, coisa de 100 mil reais...

  É verdade. É que eles fizeram um concurso pra ver qual servidor é 
  configurado mais rápido sem botar a mão no teclado. 

  --
  Joao Morais



   

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Material sobre BPL´s

[Leandro]

Bom dia,

Estou procurando material sobre modularização de sistemas através de BPL´s.

Achei um material básico no delphi.about.com... mas queria saber mais detalhes 
sobre
como interagir com formularios de uma BPL, trocar dados entre BPL´s (pelo que 
percebi
seria com parametros de retorno em procedimentos exportados)... enfim... queria
uma material mais aprofundado.

Desde já agradeço.

Leandro


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Duvida de XML

[alan_adolfo2]

Bom dia galera

Criei dois arquivos XML e gostaris de junta-la  como eu fasso 
tenho 2 ClientDataSet, e 2 ClientDataSet, fazendo um SQL, como eu 
fasso isto???

Re: [delphi-br] Comp3 do Cobol para Numero

[omar l m rosa]

É fácil:

No decimal compactado cada dígito é representado por quatro bits, sendo que o 
semi-byte de mais baixa ordem contém o sinal, em hexa "CAFE" para positivo e os 
demais para negativo.

Ex hexa: 05 00 0F = 5.000 positivo
 12 34 5D = -12345

Faz uma rotina que converte binario para hexa (inttoHex) isola cada caractere, 
e trata o último semibyte.

Barbada!
Bai!


  - Original Message - 
  From: Leandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 19, 2007 2:24 PM
  Subject: [delphi-br] Comp3 do Cobol para Numero


  Bom dia,

  Alguem tem alguma função Delphi que converte valor compactado do Cobol para 
valor numerico?

  Gerei txt´s das tabelas para importar no meu sistema, mas alguns campos estao 
compactados.

  Obrigado,

  Leandro

  [As partes desta mensagem que não continham texto foram removidas]



   

  __ Informação do NOD32 IMON 2339 (20070619) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Duvida sobre Herança

[<>]

Ola pessoal, estou começando agora com o Delphi, cheguei em um ponto
em certo aplicativo que não consigo mais evoluir no meu estudo, pois
fui criar um formulario "PADRAO" para que os outros forms pudessem
herdar suas caracteristicas, até ai td bem, porém qdo criei um outro
form ja herdando alguns atributos apareceu um erro q não consigo
arrumar, talvez seja um problema simples para a maioria do pessoal,
mas estou quebrando a cabeça e preciso da ajuda dos senhores,
ERRO: 
[Error] WARNING. Duplicate resource(s):
[Error] Type 10 (RCDATA), ID TFRMCADPADRAO:
[Error]File UCadPadrao.dfm resource kept; file FormCadPadrao.dfm
resource discarded.

Caso apareça alguma pessoa que tenha interesse em me ajudar, eu
poderia enviar todo o projeto, para que o mesmo fosse avaliado.

Desde já agradeço a atençao e compreensão de todos.

<>

 



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Componente para traducao

[Ricardo César Cardoso]

Cara... tem o próprio serviço do Google, se não me engano. Numa das últimas 
revistas da ClubeDelphi (se não estou enganado) saiu algo do tipo. Mas qualquer 
coisa, dá uma explorada no  próprio google que lá tem alguma informação.

SDs,
Ricardo.

Marcelo - Kappesberg <[EMAIL PROTECTED]> escreveu:  
Bom dia pessoal...
 
 Alguem sabe se existe tal componente em Delphi para traduzir textos?? mesmo 
que seja pago... Ou algum servico na web que possa ser usado pelo Delphi para 
este fim?
 um webservice talvez
 
 Valeu!!!
 
 Marcelo Hörlle
 [EMAIL PROTECTED]
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 _



   
-
Novo Yahoo! Cadê? - Experimente uma nova busca. 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Iniciante - Inserir data em branco no banco de dados postgres.

[Alessandro Yamasaki]

Já tentou NULL

Em 19/06/07, Danilo Lustosa Neves <[EMAIL PROTECTED]> escreveu:
>
>   Por definição os DBs nao aceitam valore em branco nos campos tipo Data e
> Hora. Vc pode deixar a opção do campo receber na criacao da tabela. Na
> criacao da tabela, se vc colocar notnull ele nunca recebera valores nulos.
> Se nao colocar nada, por padrao ele deixar inserir registro sem a
> obrigacao
> de preencher o campo Data.
>
> Veja que EM BRANCO e NULO sao coisas totalmente diferentes
>
> Em 19/06/07, [EMAIL PROTECTED]  <
> [EMAIL PROTECTED] > escreveu:
> >
> > Colegas
> >
> > Como faço para inserir um campo data em branco no banco de dados?
> >
> > Grato.
> > []´s
> >
> >
> >
>
> --
> Atenciosamente,
> []
> Danilo A. Lustosa Neves
> 71 3489.9529 / 9141.4170
> [EMAIL PROTECTED] 
> SERVIRTUAL - TECNOLOGIA
> EM SISTEMAS DE INTERNET
> [---]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] [OFF TOPIC] Valor Hora

[Yahoo]

Caros colegas,

Estou querendo fazer um levantamento do valor hora cobrado e com relação 
ao tipo de aplicação desenvolvida nas principais regiões do brasil, 
principalmente na área metropolitana de Porto Alegre. Quem quiser 
participar, mande abaixo dessa mensagem o valor o tipo de aplicação e a 
região conforme modelo abaixo.

R$ 25,00 - Automação Industrial - Porto Alegre


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 

[delphi-br] Send Mail MAPI

[Rodrigo Bevilacqua Marcondes]

Olá Colegas

Utilizo o Delphi 2005, e tenho um rotina para enviar e-mail com anexo, 
usando o "MAPISendMail", tudo funciona legal, mas gostaria de saber o seguinte:
Quanto chama o outlook express e clicar em enviar, o S.O. trava até que o envio 
completo do e-mail. Tem como não travar e mandar em segundo plano.
Uso o seguinte comando SM(0, Application.Handle, message, MAPI_DIALOG or 
MAPI_LOGON_UI,0);

Qualquer sugestão é bem vinda

Muito Obrigado

Rodrigo ®¿®


   

Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Re: Debugger Exception Nofitication:Fora do Intervalo presente(resolvido)

[maniacapordelphi]

Detectei o erro e estou retornando a correção caso alguém venha a 
precisar dessa ajuda.

Estava inserindo o registro na tabela temporária através do 
ADOCommand sem definir o DataType dos parâmetros. Como no primeiro 
select os campos de valores estavam sendo arrendondados para 0 nas 
casas decimais, o ADOCommand interpretou o parâmetro como sendo do 
tipo integer e não currency ou float.
Ao enviar o segundo select onde o resultado retornava valores com 2 
casas decimais, dava o erro "Fora do intervalo presente".

Defindo o DataType dos parametros o erro foi corrigido.
Valeu Mani! Uma mão lava a outra e as duas lavam a cara!


--- Em delphi-br@yahoogrupos.com.br, "maniacapordelphi" 
<[EMAIL PROTECTED]> escreveu
>
> Fiz um relatorio em Quick Report (contendo também um QRChart)
> que funciona normalmente. Porém ao acrescentá-lo em um outro 
projeto 
> ele está dando a seguinte mensagem ao executar:
> "Debugger Exception Nofitication:Fora do Intervalo presente"
> 
> Mensagem em português só pode estar vindo do Windows, porque o meu 
> delphi não está traduzido e esta mensagem não existe em meu 
> aplicativo.
> 
> Estou usando:
> 
> No Servidor de Rede onde está o banco de dados:
> -Windows 2000
> -SQL Server 2000
> 
> No micro de desenvolvimento local:
> -Windows 2000
> -Delphi 7
> 
> No relatório:
> -Quick Report
> -QRChart
> -Tabela temporária SQL Server
> 
> Para montar a tabela temporária faço 3 selects rápidos e básicos:
> -o primeiro select processa normal, gravando a tabela temporária
> -no segundo select ocorre o erro
> 
> Sendo que todos os selects para montar a tabela temporária foram 
> 100% testados ( no Query Analyser ) e duram menos de 1 segundo e 
os 
> resultados retornados estão ok.
> 
> O erro ocorre durante a leitura sequencial dos dados retornados 
pelo 
> segundo select, quando vou jogar um valor (money) para um campo da 
> tabela temporária do SQL que também é money. 
> 
> Alguém já passou por isso? Saberia me dizer o porque dessa 
mensagem?
> 
> Mani
>

[delphi-br] Componente para traducao

[Marcelo - Kappesberg]

Bom dia pessoal...

Alguem sabe se existe tal componente em Delphi para traduzir textos?? mesmo que 
seja pago... Ou algum servico na web que possa ser usado pelo Delphi para este 
fim?
um webservice talvez

Valeu!!!

Marcelo Hörlle
[EMAIL PROTECTED]

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Debugger Exception Nofitication:Fora do Intervalo presente

[maniacapordelphi]

Fiz um relatorio em Quick Report (contendo também um QRChart)
que funciona normalmente. Porém ao acrescentá-lo em um outro projeto 
ele está dando a seguinte mensagem ao executar:
"Debugger Exception Nofitication:Fora do Intervalo presente"

Mensagem em português só pode estar vindo do Windows, porque o meu 
delphi não está traduzido e esta mensagem não existe em meu 
aplicativo.

Estou usando:

No Servidor de Rede onde está o banco de dados:
-Windows 2000
-SQL Server 2000

No micro de desenvolvimento local:
-Windows 2000
-Delphi 7

No relatório:
-Quick Report
-QRChart
-Tabela temporária SQL Server

Para montar a tabela temporária faço 3 selects rápidos e básicos:
-o primeiro select processa normal, gravando a tabela temporária
-no segundo select ocorre o erro

Sendo que todos os selects para montar a tabela temporária foram 
100% testados ( no Query Analyser ) e duram menos de 1 segundo e os 
resultados retornados estão ok.

O erro ocorre durante a leitura sequencial dos dados retornados pelo 
segundo select, quando vou jogar um valor (money) para um campo da 
tabela temporária do SQL que também é money. 

Alguém já passou por isso? Saberia me dizer o porque dessa mensagem?

Mani

Re: Res: RES: [delphi-br] Enquetes DEVMEDIA

[alan_adolfo2]

É SEI Q A MINHA INTENÇÃO NÃO ERA ESTA DE CRIAR COMFLITOS DE IDEIAS 
SOBRE ESTA ENQUETE, MAIS SE EU QUISER CONVIADR ALGUEM PAA PARTICIPAR 
DA COMUNIDADE Q EU CRIEI NO ORKUT ESTA FOI A MANEIRA MAIS CLARA, 
POIS NÃO FIZ NIGUEM SAIR DO FOCO DA ENQUETE.

MAIS HA Q ESTOU AQ JA CONVIDO A TODOS DO ENQUETE.
CRIEI UMA COMUNIDADO NO ORKUT CHAMADA DEVMEDIA, LÁ PODEMOS PODEMOS 
ANALIZAR DUVIDAS TIRAR DUVIDAS E APRESENArrumandoR FORMULAS DE 
PROGRAMAÇÃO.

DESCULPE SE EU DE UMA FOR ERREI EM CRIAR UMA ENQUETE SOBRE UMA 
PAGINA Q NÃO SEJA DESTA COMUNIDADE. MAIS FOI PARA TER O CONHECIMENTE 
DE SABER QUEM ASSINA E QUEM NÃO ASSINA AS REVISTAD DO GRUPO DEV.

AGRADEÇO DES DE JÁ A TODOS OS ASSINANTES Q CONTRIBUIRAM COM A 
ENQUETE.

Ass ALAN ADOLFO
PROGRAMADOR DELPHI

--- Em delphi-br@yahoogrupos.com.br, "Elizeu JM Chiogna" 
<[EMAIL PROTECTED]> escreveu
>
> Tem coisas que eu não entendo e essa enquete e uma dessas. Sem pé 
e sem cabeça sem finalidade nenhuma.  Me perdoem mas já faz dias que 
tava querendo escrever isso.
> E digo mais não estarão apenas divulgando seus e-mails para uma 
lista de spam?
> 
> -Mensagem Original- 
> De: Joao Morais 
> Para: delphi-br@yahoogrupos.com.br 
> Enviada em: terça-feira, 19 de junho de 2007 11:44
> Assunto: Re: Res: RES: [delphi-br] Enquetes DEVMEDIA
> 
> 
> 
> Ao autor da enquete, faltou o bom senso de disponibilizar um link 
com 
> uns check boxes e uns input, em favor da organização e da 
diminuição de 
> tralha mandada para a lista.
> 
> --
> Joao Morais
> 
> 
>  
> 
> [As partes desta mensagem que não continham texto foram removidas]
>