Olá amigos
Estou usando o componente TWebBrowser para exibir uma página de internet num
form de minha aplicação. Funciona bem, exceto que pede autenticação quando a
conexão é via proxy.
Gostaria de fazer esta autenticação automaticamente (via código), de modo
que o usuário nunca tivesse que
Faz assim:
if SuaQuery.Active then
SuaQuery.Close;
SuaQuery.SQL.Text :=
'SELECT 1 FROM Usuario WHERE ' +
'Nome = ' + QuotedStr(Edit1.Text) +
'AND Senha = ' + QuotedStr(Edit1.Text);
SuaQuery.Open;
try
if SuaQuery.IsEmpty then
ShowMessage('Usuário ou senha inválido.')
else
Alguém tem uma algorítmo, função ou artigo sobre o cálculo do Checksum de
16 bytes de um arquivo
Se alguém puder ajudar ficarei muito grato.
Bruno
MD5 serve?
Se servidor, faça uma busca no google pelas palavras abaixo:
md5 delphi
Atenciosamente.
Daniel P. Guimarães
Tecnobyte
Olá,
Gostaria de uma grande ajuda.
Estou desenvolvendo um função extendida para Retornar Extenso. No
entando eu preciso converter um número (10^61)-1 em 9 seguido de 60 noves
(é um número muito grande, seria
9).
O
Bruno, o que o nosso amigo aí falou está mais ou menos dentro daquilo que
conversamos, sobre fazer as operações na unha para obter os resultados
desejados.
Atenciosamente.
Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br
- Original Message -
From: Bruno [EMAIL PROTECTED]
Eu crio meus forms com
if frTal = Nil then
frTal := TfrTal.Create(Self);
e no close do frTal eu coloco:
Action := caFree;
frTal := Nil;
Será que é ruim assim?
Tiago
Na minha humilde opinião, acredito que está corretíssimo.
Atenciosamente.
Daniel P. Guimarães
Tecnobyte Informática
Excelente Explicação Daniel, mas me responda uma coisa...
Obrigado! rsrs
Tudo bem, dei um Free no meu Form, ele realmente não está mais na memória.
O que acontece com ele então, se eu criei com Create(Application), e minha
aplicãção ainda está ativa... Não tem problema? Não fica nenhum lixo
Foi dito que por usar o Application como o Responsável pela criação,
ele só sairá da memória quando a aplicação for finalizada.
Tente dar um Form.Show após o usuário fechar o formulário. Se ocorrer uma
exception de violação de acesso à memória, então o form não existe mais na
memória (já foi
Galera, alguém poderia me dizer o que significam, em inglês e portugês, as
siglas abaixo:
Fazendo uma pesquisa do tipo define:termo, o google retornou isto:
ODBC = Open DataBase Connectivity
SQL = Structured Query Language
UNIX = ?
RISC = Reduced Instruction Set Computer
CISC = Complex
O projeto terá duração de 6 meses, podendo ser estendido para todo o
primeiro semestre de 2005. A carga horária é de 134 horas semanais e
134 horas semanais??? hehe
Atenciosamente.
Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER
Cada vez que ligo a minha máquina surge um processo diferente
cujo nome mistura letras e algarismos. Não consigo detectar qual
aplicativo cria esse processo e não consigo finalizá-lo, pois dá acesso
negado. Os possíveis nomes que encontrei e que atribuo a esse
processo são: po17f8.exe,
Gostaria de saber se é possível, de uma determinada palavra, retirar as
letras e deixar somente os números. Tem como fazer isso ?
E porque isto não seria possível?
function Digitos(const S: string): string;
var
I: integer;
begin
Result := '';
for I := 1 to Length(S) do
if S[I] in
Obrigado Cristina, mas não era exatamente isso que eu precisava.
O que eu precisava era saber a semana do ano...
Hoje, por exemplo, estamos na semana 18.
Precisava disso para fazer um quebra por semana.
Já fiz muitos relatórios com quebra por semana e nunca precisei saber
o número da semana.
Bom dia, Daniel!
Você deve estar esquecendo de uma regra básica da matemática, onde a
multiplicação sempre precede a divisão
A mensagem foi para outro Daniel, mas foi dar minha opinião.
Desconheço a regra básica a qual você faz referência. Até onde sei não
existe precedência entre as
Olá pessoal, preciso fazer um trabalho pra faculdade em pascal onde o
usuário deve digitar um número e especificar a base deste e o programa
deve
convertê-lo para uma das bases (Decimal, Hexadecimal, Octal ou Binário).
Eu procurei no help do compilador e não achei nenhuma função que me ajude
var
glb_DataCompensacao : TDateTime;
Até aí beleza. Mas, como eu pergunto se esta variável está vazia ?
A declaração do tipo TDateTime no Delphi é:
type TDateTime = type Double;
Portanto TDateTime é um número de ponto flutuante (um número real).
Variáveis numéricas em Delphi (Pascal)
Basta colocar a funcao NeedRestart na seção [Code] e a mesma
será executada automaticamente?
Sim. Se esta função for criada o InnoSetup a chamará automaticamente. Basta
criá-la e retornar true se quizer reiniciar ou false em caso contrário.
Atenciosamente.
Daniel P. Guimarães
Tecnobyte
Estou em um dilema e gostaria de saber da opinião de todos vocês. O que devo
usar em operações financeiras e fiscais: arredondamento ou truncamento?
Explicando melhor
Antigamente eu usava sempre truncamento em meus sistemas, ou seja, todas as
vezes que o resultado de um cálculo apresentava mais
Recomendo usar arredondamento 4-5, pois vai aproximar bastante do real,
O problema é que as impressoras fiscais mais recentes só trabalham com
truncamento!
Atenciosamente.
Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
Se o servidor for Windows 9x devemos reiniciar o micro
para carregar o servidor firebird. Gostaria de reiniciar somente
se o servidor for Win 9x.
Coloque a função abaixo na seção [Code] do seu script de instalação:
function NeedRestart: boolean;
begin
Result := not UsingWinNT;
end;
Nota:
Algum sabe uma maneira de colocar mscara no dbgrid em modo de execuo.
Tenho um campo que ao mesmo tempo CNPJ e CPF, ao entrar no formulrio,
gostaria que o que CNPJ recebesse a formatao propria para CNPJ e o CPF
a
correspondente.
Grato.
Para mscara de digitao use:
Para CPF:
Qual o melhor componente para Delphi 6 que faça compactação de
arquivos levando em conta que serão 3 arquivos dentro de um zip?
Depois de analisar algumas opções acabei ficando com ZipMaster. É muito bom
e open-source. O único inconveniente é que necessita de duas DLLs que são
fornecidas
Depois de apanhar bastante tempo com o problema dos arredondamentos, acabei
resolvendo o problema com o uso da função abaixo:
function TBRound(Value: Extended; Decimals: integer): Extended;
var
Factor, Fraction: Extended;
begin
Factor := IntPower(10, Decimals);
{ A conversão para string e
Isso é possível? Eu li para ordenar não é possível diretamente no
campo, mas através de outro campo tipo inteiro autonumerado, pode
haver uma certa ordem, mas não do campo varchar, e sim do inteiro,
que vai comandar a ordem dos campos... Estou usando Interbase...
Mas um campo varchar pode
Na verdade tem muito tempo que nao mexo com o TPrinter, era ainda nos
tempos
do Delphi 2. Pode até ser que de lá pra cá eles mudaram isto, mas eu
lembro
que antes era em milimetros porque eu vivia tendo problemas para gerar
relatórios contínuos em formulários de 80 colunas
Eu uso Delphi
Apenas para complementar...
O problema só ocorre se o usuário for ler a mensagem pelo Webmail (do
BRTurbo e alguns outros). Se ele baixar a mensagem pelo Outlook Express o
problema não ocorre.
Atenciosamente.
Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br
- Original
Só para dar um toque O arquivo INI é uma estrutura
de 16 bits, e por consequência não funciona no Windows
2003. Se vc quizer usar arquivos tipo INI, deverá
reimplementar a IniFiles para ler o arquivo como se
fosse um TextFile, ou então utilizar o registro.
Sem querer duvidar de quem
Fiz um componente descendente de TEdit que implementa alguns controles
adicionais a este componente, tais como caption, alinhamento, botão de
reticências, etc.
Agora estou pensando em colocar um controle de mudança de cor automática
para quando a propriedade ReadOnly ou Enabled for alterada.
type
TMeuDBNavigator = class(TDBNavigator);
procedure TForm1.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
'Primeiro', 'Anterior', 'Próximo', 'Último',
'Incluir', 'Excluir', 'Editar', 'Salvar',
'Cancelar', 'Atualizar');
var
Botao: TNavigateBtn;
Olá Caros Amigos,
Como fazer para que uma função dentro de uma Dll escreva textos em um
TMemo
na Minha Aplicação.?
Ou seja, tenho uma dll que escreve em um arquivo texto. ao inves disso
queria que ela escrevesse num memo que é exibido na minha aplicação..
essa
dll captura as
pessoal, quando já estou com os dados em um dbgrid, como posso
reordená-los?
Acredito que o próprio DBGrid seja incapaz de fazer isto, MAS...
Se o DataSet conectado ao DBGrid é um TClientDataSet ou descendente,
então você poderá ordenar os dados na memória, sem executar outro
SELECT, como
Estou montando um instalador para um programa, mas tal programa só vai
funcionar se o protocolo TCP/IP estiver instalado na máquina. Procurando
pelo google descobri que se o protocolo estiver instalado no Win9x e WinME,
vai haver no Registro do Windows a chave abaixo:
Tenho um campo BLOB no Firebird 1.5 que foi salvo por um
editor RichEdit. A duvida é como posso colocar este campo em
um QRRichText ? Nao consegui pegar linha por linha do campo
BLOB no Firebird, so consigo a propriedade TEXT que vem todo
o texto, e assim não consegui colocar no QRRichText,
1- Como eu faço uma dll executavel?
O que você entende por DLL executável?
2- como eu crio pasta, tipo, o ano que um arquivo foi gerado
2004(ano),
e no mes que o arquivo for gerado é a subpasta do ano, 09(mes) e nesta
subpasta os arquivos que forem gerados serão renomeados com a hora
Todo mundo gosta de explicar e dizer as coisas faceis,
quando vem uma pergunta dificil ninguém responde?
Talvez porque ninguém sabe! Mas pode ser também por falta
de clareza na sua pergunta.
Quando vi este seu questionamento, fui imediatamente ver o
que você tinha postado anteriormente e que
1) Populei uma StringList com os mesmos objetos do ComboBox.
Não bastaria usar a propriedade Items do ComboBox, uma vez que esta
propriedade é praticamente idêntica a um TStringList?
Atenciosamente.
Daniel P. Guimarães
Tecnobyte informática
www.tecnobyte.com.br
--
FAVOR REMOVER ESTA PARTE
Esse asm é simples assim ou ele está chamando dunçoes externas ?
asm
{ -FST(0) Extended argument }
{ -EDX:EAX Result }
SUB ESP,12
FNSTCW [ESP].Word // save
FNSTCW [ESP+2].Word// scratch
Existe alguma função no Delphi, ou alguém teria uma
função desenvolvida para isso?
Função Format usando o argumento %e. Exemplo:
ShowMessage(Format('%e', [Valor]));
Atenciosamente.
Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER
Gostaria de limitar o número de linhas e colunas (caracteres por linha) de
um TMemo ou TDBMemo.
Digamos que eu tenha um campo Observações onde podem ser digitados no
máximo 250 caracteres no total. Então quero colocar um TMemo ou TDBMemo para
que o usuário possa digitar o conteúdo deste campo,
39 matches
Mail list logo