RES: [delphi-br] Inicio de uma nova série.....TEM CO ISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM

[Luciano Topolniak]

Não vejo nada de anormal nisso. Já vi esse tipo de código. Geralmente
escrito por ferramentas que geram código.

É uma condição meio que dinâmica que é pra ser ignorada...ou seja, 1=1
sempre...

 

[]’s

Topolniak.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fellipe Henrique
Enviada em: segunda-feira, 28 de julho de 2008 23:10
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Inicio de uma nova série.TEM COISA QUE EU NÃO
POSSO GUARDAR SÓ PRA MIM

 

Já trabelhei em um banco de dados, não me lembro qual no momento, que tinha
esta cláusula mesmo... queria dizer:

Campo1 = Campo1 e Campo2 = Campo2 e etc...

Ou seja, trazer registros repetidos nos campos mencionados... bom, não sei
se to falando bobagem, mas que tinha isso tinha, e funcionava... só me
perdoem de não lembrar o nome do SGBD. Acho que tem algo a ver com a
Microsiga, não sei se é o ADVPL

[]s

2008/7/28 Marcello Felipelli <[EMAIL PROTECTED]
 >

> Senhores,
>
> A série continua  TEM COISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM
>  hauahuahuahau
>
> Observem a query que esta dentro de um componente ADOQuery...
>
> SELECT AI.*
> FROM AliquotaIcms AS AI
> WHERE (1=1) and (2=2)
> ORDER BY dsc_AliqIcms
>
> HUhauhauhauhauha . where (1=1) and (2=2)  quais seriam as
> próximas condições? auhauhuahauhauhauhauh
>
> É senhores  podem dar risada  pimenta no olho dos outros é
> refresco ... mas, eu não tinha o direito de guardar isso só pra
> mim auhauauahauhah
>
> Isso é de um sistema que eu herdei, me perdoem se eu estou faltando
> com a ética, mais essa. eu não tinha direito de guardar só pra mim
>
> Marcello V Felipelli
> Analista de Sistemas
> Cel : + 55 21 9572-6820
>
> 
>

-- 
_
.-. T.·.F.·.A.·.
/v\ Fellipe Henrique
// \\ http://www.linkedin.com/in/fellipehenrique
/( )\ Sou a FAVOR da lei 0607/2007.
^^-^^

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

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008
06:55



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

Re: [delphi-br] Saber quantos registros foram retornados em uma consulta sql!!

[Ricardo César Cardoso]

Boa noite!

Tente colocar o código abaixo num TSQLQuery por exemplo:

[ Código SQL - Início ]
Select Count( * ) as Contagem From <> Where Campo = Campo
[ Código SQL - Final ]

E faça o seguinte num botão, por exemplo ( evento OnClick )

[ Código Delphi/Object Pascal - Início ]
Var
  total : Integer;
Begin
  SQLQuery1.Open;
  total := SQLQuery1.Fiels[ 0 ].AsInteger;
  // Poderia usar SQLQuery1.FieldByName( 'Contagem' ).AsInteger, mas 
  // as vezes pode trazer problemas como não ver o valor.
  SQLQuery1.Close;
End;
[ Código Delphi/Object Pascal - Final ]

Atte,
Ricardo.

--- Em seg, 28/7/08, Douglas Takahara <[EMAIL PROTECTED]> escreveu:
De: Douglas Takahara <[EMAIL PROTECTED]>
Assunto: [delphi-br] Saber quantos registros foram retornados em uma consulta 
sql!!
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 28 de Julho de 2008, 19:51











Boa noite,



Gostaria de saber como faço para saber quantos registros foram

retornados em uma consulta..



por exemplo

select * from table where campo1=campo1;



gostaria de saber como faço uma condição caso ele retornar mais de 20

registros por exemplo;



eu estou usando access e sqlquery...



eu tentei 



if sqlquery.recordcoun t >20 then

begin



ShowMessage( 'registros> 20')

end else



showMessage( 'registro <20')



porém n funcionou 



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

Re: [delphi-br] Inicio de uma nova série.....TEM COISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM

[Fellipe Henrique]

Já trabelhei em um banco de dados, não me lembro qual no momento, que tinha
esta cláusula mesmo... queria dizer:

Campo1 = Campo1 e Campo2 = Campo2 e etc...

Ou seja, trazer registros repetidos nos campos mencionados... bom, não sei
se to falando bobagem, mas que tinha isso tinha, e funcionava... só me
perdoem de não lembrar o nome do SGBD. Acho que tem algo a ver com a
Microsiga, não sei se é o ADVPL

[]s

2008/7/28 Marcello Felipelli <[EMAIL PROTECTED]>

>   Senhores,
>
> A série continua  TEM COISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM
>  hauahuahuahau
>
> Observem a query que esta dentro de um componente ADOQuery...
>
> SELECT AI.*
> FROM AliquotaIcms AS AI
> WHERE (1=1) and (2=2)
> ORDER BY dsc_AliqIcms
>
> HUhauhauhauhauha . where (1=1) and (2=2)  quais seriam as
> próximas condições? auhauhuahauhauhauhauh
>
> É senhores  podem dar risada  pimenta no olho dos outros é
> refresco ... mas, eu não tinha o direito de guardar isso só pra
> mim auhauauahauhah
>
> Isso é de um sistema que eu herdei, me perdoem se eu estou faltando
> com a ética, mais essa. eu não tinha direito de guardar só pra mim
>
> Marcello V Felipelli
> Analista de Sistemas
> Cel : + 55 21 9572-6820
>
>  
>



-- 
_
.-. T.·.F.·.A.·.
/v\ Fellipe Henrique
// \\ http://www.linkedin.com/in/fellipehenrique
/( )\ Sou a FAVOR da lei 0607/2007.
^^-^^


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

Res: [delphi-br] Saber quantos registros foram retornados em uma consulta sql!!

[Willian Jhonnes Lara dos Santos]

Olá Douglas...

Faz o seguinte:

with ObjetoQrery do
begin
  if Active then
Close;

  SQL.Text := 'SELECT * FROM TABELA WHERE CAMPO = CONDICAO';
  Open;
end;

rNumRegistros := ObjetoQuery.RecordCount;

Não tem erro...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Douglas Takahara <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Julho de 2008 19:51:17
Assunto: [delphi-br] Saber quantos registros foram retornados em uma consulta 
sql!!


Boa noite,

Gostaria de saber como faço para saber quantos registros foram
retornados em uma consulta..

por exemplo
select * from table where campo1=campo1;

gostaria de saber como faço uma condição caso ele retornar mais de 20
registros por exemplo;

eu estou usando access e sqlquery...

eu tentei 

if sqlquery.recordcoun t >20 then
begin

ShowMessage( 'registros> 20')
end else

showMessage( 'registro <20')

porém n funcionou




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

Re: [delphi-br] Preciso de Ajuda

[Walter Chagas Jr (BOL)]

O Portal da Devmedia tá apinhado de video-aulas para Delphi e outras 
ferramentas. Vale a pena fazer a inscrição.

[]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

  - Original Message - 
  From: Heraldo Eduardo Vico 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 25, 2008 9:36 PM
  Subject: [delphi-br] Preciso de Ajuda


  CAros Amigos: Estou voltando a trabalhar como programador depois de 5 anos. 
Vou trabalhar com delphi 6.0 e gostaria de saber se alguem possui um livro ou 
um daqueles cd´s de videoaulas para me fornecer, vender ,,,pois preciso 
rememorar os conhecimentos de delphi . vou começar dia 10/08 e tenho 2 semanas 
para estudar...
  PEÇO AJUDA URGENTE..SE ALGUEM TIVER DE PREFERENCIA ALGUM DESSES CD´S DE 
VIDEOAULAS PODE ME FAZER UM CONTATO..POR FAVOR É URGENTE.

  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.
  http://br.new.mail.yahoo.com/addresses

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



   

  __ Informa��o do ESET NOD32 Antivirus, vers�o da vacina 3300 
(20080725) __

  A mensagem foi verificada pelo ESET NOD32 Antivirus.

  http://www.eset.com


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

Re: [delphi-br] Saber quantos registros foram retornados em uma consulta sql!!

[berdam]

cara eu n sei ao certo mas tenta fazer assim,
inteiro = query.execsql;

n tenho certeza


Douglas Takahara escreveu:
>
> Boa noite,
>
> Gostaria de saber como faço para saber quantos registros foram
> retornados em uma consulta..
>
> por exemplo
> select * from table where campo1=campo1;
>
> gostaria de saber como faço uma condição caso ele retornar mais de 20
> registros por exemplo;
>
> eu estou usando access e sqlquery...
>
> eu tentei
>
> if sqlquery.recordcount >20 then
> begin
>
> ShowMessage('registros>20')
> end else
>
> showMessage('registro <20')
>
> porém n funcionou
>
>  

-- 
-
Uberdam Cavaletti
Formado em Tecnologia da informação - Unoesc - Xxe
Pós graduando em Desenvolvimento Java - Unoesc - Xxe

Acesse  http://www.curricular.com.br/berdam
Acesse  http://passandoveneno.blogspot.com

-

RE: [delphi-br] Tiburon Preview - online próxima sexta - 1 de agosto

[Andreano Lanusse]

João,

Aqui vai o link: http://latam.codegear.com/es/tiburonpreview

Fica muito difícil eu saber que bug você se refere, você poderia encaminhar a 
lista de bugs, acompanhada um test case ou o número do report no QC, juntamente 
o serial number do seu produto.

[]'s
Andreano



From: delphi-br@yahoogrupos.com.br [EMAIL PROTECTED] On Behalf Of jcpf [EMAIL 
PROTECTED]
Sent: Monday, July 28, 2008 8:07 AM
To: delphi-br@yahoogrupos.com.br
Subject: RES: [delphi-br] Tiburon Preview - online próxima sexta - 1 de agosto

Prezado Andreano,

Primeiro, o Link está com problemas.

Segundo, Novo isso, Novo aquilo, etc,etc...o que gostaria de saber é se
os bugs da Versão 2007 serão resolvidos ou não.

Não adianta colocar um monte de coisas novas se também teremos bugs e mais
bugs NOVOS.

Abraços,

João Carlos

De: delphi-br@yahoogrupos.com.br 
[mailto:delphi-br@yahoogrupos.com.br] Em
nome de Andreano Lanusse
Enviada em: sexta-feira, 25 de julho de 2008 17:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tiburon Preview - online próxima sexta - 1 de agosto

Comunidade Delphi,

Na próxima sexta, 1º de agosto, às 11h (horário de Brasília), apresentaremos
algumas das novidades do Tiburon, a próxima versão do Delphi e C++ Builder.

O evento será online, com duração de 30 minutos. Os participantes terão a
oportunidade de conhecer algumas das novidades da próxima versão do Delphi:

- Novos componentes da VCL
- Novos recursos da linguagem
- Novo DataSnap
- E muito mais.

As inscrições podem ser feitas pelo site:
http://latam.codegear.com/br/tiburonpreview.

Durante a apresentação serão efetuados alguns testes para avaliar a
capacidade e qualidade de áudio e vídeo da solução para eventos online -
Live Meeting. Contamos com o apoio de toda a comunidade Delphi.

A apresentação será em português e contará com a presença de nosso ilustre
Evangelista Chefe DavidI.

Não perca 

Nos vemos no evento.

[]'s
Andreano Lanusse
Product Line Manage & Technical Lead Evangelist Latin America
Embarcadero Technologies
http://blogs.codegear.com/andreanolanusse

CONFIDENTIALITY NOTICE: This email message is for the sole use of the
intended recipient(s)
and may contain confidential and privileged information. Any unauthorized
review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please
contact the sender by reply email and destroy all copies of the original
message.

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

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.6/1572 - Release Date: 25/07/2008
06:51

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



CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended 
recipient(s) 
and may contain confidential and privileged information. Any unauthorized 
review, use, 
disclosure or distribution is prohibited. If you are not the intended 
recipient, please 
contact the sender by reply email and destroy all copies of the original 
message.

RES: [delphi-br] Inicio de uma nova série.....TEM CO ISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM

[Guara]

Pode ser que o programador fazia a substituição do 1=1 e 2=2  por outras
condições em tempo de execução

Isto é comum em rotinas de relatório ou pesquisa 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Marcello Felipelli
Enviada em: segunda-feira, 28 de julho de 2008 20:19
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Inicio de uma nova série.TEM COISA QUE EU NÃO POSSO
GUARDAR SÓ PRA MIM

 

Senhores,

A série continua  TEM COISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM
 hauahuahuahau

Observem a query que esta dentro de um componente ADOQuery...

SELECT AI.*
FROM AliquotaIcms AS AI
WHERE (1=1) and (2=2)
ORDER BY dsc_AliqIcms

HUhauhauhauhauha . where (1=1) and (2=2)  quais seriam as
próximas condições? auhauhuahauhauhauhauh

É senhores  podem dar risada  pimenta no olho dos outros é
refresco ... mas, eu não tinha o direito de guardar isso só pra
mim auhauauahauhah

Isso é de um sistema que eu herdei, me perdoem se eu estou faltando
com a ética, mais essa. eu não tinha direito de guardar só pra mim

Marcello V Felipelli
Analista de Sistemas
Cel : + 55 21 9572-6820

 



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

[delphi-br] Re: duvida

[Marcello Felipelli]

Eu acho melhor fazer isso direto no SELECT. Manda um CAST pra varchar
e substitui no próprio SELECT (dependendo de que banco vc esta usando,
isso é mole, mole)...

Abs

Marcello Felipelli

--- Em delphi-br@yahoogrupos.com.br, "Vinicius Santos - MSI"
<[EMAIL PROTECTED]> escreveu
>
> StringReplace ???
> 
> Vinicius dos Santos
> Blog: http://tuplas.blogspot.com
> http://www.msisolucoes.com.br
> 
>   - Original Message - 
>   From: rzzanatta 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Monday, July 28, 2008 3:10 PM
>   Subject: [delphi-br] duvida
> 
> 
>   Olá eu tenho armazenado numa query um valor qualquer tipo 19,29,
só que 
>   eu quero que ele se transforme em 19P29, ou seja quero ler o valor 
>   armazenado e no lugar da virgula colocar o P , como faço isso 
>   obrigado
> 
> 
> 
>
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Saber quantos registros foram retornados em uma consulta sql!!

[Douglas Takahara]

Boa noite,

Gostaria de saber como faço para saber quantos registros foram
retornados em uma consulta..

por exemplo
select * from table where campo1=campo1;

gostaria de saber como faço uma condição caso ele retornar mais de 20
registros por exemplo;

eu estou usando access e sqlquery...

eu tentei 

if sqlquery.recordcount >20 then
begin

ShowMessage('registros>20')
end else

showMessage('registro <20')


porém n funcionou

[delphi-br] [DELPHI-Total] consulta lenta

[Luis Hilário Tobler Garcia]

Boa tarde pessoal,
estou tendo um problema de lentidão em BD. Faço tudo com queries e depois que o 
banco passou a ter uns 60 registros em umas 4 tabelas, para abrir uma consulta 
demora uma eternidade, em um Pentium II 400 demora uns 3 minutos para abrir 
esta janela. Alguém saberia como resolver isso?

ps: Uso Interbase 6.5

Valeu, Hilário

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

RES: [delphi-br] ordenar listbox

[André]

Boa tarde,

 

