|
Terça-feira, 21
de maio de 2002
Notícia da Edição : SP fará certificação digital de documentos
A partir de agora, a Imprensa Oficial de São Paulo se transforma no primeiro órgão estadual brasileiro a se tornar uma certificadora digital de documentos, sob o nome Autoridade Certificadora Imprensa Oficial. E este é apenas um dos quatro novos serviços que a instituição
apresentou dia 14 em um evento na capital do Estado.
A partir do dia
15/05, quem acessar o site do Diário Oficial/SP poderá tirar cópias certificadas de documentos publicados no jornal. O serviço, batizado como e-diariooficial, dará acesso a mais de três milhões de páginas publicadas desde 1992. Também
dai 15, entra no ar o e-justitia, serviço de busca e clipping por palavra-chave de informações publicadas no Diário Oficial do Estado.
Já o quarto serviço, PUBnet, entra no ar dia
20/05. O sistema via web foi desenvolvido para que os dados gerados diariamente pelos quatro mil pontos de coleta nos municípios (órgãos dos poderes Executivo, Legislativo e Judiciário) sejam publicados de forma mais rápida e segura no Diário Oficial.
fonte
: Info
|
|
|
Não deixe de enviar sua dica de Programação Delphi para nós a publicarmos no ActiveNews, a equipe do ActiveDelphi e todos os assinantes ficarão agradecidos com a sua contribuição.
|
|
| |
|
1- Capturando teclas genéricamente. |
|
Nesta dica utilizamos o evento InIdle do
componente TApplicationEvents
procedure TForm1.ApplicationEvents1IDle (Sender: TObject; var Done :
Boolean);
begin
if (GetASyncKeyState (Vk_Control) <> 0) and (GetASyncKeyState
(Vk_F3) <> 0) then
Showmessage ('Tecla CRTL+F3');
if (GetASyncKeyState (Vk_Menu) <> 0) and (GetASyncKeyState (
Ord('A')) <> 0) then
Showmessage ('Tecla ALT+A');
Done;
end;
|
|
|
|
- |
|
2- Abrindo um TComboBox na direção desejada. |
|
SendMessage(ComboBox1.Handle,CB_SHOWDROPDOWN,1,0);
|
|
Suporte em Delphi. cadastre-se
já
Este serviço tem por
finalidade oferecer aos associados um suporte técnico na linguagem de
programação Delphi, nas versões Standard, Professional
e Client/Server.
Atualmente, contamos com uma equipe de profissionais qualificados e
prontos pra lhe atender e ajudá-lo da melhor forma possível.
Nosso atendimento é feito através de e-mail e formulário web, de
segunda à sexta das 08:00h às 18:00h.
|
|
| - |
|
3- Verificando se Local Share do BDE está TRUE. |
|
Adicione no uses: Registry, SysUtils, Windows
function BDELocalShare: boolean;
const
BdeKey = 'SOFTWAREBorlandDatabase EngineSettingsSYSTEMINIT';
Ident = 'LOCAL SHARE';
var
Reg: TRegistry;
begin
Result := false;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(BdeKey, False) then
if Reg.ValueExists(Ident) then
Result := UpperCase(Reg.ReadString(Ident)) = 'TRUE';
finally
Reg.Free;
end;
end;
|
|
|
| - |
|
4-
Carregando os registros de um determinado campo
em um ListBox. |
|
-> dbSource Nome do Alias da tabela
-> tblSource Nome da Tabela
-> fldName Nome do campo que se deseja carregar os registros
-> LBox ListBox que serão carregados os campos. (Sintaxe:
ListBox1.Items)
procedure DBLoadListTbl(dbSource,tblSource,fldName: String; const LBox:
TStrings);
var
SourceTbl : TTable;
begin
SourceTbl := TTable.Create(Application);
with SourceTbl do
begin
Active := False;
DatabaseName := dbSource;
TableName := tblSource;
try
Open;
First;
while NOT EOF do
begin
LBox.Add(SourceTbl.FieldByName(fldName).AsString);
Next;
end;
finally
Free;
end;
end;
end;
|
|
Visite nosso Fórum de discussões sobre Delphi, é gratuito e não
precisa se cadastrar. Clique
Aqui |
|
| - |
|
5- QR armazenado num Blop. (dica enviada por Robson rsouza2002@bol.com.br
) |
|
Os campos do Tipo TBlobField, tem métodos que permitem que sejam armazenados dados contidos em arquivos, ou em um
Stream... No primeiro caso (dos arquivos), o código seria algo como:
TBlobField(SuaTabela.FieldByName('SeuCampo')).LoadFromFile('NomedoArquivo');
No segundo caso, poderia ser feito um exemplo com o TRichEdit:
var
Stream : TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(Stream);
Stream.Seek(0,soFromBeginning);
TBlobField(SuaTabela.FieldByName('SeuCampo')).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
|
|
Não deixe de enviar sua dica de Programação Delphi para nós a
publicarmos no ActiveNews, a equipe do ActiveDelphi e todos os
assinantes ficarão agradecidos com a sua contribuição.
|
|
| - |
|
6- Transformando uma string em um valor. |
|
Deleta o cifrão se existir e transforma a string em um valor formatando
com quantas casas decimais passar como parâmetro.
function STRFloat (S : String ; decimais: Integer): Double;
var valor : Extended;
begin
Result := 0.00;
if not ( trim (S) = '') then
begin
if Pos('R',S) > 0 then
delete(S,pos('R',S),1);
if Pos('$',S) > 0 then
delete(S,pos('$',S),1);
if Pos('.',S) > 0 then
delete(S,pos('.',S),1);
valor := StrToFloat(S);
result := strtofloat(floattostrf (valor,fffixed,8,decimais));
end;
end.
|
|
Suporte em Delphi. cadastre-se
já
Este serviço tem por
finalidade oferecer aos associados um suporte técnico na linguagem de
programação Delphi, nas versões 1, 2, 3, 4 e 5 Standard, Professional
e Client/Server.
Atualmente, contamos com uma equipe de profissionais qualificados e
prontos pra lhe atender e ajudá-lo da melhor forma possível.
Nosso atendimento é feito através de e-mail e formulário web, de
segunda à sexta das 08:00h às 18:00h.
|
|
| - |
|
7- Ancorando seu form. |
|
private
{ Private declarations }
procedure WMWindowPosChanging ( var Msg : TWMWindowPosChanging);
message WM_WINDOWPOSCHANGING;
procedure TForm1.WMWindowPosChanging (var Msg : TWMWindowPosChanging);
begin
if not checkbox1.checked then
with msg.windowpos^ do
begin
x := left ;
y := top ;
msg.result := 0;
end;
end;
|
| - |
|
Pensamento:
"Quem só anda por caminhos em que já existem pegadas de outros, jamais fará
descobertas." Eddy Ketchursid
|
|
|
-
Repasse este News para seus amigos(as)...
Até a próxima semana !
EQUIPE ACTIVEDELPHI
www.activedelphi.com.br
info@activedelphi.com.br
|