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

          Notícia da Edição: Hackers invadem site da Fapesp

          Hackers de um movimento chamado "Crime Boys" modificaram hoje os endereços da Fapesp, entidade responsável pelo registro de domínios no País, e a URL nacional da ICANN, organização mundial responsável por estabelecer regras do uso da Internet. Os hackers deixaram nos sites a mesma mensagem, anunciando a volta do grupo e criticando em inglês e português a guerra. Além disso, ironizaram o fato, afirmando que as entidades invadidas criaram o domínio “owned.by.crimeboys.br” (algo como dominado.pelos.crimeboys.br). A assessoria de imprensa da Fapesp confirmou a invasão e afirma que foi apenas uma “pichação virtual”, sem roubo de dados de empresas ou senhas, já que o servidor alvo do ataque só possui informações públicas. A página foi retirada por volta de 0h30 e já retornou ao normal. O endereço da ICANN, apesar de estar registrado em nome do Comitê Gestor da Internet, não se trata da página da entidade (na verdade www.cg.org.br), mas sim do site brasileiro da organização mundial responsável por estabelecer regras do uso da Web. “

fonte: IDG       

  function CreateControl(AClass: TControlClass; AParent: TWinControl; ATop,ALeft,AWidth, AHeight: Integer): TControl;
  begin
    Result := AClass.Create(nil);
    Result.Parent := AParent;
    Result.BoundsRect := Rect(ALeft, ATop, ALeft + AWidth, ATop + AHeight);
  end;
  

   Exemplos de uso:
  // criando um  novo Edit:
  CreateControl(TEdit, Self, 20, 10, 100, 20);

  // criando um novo Button:
  CreateControl(TButton, Self, 20, 50, 100, 20);

-

  function ChecaEstado(Dado : string) : boolean;
  const
    Estados = "SPMGRJRSSCPRESDFMTMSGOTOBASEALPBPEMARNCEPIPAAMAPFNACRRRO";
  var
    Posicao : integer;
  begin
    Result := true;
    if Dado <> '' then
    begin
      Posicao := Pos(UpperCase(Dado),Estados);
      if (Posicao = 0) or ((Posicao mod 2) = 0) then
        Result := false;

     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.

  // Adicione as UNITS  BDE , DBIErrs, Dbtables,  DBITypes e DB e no seu Form.
  function NetUser: string;
  var
    szNetName: array[0..48] of char;
    iResult: DBIResult;
  begin
    iResult := DBIGetNetUserName(szNetName);
    if iResult <> DBIErr_None then
      DBIError(iResult)
    else
      Result := StrPas(szNetName);
  end;

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

  // Declare QRExtra na cláusula USES.
  procedure TForm1.btnSalvar(Sender: TObject);
  var
    AExportFilter : TQRAsciiExportFilter; 
  begin
    AExportFilter := TQRAsciiExportFilter.Create("c:\Report.txt"); 
    try
      FormReport.QuickRep1.ExportToFilter(AExportFilter); 
    finally 
      AExportFilter.Free; 
    end;

  end;

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

  Declare a Unit filectrl  

  function ListaDrives: TStringList;
  var Lista: TStringList;
    DriveNum: Integer;
    LetraDrive: Char;
    DriveBits: set of 0..25;
    TipoDrive: TDriveType;
  begin
    Lista:=TStringList.Create;
    Integer(DriveBits):=GetLogicalDrives;
    For DriveNum:=0 to 25 do 

    begin
      if not (DriveNum in DriveBits) then
        Continue;
      LetraDrive:=UpCase(Char(DriveNum+ord('a')));
      TipoDrive := TDriveType (GetDriveType (PChar (LetraDrive + ':\')));
      Case TipoDrive of
        dtFloppy: Lista.Add('Drive '+LetraDrive+': - Disco flexível');
        dtFixed: Lista.Add('Drive '+LetraDrive+': - Disco rígido');
        dtCDROM: Lista.Add('Drive '+LetraDrive+': - CD-ROM');
        dtRAM: Lista.Add('Drive '+LetraDrive+': - RAM Disk');
        dtNetwork: Lista.Add('Drive '+LetraDrive+': - Drive de rede');
      end;
    end;
    Result:=Lista;
  end;

  Exemplo:

  Coloque um botão e um memo em seu form e no evento onclick do botão adicione a linha abaixo.

  memo1.Lines := ListaDrives;

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

     No evento OnChange de um TEdit  escreva o seguinte código:

  var 
    OldStart : Integer; 

  begin 
    With Edit1 do 
    if Text <> '' then
    begin 
      OnChange := NIL; 
      OldStart := SelStart; 
      Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text))); 
      SelStart := OldStart; 
      OnChange := Edit1Change; 
    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.

     À Equipe Activedelphi

     Quero parabenizá-los pela manutenção da iniciativa e dizer que é com prazer e atenção que recebo suas notícias e   informações.
     Fica evidente ao ler o boletim, a garra e a vontade de acertar da equipe.
     Um grande abraço e obrigado pela oportunidade.

     Elmo Modeneis
     São Paulo-SP.

     ______________________

     É com muito carinho que o ActiveDelphi, agradece a todos que nos enviaram suas opniões.

     Esperamos sempre manter contato, para melhorarmos cada vez mais nossos serviços.

     Saudações, 

     Equipe ActiveDelphi 

          Pensamento:

          “ É preciso reviver o sonho e a certeza de que tudo vai mudar. É necessário abrir os olhos e perceber que as coisas boas estão dentro de nós, onde os sentimentos não precisam de motivos nem os desejos de razão. O importante é aproveitar o momento e aprender sua duração, pois a vida está nos olhos de quem sabe ver.”  

            Os brotos da esperança crescem alimentados pelo sonho !

-

          Até a próxima semana !

          EQUIPE  ACTIVEDELPHI

          www.activedelphi.com.br

          info@activedelphi.com.br