Active News - Nº 32  - www.activedelphi.com.br 

         Antes de começarmos, gostaríamos de agradecer a todos que deram sua opinião e de alguma forma contribuíram para mais essa edição do ActiveNews.

         Um forte abraço da Equipe ActiveDelphi !

         Tenha uma ótima semana.          

          Notícia da Edição: Novell aposta em tecnologia móvel

         " O produto de storage da companhia, o iFolder, baseado na Internet, agora suporta também o Windows CE e dispositivos Palm "

          A Novell mostra que está se voltando para a tecnologia móvel, conforme os anúncios que fará na CeBit 2002, evento que acontece dia 20 em Hannover, na Alemanha. A companhia disse que seu produto de storage iFolder, baseado na Internet, agora suporta também o Windows CE e dispositivos Palm, e que vai lançar um produto de gerenciamento PDA.

          O iFolder foi o primeiro a ser introduzido na versão 6 do NetWare, a mais recente versão do sistema operacional de network da Novell. Com o novo iFolder, diz Jeff Hawkins, vice-presidente de serviços de storage da Novell, os usuários podem sincronizar o produto com seus PDA (personal digital assistant). O executivo diz que isso faz com que eles tenham outras opções para restauração de dados quando um PDA for roubado, por exemplo. 

          A solução também propicia, segundo Hawkins, aos gerenciadores de TI, alocarem o servidor em boxes de Linux ou Solaris, ao invés do NetWare ou Windows 2000, se eles preferirem. 

fonte: ITWeb       

          Essa é uma excelente dica pra quem trabalha ou vai trabalhar com impressão de códigos de barras.

          Esse componente possibilita fazer a impressão de códigos de barras via QReport e Canvas, junto ao componente segue documentação e projetos de exemplo.

          Clique aqui para fazer o download.

-

          sql.add('SELECT EXTRACT(MONTH FROM Data) as mes from sql');

          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.

  procedure TDBPicGrid.DrawDataCell(const Rect: TRect; Field: TField;   State: TGridDrawState);
  var
    bmp : TBitmap;
  begin
    with Canvas do
    begin
      FillRect(Rect);
      if Field is TGraphicField then
      try
        bmp := TBitmap.Create;
        bmp.Assign(Field);
        Draw(Rect.Left, Rect.Top, bmp);
      finally
      bmp.Free;
    end
    else
      TextOut(Rect.Left, Rect.Top, Field.Text);
    end;
  end;

          Várias Apostilas:  www.activedelphi.com.br/apostilas.htm

  { Para inverter: }
  SwapMouseButton(true);

  { Para voltar ao normal: }
  SwapMouseButton(false); 

            Visite nosso Fórum de discussões sobre Delphi, é gratuito e não precisa se cadastrar. Clique Aqui

  Uses Registry; 
  function TForm1.Getcomputer : string; 
  var 
    registro : tregistry; 
  begin 
    registro:=tregistry.create; 
    registro.RootKey:=HKEY_LOCAL_MACHINE; 
    registro.openkey('System\CurrentControlSet\Services\VXD\VNETSUP',false); 
    result:=registro.readstring('ComputerName'); 
  end; 

Não deixe de conferir as dicas disponíveis em nosso site. Clique Aqui  

  SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) AND NOT WS_CAPTION);
  ClientHeight:=Height;

          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.

  Inclua na seção uses: dbTables, Classes, Forms

  procedure tbGetFieldNames(const DBName, TblName: string;  List: TStringList);
  var
    I: integer;
  begin
    List.Clear;
    with TTable.Create(Application) do
    try
      DatabaseName := DBName;
      TableName := TblName;
      with FieldDefs do begin
        Update;
        for I := 0 to Count -1 do
        List.Add(Items[I].Name);
      end;
    finally
      Free;
    end;
  end;
  === Exemplo de uso ===

  - Coloque um TMemo e um TButton no Form;
  - Coloque o código abaixo no evento OnClick do Button:

  procedure TForm1.Button1Click(Sender: TObject);
 var
  List: TStringList;
  begin
    List := TStringList.Create;
    try
      tbGetFieldNames(Edit1.Text, Edit2.Text, List);
      Memo1.Lines.Assign(List);
    finally
      List.Free;
    end;
  end;

          Pensamento:

          “Não queira saber se falaram mal de você e nem se atormente com esse lixo mental. Escute o que falaram bem, com reserva analítica, sem qualquer convencimento.” 

-

          Você ainda não deu sua opinião !

          O que você achou do nosso novo ActiveNews? 

          Ajude-nos a melhorar nossos serviços !

          Até a próxima semana !

          EQUIPE  ACTIVEDELPHI

          www.activedelphi.com.br

          info@activedelphi.com.br