:::: MENU ::::

Blog

  • maio 16 / 2007
  • 4
balão, componente, delphi, design, free, freeware, hint, livre

Hint em forma de Balão.

 
Difficulty level not set for this Post

Olá pessoal,

Pra quem estava afim de um componente freeware e com fontes que funcionasse como hint em forma de balões, eis a solução. Uma amiga minha, Michelli, encontrou o componente em um fórum e me passou. Fiz algumas alterações e estou disponibilizando pra todos.

Não consegui falar com o autor, mas tem os créditos do componente ai e eu deixei no fonte as informações de manutenção. Quem descobrir bugs ou implementar algo favor mandar de volta pra colocar de novo no ar ok?

Abs

Link para downalod:
Componente HintDesign

Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

  • maio 15 / 2007
  • 1
debug, delphi, delphi2007, Desenvolvimento, gráfico, novidades, tchart, teechart, [Arquivo]

Novidades Delphi 2007 V

 
Difficulty level not set for this Post

Olá pessoal,

Minha última vídeo-aula sobre as novidades do Delphi 2007 foi disponibilizada no portal da Devmedia. Na aula é mostrada a suíte TeeChart desenvolvida pra criação de gráficos no Delphi.

O link direto é:
Novidades do Delphi 2007 V

Veja também
Novidades do Delphi 2007 IV
Novidades do Delphi 2007 parte III
Novidades do Delphi 2007 parte II
Novidades do Delphi 2007 parte I
Instalação do Delphi 2007 Trial


Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

  • maio 13 / 2007
  • 8
delphi, delphi2007, estações, ip, listagem, rede

Listando máquinas da rede

 
Difficulty level not set for this Post

Tweet

A pedido de alguns colegas decidi colocar no ar um pequeno programinha que desenvolvi pra listar as estações de trabalho da rede. O programa traz o nome e o IP da estação em um componente TListView. Veja abaixo:


Vamos ao exemplo:

1. Crie uma tela como no exemplo acima. Inclua um TListView e configure como abaixo:
a. Na propriedade ViewStyle coloque como fsReport.
b. Clique duas vezes no TListView e adicione duas colunas. Uma com o nome Estações e outra como IP.
c. Aumente senecessário as colunas pra melhorar a visualização.
2. Inclua um botão na tela e digite o código abaixo:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
I: shortint;
Nome: string;
IP: string;
begin
try
ListaUsuarios.Clear;
lstEstacoes.Items.Clear;
pnlAguarde.Visible := True;
aniLocalizaEstadoes.Active := True;
Screen.Cursor := crHourGlass;

Plataforma := VersaoWindows;
ListaAmbienteRede;

lstEstacoes.Items.Clear;
for I := 0 to ListaUsuarios.Count - 1 do
begin
Nome := ListaUsuarios[I];
try
IP := GetIP(ListaUsuarios[I]);
except
IP := ' ';
end;

IncluiEstacao(Nome, IP);
Update;
end;
finally
pnlAguarde.Visible := False;
aniLocalizaEstadoes.Active := False;
Screen.Cursor := crDefault;
end;
end;

3. O código do botão Listar Estações faz chama a ouras funções. Por isso inclua também as funções abaixo:

procedure TForm1.IncluiEstacao(AEstacao, AIP: string);
var
Item: TListItem;
begin
with lstEstacoes do
begin
Item := Items.Add;
Item.Caption := AEstacao;
Item.SubItems.Add(AIP);
end;
end;

procedure TForm1.ListaAmbienteRede;
procedure Enumera(Res: PnetResource);
var
Hnd: THandle;
NumeroEntradas: DWord;
Buffer: array[1..255] of TNetResource;
LongBuffer: DWord;
N: Integer;
S: string;
begin
LongBuffer := SizeOf(Buffer);
if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, Res, Hnd) = No_ERROR then
begin
NumeroEntradas := 255;
WNetEnumResource(Hnd, NumeroEntradas, @Buffer[1], LongBuffer);
for N := 1 to NumeroEntradas do
begin
S := string(Buffer[N].lpRemoteName);
if Plataforma = 'xp' then
if (Buffer[1].dwType = 0) and (Copy(S, 1, 2) = '\\') then
ListaUsuarios.Add(Copy(S, 3, Length(S) - 2));
if Plataforma = '9x' then
if (Buffer[1].dwType = 3) and (Copy(S, 1, 2) = '\\') then
ListaUsuarios.Add(Copy(S, 3, Length(S) - 2));
if (Buffer[N].dwUsage and RESOURCEUSAGE_CONTAINER) = RESOURCEUSAGE_CONTAINER then
Enumera(@Buffer[N]);
Update;
end;
end;
end;
begin
Enumera(nil);
end;

function TForm1.GetIP(AEstacao: string): string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
WSAStartup(2, WSAData);
HostEnt := GetHostByName(PChar(AEstacao));
with HostEnt^ do
Result :=
Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
WSACleanup;
end;

function TForm1.VersaoWindows: string;
var
PlatformId, CSDVersion: string;
begin
CSDVersion := '';
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
begin
if Win32MajorVersion = 4 then
case Win32MinorVersion of
0: PlatformId := '9x';
10: PlatformId := '9x';
90: PlatformId := 'ME';
end
else
PlatformId := '9x';
Result := '9x';
end;

VER_PLATFORM_WIN32_NT:
begin
if Length(Win32CSDVersion) > 0 then
CSDVersion := Win32CSDVersion;
if Win32MajorVersion <= 4 then
PlatformId := 'NT'
else if Win32MajorVersion = 5 then
case Win32MinorVersion of
0: PlatformId := '2000';
1: PlatformId := 'XP';
2: PlatformId := '2003';
else
PlatformId := '?';
end
else
PlatformId := '?';
Result := 'xp';
end;
end;
end;


Aqui estão listadas todas as funções e procedimentos necessários. Na seção Downloads você pode efetuar o download do código fonte de exemplo.

Até mais.

Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

  • maio 11 / 2007
  • 3
delphi, delphi2007, diálogos, dicas, novidades, vista, [Arquivo]

Novidades Delphi 2007 IV

 
Difficulty level not set for this Post

Olá pessoal,

Mais uma vídeo-aula foi disponibilizada no sita da Devmedia. A aula mostra a compatibilidade dos novos componentes desenvolvidos para Windows Vista. Veja também um teste efeutado com uma aplicação gerada por Delphi 2007 rodando em Windows 98.

O link direto é:
Novidades do Delphi 2007 IV

Veja também
Novidades do Delphi 2007 parte III
Novidades do Delphi 2007 parte II
Novidades do Delphi 2007 parte I
Instalação do Delphi 2007 Trial

Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.

Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.

Siga também o autor @asrsantos

Google+
[Fale Conosco] Contato