RE: [delphi-br] Delphi 2007 x Delphi 2008
Valdemir,
Isso é por causa do unicode, me manda o código pra eu dar uma olhada.
[]'s
Andreano
From: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] On Behalf Of
Valdemir (yahoo) [valdemi...@yahoo.com.br]
Sent: Tuesday, September 08, 2009 7:21 PM
To: delphibr
Subject: [delphi-br] Delphi 2007 x Delphi 2008
Pessoal tenho uma rotina que grava em um ini a senha criptogravada...
no delphi 2007 funciona no delphi 2009 não
já debuguei e aparentemente a string aparece criptografada no debub.. mas ao
gravar no ini fica ?
segue abaixo a rotina onde eu uso e tb a função
ArquivoIni := TIniFile.Create(svdConfiguracao.FileName);
ArquivoIni.WriteString('BancoDados','Senha',EnDecryptString(edtSenha.Text,1024));
ArquivoIni.Free;
function EnDecryptString(StrValue: String; Chave: Word): String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
dentro do arquivo ini no delphi 2007 fica
Senha='zOss?
mas no delphi 2009 fica
Senha=?
alguem já viu isso ?
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
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.
Re: [delphi-br] Res:Rave 5
poxa roberto, você salvou minha vida... :D ja estava ficando maluco por causa disso... :D saberia dizer qual o site da empresa? mais uma vez obrigado por tirar essa duvida, ja tava quase brigando por causa do meu cd que veio faltando unit... ^^ at, Filipe Roberto Costa Dill escreveu: Olá, se não me engano, essa unit pertence a um componente para exportação de relatórios do quickreport no formato PDF. É um componente pago. PSQReport. Att Roberto.
RES: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso
No submarino tem. Att.: _ Fernando Leal mailto:fcl...@unifemm.edu.br fcl...@unifemm.edu.br Programador de Sistemas Coordenadoria de Informática Centro Universitário UNIFEMM 55(0xx31)2106-2114 http://www.unifemm.edu.br/ www.unifemm.edu.br _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: terça-feira, 8 de setembro de 2009 19:44 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso Prioridade: Alta Se ñ tiver em português, pra mim inglês serve. Já vou procurar. Sds. De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de jrsilvasjrp@ mailto:jrsilvasjrp%40yahoo.com.br yahoo.com.br Enviada em: terça-feira, 8 de setembro de 2009 16:26 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: Re: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso Onde eu acho para comprar este livro procurei na internet e nao achei João Roberto - Original Message - From: Dirlei To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, September 08, 2009 1:53 PM Subject: Re: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso Aproveitando o e-mail do Rubem, faço o meu primeiro envio de e-mail para o grupo. Recomendo aos que ainda não leram, que leiam Refatoração: Aperfeiçoando o Projeto de Código Existente do Martin Fowler. Ao aprender com esse livro como fazer refatorações eficazes, aprendi também a escrever com muito mais qualidade a primeira versão de cada código. Recomendo a todos programadores que gostam de codificar com qualidade. [ ]'s Dirlei. [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] Ajuda com SQL
Não entendi a necessidade de criar inclusive campo descrição do produto nas
duas tabelas, afinal você pode pegar os dados da tabela pai utilizando os
JOINS.
Recomendo dar uma pesquisada sobre normatização de banco de dados.
Sobre o seu problema, dá para resolver de diversas maneiras, uma maneira
mais usada é através de trigger e você pode encontrar várias informações no
site ou lista de discussão da firebase (www.firebase.com.br).
Obrigado,
Fabiano
2009/9/8 joao_jma joao_...@itelefonica.com.br
mesmo erro
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 3, char 1.
FROM.
cara, eu acabei resolvendo de outra maneira... agradeço!
Criei uma consulta SQL agrupando os produtos do ITENSORC e trazendo a
descrição do CADPRODUTOS:
qDados.SQL.Add('select i.produto, c.descricao as DESCPRODUTO,
c.fornecedor');
qDados.SQL.Add(' from itensorc i');
qDados.SQL.Add(' inner join cadprodutos c on (i.produto =
c.codloja)');
qDados.SQL.Add(' group by i.produto, c.descricao,
c.fornecedor');
qDados.SQL.Add(' order by i.produto');
Resultado: Todos os itens da tabela ITENSORC agrupados e contendo a
descrição atual do CADPRODUTOS.
Depois criei uma rotina para gerar um SCRIPT de atualização:
qDados.First;
While Not qDados.Eof Do
Begin
UPDATE ITENSORC SET
DESCPRODUTO = qDadosDESCPRODUTO.Value
FORNECEDOR = qDadosFORNECEDOR.AsString
WHERE (PRODUTO = qDadosPRODUTO.Value)
qDados.Next;
End;
Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde de
registros na tabela ITENSORC.
Valew pela força!!!
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 1:29 PM
Subject: Re: [delphi-br] Ajuda com SQL
UPDATE ITENSORC
SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO
FROM CADPRODUTOS
WHERE CADPRODUTOS.codloja =itensorc.produto
GO
Cara, tenta assim, sem os Alias que eu tinha colocado
aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to
mandando agora funcionou
UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO
from itensorc INNER JOIN cadprodutos on
(cadprodutos.codloja = itensorc.produto)
- Original Message -
From: joao_jma
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 9:30 AM
Subject: Re: [delphi-br] Ajuda com SQL
isso não deu certo... alguem pode me ajudar?
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
È(16) 9239-0959
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 21, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed-Recipient:;
Sent: Friday, August 21, 2009 2:45 PM
Subject: [delphi-br] Ajuda com SQL
Tenho 2 tabelas
CADPRODUTOS
codprod
descricao
fornecedor
ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb)
codprod
descprod
forprod
PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA
TABELA ITENSORC
Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois
quando existe alteração nesses dados na tabela cadprodutos, a tabela
itensorc fica desatualizada.
[]'s
João
[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]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com SQL
Expressão errada: Não é normatização é normalização.
Rsrsrsrs, na correria escrevi errado, rsrsrs
Fabiano
2009/9/8 Fabiano Moura mctbra...@gmail.com
Não entendi a necessidade de criar inclusive campo descrição do produto nas
duas tabelas, afinal você pode pegar os dados da tabela pai utilizando os
JOINS.
Recomendo dar uma pesquisada sobre normatização de banco de dados.
Sobre o seu problema, dá para resolver de diversas maneiras, uma maneira
mais usada é através de trigger e você pode encontrar várias informações no
site ou lista de discussão da firebase (www.firebase.com.br).
Obrigado,
Fabiano
2009/9/8 joao_jma joao_...@itelefonica.com.br
mesmo erro
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 3, char 1.
FROM.
cara, eu acabei resolvendo de outra maneira... agradeço!
Criei uma consulta SQL agrupando os produtos do ITENSORC e trazendo a
descrição do CADPRODUTOS:
qDados.SQL.Add('select i.produto, c.descricao as DESCPRODUTO,
c.fornecedor');
qDados.SQL.Add(' from itensorc i');
qDados.SQL.Add(' inner join cadprodutos c on (i.produto =
c.codloja)');
qDados.SQL.Add(' group by i.produto, c.descricao,
c.fornecedor');
qDados.SQL.Add(' order by i.produto');
Resultado: Todos os itens da tabela ITENSORC agrupados e contendo a
descrição atual do CADPRODUTOS.
Depois criei uma rotina para gerar um SCRIPT de atualização:
qDados.First;
While Not qDados.Eof Do
Begin
UPDATE ITENSORC SET
DESCPRODUTO = qDadosDESCPRODUTO.Value
FORNECEDOR = qDadosFORNECEDOR.AsString
WHERE (PRODUTO = qDadosPRODUTO.Value)
qDados.Next;
End;
Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde
de registros na tabela ITENSORC.
Valew pela força!!!
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 1:29 PM
Subject: Re: [delphi-br] Ajuda com SQL
UPDATE ITENSORC
SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO
FROM CADPRODUTOS
WHERE CADPRODUTOS.codloja =itensorc.produto
GO
Cara, tenta assim, sem os Alias que eu tinha colocado
aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to
mandando agora funcionou
UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO
from itensorc INNER JOIN cadprodutos on
(cadprodutos.codloja = itensorc.produto)
- Original Message -
From: joao_jma
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 9:30 AM
Subject: Re: [delphi-br] Ajuda com SQL
isso não deu certo... alguem pode me ajudar?
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
È(16) 9239-0959
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 21, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed-Recipient:;
Sent: Friday, August 21, 2009 2:45 PM
Subject: [delphi-br] Ajuda com SQL
Tenho 2 tabelas
CADPRODUTOS
codprod
descricao
fornecedor
ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb)
codprod
descprod
forprod
PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA
TABELA ITENSORC
Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois
quando existe alteração nesses dados na tabela cadprodutos, a tabela
itensorc fica desatualizada.
[]'s
João
[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]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso
Submarino: http://www.submarino.com.br/produto/1/242126 Cristiano De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de jrsilvas...@yahoo.com.br Enviada em: terça-feira, 8 de setembro de 2009 17:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso Onde eu acho para comprar este livro procurei na internet e nao achei João Roberto - Original Message - From: Dirlei To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 1:53 PM Subject: Re: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso Aproveitando o e-mail do Rubem, faço o meu primeiro envio de e-mail para o grupo. Recomendo aos que ainda não leram, que leiam Refatoração: Aperfeiçoando o Projeto de Código Existente do Martin Fowler. Ao aprender com esse livro como fazer refatorações eficazes, aprendi também a escrever com muito mais qualidade a primeira versão de cada código. Recomendo a todos programadores que gostam de codificar com qualidade. [ ]'s Dirlei.
Re: [delphi-br] Delphi 2007 x Delphi 2008
Rapaz.. agora que vi.. coloquei 2008 no sono de ontem a noite.. na verdade é o
delphi 2009
O codigo esta no email
From: Andreano Lanusse
Sent: Wednesday, September 09, 2009 3:00 AM
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] Delphi 2007 x Delphi 2008
Valdemir,
Isso é por causa do unicode, me manda o código pra eu dar uma olhada.
[]'s
Andreano
From: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] On Behalf Of
Valdemir (yahoo) [valdemi...@yahoo.com.br]
Sent: Tuesday, September 08, 2009 7:21 PM
To: delphibr
Subject: [delphi-br] Delphi 2007 x Delphi 2008
Pessoal tenho uma rotina que grava em um ini a senha criptogravada...
no delphi 2007 funciona no delphi 2009 não
já debuguei e aparentemente a string aparece criptografada no debub.. mas ao
gravar no ini fica ?
segue abaixo a rotina onde eu uso e tb a função
ArquivoIni := TIniFile.Create(svdConfiguracao.FileName);
ArquivoIni.WriteString('BancoDados','Senha',EnDecryptString(edtSenha.Text,1024));
ArquivoIni.Free;
function EnDecryptString(StrValue: String; Chave: Word): String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
dentro do arquivo ini no delphi 2007 fica
Senha='zOss?
mas no delphi 2009 fica
Senha=?
alguem já viu isso ?
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
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] Delphi 2007 x Delphi 2008
Teve um cara lá na Lista-delphi que teve o mesmo problema com uma unit de
criptografia.
Teria que ver se tem como desabilitar o Unicode do D2K9 pelo menos para os
projetos antigos.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Valdemir (yahoo)
To: delphibr
Sent: Tuesday, September 08, 2009 11:21 PM
Subject: [delphi-br] Delphi 2007 x Delphi 2008
Pessoal tenho uma rotina que grava em um ini a senha criptogravada...
no delphi 2007 funciona no delphi 2009 não
já debuguei e aparentemente a string aparece criptografada no debub.. mas ao
gravar no ini fica ?
segue abaixo a rotina onde eu uso e tb a função
ArquivoIni := TIniFile.Create(svdConfiguracao.FileName);
ArquivoIni.WriteString('BancoDados','Senha',EnDecryptString(edtSenha.Text,1024));
ArquivoIni.Free;
function EnDecryptString(StrValue: String; Chave: Word): String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
dentro do arquivo ini no delphi 2007 fica
Senha='zOss?
mas no delphi 2009 fica
Senha=?
alguem já viu isso ?
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Verificação de datas no fi rebord[RESOLVIDO]
Obrigado, deu certo. Suélio Santos Analista de Sistemas Focus Automação De: Marcelo Luiz Onhate marc...@systempro.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 8 de Setembro de 2009 17:36:14 Assunto: Re: [delphi-br] Verificação de datas no firebord Primeira coisa que pensei... pode ser melhorado... select * from feriados F where (EXTRACT(MONTH FROM F.data) BETWEEN :MES1 and :MES2 AND EXTRACT(YEAR FROM F.data) BETWEEN :ANO1 and :ANO2) suelio Santos escreveu: Boa tarde galera..., Alguem poderia me informar como faço para recuperar um intervalo de datas no firebird? Exemplo: tenho uma tabela de feriados em meu sistema que foi gravada em 2007 e gostaria de fazer uma comparação so com o mês. Tipo na tabela tem o feriado 07.09.2007 queria comparar só o dia e o mês, to fazendo assim: select * from feriados F where TO_DATE(F.data, 'DD.MM') between '07.09' AND '12.09' Mas não roda da erro, Aguém poderia me ajudar??? Desde já agradeço Suélio Santos Analista de Sistemas Focus Automação __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- */System – Soluções em Sistemas de Informação /*/Marcelo Luiz Onhate Departamento de Desenvolvimento/ marc...@systempro.com.br mailto:marc...@systempro.com.br www.systempro.com.br http://www.systempro.com.br/(54) 3321-5888 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente WebBrowser
Olá Claudinei, tudo bem ?
Deu certo sim =D! Eu tentei fazer escrevendo o html com aquela função que
citei no começo... do mesmo jeito que você disse! Parametrizei na url do
iframe com as informações do endereço que preciso e gerei um html assim:
'monta html necessário
HTML := HTML + 'html';
HTML := HTML + ' body';
HTML := HTML + ' iframe /';
HTML := HTML + ' /body';
HTML := HTML + '/html';
'seta no mapa
WBLoadHTML(wbMapa, HTML);
Depois utilizei a função inicial que coloquei no primeiro post e mandei
exibir. Fico bem legal! Acho que o ActiveX estava impedindo a execução do
maps no WebBrowser. Antes estava tentando fazer manualmente com
javascript... enfim! ficou legal!
Caso alguém precise, está ai a solução.
Detalhe que para usar essa função que citei no primeiro post, é necessário
incluir a biblioteca ActiveX.
Valeu Claudinei!
Abraços
Att,
2009/9/8 Claudiney - Listas claudiney-lis...@n2solutions.com.br
Olá Felipe.
Realmente pra utilizar o IFRAME você precisa ter um arquivo HTML que
contenha ele. O mais tranqüilo eu acredito que seja gerar um pequeno HTML
temporário com os dados que você quer apresentar e chamar este HTML no
navigate do webbrowser. Não vejo outra maneira de fazer isso, já que o
iframe é parte de um arquivo HTML. Algo mais ou menos assim:
html
head
titleTeste/title
/head
iframe width=425 height=350 frameborder=0 scrolling=no
marginheight=0 marginwidth=0 src=http://maps.google.com/maps?q=av.
sao paulo 175 maringaamp;output=embedamp;sll=37.0625,-
95.677068amp;sspn=31.150864,59.238281amp;ie=UTF8amp;ll=-23.413083,-
51.940784amp;spn=0.008801,0.014462amp;z=14amp;om=1amp;s=AARTsJqGyCChOuky
MX_CAaQ01tl-1QdG4A/iframe
/html
Assim já mostra o mapa, mas não apresenta o link para o mapa ampliado...
para isso é só colocar o código inteiro que te passei antes.
Outra coisa é tentar o seguinte...
Crie essa função:
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank') ;
while WebBrowser.ReadyState READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
Agora tente carregar o html nela.. o iframe direto:
WBLoadHTML(WebBrowser1, iframe width=425 height=350 frameborder=0
scrolling=no marginheight=0 marginwidth=0
src=http://maps.google.com/maps?q=av. sao paulo 175
maringaamp;output=embedamp;sll=37.0625,-
95.677068amp;sspn=31.150864,59.238281amp;ie=UTF8amp;ll=-23.413083,-
51.940784amp;spn=0.008801,0.014462amp;z=14amp;om=1amp;s=AARTsJqGyCChOuky
MX_CAaQ01tl-1QdG4A/iframe)
Algo mais ou menos assim... Essa função não é minha... só copiei, portanto
não sei te dizer se funciona 100%, mas acredito que sim.
Pode ser que isso resolva o problema de não ter que criar um HTML só pra
isso.
Depois me diz se a função deu certo..
Abraço.
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Felipe Oriani
Enviada em: terça-feira, 8 de setembro de 2009 11:34
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Componente WebBrowser
Olá Claudinei, é extamente este meu problema... rs.. não quero exibir o
restante da página... apenas o mapa do google!
Eu fiz da mesma forma que você disse (a primeira), coloquei o link com os
parametros na url e ficou show, porém ele exibe a página inteira e permite
que o usuário comece a acessar outras coisas além do mapa... o que não
quero
que aconteça!
Mas também não queria deixar um arquivo .html externo ao meu .exe então
estou tentando escrever o html direto e jogar no WebBrowser...
Claudinei, como você fez? No caso temos o IFrame, você setou este código
html direto no webbrowser, como posso fazer isso? ou utilizou um arquivo
html externo a aplicação com este código do iframe ??? Caso tenha usado o
arquivo .html, como parametrizou o arquivo html ?
Obrigado pela atenção Claudinei!
Abraços
Att,
2009/9/8 Claudiney - Listas
claudiney-lis...@n2solutions.com.brclaudiney-listas%40n2solutions.com.br
mailto:claudiney-listas%40n2solutions.com.brclaudiney-listas%2540n2solutions.com.br
Olá Felipe.
Fiz algo parecido em um sistema.
Criei um form só com o componente webbrowser e os botões necessário pra
fechar ou alguma função
Re: [delphi-br] Ajuda com SQL
Ae Fabiano, muito obrigado pela informação...
Pode crer que conheço o uso de JOIN's ...
Estou utilizando DESCRICAO na tabela por extrema necessidade...
já resolvi meu problema como descrevi no outro email abaixo!
EXCEÇÕES da empresa me levaram a isso...
GRATO!
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
- Original Message -
From: Fabiano Moura
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 7:31 PM
Subject: Re: [delphi-br] Ajuda com SQL
Expressão errada: Não é normatização é normalização.
Rsrsrsrs, na correria escrevi errado, rsrsrs
Fabiano
2009/9/8 Fabiano Moura mctbra...@gmail.com
Não entendi a necessidade de criar inclusive campo descrição do produto nas
duas tabelas, afinal você pode pegar os dados da tabela pai utilizando os
JOINS.
Recomendo dar uma pesquisada sobre normatização de banco de dados.
Sobre o seu problema, dá para resolver de diversas maneiras, uma maneira
mais usada é através de trigger e você pode encontrar várias informações no
site ou lista de discussão da firebase (www.firebase.com.br).
Obrigado,
Fabiano
2009/9/8 joao_jma joao_...@itelefonica.com.br
mesmo erro
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 3, char 1.
FROM.
cara, eu acabei resolvendo de outra maneira... agradeço!
Criei uma consulta SQL agrupando os produtos do ITENSORC e trazendo a
descrição do CADPRODUTOS:
qDados.SQL.Add('select i.produto, c.descricao as DESCPRODUTO,
c.fornecedor');
qDados.SQL.Add(' from itensorc i');
qDados.SQL.Add(' inner join cadprodutos c on (i.produto =
c.codloja)');
qDados.SQL.Add(' group by i.produto, c.descricao,
c.fornecedor');
qDados.SQL.Add(' order by i.produto');
Resultado: Todos os itens da tabela ITENSORC agrupados e contendo a
descrição atual do CADPRODUTOS.
Depois criei uma rotina para gerar um SCRIPT de atualização:
qDados.First;
While Not qDados.Eof Do
Begin
UPDATE ITENSORC SET
DESCPRODUTO = qDadosDESCPRODUTO.Value
FORNECEDOR = qDadosFORNECEDOR.AsString
WHERE (PRODUTO = qDadosPRODUTO.Value)
qDados.Next;
End;
Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde
de registros na tabela ITENSORC.
Valew pela força!!!
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 1:29 PM
Subject: Re: [delphi-br] Ajuda com SQL
UPDATE ITENSORC
SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO
FROM CADPRODUTOS
WHERE CADPRODUTOS.codloja =itensorc.produto
GO
Cara, tenta assim, sem os Alias que eu tinha colocado
aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to
mandando agora funcionou
UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO
from itensorc INNER JOIN cadprodutos on
(cadprodutos.codloja = itensorc.produto)
- Original Message -
From: joao_jma
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 9:30 AM
Subject: Re: [delphi-br] Ajuda com SQL
isso não deu certo... alguem pode me ajudar?
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
È(16) 9239-0959
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 21, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed-Recipient:;
Sent: Friday, August 21, 2009 2:45 PM
Subject: [delphi-br] Ajuda com SQL
Tenho 2 tabelas
CADPRODUTOS
codprod
descricao
fornecedor
ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb)
codprod
descprod
forprod
PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA
TABELA ITENSORC
Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois
quando existe alteração nesses dados na tabela cadprodutos, a tabela
itensorc fica desatualizada.
[]'s
João
[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]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR
Re: [delphi-br] Componente WebBrowser
Caro colega
Associe o codigo abaixo a um botão e passe os campos que vc precisa.
ShellExecute(0, Nil,
PChar('http://maps.google.com.br/maps?f=qsource=s_qhl=pt-BRgeocode=q=' +
RemoveAcento(ESC_ENDE.Text) + '-' + RemoveAcento(ESC_BAIRRO.Text) + '-' +
RemoveAcento(ESC_CIDA.Text) + '-' + ESC_UF.Text +
'jsv=143csll=-23.186453,-46.884453sspn=0.478436,' +
'0.545883g=ie=UTF8ct=clnkcd=1'), Nil, Nil, 0);
No meu caso, utilizo uma funcao para remover os acentos, pois se não ele não
acha. e passo as informações de uma consulta do form.
Atenciosamente
Washington André Muller da silva
###
NextCorp Informática Ltda
www.nextcorp.com.br
nextc...@nextcorp.com.br
nextc...@terra.com.br
0xx-(51)-3037-6605
###
- Original Message -
From: Felipe Oriani fbori...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 07, 2009 3:29 PM
Subject: [delphi-br] Componente WebBrowser
Olá Pessoal, como vai ? Tenho uma aplicação em delphi 7 e gostaria de exibir
o google maps a partir de um endereço. Estou tentando fazer manualmente mas
estou com alguns problemas. Tentei associar um arquivo html a um componente
webbrowser e funcionou porém não consegui parametrizar. Gostaria de não
precisar deste arquivo html (externo) a minha aplicação então resolvi
colocar o código HTML dentro de minha aplicação. Assim encontrei na web uma
função que me permite escrever html em um componente webbrowser (veja a
função no final do email). O problema é que quando executo no browser este
HTML ele funciona sem problemas, porém ele pede autorização do IE para
executar um ActiveX, e quando rodo este no Delphi ele da um erro (alert de
javascript... sem mensagem) e não exibe o mapa... imagino que deva ser por
causa do ActiveX.
Minha dúvida: Existe alguma forma de ativar a execução de ActiveX no
WebBrowser do Delphi ???
OU
Gostaria de saber se existe algum componente a parte que permita que eu
passe o enderço, cidade, estado, cep, para ele e ele me desse a localização
no maps ???
Obrigado
Att,
Função que estou usando para exibir um código HTML em um WebBrowser:
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank') ;
while WebBrowser.ReadyState READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
--
__
Felipe B. Oriani
fbori...@gmail.com | www.felipeoriani.com.br
...Examina o sentido, o modo e a direção de tuas palavras, antes de
pronunciá-las.. por Emmanuel
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 08/09/2009
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.409 / Virus Database: 270.13.87/2356 - Release Date: 09/09/09
06:53:00
[delphi-br] Intraweb e linux
Senhores, Eu consigo executar um aplicativo desenvolvido em intraweb no linux?? Obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res:Re: Res:Rave 5
Olá, O site da empresa é esse: http://www.pragnaan.com/ Att Roberto.
[delphi-br] Campo Float
Pessoal,
Uma pergunta basica...
Como eu passo um calor decimal para um campo de um clietdataset?
Banco mysql+d7+devexpress
Digo isso pois na minha tabela tenho um campo decimal(15,2), porem o mysql não
aceita , virgula e sim so ponto .. eu nao queria trocar as configurações
regionais do windows.
Exemplo do que eu queria
CDSClienteVALOR.Value := 15.2;
So como eu vou fazer isso pois o campo que ele criou do client e do tipo TBCd?
e se coloco CDSClienteVALOR.AsFloat ele nao aceita. Tentei colocar o comando
DecimalConvert('.') mas da erro ao gravar.
Como posso solucionar isso? alguem pode me dar uma luz?
Valeu
Re: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso
www.linuxmall.com.br ta com o melhor preço []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: jrsilvas...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 5:26 PM Subject: Re: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso Onde eu acho para comprar este livro procurei na internet e nao achei João Roberto - Original Message - From: Dirlei To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 1:53 PM Subject: Re: [delphi-br] [ARTIGO] Os Oito Segredos Dos Programadores de Sucesso Aproveitando o e-mail do Rubem, faço o meu primeiro envio de e-mail para o grupo. Recomendo aos que ainda não leram, que leiam Refatoração: Aperfeiçoando o Projeto de Código Existente do Martin Fowler. Ao aprender com esse livro como fazer refatorações eficazes, aprendi também a escrever com muito mais qualidade a primeira versão de cada código. Recomendo a todos programadores que gostam de codificar com qualidade. [ ]'s Dirlei. [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] Delphi 2007 x Delphi 2008
eu consegui ... pegando na net uma função semelhante .. basicamente deve-se
trocar por String por ansistring, onde estava Char colocar AnsiChar
segue abaixo a função corrigida
function EnDecryptString(StrValue: AnsiString; Chave: Word): AnsiString;
var
I: Integer;
OutValue : AnsiString;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + AnsiChar(not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
From: Walter Chagas (Bol)
Sent: Wednesday, September 09, 2009 8:29 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Delphi 2007 x Delphi 2008
Teve um cara lá na Lista-delphi que teve o mesmo problema com uma unit de
criptografia.
Teria que ver se tem como desabilitar o Unicode do D2K9 pelo menos para os
projetos antigos.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Valdemir (yahoo)
To: delphibr
Sent: Tuesday, September 08, 2009 11:21 PM
Subject: [delphi-br] Delphi 2007 x Delphi 2008
Pessoal tenho uma rotina que grava em um ini a senha criptogravada...
no delphi 2007 funciona no delphi 2009 não
já debuguei e aparentemente a string aparece criptografada no debub.. mas ao
gravar no ini fica ?
segue abaixo a rotina onde eu uso e tb a função
ArquivoIni := TIniFile.Create(svdConfiguracao.FileName);
ArquivoIni.WriteString('BancoDados','Senha',EnDecryptString(edtSenha.Text,1024));
ArquivoIni.Free;
function EnDecryptString(StrValue: String; Chave: Word): String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
dentro do arquivo ini no delphi 2007 fica
Senha='zOss?
mas no delphi 2009 fica
Senha=?
alguem já viu isso ?
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alguem usa o componente tBackupFile?
mas como eu poderia ver isso?? tem algum exemplo??? obrigado - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 10:43 AM Subject: Re: [delphi-br] Alguem usa o componente tBackupFile? Esse problema acontece em função do suporte a Unicode no Delphi 2009, caso não encontre uma versão atualizada você precisará fazer um revisão geral no código do componente e fazer os ajustes necessários. Boa sorte. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/9/8 Rafael Marques rafael.mat...@terra.com.br Alguem na lista que trabalha com este componente está conseguindo utiliza-lo no Delphi2009??? eu uso ele desde a versao 7 (tenho alguns sistemas utilizando-o em varias telas) e no delphi 2009 ele n funciona mais, dá problema nos backups gerados tentei procurar no google uma atualizacao e n encontrei. alguem sabe de algum local onde posso encontrar??? obrigado __ Information from ESET NOD32 Antivirus, version of virus signature database 4405 (20090908) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 4406 (20090908) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com -- E-mail verificado pelo Terra Anti-Spam. Para classificar esta mensagem como spam ou não spam, clique aqui. Verifique periodicamente a pasta Spam para garantir que apenas mensagens indesejadas sejam classificadas como Spam. -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Atualizado em 08/09/2009 __ Information from ESET NOD32 Antivirus, version of virus signature database 4410 (20090909) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intraweb e linux
Consegue sim, você deve gerar módulos para o Apache. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/9/9 Marcelo Moacir Florindo marceloflori...@gmail.com Senhores, Eu consigo executar um aplicativo desenvolvido em intraweb no linux?? Obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar CORINGA em registro
Prezados, Tenho uma tabela de historicos e outra de lançamentos. Gostaria que ao cadastrar determinados registros na tabela de histórico, poder incluir dentro da descrição algum tipo de coringa. Por exemplo: Vr. ref. a duplicata nº $$Numero da NF $$Nf. Até ai é tranquilo. O que preciso é que quando eu for fazer um lançamento utilizando esse histórico que tenha um ou mais coringas, o cursor seja posicionado diretamente sobre esse coringa para digitação das informações e inibindo a alteração do restante do histórico. Se o histórico tiver mais de um corringa, ao pressionar enter ele vai para o seguinte e assim sucessivamente. Alguem ja fez algo parecido que possa me ajudar ?
Re: [delphi-br] Delphi 2007 x Delphi 2008
É Walter, infelizmente até o momento não ha como desativar o unicode, não
tem jeito, tem que revisar todo o sistema, principalmente em rotinas de
manipulação de string's;
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...
2009/9/9 Walter Chagas (Bol) wchag...@bol.com.br
Teve um cara lá na Lista-delphi que teve o mesmo problema com uma unit de
criptografia.
Teria que ver se tem como desabilitar o Unicode do D2K9 pelo menos para os
projetos antigos.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Valdemir (yahoo)
To: delphibr
Sent: Tuesday, September 08, 2009 11:21 PM
Subject: [delphi-br] Delphi 2007 x Delphi 2008
Pessoal tenho uma rotina que grava em um ini a senha criptogravada...
no delphi 2007 funciona no delphi 2009 não
já debuguei e aparentemente a string aparece criptografada no debub.. mas
ao
gravar no ini fica ?
segue abaixo a rotina onde eu uso e tb a função
ArquivoIni := TIniFile.Create(svdConfiguracao.FileName);
ArquivoIni.WriteString('BancoDados','Senha',EnDecryptString(edtSenha.Text,1024));
ArquivoIni.Free;
function EnDecryptString(StrValue: String; Chave: Word): String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
dentro do arquivo ini no delphi 2007 fica
Senha='zOs s?
mas no delphi 2009 fica
Senha=?
alguem já viu isso ?
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intraweb e linux
Consegue sim, você deve gerar módulos para o Apache. Isso até o IW 8, se não me engano. A partir da 9 isso foi descontinuado... Com o IW atual, você pode hospedar sua aplicação: * como um Stand Alone Server * como um serviço do windows * como um módulo ISAPI mas precisa ser XP ou Win 2003. Você pode rodar o SA Server no Linux, via WINE: http://www.atozedsoftware.com/intraweb/FAQ/Wine.EN.aspx Isso não é suportado oficialmente, mas sei de vários usuários IW que fazem assim. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br
Re: [delphi-br] Delphi 2007 x Delphi 2008
function EnDecryptString(StrValue: String; Chave: Word): String; Tente mudar StrValue de String para AnsiString, e todo o resto tb... -- Jackson
[delphi-br] Caso de Sucesso - Intraweb (preciso)
Senhores, Alguém aqui no Brasil fez algum sistema robusto usando o intraweb? Preciso de um caso de sucesso para apresentar para a equipe aqui. Muito obrigado a todos. Att, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Caso de Sucesso - Intraweb (preciso)
Alguém aqui no Brasil fez algum sistema robusto usando o intraweb? Preciso de um caso de sucesso para apresentar para a equipe aqui. www.slabweb.com.br É um produto que desenvolvi para o mercado de marmore e granito, funcionando bem para vários clientes... esse é o demo... -- Jackson
Re: [delphi-br] Alguem usa o componente tBackupFile?
Você precisa recompilar os fontes de componente e ver os warnings que o compilador vai gerar.. basicamente trocar todas as variáveis do Tipo String por AnsiString. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/9/9 Rafael Marques rafael.mat...@terra.com.br mas como eu poderia ver isso?? tem algum exemplo??? obrigado - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, September 08, 2009 10:43 AM Subject: Re: [delphi-br] Alguem usa o componente tBackupFile? Esse problema acontece em função do suporte a Unicode no Delphi 2009, caso não encontre uma versão atualizada você precisará fazer um revisão geral no código do componente e fazer os ajustes necessários. Boa sorte. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/9/8 Rafael Marques rafael.mat...@terra.com.brrafael.matriz%40terra.com.br Alguem na lista que trabalha com este componente está conseguindo utiliza-lo no Delphi2009??? eu uso ele desde a versao 7 (tenho alguns sistemas utilizando-o em varias telas) e no delphi 2009 ele n funciona mais, dá problema nos backups gerados tentei procurar no google uma atualizacao e n encontrei. alguem sabe de algum local onde posso encontrar??? obrigado __ Information from ESET NOD32 Antivirus, version of virus signature database 4405 (20090908) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 4406 (20090908) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com -- E-mail verificado pelo Terra Anti-Spam. Para classificar esta mensagem como spam ou não spam, clique aqui. Verifique periodicamente a pasta Spam para garantir que apenas mensagens indesejadas sejam classificadas como Spam. -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Atualizado em 08/09/2009 __ Information from ESET NOD32 Antivirus, version of virus signature database 4410 (20090909) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [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] Componente WebBrowser
Olá Felipe.
Legal. Ficou interessante a criação do HTML nessa variável. Bem mais fácil e
claro.
Agora o bom é que também já sei por onde seguir hora que for colocar no
sistema.
Já batemos cabeça. Rsrs
Abraço.
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
www.n2solutions.com.br
www.nfe.n2solutions.com.br
www.studion2.com.br
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Felipe Oriani
Enviada em: terça-feira, 8 de setembro de 2009 19:28
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Componente WebBrowser
Olá Claudinei, tudo bem ?
Deu certo sim =D! Eu tentei fazer escrevendo o html com aquela função que
citei no começo... do mesmo jeito que você disse! Parametrizei na url do
iframe com as informações do endereço que preciso e gerei um html assim:
'monta html necessário
HTML := HTML + 'html';
HTML := HTML + ' body';
HTML := HTML + ' iframe /';
HTML := HTML + ' /body';
HTML := HTML + '/html';
'seta no mapa
WBLoadHTML(wbMapa, HTML);
Depois utilizei a função inicial que coloquei no primeiro post e mandei
exibir. Fico bem legal! Acho que o ActiveX estava impedindo a execução do
maps no WebBrowser. Antes estava tentando fazer manualmente com
javascript... enfim! ficou legal!
Caso alguém precise, está ai a solução.
Detalhe que para usar essa função que citei no primeiro post, é necessário
incluir a biblioteca ActiveX.
Valeu Claudinei!
Abraços
Att,
2009/9/8 Claudiney - Listas claudiney-lis...@n2solutions.com.br
Olá Felipe.
Realmente pra utilizar o IFRAME você precisa ter um arquivo HTML que
contenha ele. O mais tranqüilo eu acredito que seja gerar um pequeno HTML
temporário com os dados que você quer apresentar e chamar este HTML no
navigate do webbrowser. Não vejo outra maneira de fazer isso, já que o
iframe é parte de um arquivo HTML. Algo mais ou menos assim:
html
head
titleTeste/title
/head
iframe width=425 height=350 frameborder=0 scrolling=no
marginheight=0 marginwidth=0 src=http://maps.google.com/maps?q=av.
sao paulo 175 maringaamp;output=embedamp;sll=37.0625,-
95.677068amp;sspn=31.150864,59.238281amp;ie=UTF8amp;ll=-23.413083,-
51.940784amp;spn=0.008801,0.014462amp;z=14amp;om=1amp;s=AARTsJqGyCChOuky
MX_CAaQ01tl-1QdG4A/iframe
/html
Assim já mostra o mapa, mas não apresenta o link para o mapa ampliado...
para isso é só colocar o código inteiro que te passei antes.
Outra coisa é tentar o seguinte...
Crie essa função:
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank') ;
while WebBrowser.ReadyState READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
Agora tente carregar o html nela.. o iframe direto:
WBLoadHTML(WebBrowser1, iframe width=425 height=350 frameborder=0
scrolling=no marginheight=0 marginwidth=0
src=http://maps.google.com/maps?q=av. sao paulo 175
maringaamp;output=embedamp;sll=37.0625,-
95.677068amp;sspn=31.150864,59.238281amp;ie=UTF8amp;ll=-23.413083,-
51.940784amp;spn=0.008801,0.014462amp;z=14amp;om=1amp;s=AARTsJqGyCChOuky
MX_CAaQ01tl-1QdG4A/iframe)
Algo mais ou menos assim... Essa função não é minha... só copiei, portanto
não sei te dizer se funciona 100%, mas acredito que sim.
Pode ser que isso resolva o problema de não ter que criar um HTML só pra
isso.
Depois me diz se a função deu certo..
Abraço.
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Felipe Oriani
Enviada em: terça-feira, 8 de setembro de 2009 11:34
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Componente WebBrowser
Olá Claudinei, é extamente este meu problema... rs.. não quero exibir o
restante da página... apenas o mapa do google!
Eu fiz da mesma forma que você disse (a primeira), coloquei o link com os
parametros na url e ficou show, porém ele exibe a página inteira e permite
que o usuário comece a acessar outras coisas além do mapa... o que não
quero
que aconteça!
Mas também não queria deixar um arquivo .html externo ao meu .exe
então
estou tentando escrever o html direto e jogar no
[delphi-br] Extrair campo de um DBDataEdit
Boa tarde galera.., É o seguinte queria saber se alguem sabe como eu pego só um campo de um TDBDataEdit, tipo no display eu tenho 09/09/2009, tem como eu pegar só o dia ou so o mês, direto do edit para passar como parametro? Desde já agradeço aos que por ventura me ajudar Suélio Santos Analista de Sistemas Focus Automação Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intraweb e linux
Ola Eduardo, gostaria de saber, um mesmo projeto em intraweb, como deve-se gerado o projeto para hospedar aplicacao. ja vi falar de alguns como abaixo, existe alguma forma de que eu,fassa uma vez gere todas formas. * como um Stand Alone Server * como um serviço do windows * como um módulo ISAPI Marcio 2009/9/9 Eduardo Silva dos Santos eduardo@gmail.com Consegue sim, você deve gerar módulos para o Apache. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/9/9 Marcelo Moacir Florindo marceloflori...@gmail.commarceloflorindo%40gmail.com Senhores, Eu consigo executar um aplicativo desenvolvido em intraweb no linux?? Obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [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]
RES: [delphi-br] Extrair campo de um DBDataEdit
Esse componente é nativo do Delphi? Nunca ouvi falar desse componente! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de suelio Santos Enviada em: quarta-feira, 9 de setembro de 2009 14:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Extrair campo de um DBDataEdit Boa tarde galera.., É o seguinte queria saber se alguem sabe como eu pego só um campo de um TDBDataEdit, tipo no display eu tenho 09/09/2009, tem como eu pegar só o dia ou so o mês, direto do edit para passar como parametro? Desde já agradeço aos que por ventura me ajudar Suélio Santos Analista de Sistemas Focus Automação [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intraweb e linux
Cara eu usei o intraweb pouco mesmo, só fiz uns exemplos, testei no IIS e no Apache, o cara que manja mesmo é o Jackson, conversa com ele que certamente vai te ajudar mais que eu. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/9/9 Marcio Barbosa marciosys...@gmail.com Ola Eduardo, gostaria de saber, um mesmo projeto em intraweb, como deve-se gerado o projeto para hospedar aplicacao. ja vi falar de alguns como abaixo, existe alguma forma de que eu,fassa uma vez gere todas formas. * como um Stand Alone Server * como um serviço do windows * como um módulo ISAPI Marcio 2009/9/9 Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com Consegue sim, você deve gerar módulos para o Apache. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/9/9 Marcelo Moacir Florindo marceloflori...@gmail.commarceloflorindo%40gmail.com marceloflorindo%40gmail.com Senhores, Eu consigo executar um aplicativo desenvolvido em intraweb no linux?? Obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [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] [As partes desta mensagem que não continham texto foram removidas]