Vc pode fazer a ordenacao utilizando uma variavel auxiliar..

Fiz um exemplo pro botão pra CIMA

 

   aux := ListBox1.Items.Strings[listbox1.itemindex];

   ListBox1.Items.Strings[listbox1.itemindex] :=
ListBox1.Items.Strings[listbox1.itemindex - 1];

   ListBox1.Items.Strings[listbox1.itemindex - 1] := aux;

 

Ele vai pegar o que estiver selecionado

 

Flw

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de dhsb
Enviada em: segunda-feira, 28 de julho de 2008 Boa tarde Dé 14:54
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ordenar listbox

 

Pessoal,

Boa tarde...

Tenho um formulario com um listbox e dois botões um com seta para cima 
e outra com seta para baixo (ordenação). Meu problema e que nao estou 
conseguindo ordenar os itens do meu list box.

Exemplo quando seleciono o primeiro e clico no botao para baixo queria 
que ele ficasse no segundo registro e assim sucessivamente..

Alguem ja passou por algo semelhante... Como eu faria?

Valeu

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com 
Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/7/2008
06:55


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

Re: [delphi-br] duvida

[Eduardo Santos]

Voce pode tentar a funcao StringReplace para fazer a substituicao


StringReplace(TEXTO,TEXTOASERSUBSTITUIDO, TEXTOASUBSTITUIR, [rfReplaceAll]);



Exemplo:  



Var Texto: String;



Texto:='BrasilArgentinaBrasil';

Texto:=StringReplace(Texto,'Argentina',Brasil,[rfReplaceAll]);



A variável Texto será igual a BrasilBrasilBrasil


--- Em seg, 28/7/08, rzzanatta <[EMAIL PROTECTED]> escreveu:
De: rzzanatta <[EMAIL PROTECTED]>
Assunto: [delphi-br] duvida
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 28 de Julho de 2008, 18:10











Olá eu tenho armazenado numa query um valor qualquer tipo 19,29, só 
que 

eu quero que ele se transforme em 19P29, ou seja quero ler o valor 

armazenado e no lugar da virgula colocar o P , como faço isso 

obrigado




  




 

















  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

[delphi-br] Inicio de uma nova série.....TEM COISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM

[Marcello Felipelli]

Senhores,

A série continua  TEM COISA QUE EU NÃO POSSO GUARDAR SÓ PRA MIM
 hauahuahuahau

Observem a query que esta dentro de um componente ADOQuery...

SELECT AI.*
  FROM AliquotaIcms AS AI
WHERE (1=1) and (2=2)
ORDER BY dsc_AliqIcms

HUhauhauhauhauha  . where (1=1) and (2=2)  quais seriam as
próximas condições? auhauhuahauhauhauhauh

É senhores   podem dar risada  pimenta no olho dos outros é
refresco ... mas, eu não tinha o direito de guardar isso só pra
mim auhauauahauhah

Isso é de um sistema que eu herdei, me perdoem se eu estou faltando
com a ética, mais essa. eu não tinha direito de guardar só pra mim

Marcello V Felipelli
Analista de Sistemas
Cel : + 55 21 9572-6820

RES: [delphi-br] duvida

[Regis]

Function TFProcessar.SubstituirCaracteres(Text, Busca, Troca: String):
String;
var
n, i: integer;
begin
  i := length(Busca);
  for n := 1 to length(Text) do
  begin
if Copy(Text, n, i) = Busca then
begin
  Delete(Text, n, i); Insert(Troca, Text, n);
end;
  end;
  Result:= Text;
end;
 

Benedito Regis de Oliveria Filho
  [EMAIL PROTECTED]
Cel: (41) 91250864
 
Daysoft Serviços de Tecnologia Ltda.
http://www.daysoft.com.br/
R. Itacolomi, 450, CEP 81.070-150
Curitiba - PR
Tel: (41) 3246-7722

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de rzzanatta
Enviada em: segunda-feira, 28 de julho de 2008 15:10
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] duvida



Olá eu tenho armazenado numa query um valor qualquer tipo 19,29, só que 
eu quero que ele se transforme em 19P29, ou seja quero ler o valor 
armazenado e no lugar da virgula colocar o P , como faço isso 
obrigado



 


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

RES: [delphi-br] ordenar listbox

[Regis]

olá amigo!
 
tenta colocar os dados em um array de ordena essa array e depois envia pra o
listbox.
 
Att.
 

Benedito Regis de Oliveria Filho
  [EMAIL PROTECTED]
Cel: (41) 91250864
 
Daysoft Serviços de Tecnologia Ltda.
http://www.daysoft.com.br/
R. Itacolomi, 450, CEP 81.070-150
Curitiba - PR
Tel: (41) 3246-7722

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de dhsb
Enviada em: segunda-feira, 28 de julho de 2008 14:54
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ordenar listbox



Pessoal,

Boa tarde...

Tenho um formulario com um listbox e dois botões um com seta para cima 
e outra com seta para baixo (ordenação). Meu problema e que nao estou 
conseguindo ordenar os itens do meu list box.

Exemplo quando seleciono o primeiro e clico no botao para baixo queria 
que ele ficasse no segundo registro e assim sucessivamente..

Alguem ja passou por algo semelhante... Como eu faria?

Valeu



 


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

RES: [delphi-br] Tiburon Preview - online próxima se xta - 1 de agosto

[jcpf]

Prezado Andreano,

 

Primeiro, o Link está com problemas.

 

Segundo, Novo isso, Novo aquilo, etc,etc...o que gostaria de saber é se
os bugs da Versão 2007 serão resolvidos ou não.

Não adianta colocar um monte de coisas novas se também teremos bugs e mais
bugs NOVOS.

 

Abraços,

 

João Carlos

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andreano Lanusse
Enviada em: sexta-feira, 25 de julho de 2008 17:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tiburon Preview - online próxima sexta - 1 de agosto

 

Comunidade Delphi,

Na próxima sexta, 1º de agosto, às 11h (horário de Brasília), apresentaremos
algumas das novidades do Tiburon, a próxima versão do Delphi e C++ Builder.

O evento será online, com duração de 30 minutos. Os participantes terão a
oportunidade de conhecer algumas das novidades da próxima versão do Delphi:

- Novos componentes da VCL
- Novos recursos da linguagem
- Novo DataSnap
- E muito mais.

As inscrições podem ser feitas pelo site:
http://latam.codegear.com/br/tiburonpreview.

Durante a apresentação serão efetuados alguns testes para avaliar a
capacidade e qualidade de áudio e vídeo da solução para eventos online -
Live Meeting. Contamos com o apoio de toda a comunidade Delphi.

A apresentação será em português e contará com a presença de nosso ilustre
Evangelista Chefe DavidI.

Não perca 

Nos vemos no evento.

[]'s
Andreano Lanusse
Product Line Manage & Technical Lead Evangelist Latin America
Embarcadero Technologies
http://blogs.codegear.com/andreanolanusse

CONFIDENTIALITY NOTICE: This email message is for the sole use of the
intended recipient(s) 
and may contain confidential and privileged information. Any unauthorized
review, use, 
disclosure or distribution is prohibited. If you are not the intended
recipient, please 
contact the sender by reply email and destroy all copies of the original
message.

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

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.6/1572 - Release Date: 25/07/2008
06:51



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

RE: RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Rubem Nascimento da Rocha]

Então, é bom ver com alguém da Embarcadero o que pode ser isso. Sugiro uma 
busca no QualityCentral pra saber se não existe algum workaround sobre isso ao 
usar Delphi 7 (deduzo eu que vc esteja usando essa versão).
Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 17:04:37 -0300
Subject: RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation 
em 64 Bits


Tentei! Não funcionou!



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi 
Eduardo Borges Wall
Enviada em: segunda-feira, 28 de julho de 2008 16:59
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation 
em 64 Bits

Em teoria é a mesma coisa! Mas vou tentar por desencargo e dou retorno para 
lista!



De: delphi-br@yahoogrupos.com.br  [mailto:delphi-br@yahoogrupos.com.br  ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:54
Para: delphi-br@yahoogrupos.com.br 
Assunto: RE: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation 
em 64 Bits
Prioridade: Alta

Eu, particularmente, faria o código da seguinte maneira:

var
lWsCEP: cepwsdlPortType;
endereco, bairro, cidade, uf: string;
begin
lWsCEP := GetcepwsdlPortType();
try
try
lWsCEP.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, uf);
except
on E: Exception do
begin
ShowMessage('Erro ao chamar WS: ' + E.Message);
exit;
end;
end;
showmessage(endereco + #13#10 + bairro + #13#10 + cidade + #13#10 + uf + 
#13#10);
finally
lWsCEP := nil;
end;
end;

Veja se isso já não ajuda em algo!
Sds.



To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 16:38:29 -0300
Subject: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 
64 Bits

Seria isso!

Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!

GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, 
uf);

