[delphi-br] Livro Delphi for PHP
Ola , gostaria de saber se você conhece algum livro em português sobre o Delphi for PHP que poderia estar me indicando para estar comprando. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF - BackUp On Line - FREE
Uma ótima alternativa para realizar backup automatico (FREE ou pago se preferir). Você poderá programar backup de seus dados de acordo com suas necessidadese acessá-los de qualquer lugar do planeta. Recomendo. acesse o link: https://mozy.com/?ref=5G2DHC Veja vídeo no site do programa OLHAR DIGITAL: direto: http://olhardigital.uol.com.br/incs/inc_iframe_flashplayer.php?flash=http://p.download.uol.com.br/olhardigital/PGM079/pgm079_link_back_up_on_line.flv página: http://olhardigital.uol.com.br/links/video.php?id_conteudo=3636 Valeu. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENTE - Commit depois que inserir 1mil registros
Pessoal eu já resolvi o problema colocando um contador mesmo.
Foi preguiça de pensar antes de postar o problema.
Valew
2008/5/21 Joao Morais [EMAIL PROTECTED]:
berdam wrote:
ué, poe um contador ai quando der mil comita
... e quando (VContador mod 1000) = 0 commita.
Jorge Ericsson escreveu:
Olá amigos,
Estou desenvolvendo uma rotina gigante de atualização de dados e
gostaria de
dá um commit após atualizar 1000 registros na tabela.
O IBExpet ao gerar um script de atualização acima de uma determinada
quantidade de registros já envia o COMMIT; ao texto.
Tenho algo +/- da seguinte forma:
query1.open; {esta query retorno uns 30mil registros}
while not eof do
begin
query2.sql.text := 'insert into teste2 etcetcect {precisa de escrever
tudo}
query2.parambyname('texte1).Value := query1.fieldbyname('texte').value;
query2.execsql;
commit; {Preciso commita qdo tiver sido inserido 1mil registros.
query1.Next;
end;
Alguém já desenvolveu algo nesse sentido ?
Grande abraço.
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
--
Att,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Formatar Data Dentro do SELECT
No My SQL e demais outros eu sei que funciona
mas, quero no FIREBIRD 2.0
mesmo assim obrigado.
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
- Mensagem original
De: Josimar [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 21 de Maio de 2008 15:29:21
Assunto: Re: [delphi-br] Formatar Data Dentro do SELECT
Olá Jean!
Se você estiver usando banco de dados MySQL (não sei se funciona com
outros),
poderá fazer :
SELECT
DATE_FORMAT( dtnascimento, '%Y/%m/%d') data_nascimento
Falou!
Jean Barreiros escreveu:
Olá galera...
Tenho que retornar uma data com um determinado formato do banco, mas
que seja formatado dentro do proprio select tipo:
Select ID, NOME, DTNASCIMENTO from cliente
a DTNASCIMENTO é um campo timestamp dai quero só a data tipo:
Select ID, NOME, DATE('/MM/ dd',DTNASCIMENTO ) from cliente
vejam: DATE('/MM/ dd',DTNASCIMENTO )seria possivel fazer isso..
pessoal por favor ninguém responda dizendo pra eu configurar a mascara
nos componentes de acesso ao banco só preciso de resposta que façam
referencia ao SELECT.
Obrigado.Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br mailto:jean% 40comerciofsa. com.br
e-mail: [EMAIL PROTECTED] com mailto:delphijean% 40gmail.com
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. yahoo.com/ http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Formatar Data Dentro do SELECT
Pessoal obrigado a todos
Resolvir de outra forma não vou publicar porque resolvir usar o nosso velho e
bom FormatDateTime
podemos dar o topico como encerrado.
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
- Mensagem original
De: Jean Barreiros [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 23 de Maio de 2008 11:17:44
Assunto: Res: [delphi-br] Formatar Data Dentro do SELECT
No My SQL e demais outros eu sei que funciona
mas, quero no FIREBIRD 2.0
mesmo assim obrigado.
Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br
e-mail: [EMAIL PROTECTED] com
- Mensagem original
De: Josimar [EMAIL PROTECTED] com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Maio de 2008 15:29:21
Assunto: Re: [delphi-br] Formatar Data Dentro do SELECT
Olá Jean!
Se você estiver usando banco de dados MySQL (não sei se funciona com
outros),
poderá fazer :
SELECT
DATE_FORMAT( dtnascimento, '%Y/%m/%d') data_nascimento
Falou!
Jean Barreiros escreveu:
Olá galera...
Tenho que retornar uma data com um determinado formato do banco, mas
que seja formatado dentro do proprio select tipo:
Select ID, NOME, DTNASCIMENTO from cliente
a DTNASCIMENTO é um campo timestamp dai quero só a data tipo:
Select ID, NOME, DATE('/MM/ dd',DTNASCIMENTO ) from cliente
vejam: DATE('/MM/ dd',DTNASCIMENTO )seria possivel fazer isso..
pessoal por favor ninguém responda dizendo pra eu configurar a mascara
nos componentes de acesso ao banco só preciso de resposta que façam
referencia ao SELECT.
Obrigado.Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br mailto:jean% 40comerciofsa. com.br
e-mail: [EMAIL PROTECTED] com mailto:delphijean% 40gmail.com
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. yahoo.com/ http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Arquivos DBS
Pessoal, Preciso importar dados de um arquivo .dbs Que banco é este? Com qual programa consigo extrair os dados dele? -- /* * Edson Marco Ferrari Junior * [EMAIL PROTECTED] * [EMAIL PROTECTED](in memorium) */ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Formatar Data Dentro do SELECT
Tente assim:
select CAST(DTNASCIMENTO AS VARCHAR(10)) from Clientes
- Original Message -
From: Jean Barreiros
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 23, 2008 11:24 AM
Subject: Res: Res: [delphi-br] Formatar Data Dentro do SELECT
Pessoal obrigado a todos
Resolvir de outra forma não vou publicar porque resolvir usar o nosso velho e
bom FormatDateTime
podemos dar o topico como encerrado.
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
- Mensagem original
De: Jean Barreiros [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 23 de Maio de 2008 11:17:44
Assunto: Res: [delphi-br] Formatar Data Dentro do SELECT
No My SQL e demais outros eu sei que funciona
mas, quero no FIREBIRD 2.0
mesmo assim obrigado.
Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br
e-mail: [EMAIL PROTECTED] com
- Mensagem original
De: Josimar [EMAIL PROTECTED] com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Maio de 2008 15:29:21
Assunto: Re: [delphi-br] Formatar Data Dentro do SELECT
Olá Jean!
Se você estiver usando banco de dados MySQL (não sei se funciona com
outros),
poderá fazer :
SELECT
DATE_FORMAT( dtnascimento, '%Y/%m/%d') data_nascimento
Falou!
Jean Barreiros escreveu:
Olá galera...
Tenho que retornar uma data com um determinado formato do banco, mas
que seja formatado dentro do proprio select tipo:
Select ID, NOME, DTNASCIMENTO from cliente
a DTNASCIMENTO é um campo timestamp dai quero só a data tipo:
Select ID, NOME, DATE('/MM/ dd',DTNASCIMENTO ) from cliente
vejam: DATE('/MM/ dd',DTNASCIMENTO )seria possivel fazer isso..
pessoal por favor ninguém responda dizendo pra eu configurar a mascara
nos componentes de acesso ao banco só preciso de resposta que façam
referencia ao SELECT.
Obrigado.Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br mailto:jean% 40comerciofsa. com.br
e-mail: [EMAIL PROTECTED] com mailto:delphijean% 40gmail.com
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. yahoo.com/ http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Formatar Data Dentro do SELECT
Ou desta forma:
select
EXTRACT(YEAR FROM DTNASCIMENTO)||'/' || EXTRACT(MONTH FROM DTNASCIMENTO)||'/'
|| EXTRACT(DAY FROM DTNASCIMENTO))
from Clientes
- Original Message -
From: Jean Barreiros
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 23, 2008 11:24 AM
Subject: Res: Res: [delphi-br] Formatar Data Dentro do SELECT
Pessoal obrigado a todos
Resolvir de outra forma não vou publicar porque resolvir usar o nosso velho e
bom FormatDateTime
podemos dar o topico como encerrado.
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
- Mensagem original
De: Jean Barreiros [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 23 de Maio de 2008 11:17:44
Assunto: Res: [delphi-br] Formatar Data Dentro do SELECT
No My SQL e demais outros eu sei que funciona
mas, quero no FIREBIRD 2.0
mesmo assim obrigado.
Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br
e-mail: [EMAIL PROTECTED] com
- Mensagem original
De: Josimar [EMAIL PROTECTED] com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 21 de Maio de 2008 15:29:21
Assunto: Re: [delphi-br] Formatar Data Dentro do SELECT
Olá Jean!
Se você estiver usando banco de dados MySQL (não sei se funciona com
outros),
poderá fazer :
SELECT
DATE_FORMAT( dtnascimento, '%Y/%m/%d') data_nascimento
Falou!
Jean Barreiros escreveu:
Olá galera...
Tenho que retornar uma data com um determinado formato do banco, mas
que seja formatado dentro do proprio select tipo:
Select ID, NOME, DTNASCIMENTO from cliente
a DTNASCIMENTO é um campo timestamp dai quero só a data tipo:
Select ID, NOME, DATE('/MM/ dd',DTNASCIMENTO ) from cliente
vejam: DATE('/MM/ dd',DTNASCIMENTO )seria possivel fazer isso..
pessoal por favor ninguém responda dizendo pra eu configurar a mascara
nos componentes de acesso ao banco só preciso de resposta que façam
referencia ao SELECT.
Obrigado.Jean Barreiros
Programador/ Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] com.br mailto:jean% 40comerciofsa. com.br
e-mail: [EMAIL PROTECTED] com mailto:delphijean% 40gmail.com
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. yahoo.com/ http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro na instalação Delphi 2007 x Vista
Olá pessoal.. Procurei na lista mas nao achei este problema. Qdo tento instalar o delphi 2007 no windows vista ele fala que já existe uma instalação em andamento e entao pára a instalação. O meu usuário já possui direitos de administrador. Alguém já passou por isso ? Att. Adriano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro na instalação Delphi 2007 x V ista
Agora foi.. depois de reiniciar o note umas 2x instalou - Original Message - From: Adriano O. Cipriano To: delphi-br@yahoogrupos.com.br Sent: Friday, May 23, 2008 11:44 AM Subject: [delphi-br] Erro na instalação Delphi 2007 x Vista Olá pessoal.. Procurei na lista mas nao achei este problema. Qdo tento instalar o delphi 2007 no windows vista ele fala que já existe uma instalação em andamento e entao pára a instalação. O meu usuário já possui direitos de administrador. Alguém já passou por isso ? Att. Adriano [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 269.24.0/1462 - Release Date: 23/5/2008 07:20 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Traduções de mensagens do Delphi 7
Fiz a tradução de mensagens da unit Consts e DbConsts do Delphi 7. Mas as traduções não aparecem para projetos já existentes, mesmo se der um Build no projeto. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Livro Delphi for PHP
Infelizmente não conheço nenhum livro para indicar para que possa comprar. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DICA] Funções para localização e verificação de estado de processos do Windows
{ necessitam das units Windows e TlHelp32 }
function FindProcess(ProcessName: string): DWORD;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while ContinueLoop and (not Boolean(Result)) do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ProcessName)) or
(UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ProcessName))) then
Result := FProcessEntry32.th32ProcessID;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
end;
type
TProcessStatus = (pcsNotFound = -1, pcsNotResponding, pcsRunning);
const
ProcessStatusNames: array[TProcessStatus] of string =
('** NÃO ENCONTRADO **', 'Em Execução', 'Não Respondendo');
function ProcessResponding(AProcessName: string): TProcessStatus;
var
H: DWORD;
lngReturnValue: longint;
DWResult: DWORD;
begin
Result := pcsNotFound;
H := FindProcess(AProcessName);
if H 0 then
begin
lngReturnValue := SendMessageTimeout(H, WM_NULL, 0, 0,
SMTO_ABORTIFHUNG and SMTO_BLOCK, 1000, DWResult);
Result := TProcessStatus(Ord((lngReturnValue 0)));
end;
end;
Sds.,
Rubem Rocha
Manaus, AM
_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
[delphi-br] Converter Ascii para String
Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0';
Re: [delphi-br] Converter Ascii para String
Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter Ascii para String
até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Converter Ascii para String
vamos lá denovo eu tenho um rotina q faz uma criptografia numa string wVar : string wVar := 'Alan Vieceli' wVar := Criptografa(wVar); wVar = #$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F; se eu der um showmessage ou salvar em um arquivo texto esse valor ele vai aparecer uns troços nada a ver... e eu gostaria q aparecesse exatamente o que tem ali..como texto. Queria transformar essa variavel em: wVar = '#$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F' Davi Eduardo Borges Wall escreveu: Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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] Converter Ascii para String
Eu ACHO que entendi... A sua rotina de criptografia está retornando valores como '#10#15', etc...certo ? Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da metade da resposta. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Friday, May 23, 2008 2:25 PM Subject: RES: [delphi-br] Converter Ascii para String Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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] Converter Ascii para String
Ai vai a bendita function Criptografar(const S: string; Key: Word): string; var I: Integer; OutValue : String; begin OutValue := ''; for I := 1 to Length(S) do OutValue := OutValue + char(Not(ord(S[I])-Key)); Result := OutValue; end; Vinicius Santos - MSI escreveu: Eu ACHO que entendi... A sua rotina de criptografia está retornando valores como '#10#15', etc...certo ? Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da metade da resposta. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:25 PM Subject: RES: [delphi-br] Converter Ascii para String Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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: RES: [delphi-br] Converter Ascii para String
Cara, poste a sua rotina de Criptografia, para nós analisarmos. Mas talvez você, poderia substituir os #, por outros caracteres, e depois na hora de usar os valores, vc faz a substituição inversa. Seria uma alternativa a primeira vista. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br Sent: Friday, May 23, 2008 2:32 PM Subject: Re: RES: [delphi-br] Converter Ascii para String vamos lá denovo eu tenho um rotina q faz uma criptografia numa string wVar : string wVar := 'Alan Vieceli' wVar := Criptografa(wVar); wVar = #$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F; se eu der um showmessage ou salvar em um arquivo texto esse valor ele vai aparecer uns troços nada a ver... e eu gostaria q aparecesse exatamente o que tem ali..como texto. Queria transformar essa variavel em: wVar = '#$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F' Davi Eduardo Borges Wall escreveu: Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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] Converter Ascii para String
Como, vc está fazendo a chamada da Função ? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br Sent: Friday, May 23, 2008 2:35 PM Subject: Re: [delphi-br] Converter Ascii para String Ai vai a bendita function Criptografar(const S: string; Key: Word): string; var I: Integer; OutValue : String; begin OutValue := ''; for I := 1 to Length(S) do OutValue := OutValue + char(Not(ord(S[I])-Key)); Result := OutValue; end; Vinicius Santos - MSI escreveu: Eu ACHO que entendi... A sua rotina de criptografia está retornando valores como '#10#15', etc...certo ? Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da metade da resposta. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:25 PM Subject: RES: [delphi-br] Converter Ascii para String Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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]
Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:25 PM
Subject: RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
vai entender Tb.
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:22
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q resolvia
meu problema
Vinicius Santos - MSI escreveu:
Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer:
wVar = 'teste#13+#0';
Direto ??
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:07 PM
Subject: [delphi-br] Converter Ascii para String
Alguem sabe como eu faço pra converter uns caracteres Ascii para
string?
tipo:
wVar := 'teste'+#13+#0
dai o conteudo dessa variavel ser:
wVar = 'teste#13+#0';
[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]
[delphi-br] conexao dbexpres com mysql
estou tentando conectar o sqlconection com o bd mysql sem componentes de terceiro e nao conseigo alguem sabe como faco ??? ele pede a dll libmysql.dll como faco ??? grato
Re: RES: [delphi-br] Converter Ascii para String
já tentei subtituir, não roloupq ele ententende que #13 como sendo um enter, ou #0 sendo espaço... Vinicius Santos - MSI escreveu: Cara, poste a sua rotina de Criptografia, para nós analisarmos. Mas talvez você, poderia substituir os #, por outros caracteres, e depois na hora de usar os valores, vc faz a substituição inversa. Seria uma alternativa a primeira vista. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:32 PM Subject: Re: RES: [delphi-br] Converter Ascii para String vamos lá denovo eu tenho um rotina q faz uma criptografia numa string wVar : string wVar := 'Alan Vieceli' wVar := Criptografa(wVar); wVar = #$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F; se eu der um showmessage ou salvar em um arquivo texto esse valor ele vai aparecer uns troços nada a ver... e eu gostaria q aparecesse exatamente o que tem ali..como texto. Queria transformar essa variavel em: wVar = '#$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F' Davi Eduardo Borges Wall escreveu: Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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] Converter Ascii para String
Cara, eu usei a tua função e fiz uma chamada assim:
var wVar: string;
begin
wVar := 'Alan Vieceli';
wVar := Criptografar(wVar, 59);
ShowMessage(wVar);
end;
Obtive os seguintes caracteres: ùÎÙÌäÑÕ×ÕÎÑ
Existe mais alguma particularidade ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com
http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:40 PM
Subject: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:25 PM
Subject: RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
vai entender Tb.
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:22
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q resolvia
meu problema
Vinicius Santos - MSI escreveu:
Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer:
wVar = 'teste#13+#0';
Direto ??
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:07 PM
Subject: [delphi-br] Converter Ascii para String
Alguem sabe como eu faço pra converter uns caracteres Ascii para
string?
tipo:
wVar := 'teste'+#13+#0
dai o conteudo dessa variavel ser:
wVar = 'teste#13+#0';
[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]
Re: [delphi-br] Converter Ascii para String
ta certo, esse caracteres q voltou os valores de cada Ascii
se tu depurar e ver o conteúdo da tua variavel, tu vai ver q são uns
valores #$12#$12 por ai vai...
o showmessage não vai adiantar pra ver, tem q ser na depuração
Vinicius Santos - MSI escreveu:
Cara, eu usei a tua função e fiz uma chamada assim:
var wVar: string;
begin
wVar := 'Alan Vieceli';
wVar := Criptografar(wVar, 59);
ShowMessage(wVar);
end;
Obtive os seguintes caracteres: ùÎÙÌäÑÕ×ÕÎÑ
Existe mais alguma particularidade ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:40 PM
Subject: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:25 PM
Subject: RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
vai entender Tb.
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:22
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um
monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q
resolvia
meu problema
Vinicius Santos - MSI escreveu:
Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer:
wVar = 'teste#13+#0';
Direto ??
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
RES: [delphi-br] Converter Ascii para String
Mas não se faz assim, e sim assim: wVar := 'teste'#13#0; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius Santos - MSI Enviada em: sexta-feira, 23 de maio de 2008 14:18 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas. http://tuplas.blogspot.com blogspot.com http://www.msisoluc http://www.msisolucoes.com.br oes.com.br - Original Message - From: Alan Vieceli To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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] Converter Ascii para String
Por favor desconsidere minha resposta, compreendi erradamente! Mas qual a sua real necessidade? _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:07 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Converter Ascii para String
Tah, entendi agora cara. Faça o seguinte, esta tua function retornar o seguinte: Result := QuotedStr(dadoCriptografado); _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Converter Ascii para String vamos lá denovo eu tenho um rotina q faz uma criptografia numa string wVar : string wVar := 'Alan Vieceli' wVar := Criptografa(wVar); wVar = #$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F; se eu der um showmessage ou salvar em um arquivo texto esse valor ele vai aparecer uns troços nada a ver... e eu gostaria q aparecesse exatamente o que tem ali..como texto. Queria transformar essa variavel em: wVar = '#$A#$1B#1#$1C#$A#$1D#0#$1E#$8#$1F' Davi Eduardo Borges Wall escreveu: Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas. http://tuplas.blogspot.com blogspot.com http://tuplas. http://tuplas.blogspot.com blogspot.com http://tuplas. http://tuplas.blogspot.com blogspot.com http://tuplas. http://tuplas.blogspot.com blogspot.com http://www.msisoluc http://www.msisolucoes.com.br oes.com.br http://www.msisoluc http://www.msisolucoes.com.br oes.com.br http://www.msisoluc http://www.msisolucoes.com.br oes.com.br http://www.msisoluc http://www.msisolucoes.com.br oes.com.br - Original Message - From: Alan Vieceli To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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] Converter Ascii para String
Vê se assim não dá certo:
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := QuotedStr(OutValue);
end;
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:41
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
- Original Message -
From: Alan Vieceli
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com http://tuplas.
http://tuplas.blogspot.com blogspot.com
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:25 PM
Subject: RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
vai entender Tb.
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:22
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q resolvia
meu problema
Vinicius Santos - MSI escreveu:
Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer:
wVar = 'teste#13+#0';
Direto ??
Vinicius dos Santos
Blog: http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com http://tuplas.
http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com http://tuplas.
http://tuplas.blogspot.com blogspot.com
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
- Original Message -
From: Alan Vieceli
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
RES: [delphi-br] conexao dbexpres com mysql
Vc precisa instalar no mínimo um client do MySQL _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de eu_sossego Enviada em: sexta-feira, 23 de maio de 2008 14:48 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] conexao dbexpres com mysql estou tentando conectar o sqlconection com o bd mysql sem componentes de terceiro e nao conseigo alguem sabe como faco ??? ele pede a dll libmysql.dll como faco ??? grato [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Converter Ascii para String
Valeu pela resposta Antonio..já fiz isso, não rolou tambem..
ele não converte os Ascii para string, continua vindo os caracteres
correspondete ao codigo ascii
Antonio ney.Silva escreveu:
Vê se assim não dá certo:
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := QuotedStr(OutValue);
end;
_
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:41
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com
http://www.msisoluc http://www.msisolucoes.com.br
http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br
http://www.msisolucoes.com.br oes.com.br
- Original Message -
From: Alan Vieceli
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com http://tuplas.
http://tuplas.blogspot.com http://tuplas.blogspot.com blogspot.com
http://www.msisoluc http://www.msisolucoes.com.br
http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br
http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br
http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br
http://www.msisolucoes.com.br oes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:25 PM
Subject: RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
vai entender Tb.
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:22
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um
monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q
resolvia
meu problema
Vinicius Santos - MSI escreveu:
Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer:
wVar = 'teste#13+#0';
Direto ??
Vinicius dos Santos
Blog: http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com http://tuplas.
http://tuplas.blogspot.com http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com
http://tuplas.blogspot.com blogspot.com
http://tuplas.
Re: [delphi-br] Converter Ascii para String
Certo, eu vi os caracteres ASCII, mesmo...vc grava esses valores em BD, certo
??? Eu tenho uma situação parecida e gravo tais valores em campos BLOB, eu uso
PostgreSQL, pq vc não tenta usar BLOB no seu BD, já tentou ??
Vinicius dos Santos
Blog: http://tuplas.blogspot.com
http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:59 PM
Subject: Re: [delphi-br] Converter Ascii para String
ta certo, esse caracteres q voltou os valores de cada Ascii
se tu depurar e ver o conteúdo da tua variavel, tu vai ver q são uns
valores #$12#$12 por ai vai...
o showmessage não vai adiantar pra ver, tem q ser na depuração
Vinicius Santos - MSI escreveu:
Cara, eu usei a tua função e fiz uma chamada assim:
var wVar: string;
begin
wVar := 'Alan Vieceli';
wVar := Criptografar(wVar, 59);
ShowMessage(wVar);
end;
Obtive os seguintes caracteres: ùÎÙÌäÑÕ×ÕÎÑ
Existe mais alguma particularidade ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:40 PM
Subject: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:25 PM
Subject: RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
vai entender Tb.
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:22
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um
monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q
resolvia
meu problema
Vinicius Santos - MSI escreveu:
Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer:
wVar = 'teste#13+#0';
Direto ??
Vinicius dos Santos
Blog:
Re: [delphi-br] Converter Ascii para String
pois é..eu tinha pensando nisso...mas é q seguinte...
o BD ta pronto..meu chefe vai encher meu ouvidos c eu falar pra ele
trocar o tipo do campo...
por isso queria tentar converter esses Ascii pra string..mas eu ja
consegui um solução quebra galho
eu tava tendo probleam quando vinha #0
dai eu só retiro esse caracter #0 da string q dai rola...até eu
descobrir como, se é q tem como, converter os ascii pra string eu vo
usando assim..
valeu pela ajuda cara,
grade abraço.
Vinicius Santos - MSI escreveu:
Certo, eu vi os caracteres ASCII, mesmo...vc grava esses valores em
BD, certo ??? Eu tenho uma situação parecida e gravo tais valores em
campos BLOB, eu uso PostgreSQL, pq vc não tenta usar BLOB no seu BD,
já tentou ??
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:59 PM
Subject: Re: [delphi-br] Converter Ascii para String
ta certo, esse caracteres q voltou os valores de cada Ascii
se tu depurar e ver o conteúdo da tua variavel, tu vai ver q são uns
valores #$12#$12 por ai vai...
o showmessage não vai adiantar pra ver, tem q ser na depuração
Vinicius Santos - MSI escreveu:
Cara, eu usei a tua função e fiz uma chamada assim:
var wVar: string;
begin
wVar := 'Alan Vieceli';
wVar := Criptografar(wVar, 59);
ShowMessage(wVar);
end;
Obtive os seguintes caracteres: ùÎÙÌäÑÕ×ÕÎÑ
Existe mais alguma particularidade ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:40 PM
Subject: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas
tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008
[delphi-br] FTP
Amigos Delphiano, To precisando de um help amigos, como e que eu faço para saber se um diretori ja foi criado num FTP ou ate mesmo verificar a existencia do mesmo Se alguem puder me ajudar agradeceria e mto. Abraços a todos. Rodrigo Magno [EMAIL PROTECTED] msn [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Converter Ascii para String
Putz, que loucura rapaz.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 15:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Converter Ascii para String
Valeu pela resposta Antonio..já fiz isso, não rolou tambem..
ele não converte os Ascii para string, continua vindo os caracteres
correspondete ao codigo ascii
Antonio ney.Silva escreveu:
Vê se assim não dá certo:
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := QuotedStr(OutValue);
end;
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:41
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas. http://tuplas. http://tuplas.blogspot.com
blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com blogspot.com
http://tuplas. http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com blogspot.com
http://www.msisoluc http://www.msisoluc http://www.msisolucoes.com.br
oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
oes.com.br
http://www.msisoluc http://www.msisoluc http://www.msisolucoes.com.br
oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
oes.com.br
- Original Message -
From: Alan Vieceli
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas. http://tuplas. http://tuplas.blogspot.com
blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com blogspot.com
http://tuplas. http://tuplas. http://tuplas.blogspot.com blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com blogspot.com
http://tuplas. http://tuplas. http://tuplas.blogspot.com
blogspot.com
http://tuplas. http://tuplas.blogspot.com blogspot.com blogspot.com
http://tuplas.
http://tuplas. http://tuplas.blogspot.com blogspot.com http://tuplas.
http://tuplas.blogspot.com blogspot.com blogspot.com
http://www.msisoluc http://www.msisoluc
http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
oes.com.br
http://www.msisoluc http://www.msisoluc http://www.msisolucoes.com.br
oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
oes.com.br
http://www.msisoluc http://www.msisoluc
http://www.msisolucoes.com.br oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
oes.com.br
http://www.msisoluc http://www.msisoluc http://www.msisolucoes.com.br
oes.com.br
http://www.msisoluc http://www.msisolucoes.com.br oes.com.br
oes.com.br
- Original Message -
From: Davi Eduardo Borges Wall
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:25 PM
Subject: RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não
vai entender Tb.
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alan Vieceli
Enviada em: sexta-feira, 23 de maio de 2008 14:22
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto:
Re: [delphi-br] Converter Ascii para String
E se vc tentasse usar outra rotina de Criptografia ??
Enfim, a questão é delicada mesmo...Eu tentaria trilhar outro caminho mais
prático.
Mas é isso ae, se conseguir outra coisa, compartilhe conosco. :)
Vinicius dos Santos
Blog: http://tuplas.blogspot.com
http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 23, 2008 3:28 PM
Subject: Re: [delphi-br] Converter Ascii para String
pois é..eu tinha pensando nisso...mas é q seguinte...
o BD ta pronto..meu chefe vai encher meu ouvidos c eu falar pra ele
trocar o tipo do campo...
por isso queria tentar converter esses Ascii pra string..mas eu ja
consegui um solução quebra galho
eu tava tendo probleam quando vinha #0
dai eu só retiro esse caracter #0 da string q dai rola...até eu
descobrir como, se é q tem como, converter os ascii pra string eu vo
usando assim..
valeu pela ajuda cara,
grade abraço.
Vinicius Santos - MSI escreveu:
Certo, eu vi os caracteres ASCII, mesmo...vc grava esses valores em
BD, certo ??? Eu tenho uma situação parecida e gravo tais valores em
campos BLOB, eu uso PostgreSQL, pq vc não tenta usar BLOB no seu BD,
já tentou ??
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:59 PM
Subject: Re: [delphi-br] Converter Ascii para String
ta certo, esse caracteres q voltou os valores de cada Ascii
se tu depurar e ver o conteúdo da tua variavel, tu vai ver q são uns
valores #$12#$12 por ai vai...
o showmessage não vai adiantar pra ver, tem q ser na depuração
Vinicius Santos - MSI escreveu:
Cara, eu usei a tua função e fiz uma chamada assim:
var wVar: string;
begin
wVar := 'Alan Vieceli';
wVar := Criptografar(wVar, 59);
ShowMessage(wVar);
end;
Obtive os seguintes caracteres: ùÎÙÌäÑÕ×ÕÎÑ
Existe mais alguma particularidade ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:40 PM
Subject: Re: [delphi-br] Converter Ascii para String
Criptografar('ALESANDRA',59)
por exemplo...
Vinicius Santos - MSI escreveu:
Como, vc está fazendo a chamada da Função ?
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
- Original Message -
From: Alan Vieceli
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, May 23, 2008 2:35 PM
Subject: Re: [delphi-br] Converter Ascii para String
Ai vai a bendita
function Criptografar(const S: string; Key: Word): string;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(S) do
OutValue := OutValue + char(Not(ord(S[I])-Key));
Result := OutValue;
end;
Vinicius Santos - MSI escreveu:
Eu ACHO que entendi...
A sua rotina de criptografia está retornando valores como '#10#15',
etc...certo ?
Se for isso, poste a sua rotina, talvez podemos ajudar, mas
tente ser
mais claro ! Como diz o outro: Uma pergunta bem feita, vale mais da
metade da resposta.
Vinicius dos Santos
Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://tuplas.blogspot.com http://tuplas.blogspot.com
http://www.msisolucoes.com.br http://www.msisolucoes.com.br
Re: [delphi-br] Converter Ascii para String
Alan Vieceli wrote:
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q resolvia
meu problema
Converte sua string em hexa, mais ou menos assim:
function Converte(const AEntrada: string): string;
var
I: Integer;
begin
SetLength(Result, 2 * Length(AEntrada));
for I := 1 to Length(AEntrada) do
Move(IntToHex(Ord(AEntrada[I]), 2)[1], Result[2 * I - 1], 2);
end;
Depois 'desconverte', mais ou menos assim:
function Desconverte(const ASaida: string): string;
var
I: Integer;
begin
SetLength(Result, Length(ASaida) div 2);
for I := 1 to Length(Result) do
Result[I] := Chr(StrToInt('$' + Copy(ASaida, 2 * I - 1, 2)));
end;
Nem preciso dizer que você vai precisar do dobro do espaço no campo. E
nem preciso dizer também que fiz só um rascunho, daí depois você conta
se funcionou.
Joao Morais
Re: [delphi-br] Converter Ascii para String
valeu pela dica..vo testar
Joao Morais escreveu:
Alan Vieceli wrote:
até seria..só que seguinte...
tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de
caracteres...tipo...
#$4#45#$54f5'b'...
dai se grava esse falar no banco de dados..só que...isso não são
strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
monte de problema..dai queria conversar isso tudo pra string q resolvia
meu problema
Converte sua string em hexa, mais ou menos assim:
function Converte(const AEntrada: string): string;
var
I: Integer;
begin
SetLength(Result, 2 * Length(AEntrada));
for I := 1 to Length(AEntrada) do
Move(IntToHex(Ord(AEntrada[I]), 2)[1], Result[2 * I - 1], 2);
end;
Depois 'desconverte', mais ou menos assim:
function Desconverte(const ASaida: string): string;
var
I: Integer;
begin
SetLength(Result, Length(ASaida) div 2);
for I := 1 to Length(Result) do
Result[I] := Chr(StrToInt('$' + Copy(ASaida, 2 * I - 1, 2)));
end;
Nem preciso dizer que você vai precisar do dobro do espaço no campo. E
nem preciso dizer também que fiz só um rascunho, daí depois você conta
se funcionou.
Joao Morais
Re: [delphi-br] [OFF] Arquivos DBS
rapaz.. abre o arquivo no bloco de notas e cola uma parte ai, pra gente ver o reader, pq so pela extensão fica difícil isso pode ser qq arquivo, um amigo meu usava dbf com extensão .dtx posta um pedaço do arquivo ai. 2008/5/23 Edson Marco [EMAIL PROTECTED]: Pessoal, Preciso importar dados de um arquivo .dbs Que banco é este? Com qual programa consigo extrair os dados dele? -- /* * Edson Marco Ferrari Junior * [EMAIL PROTECTED] edmafer%40gmail.com * [EMAIL PROTECTED] edmafer%40sicesumar.org(in memorium) */ [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] [OFF] Arquivos DBS
Excelente sugestão, Eduardo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 23 May 2008 19:55:07 -0300 Subject: Re: [delphi-br] [OFF] Arquivos DBS rapaz.. abre o arquivo no bloco de notas e cola uma parte ai, pra gente ver o reader, pq so pela extensão fica difícil isso pode ser qq arquivo, um amigo meu usava dbf com extensão .dtx posta um pedaço do arquivo ai. 2008/5/23 Edson Marco [EMAIL PROTECTED]: Pessoal, Preciso importar dados de um arquivo .dbs Que banco é este? Com qual programa consigo extrair os dados dele? -- /* * Edson Marco Ferrari Junior * [EMAIL PROTECTED] * [EMAIL PROTECTED] (in memorium) */ _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
