|
Terça-feira, 16 de abril de 2002
Notícia da Edição: Microsoft
desenvolve novo padrão para redes sem fio
A Microsoft está desenvolvendo uma nova versão para o padrão para redes sem fio Wi-Fi. A implementação “Soft Wi-Fi” tiraria parte das tarefas de processamento das placas wireless, transferindo-as para o processador do computador, do mesmo modo que os winmodems transferem suas tarefas para o resto do processador. Assim como os softmodems, mais baratos que os hardmodems, o Soft Wi-Fi permitiria a produção de periféricos a custos menores.
Ele será apresentado na conferência Windows Hardware Engineering Conference, que será realizada no final desta semana. Se a implementação for adotada pela indústria de hardware, iria beneficiar os consumidores que usam sistemas operacionais baseados em Windows mas desagradaria desenvolvedores de outros sistemas operacionais. Assim como a maioria dos winmodems, as placas Soft Wi-Fi funcionariam apenas sob o Windows.
fonte
: JB Online
|
|
|
1- Dica enviada por
Marcio Matos - SC.
|
|
Convertendo decimal para hexadecimal, e vice-versa, em apenas uma linha.
Salve, salve colegas programadores.
Desde que aprendi a lidar com o Delphi (1997, com Delphi2), quis fazer varias funcoes matematicas, entre elas, converter numeros decimais para hexadecimais e vice-versa. Logo conheci a função IntToHex, que converte de inteiro para hexadecimal, então criei meu proprio algoritimo, elevando na 16, somando aqui, multiplicando ali, para converter de hexadecimal para inteiro e, finalmente consegui, e depois de pronta acabei deixando de lado esta rotina. Outro dia em pesquisa pelo help, sem muito o que fazer, acabei lendo a definição, da tão conhecida função, StrToInt, veja:
"Converts a string that represents an integer (decimal or hex notation) to a number."
O QUÊ? decimal or hex notation. Quer dizer que pode converter string em decimal ou hexadecimal? Pois para minha surpresa, era isso mesmo, mas como ele irá reconhecer um do outro quando tiver apenas numeros?
Resposta: Colocando o simbolo $ antes do numero, será uma representação hexadecimal, sem o simbolo, será uma representação decimal.
Bem, vamos ao que interessa:
Converter inteiro para hexadecimal:
Label1.Caption := IntToHex(StrToInt(Edit1.Text),8);
Converter hexadecimal para inteiro:
Label1.Caption:=IntToStr(StrToInt('$'+Edit1.Text));
[]´s
Marcio Matos - SC
Valeu...
______________________
Marcio,
Agradecemos muito sua colaboração, e esperamos que você sempre possa
estar nos prestigiando.
Saudações,
Equipe ActiveDelphi
|
|
|
|
|
- |
|
2- Dica de site pra quem se interessa por CORBA. |
|
http://www.corba.org.br/corba.htm
(em Português)
|
|
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.
|
|
| - |
|
3- Sabendo o código da tecla pressionada. |
|
Para você saber o código de qualquer tecla faça o seguinte:
1º Crie uma nova aplicação.
2º no formulário principal coloque um componente Label da paleta Standard.
3º sete a propriedade KeyPreview como true.
4º no evento OnKeyDown do formulário principal, coloque a seguinte instrução:
begin
Label1.Caption := Format('O código da tecla pressionada é: %d', [Key]);
end;
5º Depois é só rodar e para saber o código da tecla basta apertar que o label vai lhe dizer.
6º somente as teclas F1 e Tab, não irão funcionar, aí para saber delas vc deve utilizar as variáveis VK_TAB e outras.
|
|
Várias Apostilas:
www.activedelphi.com.br/apostilas.htm
|
| - |
|
4- Bloqueando uma tabela Paradox. |
|
procedure LockPDOXTable(TableName,Password : String);
// Requer a DBIProcs na clausula uses da unit
var
TblDesc: CRTblDesc;
LocDB : TDatabase;
begin
Check(DBIInit(nil));
Randomize;
LocDB := TDatabase.Create(nil);
with LocDB do
begin
Params.Add('path=' + ExtractFilePath(TableName));
DatabaseName := 'PDOXEncryptDB' + IntToStr(Random(50));
DriverName := 'STANDARD';
Connected := True;
end;
FillChar(TblDesc, SizeOf(CRTblDesc), 0);
StrPCopy(TblDesc.szTblName, ExtractFileName(TableName));
with TblDesc do
begin
bProtected := True;
StrPCopy(TblDesc.szPassword, Password);
end;
try
Check(DbiDoRestructure(LocDB.Handle, 1, @TblDesc,nil, nil, nil, False));
finally
LocDB.Free;
DBIExit;
end;
end;
|
|
Visite nosso Fórum de discussões sobre Delphi, é gratuito e não
precisa se cadastrar. Clique
Aqui
|
| - |
|
5- Criando um form transparente. |
|
Basta adicionar a linha abaixo no Evento OnShow do form
desejado.
Brush.Style := BsClear;
|
|
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- Extraindo o tamanho de um arquivo. |
|
function TamArquivo(Arquivo: string): Integer;
begin
with TFileStream.Create(Arquivo,fmOpenRead or fmShareExclusive) do
try
Result:=Size;
finally
Free;
end;
end;
Utilize a função assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage ( inttostr(TamArquivo('CAMINHO\NOMEDOARQUIVO')));
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- Imprimindo em modo texto. |
|
procedure TForm1.Button1Click(Sender: TObject);
var Imp: TextFile;
begin
AssignFile(Imp,'LPT1');
Rewrite(Imp);
Write(Imp,'Isto vair sair na impressora');
CloseFile(Imp);
end;
Desta forma será possível, inclusive, utilizar os códigos de configuração da impressora. Para a impressora padrão Epson, por exemplo, você poderia utilizar algo assim:
Write(Imp,#27#69+'Teste'+#27#70); {impressão em negrito}
Write(Imp,#15+'Teste'+#18); {impressão no modo condensado}
Write(Imp,#12); {salto de página}
|
| - |
|
Pensamento:
“
Erros são o combustível para o desenvolvimento da sua carreira. Aprenda como dar a volta por cima. Assim, você nunca incorrerá no mesmo erro duas vezes. Faça isso e a sua carreira irá progredir muito mais do que a de seus companheiros conservadores.
"(Melvin Muse)
|
|
|
-
Repasse este News para seus amigo(as)...
Até a próxima semana !
EQUIPE ACTIVEDELPHI
www.activedelphi.com.br
info@activedelphi.com.br
|