Otacílio Ricardo
-
Total de itens
5 -
Registro em
-
Última visita
Posts postados por Otacílio Ricardo
-
-
Olá pessoal.
Alguém sabe como posso Simular ou Forçar o uso da tecla TAB ou ENTER dentro do
componente TWebBrowser / TEmbeddedWB.
Desde já obrigado pela ajuda.
Entre neste site http://beensoft.blogspot.com/2007/10/fooli...bbrowser-4.html.
Espero ter ajudado.
-
Caro não desista tão fácil...
Como um bom escovador de bit que sou... Só desisto depois de morto...
Bom, como não tenho Delphi 2009 aqui alguém pode me enviar um link?
Estou tendo alguns problemas na instalação no Delphi 2010. Mas tentei somente uma vez.
-
O RxDBLookupCombo permite lista mais de um campo e quando o usuário digita um valor ele busca na lista este valor. Em alguns casos isso não esta funcionando. Por exemplo: Tenho uma tabela chamada “FUNCIONÁRIO” (select funcionario.id_fun,
funcionario.nome, cidade.cidade, estado.estado from funcionario, cidade, estado
where funcionario.id_cid=cidade.id_cid and funcionario.id_est=estado.id_est), funciona
normalmente, porem quando uso em uma outra tabela não funciona. Somente em uma
tabela não esta funcionado. Já delete a tabela e criei novamente, apague todos
os índices e crie novamente.
Tabela que onde esta ocorrendo o problema.
REATE TABLE ESTOQUEITEM (
ID_EST INTEGER NOT NULL,
ID_PRO INTEGER,
ID_TAM INTEGER,
ID_GRU INTEGER,
ID_COR INTEGER,
QTD INTEGER,
QTDTOTE INTEGER,
QTDTOTR INTEGER,
DT_CAD TIMESTAMP);
Se alguém tiver alguma sugestão.
Obrigado.
Otacílio Ricardo
-
Estou usando o Indy que já vem instalado no Delphi, mas não estou conseguindo conectar. Alguém pode me ajudar?
try
Label7.Caption:='Conectando.';
Label7.Update;
if IdPOP31.Connected then
begin
IdPOP31.Disconnect;
end;
IdPOP31.Host := 'pop.gmail.com';
IdPOP31.Port := 995;
IdPOP31.Username := 'teste@gmail.com';
IdPOP31.Password := 'Senha';
IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv2;
IdSSLIOHandlerSocket1.SSLOptions.Mode:=sslmClient;
IdPOP31.Connect(0);
Label7.Caption:='Conectado.';
Label7.Update;
except
On E:Exception do
Begin
Label8.:='Erro : '+E.Message;
Label7.Caption:='Problema ao conectar.';
Label7.Update;
End;
Erro: Erro : Could not load SSL library.
Baixei o arquivo openssl-0.9.8e-i386-win32 do site indyproject e também baixei a versão indy_openssl096.zip, copiei as dll para o diretório system32 e dechei uma copia na pasta do projeto, mas infelizmente não funcionou.
Estou usando o Indy que já vem instalado no Delphi, mas não estou conseguindo conectar. Alguém pode me ajudar?
try
Label7.Caption:='Conectando.';
Label7.Update;
if IdPOP31.Connected then
begin
IdPOP31.Disconnect;
end;
IdPOP31.Host := 'pop.gmail.com';
IdPOP31.Port := 995;
IdPOP31.Username := 'teste@gmail.com';
IdPOP31.Password := 'Senha';
IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv2;
IdSSLIOHandlerSocket1.SSLOptions.Mode:=sslmClient;
IdPOP31.Connect(0);
Label7.Caption:='Conectado.';
Label7.Update;
except
On E:Exception do
Begin
Label8.:='Erro : '+E.Message;
Label7.Caption:='Problema ao conectar.';
Label7.Update;
End;
Erro: Erro : Could not load SSL library.
Baixei o arquivo openssl-0.9.8e-i386-win32 do site indyproject e também baixei a versão indy_openssl096.zip, copiei as dll para o diretório system32 e dechei uma copia na pasta do projeto, mas infelizmente não funcionou.
(Resolvido) Como criar um objeto em tempo de execução?
em Delphi, Kylix
Postado
Segue o código.
procedure TForm1.Button1Click(Sender: TObject);
Var
checkbox:TCheckBox;
begin
checkbox:=TCheckBox.Create(Self);
checkbox.Parent:=ListBox2;
checkbox.Name:='Checkbox1';
end;