showmessage(endereco + #13#10 +

bairro + #13#10 +

cidade + #13#10 +

uf + #13#10);

Obrigado pela atenção!



De: delphi-br@yahoogrupos.com.br   [mailto:delphi-br@yahoogrupos.com.br   ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 
Bits
Prioridade: Alta

Manda um código de exemplo da chamada de método do WS que tá com problema. De 
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o 
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da 
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma 
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como 
ajudar muito!

Sds.



To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Entendo!

Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente 
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do 
AV.

De qualquer forma te passei os endereços em PVT.

[]'s



De: delphi-br@yahoogrupos.com.br   [mailto:delphi-br@yahoogrupos.com.br   ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.



To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br   [mailto:delphi-br@yahoogrupos.com.br   ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br  
From:

RE: [delphi-br] TreeView com CheckBox

[Rubem Nascimento da Rocha]

Na JEDI VCL (JVCL) tem um componente de treeview com esse recurso.
Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 18:41:32 -0300
Subject: [delphi-br] TreeView com CheckBox


Alguem conheçe algum componente quem tenha uma TreeView com CheckBox, ou
uma rotina que faça isso?


_
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

[delphi-br] TreeView com CheckBox

[Luís]

Alguem conheçe algum componente quem tenha uma TreeView com CheckBox, ou
uma rotina que faça isso?




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

RE: [delphi-br] RE: Tiburon Preview - online próxima sex ta - 1 de agosto

[Andreano Lanusse]

Oi Leandro,

Este evento em particular não.

[]'s
Andreano

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Leandro
Sent: Monday, July 28, 2008 1:47 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de 
agosto


Grande Andreano,

Esse evento vai ser disponibilizado pra download após a sua realização, tal 
qual o Delphi Day?

Pergunto isso por causa de quem não puder participar no dia (onde eu me incluo) 
:-)

Obrigado,

Leandro

- Original Message -
From: Andreano Lanusse
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 28, 2008 4:42 PM
Subject: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de agosto

Pessoal é sexta-feira, tem que se inscrever antes para participar.

From: Andreano Lanusse
Sent: Friday, July 25, 2008 1:56 PM
To: 'delphi-br@yahoogrupos.com.br'
Subject: Tiburon Preview - online próxima sexta - 1 de agosto

Comunidade Delphi,

Na próxima sexta, 1º de agosto, às 11h (horário de Brasília), apresentaremos 
algumas das novidades do Tiburon, a próxima versão do Delphi e C++ Builder.

O evento será online, com duração de 30 minutos. Os participantes terão a 
oportunidade de conhecer algumas das novidades da próxima versão do Delphi:

- Novos componentes da VCL
- Novos recursos da linguagem
- Novo DataSnap
- E muito mais.

As inscrições podem ser feitas pelo site: 
http://latam.codegear.com/br/tiburonpreview.

Durante a apresentação serão efetuados alguns testes para avaliar a capacidade 
e qualidade de áudio e vídeo da solução para eventos online - Live Meeting. 
Contamos com o apoio de toda a comunidade Delphi.

A apresentação será em português e contará com a presença de nosso ilustre 
Evangelista Chefe DavidI.

Não perca 

Nos vemos no evento.

[]'s
Andreano Lanusse
Product Line Manage & Technical Lead Evangelist Latin America
Embarcadero Technologies
http://blogs.codegear.com/andreanolanusse

CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended 
recipient(s)
and may contain confidential and privileged information. Any unauthorized 
review, use,
disclosure or distribution is prohibited. If you are not the intended 
recipient, please
contact the sender by reply email and destroy all copies of the original 
message.

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

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

CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended 
recipient(s) 
and may contain confidential and privileged information. Any unauthorized 
review, use, 
disclosure or distribution is prohibited. If you are not the intended 
recipient, please 
contact the sender by reply email and destroy all copies of the original 
message.


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

Re: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de agosto

[Leandro]

Grande Andreano,

Esse evento vai ser disponibilizado pra download após a sua realização, tal 
qual o Delphi Day?

Pergunto isso por causa de quem não puder participar no dia (onde eu me incluo) 
:-)

Obrigado,

Leandro


  - Original Message - 
  From: Andreano Lanusse 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 28, 2008 4:42 PM
  Subject: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de agosto


  Pessoal é sexta-feira, tem que se inscrever antes para participar.

  From: Andreano Lanusse
  Sent: Friday, July 25, 2008 1:56 PM
  To: 'delphi-br@yahoogrupos.com.br'
  Subject: Tiburon Preview - online próxima sexta - 1 de agosto

  Comunidade Delphi,

  Na próxima sexta, 1º de agosto, às 11h (horário de Brasília), apresentaremos 
algumas das novidades do Tiburon, a próxima versão do Delphi e C++ Builder.

  O evento será online, com duração de 30 minutos. Os participantes terão a 
oportunidade de conhecer algumas das novidades da próxima versão do Delphi:

  - Novos componentes da VCL
  - Novos recursos da linguagem
  - Novo DataSnap
  - E muito mais.

  As inscrições podem ser feitas pelo site: 
http://latam.codegear.com/br/tiburonpreview.

  Durante a apresentação serão efetuados alguns testes para avaliar a 
capacidade e qualidade de áudio e vídeo da solução para eventos online - Live 
Meeting. Contamos com o apoio de toda a comunidade Delphi.

  A apresentação será em português e contará com a presença de nosso ilustre 
Evangelista Chefe DavidI.

  Não perca 

  Nos vemos no evento.

  []'s
  Andreano Lanusse
  Product Line Manage & Technical Lead Evangelist Latin America
  Embarcadero Technologies
  http://blogs.codegear.com/andreanolanusse

  CONFIDENTIALITY NOTICE: This email message is for the sole use of the 
intended recipient(s) 
  and may contain confidential and privileged information. Any unauthorized 
review, use, 
  disclosure or distribution is prohibited. If you are not the intended 
recipient, please 
  contact the sender by reply email and destroy all copies of the original 
message.

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



   

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

[delphi-br] Conexão com a Internet

[dangra2008]

Estou fazendo conexão com a Internet via IP remoto ou local (isso 
porque às vezes o usuário estará dentro da própria empresa usando a 
rede interna). Só que algumas vezes funciona, outras não e algumas 
vezes dá Acesso Negado, geralmente na conexão remota wireless.
Tenho uma URL para acesso interno e uma acesso externo e ambas estão 
habilitadas para leitura e gravação.
Existe algum componente em Delphi 7 que eu possa usar que faça o 
correto tratamento desses erros? Já pesquisei na net mas os componentes 
citados não tem no Delphi 7.
Graça

[delphi-br] MAPI X Lotus NOTES

[Rodrigo Bevilacqua Marcondes]

Boa Tarde Colegas,

Tenho uma rotina que envia e-mail usando o cliente 
de e-mail para do 
windows via MAPI. que está abaixo. Quando o cliente tem o 
Outlook, Outlook 
express, thunderbird... funciona perfeitamente.
Agora 
estamos em um cliente que utiliza Lotus Notes e quando chamo a 
rotina o 
endereco de e-mail fica assim : 
[EMAIL PROTECTED]@bol.com.br - ou seja duplica o nome. ja tentei 
outras configurações mas não consegui 
acertar isso.
Se alguem tiver alguma idéia , config. do notes, da rotina e 
puder me ajudar 
agradeço.

Muito Obrigado
Rodrigo 
®¿®

function TForm1.SendMailMAPI(const Subject, Body, FileName, 
SenderName, 
SenderEMail,
  RecepientName, RecepientEMail: 
String) : Integer;
var
  message: TMapiMessage;
  lpSender,
  
lpRecepient: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: 
TFNMapiSendMail;
  MAPIModule: HModule;
  cMsg : String;
begin
  
FillChar(message, SizeOf(message), 0);
  with message do
  begin
if 
(Subject<>'') then
begin
  lpszSubject := 
PChar(Subject)
end;
if (Body<>'') then
begin
  
lpszNoteText := PChar(Body)
end;
if (SenderEMail<>'') 
then
begin
  lpSender.ulRecipClass := MAPI_ORIG;
  if 
(SenderName='') then
  begin
lpSender.lpszName := 
PChar(SenderEMail)
  end
  else
  begin

lpSender.lpszName := PChar(SenderName)
  end;
  
lpSender.lpszAddress := PChar('SMTP:'+SenderEMail);
  lpSender.ulReserved 
:= 0;
  lpSender.ulEIDSize := 0;
  lpSender.lpEntryID := 
nil;
  lpOriginator := @lpSender;
end;
if 
(RecepientEMail<>'') then
begin
  lpRecepient.ulRecipClass 
:= MAPI_TO;
  if (RecepientName='') then
  begin

lpRecepient.lpszName := PChar(RecepientEMail)
  end
  
else
  begin
lpRecepient.lpszName := 
PChar(RecepientName)
 end;
  lpRecepient.lpszAddress := 
PChar('SMTP:'+RecepientEMail);
  //lpRecepient.lpszAddress := 
Pchar(RecepientEMail);
  lpRecepient.ulReserved := 0;
  
lpRecepient.ulEIDSize := 0;
  lpRecepient.lpEntryID := nil;
  
nRecipCount := 1;
  lpRecips := @lpRecepient;
end

else
begin
  lpRecips := nil
end;
if (FileName='') 
then
begin
  nFileCount := 0;
  lpFiles := nil;

end
else
begin
  FillChar(FileAttach, SizeOf(FileAttach), 
0);
  FileAttach.nPosition := Cardinal($);
  
FileAttach.lpszPathName := PChar(FileName);
  nFileCount := 1;
  
lpFiles := @FileAttach;
end;
  end;
  MAPIModule := 
LoadLibrary(PChar(MAPIDLL));
  if MAPIModule=0 then
  begin
Result 
:= -1
  end
  else
  begin
try
  @SM := 
GetProcAddress(MAPIModule, 'MAPISendMail');
  if @SM<>nil 
then
  begin
Result := SM(0, Application.Handle, message, 
MAPI_DIALOG or
 MAPI_LOGON_UI, 0);
  end
  
else
  begin
Result := 1
  end;


finally
  FreeLibrary(MAPIModule);
end;
  end;
  if Result 
<> 0 then
  begin
case Result of
  1 : cMsg := 'Usuário 
Cancelou' ;
  2 : cMsg := 'Falha Geral';
  3 : cMsg := 'Falha no 
Login';
  4 : cMsg := 'Disco Cheio';
  5 : cMsg := 'Memória 
Insuficiente';
  6 : cMsg := 'Acesso Negado';
  8 : cMsg := 
'Muitas instancias abertas';
  9 : cMsg := 'Muitos arquivos 
abertos';
  10 : cMsg := 'Muitos Destinatários';
  11 : cMsg := 
'Anexo não encontrado';
  12 : cMsg := 'Falha na leitura do 
anexo';
  13 : cMsg := 'Falha na gravação do anexo';
  14 : cMsg 
:= 'Destinatário desconhecido';
  15 : cMsg := 'Destinatário 
inválido';
  16 : cMsg := 'Nenhuma mensagem';
  17 : cMsg := 
'Mensagem inválida';
  18 : cMsg := 'Texto muito grande';
  19 : 
cMsg := 'Sessão inválida';
  20 : cMsg := 'Tipo não suportado';
  
21 : cMsg := 'AMBIGUOUS_RECIPIENT';
  22 : cMsg := 'Mensagem em 
uso';
  23 : cMsg := 'Falha na rede';
  24 : cMsg := 'Campos edits 
inválidos';
  25 : cMsg := 'Recepientes inválidos';
  26 : cMsg := 
'Não suportado';
   end;
MessageDlg('Erro enviando e-mail( 
'+IntToStr(Result)+'-'+cMsg+' ).', 
mtError, [mbOk],
   
0)
  end;
end; 


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

RES: [delphi-br] RE: Tiburon Preview - online próxim a sexta - 1 de agosto

[Zote]

Tira o . do final do link que vai...

 

Ou usa esse link http://gofrom.us/7L

 

--

José Henrique (Zote)

Analista de TI

Bludata Software

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Roberto
Enviada em: segunda-feira, 28 de julho de 2008 17:21
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de
agosto

 

Andreano, confirme por favor o link, pois não estou conseguindo acesso.
http://latam.codegear.com/br/tiburonpreview.

Obrigado
Roberto
- Original Message - 
From: Andreano Lanusse 
To: delphi-br@yahoogrupos.com.br   
Sent: Monday, July 28, 2008 4:42 PM
Subject: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de
agosto

Pessoal é sexta-feira, tem que se inscrever antes para participar.

From: Andreano Lanusse
Sent: Friday, July 25, 2008 1:56 PM
To: 'delphi-br@yahoogrupos.com.br 
'
Subject: Tiburon Preview - online próxima sexta - 1 de agosto

Comunidade Delphi,

Na próxima sexta, 1º de agosto, às 11h (horário de Brasília), apresentaremos
algumas das novidades do Tiburon, a próxima versão do Delphi e C++ Builder.

O evento será online, com duração de 30 minutos. Os participantes terão a
oportunidade de conhecer algumas das novidades da próxima versão do Delphi:

- Novos componentes da VCL
- Novos recursos da linguagem
- Novo DataSnap
- E muito mais.

As inscrições podem ser feitas pelo site:
http://latam.codegear.com/br/tiburonpreview.

Durante a apresentação serão efetuados alguns testes para avaliar a
capacidade e qualidade de áudio e vídeo da solução para eventos online -
Live Meeting. Contamos com o apoio de toda a comunidade Delphi.

A apresentação será em português e contará com a presença de nosso ilustre
Evangelista Chefe DavidI.

Não perca 

Nos vemos no evento.

[]'s
Andreano Lanusse
Product Line Manage & Technical Lead Evangelist Latin America
Embarcadero Technologies
http://blogs.codegear.com/andreanolanusse

CONFIDENTIALITY NOTICE: This email message is for the sole use of the
intended recipient(s) 
and may contain confidential and privileged information. Any unauthorized
review, use, 
disclosure or distribution is prohibited. If you are not the intended
recipient, please 
contact the sender by reply email and destroy all copies of the original
message.

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

No virus found in this incoming message.
Checked by AVG - http://www.avg.com 
Version: 8.0.138 / Virus Database: 270.5.6/1578 - Release Date: 7/28/
17:13

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

 



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

Re: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de agosto

[Eduardo Silva dos Santos]

é  por causa do Ponto ao final do link.. :-)

http://latam.codegear.com/br/tiburonpreview


2008/7/28 Roberto <[EMAIL PROTECTED]>

>   Andreano, confirme por favor o link, pois não estou conseguindo acesso.
> http://latam.codegear.com/br/tiburonpreview.
>
> Obrigado
> Roberto
> - Original Message -
> From: Andreano Lanusse
> To: delphi-br@yahoogrupos.com.br 
> Sent: Monday, July 28, 2008 4:42 PM
> Subject: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de
> agosto
>
> Pessoal é sexta-feira, tem que se inscrever antes para participar.
>
> From: Andreano Lanusse
> Sent: Friday, July 25, 2008 1:56 PM
> To: 'delphi-br@yahoogrupos.com.br <%27delphi-br%40yahoogrupos.com.br>'
> Subject: Tiburon Preview - online próxima sexta - 1 de agosto
>
> Comunidade Delphi,
>
> Na próxima sexta, 1º de agosto, às 11h (horário de Brasília),
> apresentaremos algumas das novidades do Tiburon, a próxima versão do Delphi
> e C++ Builder.
>
> O evento será online, com duração de 30 minutos. Os participantes terão a
> oportunidade de conhecer algumas das novidades da próxima versão do Delphi:
>
> - Novos componentes da VCL
> - Novos recursos da linguagem
> - Novo DataSnap
> - E muito mais.
>
> As inscrições podem ser feitas pelo site:
> http://latam.codegear.com/br/tiburonpreview.
>
> Durante a apresentação serão efetuados alguns testes para avaliar a
> capacidade e qualidade de áudio e vídeo da solução para eventos online -
> Live Meeting. Contamos com o apoio de toda a comunidade Delphi.
>
> A apresentação será em português e contará com a presença de nosso ilustre
> Evangelista Chefe DavidI.
>
> Não perca 
>
> Nos vemos no evento.
>
> []'s
> Andreano Lanusse
> Product Line Manage & Technical Lead Evangelist Latin America
> Embarcadero Technologies
> http://blogs.codegear.com/andreanolanusse
>
> CONFIDENTIALITY NOTICE: This email message is for the sole use of the
> intended recipient(s)
> and may contain confidential and privileged information. Any unauthorized
> review, use,
> disclosure or distribution is prohibited. If you are not the intended
> recipient, please
> contact the sender by reply email and destroy all copies of the original
> message.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.138 / Virus Database: 270.5.6/1578 - Release Date: 7/28/
> 17:13
>
> [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] RE: Tiburon Preview - online próxima sexta - 1 de agosto

[Roberto]

Andreano, confirme por favor o link, pois não estou conseguindo acesso.
http://latam.codegear.com/br/tiburonpreview.

Obrigado
Roberto
  - Original Message - 
  From: Andreano Lanusse 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 28, 2008 4:42 PM
  Subject: [delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de agosto


  Pessoal é sexta-feira, tem que se inscrever antes para participar.

  From: Andreano Lanusse
  Sent: Friday, July 25, 2008 1:56 PM
  To: 'delphi-br@yahoogrupos.com.br'
  Subject: Tiburon Preview - online próxima sexta - 1 de agosto

  Comunidade Delphi,

  Na próxima sexta, 1º de agosto, às 11h (horário de Brasília), apresentaremos 
algumas das novidades do Tiburon, a próxima versão do Delphi e C++ Builder.

  O evento será online, com duração de 30 minutos. Os participantes terão a 
oportunidade de conhecer algumas das novidades da próxima versão do Delphi:

  - Novos componentes da VCL
  - Novos recursos da linguagem
  - Novo DataSnap
  - E muito mais.

  As inscrições podem ser feitas pelo site: 
http://latam.codegear.com/br/tiburonpreview.

  Durante a apresentação serão efetuados alguns testes para avaliar a 
capacidade e qualidade de áudio e vídeo da solução para eventos online - Live 
Meeting. Contamos com o apoio de toda a comunidade Delphi.

  A apresentação será em português e contará com a presença de nosso ilustre 
Evangelista Chefe DavidI.

  Não perca 

  Nos vemos no evento.

  []'s
  Andreano Lanusse
  Product Line Manage & Technical Lead Evangelist Latin America
  Embarcadero Technologies
  http://blogs.codegear.com/andreanolanusse

  CONFIDENTIALITY NOTICE: This email message is for the sole use of the 
intended recipient(s) 
  and may contain confidential and privileged information. Any unauthorized 
review, use, 
  disclosure or distribution is prohibited. If you are not the intended 
recipient, please 
  contact the sender by reply email and destroy all copies of the original 
message.

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



   
No virus found in this incoming message.
Checked by AVG - http://www.avg.com 
Version: 8.0.138 / Virus Database: 270.5.6/1578 - Release Date: 7/28/ 17:13


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

RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Davi Eduardo Borges Wall]

Tentei! Não funcionou!

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi 
Eduardo Borges Wall
Enviada em: segunda-feira, 28 de julho de 2008 16:59
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation 
em 64 Bits

 

Em teoria é a mesma coisa! Mas vou tentar por desencargo e dou retorno para 
lista!



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br  ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:54
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation 
em 64 Bits
Prioridade: Alta

Eu, particularmente, faria o código da seguinte maneira:

var
lWsCEP: cepwsdlPortType;
endereco, bairro, cidade, uf: string;
begin
lWsCEP := GetcepwsdlPortType();
try
try
lWsCEP.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, uf);
except
on E: Exception do
begin
ShowMessage('Erro ao chamar WS: ' + E.Message);
exit;
end;
end;
showmessage(endereco + #13#10 + bairro + #13#10 + cidade + #13#10 + uf + 
#13#10);
finally
lWsCEP := nil;
end; 
end;

Veja se isso já não ajuda em algo!
Sds.



To: delphi-br@yahoogrupos.com.br   
 
From: [EMAIL PROTECTED]   
 
Date: Mon, 28 Jul 2008 16:38:29 -0300
Subject: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 
64 Bits

Seria isso!

Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!

GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, 
uf);

showmessage(endereco + #13#10 +

bairro + #13#10 +

cidade + #13#10 +

uf + #13#10);

Obrigado pela atenção!



De: delphi-br@yahoogrupos.com.br   
 [mailto:delphi-br@yahoogrupos.com.br 
  
 ] Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br   
 
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 
Bits
Prioridade: Alta

Manda um código de exemplo da chamada de método do WS que tá com problema. De 
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o 
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da 
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma 
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como 
ajudar muito!

Sds.



To: delphi-br@yahoogrupos.com.br   
 
From: [EMAIL PROTECTED]   
 
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Entendo!

Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente 
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do 
AV.

De qualquer forma te passei os endereços em PVT.

[]'s



De: delphi-br@yahoogrupos.com.br   
 [mailto:delphi-br@yahoogrupos.com.br 
  
 ] Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br   
 
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.



To: delphi-br@yahoogrupos.com.br   
 
From: [EMAIL PROTECTED]   
 
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject:

RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Davi Eduardo Borges Wall]

Em teoria é a mesma coisa! Mas vou tentar por desencargo e dou retorno para 
lista!

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:54
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation 
em 64 Bits
Prioridade: Alta

 


Eu, particularmente, faria o código da seguinte maneira:

var
lWsCEP: cepwsdlPortType;
endereco, bairro, cidade, uf: string;
begin
lWsCEP := GetcepwsdlPortType();
try
try
lWsCEP.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, uf);
except
on E: Exception do
begin
ShowMessage('Erro ao chamar WS: ' + E.Message);
exit;
end;
end;
showmessage(endereco + #13#10 + bairro + #13#10 + cidade + #13#10 + uf + 
#13#10);
finally
lWsCEP := nil;
end; 
end;

Veja se isso já não ajuda em algo!
Sds.



To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 16:38:29 -0300
Subject: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 
64 Bits

Seria isso!

Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!

GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, 
uf);

