Delphi Profiler

Recentemente tive problemas para detectar gargalos de velocidade em um projeto específico que estou desenvolvendo, após alguma pesquisa descobri que existem ferramentas que podem verificar quais trechos de código de um projeto em Delphi estão tomando a maior parte do tempo de processamento da CPU. Encontrei no blog DelphiTools uma ótima solução, o SamplingProfiler que é gratuito.
Após alguns testes iniciais além de levantar estatísticas sobre quais trechos de código estavam tomando a maior parte do tempo, o mesmo informou qual linha do código era a responsável pela lentidão.

C++ Builder Developer's Journal

Para aqueles que tem interesse em uma publicação mensal de qualidade sobre C++ Builder, existe uma revista americana dedicada a ferramenta de desenvolvimento da Embarcadero, a C++ Builder Developer's Journal.

O forte deste periódico está no desenvolvimento de GUI (graphical user interface) e também algoritmos gráficos específicos. Vale a pena visitar e até mesmo assinar a revista que possui formato eletrônico, a assinatura básica custa US$ 49,00 e vale por um ano.

O Retorno

Olá amigos, já faz tempo hein! Nestes últimos 2 anos estive cursando MBA em Gestão Estratégica de TI e não tive mais tempo para atualizar o blog. Porém agora terei mais tempo livre e postarei muitas novidades no blog.

Torneio de Delphi Blaise Pascal Magazine

Saudações amigos, é com grande prazer e satisfação que lhes informo que fui um dos vencedores do torneio promovido pelo revista Blaise Pascal Magazine. Meu artigo sobre Porta Paralela ficou em Terceiro Lugar!

Como brasileiro e delphiano é uma honra ter alcançado esta colocação!

Para saber mais detalhes do Torneio confira o site da revista.

Artigo Wave API na ActiveDelphi 70

Saudações à todos, já faz algum tempo que não atualizo o blog com novidades, estava viajando e agora que retornei colocarei tudo em ordem. A primeira é que foi publicado na ActiveDelphi deste mês de Dezembro, um artigo meu sobre reprodução de arquivos wave usando a Wave API do Windows.

Artigo sobre Visual Styles na ActiveDelphi 69

Foi publicado este mês na ActiveDelphi meu artigo sobre Visual Styles, este proporciona técnicas de desenho de componentes de acordo com o a versão do sistema operacional utilizada.

http://www.activedelphi.com.br/

Como utilizar uma Webcam utilizando Delphi

Exemplo simples de utilização de Webcam no Delphi.

/ / Primeiro, declare as seguintes constantes 
const 

WM_CAP_DRIVER_CONNECT = WM_USER + 10;
WM_CAP_EDIT_COPY = WM_USER + 30;
WM_CAP_SET_PREVIEW = WM_USER + 50;
WM_CAP_SET_OVERLAY = WM_USER + 51; 
WM_CAP_SET_PREVIEWRATE = WM_USER + 52; 
implementation
{$R *. dfm }

/ / e declare a seguinte função 

function capCreateCaptureWindow(lpszWindowName: LPCSTR; function capCreateCaptureWindow (lpszWindowName: LPCSTR; 
dwStyle: DWORD;
x, y,
nWidth,
nHeight: integer;
hwndParent: HWND;
nID: integer): HWND; stdcall ;
external ' AVICAP32. DLL ' name ' capCreateCaptureWindowA '; 
procedure TForm1.Connect; 
var 
handle: THandle;
begin
  handle: = capCreateCaptureWindow ( 'Video', WS_CHILD + WS_VISIBLE, 0,
  0, 320, 240, Panel1. Handle , 1);  / / como você pode perceber, você precisará de um panel no seu form ;-) 

  SendMessage( handle , WM_CAP_DRIVER_CONNECT, 0, 0); 
  SendMessage( handle , WM_CAP_SET_PREVIEWRATE, 30, 0); 
  SendMessage( handle , WM_CAP_SET_OVERLAY, 1, 0); 
  SendMessage( handle , WM_CAP_SET_PREVIEW, 1, 0); 
end ;