showmessage(endereco + #13#10 +

bairro + #13#10 +

cidade + #13#10 +

uf + #13#10);

Obrigado pela atenção!



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br  ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 
Bits
Prioridade: Alta

Manda um código de exemplo da chamada de método do WS que tá com problema. De 
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o 
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da 
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma 
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como 
ajudar muito!

Sds.



To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Entendo!

Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente 
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do 
AV.

De qualquer forma te passei os endereços em PVT.

[]'s



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br   ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br   
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.



To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br   ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br   
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Exatamente! E

RE: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Rubem Nascimento da Rocha]

Eu, particularmente, faria o código da seguinte maneira:

var
  lWsCEP: cepwsdlPortType;
  endereco, bairro, cidade, uf: string;
begin
  lWsCEP := GetcepwsdlPortType();
  try
try
  lWsCEP.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, uf);
except
  on E: Exception do
  begin
ShowMessage('Erro ao chamar WS: ' + E.Message);
exit;
  end;
end;
showmessage(endereco + #13#10 + bairro + #13#10 + cidade + #13#10 + uf + 
#13#10);
  finally
lWsCEP := nil;
  end; 
end;

Veja se isso já não ajuda em algo!
Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 16:38:29 -0300
Subject: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 
64 Bits







Seria isso!

Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!

GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, 
uf);

showmessage(endereco + #13#10 +

bairro + #13#10 +

cidade + #13#10 +

uf + #13#10);

Obrigado pela atenção!



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 
Bits
Prioridade: Alta

Manda um código de exemplo da chamada de método do WS que tá com problema. De 
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o 
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da 
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma 
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como 
ajudar muito!

Sds.



To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Entendo!

Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente 
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do 
AV.

De qualquer forma te passei os endereços em PVT.

[]'s



De: delphi-br@yahoogrupos.com.br  [mailto:delphi-br@yahoogrupos.com.br  ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br 
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.



To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br  [mailto:delphi-br@yahoogrupos.com.br  ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br 
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Exatamente! Este é o código da unit!

cepwsdlPortType = interface(IInvokable)

['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;

out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;

end;

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

defWSDL = 'http://www.meusite.co

Re: [delphi-br] duvida

[Odail Della Niesi Junior]

 := StringReplace(, , , 
[rfIgnoreCase, rfReplaceAll]);

Odail Della Niesi Junior
São Pedro-SP

Vinicius Santos - MSI escreveu:
>
> StringReplace ???
>
> Vinicius dos Santos
> Blog: http://tuplas.blogspot.com 
> http://www.msisolucoes.com.br 
>
> - Original Message -
> From: rzzanatta
> To: delphi-br@yahoogrupos.com.br 
> Sent: Monday, July 28, 2008 3:10 PM
> Subject: [delphi-br] duvida
>
> Olá eu tenho armazenado numa query um valor qualquer tipo 19,29, só que
> eu quero que ele se transforme em 19P29, ou seja quero ler o valor
> armazenado e no lugar da virgula colocar o P , como faço isso
> obrigado
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Re: RES: [delphi-br] Re: [Atenção Aqui] ShellExecute no Vista com UAC, não pod e?

[Onjahyr - GMAIL]

É, eu sei, mas o problema é exatamente para executar outro aplicativo 
(de instalação por exemplo). Descobri que a função ShellExecute não 
existe na API do Windows Vista, porisso não consegue executar nada, tem 
que partir para outra função (tem que verificar o sistema operacional e 
usar uma função para cada tipo).
Se desabilitar o que você disse, os programas são instalados nas pastas 
Arquivos de Programas ou vão para as pastas do usuário?
Por exemplo, se eu for instalar um programa no Windows Vista, ele vai 
por padrão para as pastas do usuário corrente pois a pasta Arquivos de 
Programas só se instala lá se for instalado com a opção de administrador 
(com o botão direito do mouse sobre o executável instalador).

Tô pesquisando mais, pois até com o Delphi 2007 instalado no XP não funfa.

Juliano Silva - Yahoo escreveu:
>
>
> Cara, existe uma opção que você desabilita o lance de ficar pedindo 
> senha e
> confirmação para tudo no Vista... lá em usuários do Vista, desabilitando
> esta funcionalidade, ele para de pedir as confirmações e senhas...
>
> Não é o que você precisa, mas em meu caso funcionou bem já que os usuários
> que utilizam o vista não necessitam deste recurso que na boa acho que só
> incomoda, quando mostrei isso para os usuários eles adoraram...
>
>
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] Em
> nome de listas2004
> Enviada em: segunda-feira, 28 de julho de 2008 15:51
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] Re: [Atenção Aqui] ShellExecute no Vista com UAC, não
> pode?
>
> E ae, ninguém sabe nada a respeito?
>
> --- Em [EMAIL PROTECTED] 
> os.com.br, Onjahyr - GMAIL <[EMAIL PROTECTED]>
> escreveu
>
> E ae Pessoal, blz?
>
> > Tô com um problema. Uso o Delphi 7 e estou criando um aplicativo
> para uma Assistência Técnica de computadores, os caras querem que o
> programa rode de um DVD (até aí tudo bem), querem que seja compativel
> com o XP e o Vista (hummm, bom, dá prá fazer!), querem que o programa
> execute os "Programas de Instalação". No XP funciona legal, mas no
> Vista tem a parada do "Administrador". Vi na internet (em inglês) como
> executar com o UAC do Vista (executar via administrador). E o processo
> é muito enrolado. Alguém sabe como usar o ShellExecute para chamar um
> aplicativo como Administrador (no Windows Vista)? Veja que estou
> usando o Delphi 7 no Windows XP.
>
> > Se alguém souber de alguma coisa dá uma ajuda aí.
> > O link que encontrei é esse:
> >
> http://blog.
>  
> eex-createprocess-and-oskexe/>
> delphi-jedi.net/2008/05/17/the-case-of-shellexecute-shellexecuteex-createpro
> cess-and-oskexe/
>
> > Até o Delphi 2007 rodando num XP não funciona. Alguém já viu isso?
> > Eu não tenho o Vista para realizar testes. Nem uso Delphi 2007.
>
> > Fico no aguardo, vamos nos unir pois isso é importante para nós no
> > decorrer dos dias de trabalho...
>
> > Blz.
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008
> 06:55
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

[delphi-br] RE: Tiburon Preview - online próxima sexta - 1 de agosto

[Andreano Lanusse]

Pessoal é sexta-feira, tem que se inscrever antes para participar.


From: Andreano Lanusse
Sent: Friday, July 25, 2008 1:56 PM
To: 'delphi-br@yahoogrupos.com.br'
Subject: Tiburon Preview - online próxima sexta - 1 de agosto

Comunidade Delphi,

Na próxima sexta, 1º de agosto, às 11h (horário de Brasília), apresentaremos 
algumas das novidades do Tiburon, a próxima versão do Delphi e C++ Builder.

O evento será online, com duração de 30 minutos. Os participantes terão a 
oportunidade de conhecer algumas das novidades da próxima versão do Delphi:

- Novos componentes da VCL
- Novos recursos da linguagem
- Novo DataSnap
- E muito mais.

As inscrições podem ser feitas pelo site: 
http://latam.codegear.com/br/tiburonpreview.

Durante a apresentação serão efetuados alguns testes para avaliar a capacidade 
e qualidade de áudio e vídeo da solução para eventos online - Live Meeting. 
Contamos com o apoio de toda a comunidade Delphi.

A apresentação será em português e contará com a presença de nosso ilustre 
Evangelista Chefe DavidI.

Não perca 

Nos vemos no evento.

[]'s
Andreano Lanusse
Product Line Manage & Technical Lead Evangelist Latin America
Embarcadero Technologies
http://blogs.codegear.com/andreanolanusse

CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended 
recipient(s) 
and may contain confidential and privileged information. Any unauthorized 
review, use, 
disclosure or distribution is prohibited. If you are not the intended 
recipient, please 
contact the sender by reply email and destroy all copies of the original 
message.


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

RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Davi Eduardo Borges Wall]

Seria isso!

 

Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!

 

 

  GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, 
uf);

 

  showmessage(endereco + #13#10 +

  bairro + #13#10 +

  cidade + #13#10 +

  uf + #13#10);

 

Obrigado pela atenção!

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 
Bits
Prioridade: Alta

 


Manda um código de exemplo da chamada de método do WS que tá com problema. De 
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o 
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da 
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma 
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como 
ajudar muito!

Sds.



To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Entendo!

Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente 
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do 
AV.

De qualquer forma te passei os endereços em PVT.

[]'s



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br  ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.



To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br   ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br   
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Exatamente! Este é o código da unit!

cepwsdlPortType = interface(IInvokable)

['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;

out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;

end;

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

defWSDL = 'http://www.meusite.com/wscep.php?wsdl 
  ';

defURL = 'http://www.meusite.com/wscep.php   
';

defSvc = 'cepwsdl';

defPrt = 'cepwsdlPort';

var

RIO: THTTPRIO;

begin

Result := nil;

if (Addr = '') then

beg

RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Rubem Nascimento da Rocha]

Manda um código de exemplo da chamada de método do WS que tá com problema. De 
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o 
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da 
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma 
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como 
ajudar muito!

Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits


Entendo!

Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente 
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do 
AV.

De qualquer forma te passei os endereços em PVT.

[]'s



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.



To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br  [mailto:delphi-br@yahoogrupos.com.br  ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br 
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Exatamente! Este é o código da unit!

cepwsdlPortType = interface(IInvokable)

['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;

out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;

end;

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

defWSDL = 'http://www.meusite.com/wscep.php?wsdl  ';

defURL = 'http://www.meusite.com/wscep.php  ';

defSvc = 'cepwsdl';

defPrt = 'cepwsdlPort';

var

RIO: THTTPRIO;

begin

Result := nil;

if (Addr = '') then

begin

if UseWSDL then

Addr := defWSDL

else

Addr := defURL;

end;

if HTTPRIO = nil then

RIO := THTTPRIO.Create(nil)

else

RIO := HTTPRIO;

try

Result := (RIO as cepwsdlPortType);

if UseWSDL then

begin

RIO.WSDLLocation := Addr;

RIO.Service := defSvc;

RIO.Port := defPrt;

end else

RIO.URL := Addr;

finally

if (Result = nil) and (HTTPRIO = nil) then

RIO.Free;

end;

end;



De: delphi-br@yahoogrupos.com.br  [mailto:delphi-br@yahoogrupos.com.br  ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br 
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?
Sds.


To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Olá,

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.
Cliente atualizou servidor para 64 b

RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Ricardo César Cardoso]

Acho melhor que vc passe o endereço em private pro Rubem, que se dispôs a te 
ajudar, Davi.

Atte,
Ricardo.

--- Em seg, 28/7/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]>
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 28 de Julho de 2008, 16:07















Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!



Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!



Sds.



 _ _ __



To: [EMAIL PROTECTED] os.com.br

From: [EMAIL PROTECTED] com.br

Date: Mon, 28 Jul 2008 16:04:51 -0300

Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits



Sim! O endereço é fictício.



 _ _ __



De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
Rubem Nascimento da Rocha

Enviada em: segunda-feira, 28 de julho de 2008 15:58

Para: [EMAIL PROTECTED] os.com.br

Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Prioridade: Alta



Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!

Sds.



 _ _ __

To: [EMAIL PROTECTED] os.com.br 

From: [EMAIL PROTECTED] com.br 

Date: Mon, 28 Jul 2008 15:52:00 -0300

Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits



Exatamente! Este é o código da unit!



cepwsdlPortType = interface(IInvokabl e)



['{3E7EC10C- CAC0-3F39- B591-CA8F8E9208F B}']



procedure ConsultarCEP( const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;



procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;



out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;



end;



function GetcepwsdlPortType( UseWSDL: Boolean=System. False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;



function GetcepwsdlPortType( UseWSDL: Boolean; Addr: string; HTTPRIO: 
THTTPRIO): cepwsdlPortType;



const



defWSDL = 'http://www.meusite. com/wscep. php?wsdl  ';



defURL = 'http://www.meusite. com/wscep. php  ';



defSvc = 'cepwsdl';



defPrt = 'cepwsdlPort' ;



var



RIO: THTTPRIO;



begin



Result := nil;



if (Addr = '') then



begin



if UseWSDL then



Addr := defWSDL



else



Addr := defURL;



end;



if HTTPRIO = nil then



RIO := THTTPRIO.Create( nil)



else



RIO := HTTPRIO;



try



Result := (RIO as cepwsdlPortType) ;



if UseWSDL then



begin



RIO.WSDLLocation := Addr;



RIO.Service := defSvc;



RIO.Port := defPrt;



end else



RIO.URL := Addr;



finally



if (Result = nil) and (HTTPRIO = nil) then



RIO.Free;



end;



end;



 _ _ __



De: [EMAIL PROTECTED] os.com.br  [mailto:[EMAIL PROTECTED] os.com.br  ] Em nome 
de Rubem Nascimento da Rocha

Enviada em: segunda-feira, 28 de julho de 2008 15:46

Para: [EMAIL PROTECTED] os.com.br 

Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Prioridade: Alta



Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?

Sds.



 _ _ __

To: [EMAIL PROTECTED] os.com.br 

From: [EMAIL PROTECTED] com.br 

Date: Mon, 28 Jul 2008 15:39:11 -0300

Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits



Olá,



Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.

Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.



Só acontece em máquinas com S.O. 64 bits.



Talvez alguém já tenha passado por isso ?



[]'s



Davi.



 _ _ _ _ _ _

Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!

http://www.msn. com.br/emoticonp ack 



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



 _ _ _ _ _ _

Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!

http://www.msn. com.br/emoticonp ack

RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Davi Eduardo Borges Wall]

Entendo!

 

Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente 
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do 
AV.

 

De qualquer forma te passei os endereços em PVT.

[]'s

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

 



Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.



To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br  ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Exatamente! Este é o código da unit!

cepwsdlPortType = interface(IInvokable)

['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;

out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;

end;

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

defWSDL = 'http://www.meusite.com/wscep.php?wsdl 
  ';

defURL = 'http://www.meusite.com/wscep.php   
';

defSvc = 'cepwsdl';

defPrt = 'cepwsdlPort';

var

RIO: THTTPRIO;

begin

Result := nil;

if (Addr = '') then

begin

if UseWSDL then

Addr := defWSDL

else

Addr := defURL;

end;

if HTTPRIO = nil then

RIO := THTTPRIO.Create(nil)

else

RIO := HTTPRIO;

try

Result := (RIO as cepwsdlPortType);

if UseWSDL then

begin

RIO.WSDLLocation := Addr;

RIO.Service := defSvc;

RIO.Port := defPrt;

end else

RIO.URL := Addr;

finally

if (Result = nil) and (HTTPRIO = nil) then

RIO.Free;

end;

end;



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br   ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br   
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?
Sds.


To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Olá,

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.

Só acontece em máquinas com S.O. 64 bits.

RES: [delphi-br] Re: [Atenção Aqui] ShellE xecute no Vista com UAC, não pode?

[Juliano Silva - Yahoo]

 
Cara, existe uma opção que você desabilita o lance de ficar pedindo senha e
confirmação para tudo no Vista... lá em usuários do Vista, desabilitando
esta funcionalidade, ele para de pedir as confirmações e senhas...
 
Não é o que você precisa, mas em meu caso funcionou bem já que os usuários
que utilizam o vista não necessitam deste recurso que na boa acho que só
incomoda, quando mostrei isso para os usuários eles adoraram...
 
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de listas2004
Enviada em: segunda-feira, 28 de julho de 2008 15:51
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: [Atenção Aqui] ShellExecute no Vista com UAC, não
pode?




E ae, ninguém sabe nada a respeito?

--- Em [EMAIL PROTECTED] 
os.com.br, Onjahyr - GMAIL <[EMAIL PROTECTED]>
escreveu

E ae Pessoal, blz?

> Tô com um problema. Uso o Delphi 7 e estou criando um aplicativo
para uma Assistência Técnica de computadores, os caras querem que o
programa rode de um DVD (até aí tudo bem), querem que seja compativel
com o XP e o Vista (hummm, bom, dá prá fazer!), querem que o programa
execute os "Programas de Instalação". No XP funciona legal, mas no
Vista tem a parada do "Administrador". Vi na internet (em inglês) como
executar com o UAC do Vista (executar via administrador). E o processo
é muito enrolado. Alguém sabe como usar o ShellExecute para chamar um
aplicativo como Administrador (no Windows Vista)? Veja que estou
usando o Delphi 7 no Windows XP.

> Se alguém souber de alguma coisa dá uma ajuda aí.
> O link que encontrei é esse: 
>
http://blog.

delphi-jedi.net/2008/05/17/the-case-of-shellexecute-shellexecuteex-createpro
cess-and-oskexe/

> Até o Delphi 2007 rodando num XP não funciona. Alguém já viu isso?
> Eu não tenho o Vista para realizar testes. Nem uso Delphi 2007.

> Fico no aguardo, vamos nos unir pois isso é importante para nós no 
> decorrer dos dias de trabalho...

> Blz.



 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008
06:55




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

RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Rubem Nascimento da Rocha]

Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu 
num consigo ver como fazer isso sem o endereço real!

Já aviso logo que se for o endereço do webservice dos correios, ele foi 
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De 
repente, pode ser alguma mudança no próprio webservice que necessite regerar a 
unit, mas pra isso tem que ter o endereço real do webservice pra poder 
verificar isso!

Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Exatamente! Este é o código da unit!

cepwsdlPortType = interface(IInvokable)

['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;

out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;

end;

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

defWSDL = 'http://www.meusite.com/wscep.php?wsdl  ';

defURL = 'http://www.meusite.com/wscep.php  ';

defSvc = 'cepwsdl';

defPrt = 'cepwsdlPort';

var

RIO: THTTPRIO;

begin

Result := nil;

if (Addr = '') then

begin

if UseWSDL then

Addr := defWSDL

else

Addr := defURL;

end;

if HTTPRIO = nil then

RIO := THTTPRIO.Create(nil)

else

RIO := HTTPRIO;

try

Result := (RIO as cepwsdlPortType);

if UseWSDL then

begin

RIO.WSDLLocation := Addr;

RIO.Service := defSvc;

RIO.Port := defPrt;

end else

RIO.URL := Addr;

finally

if (Result = nil) and (HTTPRIO = nil) then

RIO.Free;

end;

end;



De: delphi-br@yahoogrupos.com.br  [mailto:delphi-br@yahoogrupos.com.br  ] Em 
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br 
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?
Sds.


To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Olá,

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.

Só acontece em máquinas com S.O. 64 bits.

Talvez alguém já tenha passado por isso ?

[]'s

Davi.

__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack 

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








_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Davi Eduardo Borges Wall]

Sim! O endereço é fictício.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

 


Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.


To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Exatamente! Este é o código da unit!

cepwsdlPortType = interface(IInvokable)

['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;

out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;

end;

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

defWSDL = 'http://www.meusite.com/wscep.php?wsdl 
 ';

defURL = 'http://www.meusite.com/wscep.php  ';

defSvc = 'cepwsdl';

defPrt = 'cepwsdlPort';

var

RIO: THTTPRIO;

begin

Result := nil;

if (Addr = '') then

begin

if UseWSDL then

Addr := defWSDL

else

Addr := defURL;

end;

if HTTPRIO = nil then

RIO := THTTPRIO.Create(nil)

else

RIO := HTTPRIO;

try

Result := (RIO as cepwsdlPortType);

if UseWSDL then

begin

RIO.WSDLLocation := Addr;

RIO.Service := defSvc;

RIO.Port := defPrt;

end else

RIO.URL := Addr;

finally

if (Result = nil) and (HTTPRIO = nil) then

RIO.Free;

end;

end;



De: delphi-br@yahoogrupos.com.br   
[mailto:delphi-br@yahoogrupos.com.br  ] 
Em nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br  
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?
Sds.


To: delphi-br@yahoogrupos.com.br   
From: [EMAIL PROTECTED]   
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Olá,

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.

Só acontece em máquinas com S.O. 64 bits.

Talvez alguém já tenha passado por isso ?

[]'s

Davi.

__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack  

 



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

RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Rubem Nascimento da Rocha]

Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo 
IE e ... nem tchum!
Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits



Exatamente! Este é o código da unit!

cepwsdlPortType = interface(IInvokable)

['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; const 
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: 
WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out 
bairro_1: WideString; out endereco_1: WideString;

out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; 
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); 
stdcall;

end;

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

defWSDL = 'http://www.meusite.com/wscep.php?wsdl';

defURL = 'http://www.meusite.com/wscep.php';

defSvc = 'cepwsdl';

defPrt = 'cepwsdlPort';

var

RIO: THTTPRIO;

begin

Result := nil;

if (Addr = '') then

begin

if UseWSDL then

Addr := defWSDL

else

Addr := defURL;

end;

if HTTPRIO = nil then

RIO := THTTPRIO.Create(nil)

else

RIO := HTTPRIO;

try

Result := (RIO as cepwsdlPortType);

if UseWSDL then

begin

RIO.WSDLLocation := Addr;

RIO.Service := defSvc;

RIO.Port := defPrt;

end else

RIO.URL := Addr;

finally

if (Result = nil) and (HTTPRIO = nil) then

RIO.Free;

end;

end;



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?
Sds.


To: delphi-br@yahoogrupos.com.br 
From: [EMAIL PROTECTED] 
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Olá,

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.

Só acontece em máquinas com S.O. 64 bits.

Talvez alguém já tenha passado por isso ?

[]'s

Davi.

_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Davi Eduardo Borges Wall]

Exatamente! Este é o código da unit!

 

  cepwsdlPortType = interface(IInvokable)

  ['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

procedure ConsultarCEP(const user: WideString; const pass: WideString; 
const cep: WideString; out endereco: WideString; out bairro: WideString; out 
cidade: WideString; out uf: WideString); stdcall;

procedure ObterCEP(const user: WideString; const pass: WideString; const 
endereco: WideString; const cidade: WideString; const uf: WideString; const 
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; 
out bairro_1: WideString; out endereco_1: WideString; 

   out cep_2: WideString; out bairro_2: WideString; out 
endereco_2: WideString; out cep_3: WideString; out bairro_3: WideString; out 
endereco_3: WideString); stdcall;

  end;

 

function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string=''; 
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;

 

function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): 
cepwsdlPortType;

const

  defWSDL = 'http://www.meusite.com/wscep.php?wsdl';

  defURL  = 'http://www.meusite.com/wscep.php';

  defSvc  = 'cepwsdl';

  defPrt  = 'cepwsdlPort';

var

  RIO: THTTPRIO;

begin

  Result := nil;

  if (Addr = '') then

  begin

if UseWSDL then

  Addr := defWSDL

else

  Addr := defURL;

  end;

  if HTTPRIO = nil then

RIO := THTTPRIO.Create(nil)

  else

RIO := HTTPRIO;

  try

Result := (RIO as cepwsdlPortType);

if UseWSDL then

begin

  RIO.WSDLLocation := Addr;

  RIO.Service := defSvc;

  RIO.Port := defPrt;

end else

  RIO.URL := Addr;

  finally

if (Result = nil) and (HTTPRIO = nil) then

  RIO.Free;

  end;

end;

 

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta

 


Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?
Sds.


To: delphi-br@yahoogrupos.com.br  
From: [EMAIL PROTECTED]  
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Olá,

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.

Só acontece em máquinas com S.O. 64 bits.

Talvez alguém já tenha passado por isso ?

[]'s

Davi.

__
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/  

 



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

[delphi-br] Re: [Atenção Aqui] ShellExecute no Vista com UAC, não pode?

[listas2004]

E ae, ninguém sabe nada a respeito?



--- Em delphi-br@yahoogrupos.com.br, Onjahyr - GMAIL <[EMAIL PROTECTED]>
escreveu

E ae Pessoal, blz?
 
> Tô com um problema. Uso o Delphi 7 e estou criando um aplicativo
para uma Assistência Técnica de computadores, os caras querem que o
programa rode de um DVD (até aí tudo bem), querem que seja compativel
com o XP e o Vista (hummm, bom, dá prá fazer!), querem que o programa
execute os "Programas de Instalação". No XP funciona legal, mas no
Vista tem a parada do "Administrador". Vi na internet (em inglês) como
executar com o UAC do Vista (executar via administrador). E o processo
é muito enrolado. Alguém sabe como usar o ShellExecute para chamar um
aplicativo como Administrador (no Windows Vista)? Veja que estou
usando o Delphi 7 no Windows XP.
 
> Se alguém souber de alguma coisa dá uma ajuda aí.
> O link que encontrei é esse: 
>
http://blog.delphi-jedi.net/2008/05/17/the-case-of-shellexecute-shellexecuteex-createprocess-and-oskexe/
 
> Até o Delphi 2007 rodando num XP não funciona. Alguém já viu isso?
> Eu não tenho o Vista para realizar testes. Nem uso Delphi 2007.
 
> Fico no aguardo, vamos nos unir pois isso é importante para nós no 
> decorrer dos dias de trabalho...
 
> Blz.

RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Rubem Nascimento da Rocha]

Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes 
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as 
chamadas ao webservice?
Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits



Olá,

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.

Só acontece em máquinas com S.O. 64 bits.

Talvez alguém já tenha passado por isso ?

[]'s

Davi.


_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/

[delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

[Davi Eduardo Borges Wall]

Olá,

 

Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para 
consulta CEP's. 
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.



Só acontece em máquinas com S.O. 64 bits.

 

Talvez alguém já tenha passado por isso ?

 

[]'s

Davi.

 

 

 

 



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

Re: RES: [delphi-br][Resolvido] Dúvida simple s: try-finally...

[Onjahyr - GMAIL]

Era exatamente isso minha dúvida, você acertou em cheio.

Agradecido

Juliano Silva - Yahoo escreveu:
>
>
> Depende do tipo de processo, os processos que desviam o cursor devem
> primeiramente terminar para que o bloco Finally seja executado, 
> normalmente
> os processos que envolvem Looping...
>
> Exemplo, quando você executa o método Form1.ShowModal estiver entre o
> Try ... Finally o fluxo é enviado para o Form1 e somente será executado o
> bloco Finanlly apos o retorno (quando o Form1 for fechado), no entanto se
> executar o Form1.Show o bloco Finally será executado logo na 
> sequencia, pois
> o método Show não desvia o fluxo de execução...
>
> Espero ter ajudado
>
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] Em
> nome de Onjahyr - GMAIL
> Enviada em: segunda-feira, 28 de julho de 2008 14:03
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] Dúvida simples: try-finally...
>
> E aí pessoal, me tirem uma dúvida bem simples sobre o bloco try-finally.
>
> try
> label1.caption:= 'iukhkhgh';
> ...
> ...processo demorado...
> finally
> label2.caption := label1.caption + (resultado do processo demorado);
> ...continua com o código...
> end;
>
> Agradeço
> É claro que é um bloco, mas ele pode realizar as linhas de comando do
> try e em sequência já ir executando o finally ou espera o processo
> terminar para ir para o finally?
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008
> 06:55
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

RE: [delphi-br] duvida

[Rubem Nascimento da Rocha]

Use o evento OnGetText do objeto TField associado ao campo da seguinte maneira:

procedure TForm1Query1CampoNumericoGetText(Sender: TField; var Text: String; 
DisplayText: Boolean);
begin
  if DisplayText then
if not Sender.IsNull then
  Text := StringReplace(FormatFloat('##0.00', Sender.AsFloat), 
DecimalSeparator, 'P', []))
else
  Text := EmptyStr
  else
Text := Sender.AsString
end;




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 15:20:45 -0300
Subject: Re: [delphi-br] duvida







StringReplace ???

Vinicius dos Santos
Blog: http://tuplas.blogspot.com
http://www.msisolucoes.com.br

- Original Message -
From: rzzanatta
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 28, 2008 3:10 PM
Subject: [delphi-br] duvida

Olá eu tenho armazenado numa query um valor qualquer tipo 19,29, só que
eu quero que ele se transforme em 19P29, ou seja quero ler o valor
armazenado e no lugar da virgula colocar o P , como faço isso
obrigado

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








_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

Re: RES: [delphi-br] consulta entre datas

[Ricardo César Cardoso]

Extraído da mensagem original:

"(...)uma consulta num aplicativo com BD em access."

Atte,
Ricardo.

--- Em seg, 28/7/08, Juliano Silva - Yahoo <[EMAIL PROTECTED]> escreveu:
De: Juliano Silva - Yahoo <[EMAIL PROTECTED]>
Assunto: RES: [delphi-br] consulta entre datas
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 28 de Julho de 2008, 14:52











 

Não, você não precisa converter para Date, mas tem que saber qual o banco

está utilizando pois cada banco implementa uma forma diferente de data, ou

seja no SQLServer é ANO/MES/DIA, no Firebird é MES/DIA/ANO. ... então você

tem que se ater a este detalhe para poder formatar corretamente a data... 

 

  _  



De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em

nome de asandro1501

Enviada em: segunda-feira, 28 de julho de 2008 14:38

Para: [EMAIL PROTECTED] os.com.br

Assunto: [delphi-br] consulta entre datas



Boa tarde pessoal



Preciso fazer filtro dentro de uma consulta num aplicativo com BD em 

access. Já tentei de várias formas mas não estou conseguindo filtrar.

Eu coloco as datas em 2 maskedit, nunca fiz isso antes. Preciso 

converter os valor para "date"?



Se alguém puder me ajudar com esse código eu agradeço. 



No virus found in this incoming message.

Checked by AVG - http://www.avg. com

Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008

06:55



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



  

_

 














  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

Re: [delphi-br] Fortes Report

[Daniel Bastos]

VCL

CLX é a biblioteca para compatibilidade com o Kylix.
O Kylix foi descontinuado, logo a CLX. Mas ainda está presente por
compatibilidade

2008/7/28 Marcos Ferreira <[EMAIL PROTECTED]>

>   Pessoal,
>
> vou experimentar o Fortes Report. qual desses devo instalar? ou tenho que
> instalar os dois?
>
> Delphi7CLX Arquivo compactado padrão ZIP* 803 Kb 29/10/2004
> Delphi7VCL Arquivo compactado padrão ZIP* 776 Kb 29/10/2004
>
> Att,
>
> Marcos A. Ferreira
> São Paulo - SP
> +55 1183376968
>
> Esta mensagem pode conter informação confidencial e/ou privilegiada. Se
> você não for o destinatário ou a pessoa autorizada a receber esta mensagem,
> não pode usar, copiar, ou divulgar as informações nela contidas ou tomar
> qualquer ação baseada nestas informações. Se você recebeu esta mensagem por
> engano, por favor, avise imediatamente o remetente, respondendo o email e em
> seguida, apague-o.
> Agradecemos sua cooperação.
>
> This message may contain confidential and/or privileged information. If you
> are not the addressee or authorized to receive this for the addressee, you
> must not use, copy, disclose or take any action based on this message or any
> information herein. If you have received this message in error, please,
> advise the sender immediately by reply e-mail and delete this message.
> Thank you for your cooperation.
>
> Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
> AMBIENTE.
> ENVIRONMENT commitment and responsibility, think about Before Printing.
>
> [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] duvida

[Vinicius Santos - MSI]

StringReplace ???

Vinicius dos Santos
Blog: http://tuplas.blogspot.com
http://www.msisolucoes.com.br

  - Original Message - 
  From: rzzanatta 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 28, 2008 3:10 PM
  Subject: [delphi-br] duvida


  Olá eu tenho armazenado numa query um valor qualquer tipo 19,29, só que 
  eu quero que ele se transforme em 19P29, ou seja quero ler o valor 
  armazenado e no lugar da virgula colocar o P , como faço isso 
  obrigado



   

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

Re: RES: [delphi-br] consulta entre datas

[Adriano Santos (Yahoo)]

Juliano,

Se você utilizar parâmetros na query como mostrei, o componente se 
encarrega de mandar corretamente a data para o banco.

-- 
Boa Leitura,

Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br



Juliano Silva - Yahoo respondeu:
>
>
> Não, você não precisa converter para Date, mas tem que saber qual o banco
> está utilizando pois cada banco implementa uma forma diferente de data, ou
> seja no SQLServer é ANO/MES/DIA, no Firebird é MES/DIA/ANO então você
> tem que se ater a este detalhe para poder formatar corretamente a data...
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] Em
> nome de asandro1501
> Enviada em: segunda-feira, 28 de julho de 2008 14:38
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] consulta entre datas
>
> Boa tarde pessoal
>
> Preciso fazer filtro dentro de uma consulta num aplicativo com BD em
> access. Já tentei de várias formas mas não estou conseguindo filtrar.
> Eu coloco as datas em 2 maskedit, nunca fiz isso antes. Preciso
> converter os valor para "date"?
>
> Se alguém puder me ajudar com esse código eu agradeço.
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008
> 06:55
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/7/2008 
> 06:55
>   

-- 
Boa Leitura,

Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br

Re: [delphi-br] ordenar listbox

[Adriano Santos (Yahoo)]

//Desce o item selecionado
procedure TForm1.btn1Click(Sender: TObject);
var
  NovoIndex : Integer;
begin
  if not (lbx1.ItemIndex = lbx1.Items.Count-1) then
  begin
NovoIndex := lbx1.ItemIndex + 1;
lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
lbx1.ItemIndex := NovoIndex;
lbx1.SetFocus;
  end;
end;


//Sobe o item selecionado
procedure TForm1.btn2Click(Sender: TObject);
var
  NovoIndex : Integer;
begin
  if not (lbx1.ItemIndex - 1 < 0) then
  begin
NovoIndex := lbx1.ItemIndex - 1;
lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
lbx1.ItemIndex := NovoIndex;
lbx1.SetFocus;
  end;
end;

-- 
Boa Leitura,

Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br



dhsb respondeu:
>
> Pessoal,
>
> Boa tarde...
>
> Tenho um formulario com um listbox e dois botões um com seta para cima
> e outra com seta para baixo (ordenação). Meu problema e que nao estou
> conseguindo ordenar os itens do meu list box.
>
> Exemplo quando seleciono o primeiro e clico no botao para baixo queria
> que ele ficasse no segundo registro e assim sucessivamente..
>
> Alguem ja passou por algo semelhante... Como eu faria?
>
> Valeu
>
> 
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/7/2008 
> 06:55
>   

[delphi-br] duvida

[rzzanatta]

Olá eu tenho armazenado numa query um valor qualquer tipo 19,29, só que 
eu quero que ele se transforme em 19P29, ou seja quero ler o valor 
armazenado e no lugar da virgula colocar o P , como faço isso 
obrigado

Re: [delphi-br][RESOLVIDO] Criar parâmetros em uma TOraStoredProc em tempo de execução

[Eduardo Silva dos Santos]

Olá Willian, que bom que deu certo,

quanto ao tempo de resposta da Devart é relativo, todas as vezes que postei
no Forum (e olha que tem tempo que posta lá) tive minhas dúvidas respondidas
no dia seguinte.

outra forma mais rápida é enviar um e-mail para o suporte com o nº do seu
registro de cliente.. ai eles atendem mais rápido ainda.

e se for algum bug eles mandam o fix antes mesmo de liberar uma nova versão.

por isso mesmo que uso os componentes deles desde 2004 e tão cedo não vou
mudar.

2008/7/28 Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]>

>   Olá, Eduardo...
>
> Valeu pela resposta, mas acabei encontrando referências a um método da
> classe TOraStoredProc que faz exatamente oq eu preciso. Então, minha função
> acabou ficando assim:
>
> procedure TOraDBConnection.CreateStoredProcParam(StoredProc:
> TCustomOraStoredProc;
> PFiledType: TFieldType; PName: String; PType: TParamType);
>
> begin
> //Cria os parâmetros para objetos TOraStoredProc
> StoredProc.Params.CreateParam(PFiledType, PName, PType);
> end;
>
> []'s
>
> P.S. - e os caras da DevArt demoram mito pra responder...
>
> ---
> Att.:
> Willian Jhonnes L. dos Santos
> Analista/Desenvolvedor Object/Free Pascal
> [EMAIL PROTECTED] 
> ---
> Seja livre. Use Linux.
> Grupo de Usuários GNU/Linux de São José dos Pinhais
> Linux user number 449753
> ---
> Powered by Slackware Linux 12.0
> Kernel 2.6.21.5-custom
> ---
>
> - Mensagem original 
> De: Eduardo Silva dos Santos <[EMAIL PROTECTED]
> >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Segunda-feira, 28 de Julho de 2008 11:31:01
> Assunto: Re: [delphi-br] Criar parâmetros em uma TOraStoredProc em tempo de
> execução
>
> Olá Willian, certo vez vi algo parecido no Forum do ODAC, acho que você tem
> que usar um tipo que parêmetro que pertence ao ODAC se não me engano
> TDAParam.. não tenho certeza, de qualquer forma segue o endereço do forum,
> se você postar lá certamente o pessoal da DevArt resolve rapidinho
>
> http://devart. com/forums/ viewforum. php?f=5
>
> posta lá que o suporte deles é muito bom.
>
> 2008/7/28 Willian Jhonnes Lara dos Santos 
>
> > Olá, bom dia a todos...
> >
> > Criei uma rotina [1] para adicionar parâmetros a um objeto TOraStoredProc
> > (ODAC 6.25) em tempo de execução, mas a mesma me retorna o erro "Invalid
> > property value". Já codifiquei a rotina de 'n' formas diferentes, todas
> sem
> > sucesso.
> >
> > A situação é: a variável rParam recebe o parâmetro criado, tem seus
> > atributos mudados e é inserida no objeto TOraStoredProc. O parâmetro é
> > criado normalmente, mas na hora de inserí-lo no objeto, ele me retorna o
> > erro.
> >
> > O google não me retornou nada referente a esta questão e, como é a
> primeira
> > vez que tento fazer isso de forma dinâmica (os componentes sempre foram
> > estáticos), confesso que me sinto um tanto perdido.
> >
> > Se alguém tiver alguma idéia de como realizar esta tarefa, agradeceria
> > muito...
> >
> > []'s
> >
> > [1] - procedure TOraDBConnection. CreateStoredProc Param(StoredProc :
> > TOraStoredProc;
> > PType: TParamType; PName, PValue: String);
> > var
> > rParam: TParam;
> > begin
> > //Cria os parâmetros para objetos TOraStoredProc
> > rParam := TParam.Create( FParams, PType);
> > rParam.Name := PName;
> > rParam.Value := PValue;
> > StoredProc.Params. AddParam( rParam);
> > end;
> >
> >  - - - - ---
> > Att.:
> > Willian Jhonnes L. dos Santos
> > Analista/Desenvolve dor Object/Free Pascal
> > willianjhonnes@ yahoo.com. br 
> >  - - - - ---
> > Seja livre. Use Linux.
> > Grupo de Usuários GNU/Linux de São José dos Pinhais
> > Linux user number 449753
> >  - - - - ---
> > Powered by Slackware Linux 12.0
> > Kernel 2.6.21.5-custom
> >  - - - - ---
> >
> > Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> > cara @ymail.com ou @rocketmail. com.
> > http://br.new. mail.yahoo. com/addresses
> >
> >
>
> --
>  . . . . ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: eduardo.drd@ gmail.com
> Site: http://www.drdsiste mas.com.br/
>  . . . . ...
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drd

[delphi-br] ordenar listbox

[dhsb]

Pessoal,

Boa tarde...

Tenho um formulario com um listbox e dois botões um com seta para cima 
e outra com seta para baixo (ordenação). Meu problema e que nao estou 
conseguindo ordenar os itens do meu list box.

Exemplo quando seleciono o primeiro e clico no botao para baixo queria 
que ele ficasse no segundo registro e assim sucessivamente..

Alguem ja passou por algo semelhante... Como eu faria?


Valeu

RES: [delphi-br] consulta entre datas

[Juliano Silva - Yahoo]

 
Não, você não precisa converter para Date, mas tem que saber qual o banco
está utilizando pois cada banco implementa uma forma diferente de data, ou
seja no SQLServer é ANO/MES/DIA, no Firebird é MES/DIA/ANO então você
tem que se ater a este detalhe para poder formatar corretamente a data... 
 
  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de asandro1501
Enviada em: segunda-feira, 28 de julho de 2008 14:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] consulta entre datas



Boa tarde pessoal

Preciso fazer filtro dentro de uma consulta num aplicativo com BD em 
access. Já tentei de várias formas mas não estou conseguindo filtrar.
Eu coloco as datas em 2 maskedit, nunca fiz isso antes. Preciso 
converter os valor para "date"?

Se alguém puder me ajudar com esse código eu agradeço. 



 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008
06:55




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

[delphi-br] Fortes Report

[Marcos Ferreira]

Pessoal,

vou experimentar o Fortes Report. qual desses devo instalar? ou tenho que 
instalar os dois?

Delphi7CLX  Arquivo compactado padrão ZIP*  803 Kb  29/10/2004
Delphi7VCL  Arquivo compactado padrão ZIP*  776 Kb  29/10/2004 



Att,

Marcos A. Ferreira
São Paulo - SP
+55 1183376968

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você 
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode 
usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação 
baseada nestas informações. Se você recebeu esta mensagem por engano, por 
favor, avise imediatamente o remetente, respondendo o email e em seguida, 
apague-o.
Agradecemos sua cooperação.

This message may contain confidential and/or privileged information. If you are 
not the addressee or authorized to receive this for the addressee, you must not 
use, copy, disclose or take any action based on this message or any information 
herein. If you have received this message in error, please, advise the sender 
immediately by reply e-mail and delete this message.
Thank you for your cooperation.

Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.

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

RES: [delphi-br] Dúvida simples: try-finally...

[Juliano Silva - Yahoo]

 
Depende do tipo de processo, os processos que desviam o cursor devem
primeiramente terminar para que o bloco Finally seja executado, normalmente
os processos que envolvem Looping... 
 
Exemplo, quando você executa o método Form1.ShowModal estiver entre o
Try ... Finally o fluxo é enviado para o Form1 e somente será executado o
bloco Finanlly apos o retorno (quando o Form1 for fechado), no entanto se
executar o Form1.Show o bloco Finally será executado logo na sequencia, pois
o método Show não desvia o fluxo de execução...
 
Espero ter ajudado
 


  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Onjahyr - GMAIL
Enviada em: segunda-feira, 28 de julho de 2008 14:03
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Dúvida simples: try-finally...



E aí pessoal, me tirem uma dúvida bem simples sobre o bloco try-finally.

try
label1.caption:= 'iukhkhgh';
...
...processo demorado...
finally
label2.caption := label1.caption + (resultado do processo demorado);
...continua com o código...
end;

Agradeço
É claro que é um bloco, mas ele pode realizar as linhas de comando do 
try e em sequência já ir executando o finally ou espera o processo 
terminar para ir para o finally?


 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/07/2008
06:55




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

[delphi-br] Fortes Re

[Marcos Ferreira]

Att,

Marcos A. Ferreira
Consultor SAP/ABAP
São Paulo - SP
+55 1183376968

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você 
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode 
usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação 
baseada nestas informações. Se você recebeu esta mensagem por engano, por 
favor, avise imediatamente o remetente, respondendo o email e em seguida, 
apague-o.
Agradecemos sua cooperação.

This message may contain confidential and/or privileged information. If you are 
not the addressee or authorized to receive this for the addressee, you must not 
use, copy, disclose or take any action based on this message or any information 
herein. If you have received this message in error, please, advise the sender 
immediately by reply e-mail and delete this message.
Thank you for your cooperation.

Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.

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

Re: [delphi-br] consulta entre datas

[Adriano Santos (Yahoo)]

Cara,

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM TABELA WHERE CAMPO_DATA BETWEEN :DATA1 
AND :DATA2');
  Query1.ParamByName('DATA1').AsDateTime := StrToDateTime(MaskEdit1.Text);
  Query1.ParamByName('DATA2').AsDateTime := StrToDateTime(MaskEdit2.Text);

  Query1.Open;
end;

-- 
Boa Leitura,

Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br



asandro1501 respondeu:
>
> Boa tarde pessoal
>
> Preciso fazer filtro dentro de uma consulta num aplicativo com BD em
> access. Já tentei de várias formas mas não estou conseguindo filtrar.
> Eu coloco as datas em 2 maskedit, nunca fiz isso antes. Preciso
> converter os valor para "date"?
>
> Se alguém puder me ajudar com esse código eu agradeço.
>
> 
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/7/2008 
> 06:55
>   

Re: [delphi-br] Dúvida simples: try-final ly...

[Alexandre Rodrigues]

Amigo,
Acho que você está usando de forma errada errada o bloco try finally. 
Este se destina a a executar algo, mesmo que ocorra alguma exceção ou 
que você tenha que sair do bloco por algum motivo: exemplos

Objeto: TObjeto.Create;
try
   usa o objeto...
finally
   Objeto.Free; 
end;
continua com o código...

nesse exemplo mesmo que ocorra uma exceção, a memória utilizada pelo 
objeto será liberada.

Objeto: TObjeto.Create;
try
   usa o objeto...
   if Condicao then
 Exit
   continua usando o objeto...
finally
   Objeto.Free; 
end;
continua com o código...

nesse exemplo saímos da função antes de liberar a memória utilizada pelo 
objeto porém o bloco finally será chamado e ela será liberada.

Onjahyr - GMAIL escreveu:
> 
> 
> E aí pessoal, me tirem uma dúvida bem simples sobre o bloco try-finally.
> 
> try
> label1.caption:= 'iukhkhgh';
> ...
> ...processo demorado...
> finally
> label2.caption := label1.caption + (resultado do processo demorado);
> ...continua com o código...
> end;
> 
> Agradeço
> É claro que é um bloco, mas ele pode realizar as linhas de comando do
> try e em sequência já ir executando o finally ou espera o processo
> terminar para ir para o finally?
> 
> 


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

[delphi-br] consulta entre datas

[asandro1501]

Boa tarde pessoal

Preciso fazer filtro dentro de uma consulta num aplicativo com BD em 
access. Já tentei de várias formas mas não estou conseguindo filtrar.
Eu coloco as datas em 2 maskedit, nunca fiz isso antes. Preciso 
converter os valor para "date"?

Se alguém puder me ajudar com esse código eu agradeço. 

Res: Re: [delphi-br] Dúvida simples: try- finally...

[Onjahyr - GMAIL]

Blz, valew. (a muito tempo eu usava assim mas tinha minhas dúvidas)


José Mário Silva Guedes escreveu:
>
> O finally só será executado após o provesso demorado.
>
> 2008/7/28 Onjahyr - GMAIL <[EMAIL PROTECTED] >
>
> > E aí pessoal, me tirem uma dúvida bem simples sobre o bloco try-finally.
> >
> > try
> > label1.caption:= 'iukhkhgh';
> > ...
> > ...processo demorado...
> > finally
> > label2.caption := label1.caption + (resultado do processo demorado);
> > ...continua com o código...
> > end;
> >
> > Agradeço
> > É claro que é um bloco, mas ele pode realizar as linhas de comando do
> > try e em sequência já ir executando o finally ou espera o processo
> > terminar para ir para o finally?
> >
> >
>
> -- 
> José Mário Silva Guedes
> Analista Programador Delphi
> http://pgviavel.blogspot.com/ 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Res: [delphi-br][RESOLVIDO] Criar parâmetros e m uma TOraStoredProc em tempo de execução

[Willian Jhonnes Lara dos Santos]

Olá, Eduardo...

Valeu pela resposta, mas acabei encontrando referências a um método da classe 
TOraStoredProc que faz exatamente oq eu preciso. Então, minha função acabou 
ficando assim:

procedure TOraDBConnection.CreateStoredProcParam(StoredProc: 
TCustomOraStoredProc;
  PFiledType: TFieldType; PName: String; PType: TParamType);
begin
  //Cria os parâmetros para objetos TOraStoredProc
  StoredProc.Params.CreateParam(PFiledType, PName, PType);
end;

[]'s

P.S. - e os caras da DevArt demoram mito pra responder...

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Eduardo Silva dos Santos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Julho de 2008 11:31:01
Assunto: Re: [delphi-br] Criar parâmetros em uma TOraStoredProc em tempo de 
execução


Olá Willian, certo vez vi algo parecido no Forum do ODAC, acho que você tem
que usar um tipo que parêmetro que pertence ao ODAC se não me engano
TDAParam.. não tenho certeza, de qualquer forma segue o endereço do forum,
se você postar lá certamente o pessoal da DevArt resolve rapidinho

http://devart. com/forums/ viewforum. php?f=5

posta lá que o suporte deles é muito bom.

2008/7/28 Willian Jhonnes Lara dos Santos 

>   Olá, bom dia a todos...
>
> Criei uma rotina [1] para adicionar parâmetros a um objeto TOraStoredProc
> (ODAC 6.25) em tempo de execução, mas a mesma me retorna o erro "Invalid
> property value". Já codifiquei a rotina de 'n' formas diferentes, todas sem
> sucesso.
>
> A situação é: a variável rParam recebe o parâmetro criado, tem seus
> atributos mudados e é inserida no objeto TOraStoredProc. O parâmetro é
> criado normalmente, mas na hora de inserí-lo no objeto, ele me retorna o
> erro.
>
> O google não me retornou nada referente a esta questão e, como é a primeira
> vez que tento fazer isso de forma dinâmica (os componentes sempre foram
> estáticos), confesso que me sinto um tanto perdido.
>
> Se alguém tiver alguma idéia de como realizar esta tarefa, agradeceria
> muito...
>
> []'s
>
> [1] - procedure TOraDBConnection. CreateStoredProc Param(StoredProc :
> TOraStoredProc;
> PType: TParamType; PName, PValue: String);
> var
> rParam: TParam;
> begin
> //Cria os parâmetros para objetos TOraStoredProc
> rParam := TParam.Create( FParams, PType);
> rParam.Name := PName;
> rParam.Value := PValue;
> StoredProc.Params. AddParam( rParam);
> end;
>
>  - - - - ---
> Att.:
> Willian Jhonnes L. dos Santos
> Analista/Desenvolve dor Object/Free Pascal
> willianjhonnes@ yahoo.com. br 
>  - - - - ---
> Seja livre. Use Linux.
> Grupo de Usuários GNU/Linux de São José dos Pinhais
> Linux user number 449753
>  - - - - ---
> Powered by Slackware Linux 12.0
> Kernel 2.6.21.5-custom
>  - - - - ---
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> cara @ymail.com ou @rocketmail. com.
> http://br.new. mail.yahoo. com/addresses
> 
>

-- 
 . . . . ...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

Re: [delphi-br] Dúvida simples: try-finally...

[José Mário Silva Guedes]

O finally só será executado após o provesso demorado.

2008/7/28 Onjahyr - GMAIL <[EMAIL PROTECTED]>

>   E aí pessoal, me tirem uma dúvida bem simples sobre o bloco try-finally.
>
> try
> label1.caption:= 'iukhkhgh';
> ...
> ...processo demorado...
> finally
> label2.caption := label1.caption + (resultado do processo demorado);
> ...continua com o código...
> end;
>
> Agradeço
> É claro que é um bloco, mas ele pode realizar as linhas de comando do
> try e em sequência já ir executando o finally ou espera o processo
> terminar para ir para o finally?
> 
>



-- 
José Mário Silva Guedes
Analista Programador Delphi
http://pgviavel.blogspot.com/


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

[delphi-br] Dúvida simples: try-finally...

[Onjahyr - GMAIL]

E aí pessoal, me tirem uma dúvida bem simples sobre o bloco try-finally.

try
label1.caption:= 'iukhkhgh';
...
...processo demorado...
finally
label2.caption := label1.caption + (resultado do processo demorado);
...continua com o código...
end;

Agradeço
É claro que é um bloco, mas ele pode realizar as linhas de comando do 
try e em sequência já ir executando o finally ou espera o processo 
terminar para ir para o finally?

Re: [delphi-br] Componente ZEOSDBO-6.6.2-rc

[Consultores Software]

Não sei se o resultado seria  o esperado, mas, você podia experimentar criar
uma Thread com uma instância de objetos Zeos ( TZSql  ouTZReadOnlySql ) que
encapsula a SQL que deseja executar, e chamá-la de dentro da aplicação, que
por sua vez, terá o controle da Thread sem ficar bloqueada.

2008/7/28 omar l m rosa <[EMAIL PROTECTED]>

>   HI!
> Utilizo desde o tempo que não era DBO.
>
> O único problema é que trabalha no modo síncrono, ou seja, bloqueia a
> aplicação durante a execução do SQL, nem criando threads.
>
> Se alguém souber como fazer para não travar a aplicação, agradeço.
>
> Bai!
>
> <º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
> Omar L. M. Rosa
> <º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
> [EMAIL PROTECTED] 
>
> - Original Message -
> From: Emilio Córdova (gmail)
> To: delphi-br@yahoogrupos.com.br 
> Sent: Saturday, July 26, 2008 10:31 PM
> Subject: Re: [delphi-br] Componente ZEOSDBO-6.6.2-rc
>
> Noite,
>
> Eu utilizo o Zeos a 2 anos com mysql e sql server e até hoje nunca tive
> problemas, tenho clientes rodando sistemas de 1 até 20 maquinas em D7 + Zeos
> + Mysql/Sql Server e em todos eles o zeos é o 6.6.2-rc.
> Sempre que tem atualização eu instalo, recompilo o sistema e distribuo.
>
> Atenciosamente,
>
> --
> Emilio Córdova
> [EMAIL PROTECTED] 
> [EMAIL PROTECTED] 
> [EMAIL PROTECTED] 
> (41) 8823-8835
>
> From: shadowcorreia
> Sent: Saturday, July 26, 2008 3:21 PM
> To: delphi-br@yahoogrupos.com.br 
> Subject: [delphi-br] Componente ZEOSDBO-6.6.2-rc
>
> Olá pessoal estou iniciando o Desenvolvimento de um aplicativo para o
> meu TCC e gostaria de saber, se alguém está ou ja usou a versão
> ZEOSDBO-6.6.2-rc do Zeus, quero saber se está confiável não tem nenhum
> bug.
>
> Fico no Aguardo
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


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

Re: [delphi-br] Componente ZEOSDBO-6.6.2-rc

[omar l m rosa]

HI!
Utilizo desde o tempo que não era DBO.

O único problema é que trabalha no modo síncrono, ou seja, bloqueia a aplicação 
durante a execução do SQL, nem criando threads.

Se alguém souber como fazer para não travar a aplicação, agradeço.

Bai!

<º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
 Omar L. M. Rosa
<º><.·´¯`·. <º><.·´¯`·. <º><.·´¯`·.
   [EMAIL PROTECTED]



  - Original Message - 
  From: Emilio Córdova (gmail) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, July 26, 2008 10:31 PM
  Subject: Re: [delphi-br] Componente ZEOSDBO-6.6.2-rc


  Noite,

  Eu utilizo o Zeos a 2 anos com mysql e sql server e até hoje nunca tive 
problemas, tenho clientes rodando sistemas de 1 até 20 maquinas em D7 + Zeos + 
Mysql/Sql Server e em todos eles o zeos é o 6.6.2-rc.
  Sempre que tem atualização eu instalo, recompilo o sistema e distribuo.

  Atenciosamente, 

  --
  Emilio Córdova 
  [EMAIL PROTECTED]
  [EMAIL PROTECTED] 
  [EMAIL PROTECTED] 
  (41) 8823-8835 

  From: shadowcorreia 
  Sent: Saturday, July 26, 2008 3:21 PM
  To: delphi-br@yahoogrupos.com.br 
  Subject: [delphi-br] Componente ZEOSDBO-6.6.2-rc

  Olá pessoal estou iniciando o Desenvolvimento de um aplicativo para o
  meu TCC e gostaria de saber, se alguém está ou ja usou a versão
  ZEOSDBO-6.6.2-rc do Zeus, quero saber se está confiável não tem nenhum
  bug.

  Fico no Aguardo

  [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] Criar parâmetros em uma TOraStoredProc em tempo de execução

[Eduardo Silva dos Santos]

Olá Willian, certo vez vi algo parecido no Forum do ODAC, acho que você tem
que usar um tipo que parêmetro que pertence ao ODAC se não me engano
TDAParam.. não tenho certeza, de qualquer forma segue o endereço do forum,
se você postar lá certamente o pessoal da DevArt resolve rapidinho

http://devart.com/forums/viewforum.php?f=5

posta lá que o suporte deles é muito bom.

2008/7/28 Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]>

>   Olá, bom dia a todos...
>
> Criei uma rotina [1] para adicionar parâmetros a um objeto TOraStoredProc
> (ODAC 6.25) em tempo de execução, mas a mesma me retorna o erro "Invalid
> property value". Já codifiquei a rotina de 'n' formas diferentes, todas sem
> sucesso.
>
> A situação é: a variável rParam recebe o parâmetro criado, tem seus
> atributos mudados e é inserida no objeto TOraStoredProc. O parâmetro é
> criado normalmente, mas na hora de inserí-lo no objeto, ele me retorna o
> erro.
>
> O google não me retornou nada referente a esta questão e, como é a primeira
> vez que tento fazer isso de forma dinâmica (os componentes sempre foram
> estáticos), confesso que me sinto um tanto perdido.
>
> Se alguém tiver alguma idéia de como realizar esta tarefa, agradeceria
> muito...
>
> []'s
>
> [1] - procedure TOraDBConnection.CreateStoredProcParam(StoredProc:
> TOraStoredProc;
> PType: TParamType; PName, PValue: String);
> var
> rParam: TParam;
> begin
> //Cria os parâmetros para objetos TOraStoredProc
> rParam := TParam.Create(FParams, PType);
> rParam.Name := PName;
> rParam.Value := PValue;
> StoredProc.Params.AddParam(rParam);
> end;
>
> ---
> Att.:
> Willian Jhonnes L. dos Santos
> Analista/Desenvolvedor Object/Free Pascal
> [EMAIL PROTECTED] 
> ---
> Seja livre. Use Linux.
> Grupo de Usuários GNU/Linux de São José dos Pinhais
> Linux user number 449753
> ---
> Powered by Slackware Linux 12.0
> Kernel 2.6.21.5-custom
> ---
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
>  
>



-- 
...
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] Preciso de Ajuda

[Ricardo César Cardoso]

Amigo, 

Dá uma olhada no site da DevMedia e no site da ActiveDelphi que vc já vai 
conseguir "pegar a mão" rapidinho com os artigos deles. Uma dica de livro seria 
o "Dominando Delphi 6 - A Bíblia" do Marco Cantù. Existem edições mais atuais 
tratando do Delphi 2005 por exemplo, mas se vc conseguir achar um desses livros 
num sebo, já vai ser uma mão na roda. 

Atte,
Ricardo.

--- Em sex, 25/7/08, Heraldo Eduardo Vico <[EMAIL PROTECTED]> escreveu:
De: Heraldo Eduardo Vico <[EMAIL PROTECTED]>
Assunto: [delphi-br] Preciso de Ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 25 de Julho de 2008, 21:36











CAros Amigos: Estou voltando a trabalhar como programador depois de 
5 anos. Vou trabalhar com delphi 6.0 e gostaria de saber se alguem possui um 
livro ou um daqueles cd´s de videoaulas para me fornecer, vender ,,,pois 
preciso rememorar os conhecimentos de delphi . vou começar dia 10/08 e tenho 2 
semanas para estudar...

PEÇO AJUDA URGENTE..SE ALGUEM TIVER DE PREFERENCIA ALGUM DESSES CD´S DE 
VIDEOAULAS PODE ME FAZER UM CONTATO..POR FAVOR É URGENTE.



Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.

http://br.new. mail.yahoo. com/addresses







  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

[delphi-br] Criar parâmetros em uma TOraStoredProc em tempo de execu ção

[Willian Jhonnes Lara dos Santos]

Olá, bom dia a todos...

Criei uma rotina [1] para adicionar parâmetros a um objeto TOraStoredProc (ODAC 
6.25) em tempo de execução, mas a mesma me retorna o erro "Invalid property 
value". Já codifiquei a rotina de 'n' formas diferentes, todas sem sucesso.

A situação é: a variável rParam recebe o parâmetro criado, tem seus atributos 
mudados e é inserida no objeto TOraStoredProc. O parâmetro é criado 
normalmente, mas na hora de inserí-lo no objeto, ele me retorna o erro.

O google não me retornou nada referente a esta questão e, como é a primeira vez 
que tento fazer isso de forma dinâmica (os componentes sempre foram estáticos), 
confesso que me sinto um tanto perdido.

Se alguém tiver alguma idéia de como realizar esta tarefa, agradeceria muito...

[]'s

 
[1] - procedure TOraDBConnection.CreateStoredProcParam(StoredProc: 
TOraStoredProc;
  PType: TParamType; PName, PValue: String);
var
  rParam: TParam;
begin
  //Cria os parâmetros para objetos TOraStoredProc
  rParam := TParam.Create(FParams, PType);
  rParam.Name := PName;
  rParam.Value := PValue;
  StoredProc.Params.AddParam(rParam);
end;

---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

RE: [delphi-br] [MAF] Recuperar valor da versao da aplicacao

[Rubem Nascimento da Rocha]

Quem procura, acha! ;)

Retrieve version information for a specified file
http://www.swissdelphicenter.ch/en/showcode.php?id=1047

Read the version of a file
http://www.swissdelphicenter.ch/en/showcode.php?id=27

Obtain DLL-specific version information
http://www.swissdelphicenter.ch/en/showcode.php?id=1327

Sds.



From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 10:27:22 -0300
Subject: [delphi-br] [MAF] Recuperar valor da versao da aplicacao


Pessoal,

Quando definimos a versão de um projeto no Delphi 7, como posso fazer para 
recuperar essas informações na aplicação?

Att,

Marcos A. Ferreira
Consultor SAP/ABAP
São Paulo - SP
+55 1183376968

_
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

[delphi-br] [MAF] Recuperar valor da versao da aplicacao

[Marcos Ferreira]

Pessoal,

Quando definimos a versão de um projeto no Delphi 7, como posso fazer para 
recuperar essas informações na aplicação?



Att,

Marcos A. Ferreira
Consultor SAP/ABAP
São Paulo - SP
+55 1183376968

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você 
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode 
usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação 
baseada nestas informações. Se você recebeu esta mensagem por engano, por 
favor, avise imediatamente o remetente, respondendo o email e em seguida, 
apague-o.
Agradecemos sua cooperação.

This message may contain confidential and/or privileged information. If you are 
not the addressee or authorized to receive this for the addressee, you must not 
use, copy, disclose or take any action based on this message or any information 
herein. If you have received this message in error, please, advise the sender 
immediately by reply e-mail and delete this message.
Thank you for your cooperation.

Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.

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

Re: [delphi-br] Re: Bug muito s erio DBExpress e SQLServer, truncando númer os negativos.

[Ricardo Lima]

Andreano mandei para seu e-mail.

Segue aqui também anexo, se mais alguem quiser fazer o teste.

Uso SQLServer 2005 Express e BDS2006.

A aplicação de teste tem campos do tipo int,float, money e numeric, 
basta gravar valores negativos nos campos float e money(bcd) entre 10 e 
99 e depois manda dar um refresh.

At.
Ricardo Lima

CREATE TABLE [dbo].[TESTE](
[COD_TESTE] [int] NOT NULL,
[INT] [int] NULL,
[MONEY] [money] NULL,
[FLOAT] [float] NULL,
[NUMERIC1] [numeric](18, 0) NULL,
[NUMERIC2] [numeric](18, 6) NULL,
 CONSTRAINT [PK_TESTE] PRIMARY KEY CLUSTERED
(
[COD_TESTE] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = 
OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]


Andreano Lanusse escreveu:
>
> Eduardo,
>
> No post do QC, tem um comentário sobre uma alteração que foi feita na 
> FMTBcd.pas.
>
> Me manda um aplicação exemplo e o script da tabela por favor.
>
> []'s
> Andreano
>
> From: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] On Behalf Of Eduardo Silva 
> dos Santos
> Sent: Sunday, July 27, 2008 6:51 PM
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Re: Bug muito serio DBExpress e SQLServer, 
> truncando números negativos.
>
> Manda um e-mail pro Andreano e para o Bruno.. é bom que eles repassam pro
> pessoal do Desenvolvimento e eles corrigem isso na nova versão do 
> Delphi, é
> bom postar no quality central.. se não só no Delphi 2009.
>
> 2008/7/27 rlmariz <[EMAIL PROTECTED] 
> >
>
> > Pessoal será que esse problema esta acontecendo somente comigo?
> >
> > É um problema muito serio e fácil de provocar, é difícil que mais
> > pessoas não tiveram o mesmo problema.
> >
> > Gostaria que o pessoal da CodeGear se pronunciassem.
> >
> > --- Em delphi-br@yahoogrupos.com.br 
> 
>  
> ,
> > Ricardo Lima <[EMAIL PROTECTED]> escreveu
> > >
> > > Pessoal estou com um problema muito serio com DBExpress e campos
> > > negativos do tipo FMTBCD*, *os valores estão sendo truncados
> > > por exemplo:
> > >
> > > No ClientDataSet -10 = Gravado no Banco -1 errado
> > > -9 = -9 certo
> > > -75 = -7 errado
> > > -100 = -100 certo
> > > -10.0 = -1 errado
> > > -10.01 = -10.01 certo
> > >
> > > Eu usei a ferramenta profiler do sql server, que loga todas as sql
> > que o
> > > banco executa e verifiquei que os updates/inserts já estão com valores
> > > truncados.
> > >
> > > Achei esse report http://qc.codegear.com/wc/qcmain.aspx?d=49015 
>  que
> > está
> > > como fechado más não entendi ao certo se o problema foi resolvido ou
> > não.
> > >
> > > Obrigado a todos,
> > >
> > > At.
> > > Ricardo
> > >
> >
> >
> >
>
> --
> ...
> 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]
>
> CONFIDENTIALITY NOTICE: This email message is for the sole use of the 
> intended recipient(s)
> and may contain confidential and privileged information. Any 
> unauthorized review, use,
> disclosure or distribution is prohibited. If you are not the intended 
> recipient, please
> contact the sender by reply email and destroy all copies of the 
> original message.
>
> [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] Bug muito serio DBExpress e SQLServ er, truncando números negativos.

[cicero]

 
 

amigos  estou com a segte rotina 
 
procedure TForm3.RzDBRadioGroup1Click(Sender: TObject);
begin
// 1
   if (Form3.RzDBRadioGroup1.ItemIndex = 0) and  // Probabilidade =
Altamente Improvável
  (Form3.RzDBRadioGroup2.ItemIndex = 0)then  // Gravidade = Levemente
Prejudicial
  Begin
 Form3.RzDBRadioGroup3.ItemIndex :=0;// Criticidade = Trivial
  end;
// 2
   if (Form3.RzDBRadioGroup1.ItemIndex = 0) and  // Probabilidade =
Altamente Improvável
  (Form3.RzDBRadioGroup2.ItemIndex = 1) then // Gravidade = Prejudicial
   Begin
  Form3.RzDBRadioGroup3.ItemIndex := 1;  // Criticidade = Tolerável
   end;
// 3
   if (Form3.RzDBRadioGroup1.ItemIndex = 0) and  // Probabilidade =
Altamente Improvável
  (Form3.RzDBRadioGroup2.ItemIndex = 2) then // Gravidade = Levemente
Prejudicial
  Begin
 Form3.RzDBRadioGroup3.ItemIndex := 2;   // Criticidade = Moderado
  end;
// 4
   if (Form3.RzDBRadioGroup1.ItemIndex = 1) and  // Probabilidade =
Improvável
  (Form3.RzDBRadioGroup2.ItemIndex = 0) then // Gravidade = Levemente
Prejudicial
   Begin
  Form3.RzDBRadioGroup3.ItemIndex := 1;  // Criticidade = Tolerável
   end;
// 5
   if (Form3.RzDBRadioGroup1.ItemIndex = 1) and  // Probabilidade =
Improvável
  (Form3.RzDBRadioGroup2.ItemIndex = 1) then // Gravidade = Prejudicial
  Begin
 Form3.RzDBRadioGroup3.ItemIndex := 2;   // Criticidade = Moderado
  end;
// 6
   if (Form3.RzDBRadioGroup1.ItemIndex = 1) and  // Probabilidade =
Improvável
  (Form3.RzDBRadioGroup2.ItemIndex = 2) then // Gravidade = Extremamente
Prejudicial
   Begin
 Form3.RzDBRadioGroup3.ItemIndex := 3;   // Criticidade =
Substancial
   end;
// 7
   if (Form3.RzDBRadioGroup1.ItemIndex = 2) and  // Probabilidade = Provavel
  (Form3.RzDBRadioGroup2.ItemIndex = 0) then // Gravidade = Levemente
Prejudicial
   Begin
 Form3.RzDBRadioGroup3.ItemIndex := 2;   // Criticidade = Moderado
   end;
// 8
   if (Form3.RzDBRadioGroup1.ItemIndex = 2) and  // Probabilidade = Provavel
  (Form3.RzDBRadioGroup2.ItemIndex = 1) then // Gravidade = Prejudicial
   Begin
  Form3.RzDBRadioGroup3.ItemIndex := 3;  // Criticidade =
Substancial
   end;
// 9
   if (Form3.RzDBRadioGroup1.ItemIndex = 2) and  // Probabilidade = Provável
  (Form3.RzDBRadioGroup2.ItemIndex = 2) then // Gravidade = Extremamente
Prejudicial
   Begin
  Form3.RzDBRadioGroup3.ItemIndex := 4;  // Criticidade =
Intolerável
   end;
end;

o problema é q qdo escolho a opção o dbrádio grava no arquivo mas não mantém
a informação na tela  
já analisei de todas as maneiras e não consigo encontrar o errro ... alguem
pode me ajudar 
 
 
 
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE! 
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Lima
Enviada em: sexta-feira, 25 de julho de 2008 11:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Bug muito serio DBExpress e SQLServer, truncando
números negativos.



Pessoal estou com um problema muito serio com DBExpress e campos 
negativos do tipo FMTBCD*, *os valores estão sendo truncados
por exemplo:

No ClientDataSet -10 = Gravado no Banco -1 errado
-9 = -9 certo
-75 = -7 errado
-100 = -100 certo
-10.0 = -1 errado
-10.01 = -10.01 certo

Eu usei a ferramenta profiler do sql server, que loga todas as sql que o 
banco executa e verifiquei que os updates/inserts já estão com valores 
truncados.

Achei esse report http://qc.codegear.
 com/wc/qcmain.aspx?d=49015
que está 
como fechado más não entendi ao certo se o problema foi resolvido ou não.

Obrigado a todos,

At.
Ricardo


 


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

Re: [delphi-br] Re: Bug muito serio DBExpress e SQLServer, truncando números negativos.

[Eduardo Silva dos Santos]

Olá Andreano, quem reportou o problema foi o Ricardo Lima.

2008/7/28 Andreano Lanusse <[EMAIL PROTECTED]>

>   Eduardo,
>
> No post do QC, tem um comentário sobre uma alteração que foi feita na
> FMTBcd.pas.
>
> Me manda um aplicação exemplo e o script da tabela por favor.
>
> []'s
> Andreano
>
> From: delphi-br@yahoogrupos.com.br [mailto:
> delphi-br@yahoogrupos.com.br ] On Behalf
> Of Eduardo Silva dos Santos
> Sent: Sunday, July 27, 2008 6:51 PM
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Re: Bug muito serio DBExpress e SQLServer,
> truncando números negativos.
>
>
> Manda um e-mail pro Andreano e para o Bruno.. é bom que eles repassam pro
> pessoal do Desenvolvimento e eles corrigem isso na nova versão do Delphi, é
> bom postar no quality central.. se não só no Delphi 2009.
>
> 2008/7/27 rlmariz <[EMAIL PROTECTED]  rlmariz%40gmail.com >>
>
> > Pessoal será que esse problema esta acontecendo somente comigo?
> >
> > É um problema muito serio e fácil de provocar, é difícil que mais
> > pessoas não tiveram o mesmo problema.
> >
> > Gostaria que o pessoal da CodeGear se pronunciassem.
> >
> > --- Em delphi-br@yahoogrupos.com.br 
> 
> ,
> > Ricardo Lima <[EMAIL PROTECTED]> escreveu
> > >
> > > Pessoal estou com um problema muito serio com DBExpress e campos
> > > negativos do tipo FMTBCD*, *os valores estão sendo truncados
> > > por exemplo:
> > >
> > > No ClientDataSet -10 = Gravado no Banco -1 errado
> > > -9 = -9 certo
> > > -75 = -7 errado
> > > -100 = -100 certo
> > > -10.0 = -1 errado
> > > -10.01 = -10.01 certo
> > >
> > > Eu usei a ferramenta profiler do sql server, que loga todas as sql
> > que o
> > > banco executa e verifiquei que os updates/inserts já estão com valores
> > > truncados.
> > >
> > > Achei esse report http://qc.codegear.com/wc/qcmain.aspx?d=49015 que
> > está
> > > como fechado más não entendi ao certo se o problema foi resolvido ou
> > não.
> > >
> > > Obrigado a todos,
> > >
> > > At.
> > > Ricardo
> > >
> >
> >
> >
>
> --
> ...
> 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]
>
> CONFIDENTIALITY NOTICE: This email message is for the sole use of the
> intended recipient(s)
> and may contain confidential and privileged information. Any unauthorized
> review, use,
> disclosure or distribution is prohibited. If you are not the intended
> recipient, please
> contact the sender by reply email and destroy all copies of the original
> message.
>
> [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] Re: Bug muito serio DBExpress e SQLServer, truncando números negativos.

[Andreano Lanusse]

Eduardo,

No post do QC, tem um comentário sobre uma alteração que foi feita na 
FMTBcd.pas.

Me manda um aplicação exemplo e o script da tabela por favor.

[]'s
Andreano

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Eduardo Silva dos Santos
Sent: Sunday, July 27, 2008 6:51 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Re: Bug muito serio DBExpress e SQLServer, truncando 
números negativos.


Manda um e-mail pro Andreano e para o Bruno.. é bom que eles repassam pro
pessoal do Desenvolvimento e eles corrigem isso na nova versão do Delphi, é
bom postar no quality central.. se não só no Delphi 2009.

2008/7/27 rlmariz <[EMAIL PROTECTED]>

> Pessoal será que esse problema esta acontecendo somente comigo?
>
> É um problema muito serio e fácil de provocar, é difícil que mais
> pessoas não tiveram o mesmo problema.
>
> Gostaria que o pessoal da CodeGear se pronunciassem.
>
> --- Em delphi-br@yahoogrupos.com.br 
> ,
> Ricardo Lima <[EMAIL PROTECTED]> escreveu
> >
> > Pessoal estou com um problema muito serio com DBExpress e campos
> > negativos do tipo FMTBCD*, *os valores estão sendo truncados
> > por exemplo:
> >
> > No ClientDataSet -10 = Gravado no Banco -1 errado
> > -9 = -9 certo
> > -75 = -7 errado
> > -100 = -100 certo
> > -10.0 = -1 errado
> > -10.01 = -10.01 certo
> >
> > Eu usei a ferramenta profiler do sql server, que loga todas as sql
> que o
> > banco executa e verifiquei que os updates/inserts já estão com valores
> > truncados.
> >
> > Achei esse report http://qc.codegear.com/wc/qcmain.aspx?d=49015 que
> está
> > como fechado más não entendi ao certo se o problema foi resolvido ou
> não.
> >
> > Obrigado a todos,
> >
> > At.
> > Ricardo
> >
>
>
>

--
...
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]

CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended 
recipient(s) 
and may contain confidential and privileged information. Any unauthorized 
review, use, 
disclosure or distribution is prohibited. If you are not the intended 
recipient, please 
contact the sender by reply email and destroy all copies of the original 
message.


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