blogdoAudrey

ZeosLib 7 para Delphi 2010

2010-04-26T17:09:00.000-07:00

1 - Faça o download do arquivo (link para download)

2 - Crie uma pasta chamada Zeos7 dentro da pasta Lib do RAD Studio. Por exemplo, meu RAD Studio esta em C:\Program Files\CodeGear\RAD Studio\6.0\lib, então meu diretório base será: C:\Program Files\CodeGear\RAD Studio\7.0\lib\zeos7

3 - Descompacte os arquivos dentro do diretório recem criado no ítem 2.

4 - Com o Delphi 2010 aberto, vá em File -Open Project (Ctrl+F11) e abra o arquivo ZeosDbo, dentro de C:\Program Files\CodeGear\RAD Studio\7.0\lib\zeos7\packages\delphi14

5 - Vá ao menu Project - Build All Projects

6 - Antes de continuar, se você estiver usando o Windows Vista ou Windows 7 com o UAC habilitado, você terá que dar permissão TOTAL para a pasta Zeos7 criada, caso contrário não irá funcionar. Se o Delphi 2010 foi instalado em diretório criado por você, por exemplo C:\MeusProgramas, então não terá problemas com permissão.

7 - Agora, antes da instalação vá ao menu Tools - Options - Evironment Options - Delphi Options - Library - Win 32 e adicione o caminho a seguir no Library Path: $(BDS)\lib\Zeos7\packages\delphi14\build

8 - Feito isto, minimize o Delphi, abra o diretório C:\Program Files\CodeGear\RAD Studio\7.0\lib\zeos7\packages\delphi14\build, selecione todos os arquivos ".bpl" copie-os e cole-o dentro da pasta Bpl do RAD Studio: C:\Program Files\CodeGear\RAD Studio\7.0\bin

9 - Volte ao Delphi vá ao menu View - Project Manager (Ctrl + Atl + F11). Selecione e compile as bpls abaixo, uma a uma. Para compilar, clique com o botão direto sobre o bpl. É a primeira opção.

- ZCore140.Bpl
- ZPlain140.Bpl
- ZParseSql140.Bpl
- ZDbc140.Blq
- ZComponent140.Bpl
- ZComponentDesign140.Bpl

10 - Depois de compiladas, clique com o botão direito sobre o pacote ZComponentDesign140.Bpl (o único em negrito) e clique em Install.

11 - Pronto, feche tudo (File - Close All). Crie um novo projeto e veja que os componentes já podem ser utilizados.

Fonte: www.gedeveloper.blogspot.com

Instalar ZeosDbo no Delphi2009

2008-12-18T04:47:00.000-08:00

Devido há um problema no Delphi2009 com Unicode, o suporte para D2009 estará disponível no ZeosLib 7, que já está em andamento . . . aguardemos . . . então

Maiores detalhes em
ZeosLib

Virtualização no Windows (free)

2008-12-15T00:00:00.000-08:00

O software Virtual PC (free) da Microsoft permite rodar, a partir de uma versão do Windows, máquinas virtuais contendo Sistemas Operacionais diferentes (Linux, Windows, MacOS . . .)

Virtual PC pode ser instalado nos seguintes Sistemas Operacionais:
Windows Server 2003
Windows Vista Business
Windows Vista Enterprise
Windows Vista Ultimate
Windows XP Professional Edition

Depois de instalado . . .
Clique em Next para iniciar o menu e novamente em Next para criar uma máquina virtual. O programa pede, então, que você confirme a quantidade de memória e espaço em disco que serão dedicados à máquina virtual.

Se você possui 2 gigabytes ou mais de memória no seu PC, forneça 512 MB para a máquina virtual com XP. E a menos que você pretenda instalar muitos aplicativos, o tamanho padrão de uso do disco rígido está de bom tamanho.

Clique em Next e depois em Finish, e sua máquina virtual irá aparecer no painel do Virtual PC.

Insira o CD de instalação do XP (ou outro sistema que deseja utilizar) e então dê um duplo clique com o mouse sobre o ícone do painel do Virtual PC para começar.

Selecione o drive no menu, escolha a opção Action e então clique Ctrl+Alt+Del para dar boot na máquina a partir do CD. Após isso, o processo de instalação deve se seguir como o de um computador comum.

Para executar sua máquina XP, selecione-a no painel do Virtual PC e clique em Start. Para encerrar, clique em Close, selecione Save State na lista de opções, e clique OK.

Clicando uma vez dentro da janela do sistema operacional virtual, permitirá que capture o ponteiro do mouse.

No menu do Virtual PC, clique em Action, Install or Update Virtual Machine Additions para instalar diversas ferramentas que permitirão que você copie e cole textos entre a máquina virtual e o PC hospedeiro.Também é possível enviar documentos de um para o outro através de uma pasta compartilhada no sistema principal.

Para fazer o ponteiro do mouse voltar a trabalhar para o SO original, pressione ALT e arraste o cursor para fora da janela do Virtual PC.

A figura abaixo mostra o Windows Vista rodando o Windows XP

download Virtual PC

Turbo Delphi Explorer - Instalar Componentes de Terceiros

2008-09-24T00:00:00.000-07:00

A IDE do Turbo Delphi Explorer é uma versão free, com a limitação de não permitir a instalação de componentes de terceiros, além de não possuir um componente para gerar relatórios.

Então como gerar relatórios com a ferramenta Turbo Delphi Explorer na versão free se esta não permite instalação de componentes de terceiros ? Como acessar uma Base de Dados através do ZeosDBO ?
Respondo, vamos fazer em tempo de execução. Irei partir do pressuposto que se tenho um componente com os códigos fontes e fazendo uso dos mesmos em tempo de execução , não haverá problemas com a licença do Turbo Delphi Explorer. Será ???

Vou utilizar dois componentes de terceiros COM código fonte:
ZeosDBO versão 6.6.2 (compatível com Delphi 7) – para acessar dados no Firebird
FreeReport versão 2.32 (compatível com Delphi 7) – para gerar nosso relatório

Vou partir do presuposto que você já tem instalado o Turbo Delphi Explorer. Então vamos lá.
Com o Turbo Delphi Explorer aberto vá em Tools >> Options
A janela “Options” vai aparecer, faça o seguinte:
No lado esquerdo da janela de um duplo click na propriedade Environment Options, depois um duplo click em Delphi Options, selecione a propriedade Library – Win32, agora do lado direito em Library path click no botão ... para adicionar os paths dos nossos componentes, veja figura abaixo:

Muito bem, com os paths adicionados agora podemos referenciar nossos componentes em tempo de execução.

Vamos trabalhar com 02 Forms e 01 DataModule:

Name = Form1
–> Formulário Principal
Deverá ter uma chamada para o Form2, conforme abaixo:

procedure TForm1.mRelCidadeClick(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
end;

Name = DM
–> Data Module para acessar nossos dados
A clausula uses deverá ter o seguinte;

uses
SysUtils, Classes, Variants, ZConnection, ZDataset, ZStoredProcedure,
ZAbstractRODataset, ZAbstractDataset, ZDBCIntfs, DB;

Coloque um componente TDataSource e renomeie para DSCidade.
Nas declarações Private e Public faça o seguinte:

private
{ Private declarations }
FConexao: TZConnection;
FZQuery: TZQuery;
public
{ Public declarations }
property Conexao: TZConnection read FConexao write FConexao;
property ZQuery: TZQuery read FZQuery write FZQuery;
end;

No evento OnCreate do Data Modulo, faça o seguine:

procedure TDM.DataModuleCreate(Sender: TObject);
begin
// Criamos a conexão com o Banco de Dados
Conexao:=TZConnection.Create(Self);
Conexao.Database:='C:\Arquivos de programas\Prog\Dados\DB.FDB';
Conexao.Password:='password';
Conexao.Port:=3050;
Conexao.Protocol:='firebird-1.5';
Conexao.TransactIsolationLevel:=tiReadCommitted;
Conexao.User:='SYSDBA';
Conexao.Connected:=True;
// Criamos um objeto TQuery para consultarmos nossa Tabela
ZQuery:=TZQuery.Create(Self);
ZQuery.Connection:=FConexao;
end;

Name = Form2
–> Formulário para impressão do nosso Relatório
A clausula uses deverá ter o seguinte;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ZConnection, ZDataset, ZStoredProcedure, ZAbstractRODataset,
ZAbstractDataset, StdCtrls, ComCtrls, FR_DSet, FR_DBSet, FR_Class, FR_Desgn,
Grids, DBGrids, ExtCtrls;

Procedimento para Impressão, conforme abaixo:

procedure FrPrint(Title:string;FrmGrid:TForm);
var
fr: TfrReport;
ReportTitle,ColumnHeader: Tfrbandview;
MemoVT: Array of TfrMemoview;
TitleV ,dateV,pageV: TfrMemoview;
page: Tfrpage;
col: Integer;
Cont: Integer;
Left,Top,Width,Heigth: Integer;
TempLeft,TempWidth: Integer;

procedure PrintCabecalho(NrPag: Integer);
begin
left :=20;
top :=20;
width :=710;
heigth :=25;
fr.Pages.Add;
page := fr.Pages[NrPag];
ReportTitle := Tfrbandview.Create;
ReportTitle.BandType := btReportTitle;
ReportTitle.SetBounds(left,top,width,75);
page.Objects.Add(ReportTitle);
TitleV := TfrMemoview.Create;
Titlev.SetBounds(Left,top,width,30);
Titlev.Font.Name := 'Tahoma';
TitleV.Font.Size := 16;
TitleV.Memo.Add(title);
page.Objects.Add(TitleV);
dateV := TfrMemoview.Create;
dateV.SetBounds(Left,top + 40,width,30);
dateV.Font.Name := 'Tahoma';
dateV.Font.Size := 8;
dateV.Memo.Add('DATA:'+FormatDateTime('dd/mm/yyyy',Now));
page.Objects.Add(dateV);
Top:=115;
end;

procedure PrintRodape;
begin
pageV:=TfrMemoview.Create;
pageV.Font.Name:='Tahoma';
pagev.Font.Size:=10;
pagev.FrameWidth:=2;
pagev.FrameTyp:=24 ;
pageV.Memo.Add(' :: PÁGINA '+'[PAGE#]');
pagev.SetBounds(0,1025,750,20);
page.Objects.Add(pageV);
end;

begin
fr:=TfrReport.Create(FrmGrid);
fr.StoreInDFM := True;
DM.ZQuery.Open;
Cont:=0;
PrintCabecalho(Cont);
ColumnHeader:=Tfrbandview.Create;
ColumnHeader.BandType:=btColumnHeader;
ColumnHeader.SetBounds(left,top,width,900);
page.Objects.Add(ColumnHeader);
SetLength(MemoVT,5);
while not DM.ZQuery.Eof do
begin
col:=0;
// Campo Nome Cidade
TempLeft:=20;
MemoVt[col]:=TfrMemoview.Create;
MemoVt[col].Font.Name:='Tahoma';
MemoVt[col].Font.Size:=8;
MemoVt[col].Memo.Add(DM.ZQuery.FieldByName('CID_DESCRICAO').AsString);
MemoVt[col].FrameTyp:=0;
TempWidth:=300;
MemoVt[col].SetBounds(TempLeft,top,tempWidth,15);
Templeft:=TempLeft+tempwidth+10;
page.Objects.Add(MemoVt[col]);
// Campo UF
col:=1;
MemoVt[col]:=TfrMemoview.Create;
MemoVt[col].Font.Name:='Tahoma';
MemoVt[col].Font.Size:=8;
MemoVt[col].Memo.Add(DM.ZQuery.FieldByName('CID_UF').AsString);
MemoVt[col].FrameTyp:=0;
TempWidth:=50;
MemoVt[col].SetBounds(TempLeft,top,tempWidth,15);
Templeft:=TempLeft+tempwidth;
page.Objects.Add(MemoVt[col]);
//
Top:=Top+15;
DM.ZQuery.Next;
if (not DM.ZQuery.Eof) and (Top >= 1000) then
begin
Inc(Cont);
PrintRodape;
PrintCabecalho(Cont);
ColumnHeader:=Tfrbandview.Create;
ColumnHeader.BandType:=btColumnHeader;
ColumnHeader.SetBounds(left,top,width,900);
page.Objects.Add(ColumnHeader);
SetLength(MemoVT,5);
end;
end;
PrintRodape;
fr.ShowReport;
//fr.DesignReport;
fr.Free;
DM.ZQuery.Close;
end;

Coloque um Botão no formulário, chamando o procedimento de Impressão, conforme abaixo:

procedure TForm2.btImprimirClick(Sender: TObject);
begin
DM.ZQuery.Close;
DM.ZQuery.SQL.Clear;
DM.ZQuery.SQL.Add('SELECT * ');
DM.ZQuery.SQL.Add('FROM CIDADE');
DM.ZQuery.Open;
FrPrint('RELATÓRIO ::: TURBO DELPHI EXPLORER',Form2);
DM.ZQuery.Close;
end;

Google Chrome

2008-09-01T19:39:00.000-07:00

Google Chrome é o navegador de código aberto desenvolvido pela Google que chega ao mercado com uma proposta de ser limpo, simples e ainda mais fácil de usar.

download

Aprenda Ruby brincando

2008-08-19T18:45:00.000-07:00

Projeto Hackety Hack, é uma plataforma livre de ensino a programação em Ruby, para crianças, iniciantes em programação ou para aqueles que nunca programaram antes.

Exemplo:

blog = Table("MyBlog").recent(10)
Web.page {
  blog.each do |entry|
    title entry[:title]
    puts entry[:editbox]
  end
}

download Hackety Hack

Visual Studio 2008 Service Pack 1 (SP1)

2008-08-15T08:12:00.000-07:00

Visual Studio 2008 Service Pack 1 (SP1) lançados oficialmente.

Dica: Instale primeiro .NET Framework 3.5 SP1

download Visual Studio 2008 Service Pack 1 (SP1)

Informatech 2008

2008-08-10T00:00:00.000-07:00

Começa no dia 13/08/2008 até 17/08/2008 a FEIRA DE INFORMÁTICA E TECNOLOGIA DE LONDRINA

Local: CATUAÍ SHOPPING - Londrina-PR

Para saber mais visite o site www.informatechvirtual.com.br

Revista PHP Magazine

2008-08-03T00:00:00.000-07:00

Para quem desconhece, a PHP Magazine oferece publicações digitais sobre a linguagem PHP.
Podem ser obtidas gratuitamente, apenas com a realização de um breve cadastro no portal.

http://www.phpmagazine.org.br

Wikilivro Aplicativos em PHP

2008-06-29T00:00:00.000-07:00

Livro destinado ao desenvolvimento de aplicativos web em PHP no formato PDF.

Livro PHP

SQL SERVER Authentication

2008-05-22T00:00:00.000-07:00

Se o SQL Server só conecta com a opção Use Windows Authentication e quando você tenta conectar SQL SERVER Authentication aparece a seguinte mensagem:

The user is not associated with a trusted SQL Server connection. (Microsoft SQL Server, Error: 18452)

Faça o seguinte:

-Abra o SQL Server Management Studio Express e conecte-se através da opção Windows Authentication.
-Click com o botão direito do mouse na guia explorer e escolha propriedades conforme figura abaixo:

Agora click em Security e selecione SQL Server and Windows Authentication Mode

Click em OK e Pronto . . .
Agora você só precisa reiniciar o Servidor SQL Server, ou da próxima vez que ligar seu PC você já poderá se conectar através do SQL SERVER Authentication.

Segurança

2008-05-14T00:00:00.000-07:00

Algumas opções para você ajustar e proteger seu PC . . .

- Avira AntiVir Personal Edition Classic - Anti Vírus

- BitDefender Online Scanner – Scanner Online

- Comodo Firewall - Firewall

- McAfee Rootkit Detective - Identifica programas nocivos camuflados em seu sistema.

- Spamfighter Pro - Adiciona uma barra de ferramentas ao Outlook, Outlook Express e Windows Mail

- ThreatFire Free - Analisa o comportamento de certos programas tentando identificar cavalos-de-tróia e outros malwares

- TrueCrypt - Cria um drive virtual criptografado

RemoteSync agora é Free

2008-04-15T19:45:00.000-07:00

RemoteSync se torna um programa Free.

Por incrível que pareça acessar um banco de dados relacional, como Oracle, SQL Server e outros, pode não ser uma tarefa das mais fáceis para dispositivos móveis. O RemoteSync torna possível a execução de comandos SQL em bancos de dados remotos (rede interna, WIFI ou internet) permitindo aplicações tais como: consulta on-line de saldo de produtos em estoque, modificações de dados no banco corporativo e muito mais.

A API do RemoteSync – conjunto de funções prontas para programação – está disponível em várias linguagens de programação Palm, tais como: HB++, Pocket Studio e NS Basic.

Para baixar o RemoteSync é necessário cadastro no site

download RemoteSync

Fonte: www.softpalm.com.br

React Operating System - Sistema Operacional baseado no Windows XP

2008-03-20T00:00:00.000-07:00

http://www.reactos.org

O ReactOS® é um sistema operativo Livre que visa atingir um elevado grau de compatibilidade com o Microsoft Windows® XP. O ReactOS tem como objectivo fornecer compatibilidade completa tanto com as aplicações como com os controladores desenvolvidos para os sistemas operativos da linha NT® da Microsoft®, por intermédio de uma arquitectura e uma interface pública de programação similares.

O ReactOS é o modelo mais completo de um sistema operativo inspirado no Windows®. Consequentemente, os programadores poderão aprender bastante ao estudar o seu código fonte ou mesmo participando no desenvolvimento do mesmo.

O ReactOS já incorporou e continuará a incorporar funcionalidades de novas versões do Windows® e, por vezes, definir mesmo a vanguarda da tecnologia dos sistemas operativos.

Em suma, o ReactOS existe para poder correr os seus programas e utilizar o seu hardware. É um sistema operativo livre para todos!

Por favor tenha presente que o ReactOS 0.3.4 ainda está em estado alpha, o que significa que ainda faltam inúmeras funcionalidades nem tão pouco é recomendável para uma utilização intensiva, de todos os dias.

MonoDevelop 1.0 Released

2008-03-16T10:00:00.000-07:00

Lançado MonoDevelop 1.0, IDE .NET para Linux/Mac OS X

O MonoDevelop é uma IDE, ambiente integrado de desenvolvimento para o GNOME, projetado principalmente para C# e outras linguagens .NET

Download MonoDevelop 1.0

Firewalls gratuitos

2008-03-10T00:00:00.000-07:00

Seis opções de firewalls gratuitos

Jetico Personal Firewall
ZoneAlarm (versão gratuita)
PC Tools Firewall Plus
Filseclab Personal Firewall
Ashampoo FireWall Free

AJAX e AJAX Toolkit

2008-03-01T00:00:00.000-08:00

Instalando AJAX e AJAX Toolkit no Microsoft Visual Studio 2005

Acesse o site http://www.asp.net e faça o download dos arquivos:
-ASP.NET AJAX
-ASP.NET AJAX Toolkit

Instale o arquivo ASP.NET AJAX . . . next . . . next . . .
Depois de instalado será criado uma pasta em Arquivos de Programas chamada Microsoft ASP.NET, crie uma sub pasta chamada AjaxToolKit

Ficará assim C:\Arquivos de programas\Microsoft ASP.NET\AjaxToolKit

O arquivo ASP.NET AJAX Toolkit deverá ser descompactado dentro da pasta criada acima.

Agora abra o Microsoft Visual Studio 2005 >>File >>New >> WebSite você verá a seguinte figura:

Click no botão OK . . .

Agora vamos adicionar os controles do AJAX ToolKit à Toolbox do Visual Studio. Click com o botão direito do mouse sobre um local vazio na sua barra de ferramentas e selecione a opção "Add Tab" conforme a figura abaixo:

Digite AJAX Toolkit. Agora vamos adicionar os itens à nova aba criada. Para isso, click com o botão direito do mouse sobre a aba AJAX ToolKit e selecione a opção "Choose Items".

A janela Choose Toolbox Items será aberta, click em Browse e navegue até a pasta:
C:\Arquivos de programas\Microsoft ASP.NET\AjaxToolKit\SampleWebSite\Bin
Selecione a DLL AjaxControlToolkit.dll, click em Open, em seguida OK . . . pronto . . . sua ToolBox deverá ficar assim:

Windows Server 2003 com aparência e recursos do Windows XP

2008-02-29T00:00:00.000-08:00

O Windows Server 2003 por ser um sistema projetado para servidor, ele vem com algumas configurações desativadas ou configuradas de outra forma.

-Os efeitos visuais por default vem desativado, para ativar:
>>Painel de Controle >> Sistema >> Guia Avançado >> Desempenho Click em "Configurações", Aba "Efeitos visuais", por default vem desativado, ative os efeitos visuais.

-Para ativar alguns serviços do Windows Server 2003, click >>Iniciar >>Ferramentas Administrativas >>Serviços ou >>Iniciar >>Executar "services.msc".

Para ativar Serviços faça o seguinte:
Duplo click no Serviço à ser iniciado, em "Tipo de Inicialização" escolha "Automático", click em Aplicar, depois Iniciar. Pronto.

Alguns serviços que podem ser ativadso:
>>Serviço "Temas", ativa o tema visual estino Windows XP
>>Serviço "Assistente de aquisição de imagens do Windows (WIA)" ,ativa scanners, câmeras digitais e web cams
>>Serviço "Áudio do Windows", ativa som no Windows Server 2003
>>Serviço "IMAPI CD-Burning COM Service", ativa gravação de CDs

Relatório para Turbo Delphi Explorer

2008-02-05T00:00:00.001-08:00

Achei essa dica na comunidade Turbo Delphi no Orkut, postada pelo Eduardo [ NewZeek ]:

Participe da comunidade Orkut Turbo Delphi Explorer

Primeiro descompacte a pasta FreeReport na pasta Lib do Delphi, declare a pasta FreeReport\Source à Library do Delphi.

Pronto, o delphi reconhece a pasta das units necessarias para a criaçao dos componentes.

Crie uma nova aplicaçao, e insira os componentes para acesso ao banco de dados, neste caso estou utilizando DBExpress com driver UIB e clientDataSet, para acesso ao Banco de dados Firebird.

Apos o acesso aos dados estarem corretamente ligados e funcionando, vamos a criaçao dos componentes do FreeReport para a criaçao do relatorio.

Lembrando que primeiro iremos criar uma funçao para criaçao dos componentes e em tempo de execuçao iremos criar o relatorio e salvar em arquivo, depois voltamos ao projeto e carregamos o relatorio do arquivo.

Iniciando:

Adicione as seguintes units a clausula uses:

FR_Desgn, FR_DSet, FR_DBSet, FR_Class;

Agora adicione as seguintes variaveis globais ao projeto:

frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frDesigner1: TfrDesigner;

ficara assim:

var
Form1: TForm1;
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frDesigner1: TfrDesigner;

Pronto, agora iremos criar os componentes no evento oncreate do form, passando como proprietario o proprio form:

procedure TForm1.FormCreate(Sender: TObject);
begin
frReport1 := TfrReport.create(form1);//Crio o componente do relatorio
frDBDataSet1 := TfrDBDataSet.create(form1);//Crio o componente de acesso ao banco
with frDBDataSet1 do
begin
dataset := ClientDataSet1;//seto qual dataset sera utilizado
name := 'frDBDataSet1';//defino o nome do componente
end;
frReport1.Dataset := frDBDataSet1;//defino o dataset do relatorio
frDesigner1:= TfrDesigner.Create(form1);//crio o componente Design
end;

Pronto, todos os componentes serao criado assim que o form for criado e destruidos juntamente com seu proprietario, o form.

agora o evento do botao Design:
21/12/06
Eduardo
O botao design sera responsavel por abrir o modo design do relatorio e sera de suma importancia para a criaçao do mesmo.

procedure TForm1.Btn_designClick(Sender: TObject);
begin
frReport1.DesignReport;
end;

agora rode a aplicaçao e clique no botao, ira aparecer o modo design do relatorio.
Procure pelo icone "Insert DB fields", e insira os campos que desejar no relatorio, lembrando que serao listados os campos e disponiveis no clientdataset.

Crie o relatorio utilizando os componentes disponiveis no modo design e depois salve este relatorio: File > Save as...

Pronto, volte ao projeto e vamos criar o evento que ira carregar o arquivo do relatorio.

procedure TForm1.Button1Click(Sender: TObject);
begin
frReport1.LoadFromFile('C:\teste.frf');
frReport1.ShowReport;
end;

No caso, "C:\teste.frf" é o relatorio que criei.

Agora rode a aplicaçao e clique no botao para exibir o relatorio.

Turbo Delphi Explorer

2008-02-05T00:00:00.000-08:00

Por que utilizar uma versão paga ou uma versão pirata do Delphi se você pode trabalhar com uma versão gratuita? Isso mesmo! Esse é o Turbo Delphi Explorer!
Ele tem duas limitações:

1 - Não aceita a instalação de componentes;
2 - Não possui um gerador de relatórios.

Para poder fazer o download é necessário cadastro na Code Gear.

download Turbo Delphi Explorer free

Outros produtos "Turbo"

BORLAND® TURBO DELPHI® EXPLORER [free]
BORLAND® TURBO DELPHI® PROFESSIONAL
BORLAND® TURBO DELPHI® FOR .NET EXPLORER [free]
BORLAND® TURBO DELPHI® FOR .NET PROFESSIONAL
BORLAND® TURBO C# EXPLORER [free]
BORLAND® TURBO C# PROFESSIONAL
BORLAND® TURBO C++ EXPLORER [free]
BORLAND® TURBO C++ PROFESSIONAL

Rave modo programado

2008-02-04T00:00:00.000-08:00

Gerando um relatório Rave em modo programado:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RPRender, RpDefine, RpBase, RpSystem, RPDevice;

type
TForm1 = class(TForm)
BtImprimir: TButton;
procedure BtImprimirClick(Sender: TObject);
procedure RvSystemMPPrintHeader(Sender: TObject);
procedure RvSystemMPPrint(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
Procedure PrintReport(TamPapel: String);
procedure CabecalhoRelatorio(Titulo1,Titulo2,Titulo3: String);
procedure Relatorio;
public
{ Public declarations }
RvSystemMP: TRvSystem; // Modo Programado
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PrintReport(TamPapel: String);
begin
RvSystemMP.SystemPrinter.MarginTop:=1;
RvSystemMP.SystemPrinter.MarginLeft:=1;
RvSystemMP.SystemPrinter.MarginRight:=1;
RvSystemMP.SystemPrinter.MarginBottom:=1;
RvSystemMP.SystemPrinter.MarginBottom:=1;
RvSystemMP.SystemPrinter.Units:=unCM;
RvSystemMP.SystemPrinter.UnitsFactor:=2.54;
RvSystemMP.SystemFiler.AccuracyMethod:=amAppearance;
rpDev.SelectPaper(TamPapel,False);
rpDev.Copies:=1;
RvSystemMP.SystemPrinter.Copies:=rpDev.Copies;
rpDev.Orientation:=poPortrait;
RvSystemMP.SystemPrinter.Orientation:=rpDev.Orientation;
RvSystemMP.SystemPreview.RulerType:=rtBothCm;
RvSystemMP.SystemSetups:=RvSystemMP.SystemSetups-[ssAllowSetup];
RvSystemMP.SystemPreview.FormState:=wsMaximized;
RvSystemMP.OnPrintHeader:=RvSystemMPPrintHeader;
RvSystemMP.OnPrint:=RvSystemMPPrint;
RvSystemMP.Execute;
end;

procedure NextLine(RVSystem:TRVSystem);
begin
RVSystem.BaseReport.NewLine;
if RVSystem.BaseReport.LinesLeft = 0 then
RVSystem.BaseReport.NewPage;
end;

procedure TForm1.CabecalhoRelatorio(Titulo1,Titulo2,Titulo3: String);
begin
with RvSystemMP.BaseReport do
begin
SetFont('Tahoma',14);
MarginTop:=0.5;
Home;
PrintHeader(Titulo1,pjLeft);
MarginTop:=MarginTop+LineHeight;
Home;
SetFont('Tahoma',8);
PrintHeader(Titulo2,pjLeft);
PrintHeader('Página '+Macro(midCurrentPage)+'/'+Macro(midTotalPages),pjRight);
MarginTop:=MarginTop+LineHeight;
Home;
PrintHeader(Titulo3,pjLeft);
PrintHeader('Data '+FormatDateTime('dd/mm/yyyy',now()),pjRight);
Canvas.Pen.Width:=2;
Canvas.Pen.Color:=clBlack;
MoveTo(MarginLeft,YPos+0.3);
LineTo(PageWidth-MarginRight,YPos+0.3);
Bold:=True;
MarginTop:=MarginTop+LineHeight+0.5;
Home;
PrintLeft('Categoria',1);
PrintLeft('Produto',6);
PrintLeft('Cidade',12);
PrintRight('Vendas',20.5);
Canvas.Pen.Width:=2;
Canvas.Pen.Color:=clBlack;
MoveTo(MarginLeft,YPos+0.1);
LineTo(PageWidth-MarginRight,YPos+0.1);
Bold:=False;
MarginTop:=MarginTop+LineHeight+0.2;
Home;
AdjustLine;
end;
end;

procedure TForm1.Relatorio;
var
i: Word;
begin
for i:=1 to 300 do
begin
RvSystemMP.BaseReport.PrintLeft('PRESTADOR DE SERVIÇOS',1);
RvSystemMP.BaseReport.PrintLeft('DESENVOLVIMENTO DE SOFTWARES',6);
RvSystemMP.BaseReport.PrintLeft('IBIPORÃ - PR',12);
RvSystemMP.BaseReport.PrintRight('1.200,00',20.5);
NextLine(RvSystemMP);
end;
end;

procedure TForm1.RvSystemMPPrintHeader(Sender: TObject);
begin
CabecalhoRelatorio('EMPRESA: AMDsoFtwares','RELATÓRIO DE VENDAS','ANO: 2008');
end;

procedure TForm1.RvSystemMPPrint(Sender: TObject);
begin
Relatorio;
end;

procedure TForm1.BtImprimirClick(Sender: TObject);
begin
RvSystemMP:=TRvSystem.Create(Self);
PrintReport('Carta');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RvSystemMP.Free;
end;

end.

Simples cadastro em HB++

2008-02-01T00:00:00.000-08:00

Se você precisa de um cadastro básico feito em Handheld Basic HB++, baixe o arquivo cadhb.zip, o qual contém os seguintes cadastros:
-Cidade
-Atividade
-Cliente

Coisas que seu Celular pode fazer

2008-01-30T00:00:00.000-08:00

>> O número de emergência em todo o mundo é 112. Este número pode ser chamado mesmo que o celular esteja bloqueado ou sem saldo.

>> Fechou o carro e deixou a chave lá dentro. Está a kilometros de casa onde tem outro controle remoto para abrir o carro? Pois bem. A solução está em fazer uma chamada para casa. Quando alguém em casa acionar o comando (próximo ao telefone), o carro abre !!!

>> A bateria do celular descarregou. Todos os celulares têm uma reserva de carga na sua bateria. Ao digitar *3370# automaticamente é ativada a reserva dando até cerca de 50% de energia adicional. Quando voltar a recarregar o celular automaticamente voltará a carregar esse suplemento de energia podendo ser utilizado outra vez!!!

>> Como desativar um celular roubado? Primeiro tem de saber o número de série do celular (IMEI). Para o encontrar digite: *#06#. Ao digitar aparece no mostrador 15 dígitos. Este é o número de série do telefone. Escreva e guarde num lugar seguro e contacte a sua operadora para cancelar ou anular o telefone.

Sites úteis

2008-01-29T00:00:00.000-08:00

01. Serviço dos cartórios de todo o Brasil, que permite solicitar documentos via internet:
www.cartorio24horas.com.br/index.php

02. Site de procura e reserva de hotéis em todo o Brasil,por cidade, por faixa de preços, reservas etc.:
www.hotelinsite.com.br

03. Site que permite encontrar o transporte terrestre entre duas cidades, a transportadora, preços e horários:
https://appweb.antt.gov.br/transp/secao_duas_localidades.asp

04. Encontre a Legislação Federal e Estadual por assunto ou por número, além de súmulas dos STF, STJ e TST:
www.soleis.adv.br

05. Encontre a melhor rota entre dois locais em uma mesma cidade ou entre duas cidades, sua distância, além de localizar a rua de sua cidade:
www.mapafacil.com.br

06. Encontre o mapa da rua das cidades, além de localizar cidades:
http://mapas.terra.com.br/Callejero/home.asp

07 Confira as condições das estradas do Brasil, além da distância entre as cidades:
www.dnit.gov.br

08. Tenha o catálogo telefônico do Brasil inteiro em sua casa. Procure o telefone daquele amigo que estudou contigo no colégio:
www.102web.com.br

09. Confira os melhores cruzeiros,datas, duração,preços, roteiros, etc.:
www.bestpricecruises.com/default.asp

10. Site de procura, semelhante ao GOOGLE:
www.gurunet.com

11. Site que lhe dá as horas em qualquer lugar do mundo:
www.timeticker.com/main.htm

12. Site que lhe permite fazer pesquisas dentro de livros:
www.a9.com

13. Site que lhe diz tudo do Brasil desde o descobrimento por Cabral:
www.historiadobrasil.com.br

14. Site que o ajuda a conjugar verbos em 102 Idiomas:
www.verbix.com

15. Site de conversão de Unidades:
www.webcalc.com.br/conversões/area.html

16. Site para envio de e-mails pesados, acima de 50Mb:
www.dropload.com

17. Site para envio de e-mails pesados, sem limite de capacidade:
www.sendthisfile.com

18. Site que calcula qualquer correção desde 1940 até hoje, informando todos os índices disponíveis no mercado financeiro.. Grátis para Pessoa Física:
www.debit.com.br

19. Site que lhe permite ler jornais e revistas de todo o mundo.
www.indkx.com/index.htm

20. Site de procura de pessoas e empresas nos EUA. Só para achar a pessoa ou a empresa com endereço e telefone - GRÁTIS. Se quiser levantamento completo de tudo o que a pessoa tem como patrimônio, tudo que teve de problema judicial e financeiro, e outras coisas mais, ai pode custar até US$80,00 com valores intermediários:
www.ussearch.com/consumer/index.jsp

21 .. Site de câmaras virtuais, funcionando 24 hs por dia ao redor do mundo:
www.earthcam.com

Ruby On Rails - Criando um BLOG com NetBeans - 1a Parte

2008-01-17T00:00:00.000-08:00

Este tutorial utiliza MySQL como Banco de Dados e NetBeans como IDE para Ruby On Rails.

Algumas convenções:

Nome da Entidade/Model
Nome da classe no singular em inglês (ex.: person

Nome da Tabela correspondente
Nome da tabela no plural em inglês (ex.: people)

Se houver tabela de relacionamento para many-to-many
Nomes das duas tabelas, separadas por “_” e em ordem alfabética (ex.: people_users)

Nome da coluna que é chave primária, de qualquer tabela
id (e será sempre integer e, se o banco suportar, auto incrementado

Nome de coluna para chave estrangeira
Nome da tabela a quem se liga, no singular, concatenado com _id. (ex.: person_id)

Não somos obrigados a seguir estas convenções, mas se as convenções forem seguidas as configurações diminuirão para perto de zero. Neste exemplo, queremos seguir os padrões.

Uma coisa que Rails ainda não faz é criar o banco de dados propriamente dito.
Por isso, antes de criar um projeto do Ruby On Rails no NetBeans, entre no prompt de comando do MySQL e crie uma Base de Dados conforme figura abaixo, não se preocupe com as tabelas o Ruby On Rails fará isso por nós.

Na IDE do NetBeans, Selecione File >> New Project, em Categories selecione Ruby, em Projects selecione Ruby On Rails Application conforme figura abaixo:

Click em Next, na próxima etapa em Project Name digite rubyweblog, conforme figura abaixo:

Click em Finish, em seguida coloque o username e password no arquivo database.yml conforme figura abaixo:

Agora vamos utilizar o generator do Rails para criar um model para o Blog.
Na janela de Projetos click com o botão direito do mouse em Models e click em Generate . . .
Na tela que vai aparecer em Arguments digite o seguinte:
Post title: String

Uma das convenções de Rails é que os nomes das tabelas sejam no plural, em inglês.

Veja figura abaixo:

Click em Ok, seu projeto deverá ficar assim:

Na janela acima observe o arquivo criado 001_create_posts.rb, sim é ele que vai criar a tabela Posts no MySQL com uma coluna chamada titles do tipo string. Para isso, faça o seguinte:
Na janela de Projetos click com o botão direito no projeto e selecione Migrate DataBase >> To Current Version . . . pronto o MySQL já tem uma tabela chamada Posts.

Agora vamos criar um Controller para o projeto.
Na janela de Projetos click com o botão direito do mouse em Controllers e click em Generate . . .
Na tela que vai aparecer em Name digite Blog, veja figura abaixo:

Click em Ok, veja figura abaixo:

Agora no arquivo blog_controller.rb coloque o seguinte código, conforme figura acima:
scaffold :post

O scaffold serve para criar os ligamentos entre Model-View-Controller em termos das operações CRUD.
C - Create
R - Read
U - Update
D - Delete

Na janela de Projetos expanda a Pasta Configuration e abra o arquivo routes.rb (define como as URLs são mapeadas para controllers e ações) . Procure a seguinte linha:

# map.connect '', :controller => "welcome"

Remova o comentário (#), e troque "welcome" por "blog" veja figura abaixo:

Novamente na janela de Projetos expanda a Pasta Public e delete o arquivo index.html

Click em File >> Save All e rode a aplicação pressionando F6 . . . vc deverá visualizar a figura abaixo:

O próximo passo agora é criar um campo para que o usuário digite a mensagem no Blog. Para isso na janela de Projetos click com o botão direito do mouse em DataBase Migrations e click em Generate . . . em Arguments coloque AddBody conforme figura abaixo:

No arquivo criado 002_add_body.rb digite o seguinte código logo após def self.up:
add_column :posts, :body, :text
*Se você digitar mcol e teclar TAB a IDE colocará um template em seu código.

Veja figura abaixo:

Agora na janela de Projetos click com o botão direito no projeto e selecione Migrate DataBase >> To Current Version . . . para criar o campo body do tipo text na Tabela Posts.

Não queremos que o título e a mensagem fiquem sem preenchimento, então vamos fazer a validação dos campos.
Na janela de Projetos expanda a Pasta Models e de um duplo click no arquivo post.rb, insira o seguinte código:
validates_presence_of :title, :body
*Se você digitar vp e teclar TAB a IDE colocará um template em seu código.

Veja figura abaixo:

Compilei e adicionei alguns Posts, vejam como ficou:

Vamos melhorar a interface do Blog ?? Então vamos lá . . .
Na janela de Projetos click com o botão direito do mouse em Views e click em Generate . . .
Na tela que vai aparecer no Combo Box Generate selecione scaffold, em Model Name digite Post, em Controoler Name digite Blog e selecione Overwrite. Veja figura abaixo:

Click em Ok

Na janela de Projetos click com o botão direito do mouse em
Views >> Blog e abra o arquivo list.rhtml.
Agora substituia o código entre <h1> e <Table> por este:

<h2>Blog Ruby On Rails</h2>
<% @posts.each do |post| %>
<h3><%= post.title %></h3>
<p><%= post.body %></p>
<h3> <%= link_to 'View', :action => 'show', :id => post %></h3>
<hr>
<% end %>

Pronto, a primeira parte está ok . . .

Nova versão do ZEOS

2008-01-16T00:00:00.000-08:00

Acaba de ser lançada a versão 6.6.2 RC do ZeosDBO, trazendo diversas correções de bugs, incluindo vários exemplos de uso do Zeos com o Firebird.

download

.NET: Cinco dicas sobre o NHibernate

2008-01-14T00:00:00.001-08:00

Vale a pena conferir esse artigo do Marcos Dell' Antonio

www.marcosdellantonio.net

.NET: Guia Inicial do NHibernate

2008-01-14T00:00:00.000-08:00

NHibernate é uma biblioteca (Framework) baseada em .NET para persistir os objetos para bases de dados relacionais. Baseado em uma ferramenta de persistência de dados do Java, chamado Hibernate, o NHibernate tem a finalidade de persistir os objetos .NET em uma base de dados relacional subjacente. Isso facilita muito ao invés de escrever códigos SQL dentro e fora da base de dados, pois o NHibernate gera o código SQL necessário, certificando-se que os tipos e o valores são corretamente criados. Veja o guia completo em www.linhadecodigo.com.br

Por: Israel Aéce
E-mail: israel@projetando.net

Microsoft MVP, MCP, MCAD, MCTS e MCT. Fundador do site Projetando.NET (http://www.projetando.net). Atualmente atua como desenvolvedor de aplicações .NET. Blog: http://weblogs.pontonetpt.com/israelaece/.

Pirataria de Software

2007-12-04T00:00:00.000-08:00

Multa De 3.000 Vezes - A Grande Mentira Das Campanhas Antipirataria

Artigo esclarecedor sobre pirataria de Software

Veja em www.dicas-l.com.br

RoRED para Ruby OnRails

2007-11-29T00:00:00.000-08:00

IDE para Ruby On Rails for Windows

Download www.plasmacode.com

Hibernate .net

2007-11-26T00:00:00.000-08:00

"O Hibernate é um framework para o mapeamento objeto-relacional escrito na linguagem Java, mas também é disponível em .Net com o nome NHibernate. Este programa facilita o mapeamento dos atributos entre uma base tradicional de dados relacionais e o modelo objeto de uma aplicação, mediante o uso de arquivos (XML) para estabelecer esta relação.

Hibernate é um software livre de código aberto distribuído com a licença LGPL."
Fonte http://pt.wikipedia.org/wiki/Hibernate

Veja detalhes em: www.hibernate.org

Download Hibernate .net

IDE Eclipse para Ruby on Rails

2007-11-21T00:00:00.001-08:00

IDE para Ruby on Rails

EasyEclipse for Ruby and Rails

NetBeans IDE com Ruby

2007-11-21T00:00:00.000-08:00

Crie um blog em 10 minutos com a IDE do NetBeans com suporte a Ruby.

Acesse o Link abaixo:

http://www.netbeans.org

Ruby on Rails

2007-11-20T00:00:00.000-08:00

Instalação do Ruby on Rails no Windows XP

"Ruby on Rails é um framework de desenvolvimento web de código aberto otimizado para a produtividade sustentável e a diversão do programador. Ele permite que você escreva código de forma elegante, favorecendo a convenção ao invés da configuração."

Opções de download do Ruby http://www.rubyonrails.com.br/down

Até a data deste post o site recomendava baixar Ruby 1.8.5
download ruby185-24.exe Tam 22.75 MB (Windows executable)

Na instalação não esqueça de deixar selecionada a opção para instalar o “RubyGems”, como exibida na imagem abaixo:

Na próxima tela, o instalador configura o diretório de destino para “C:\ruby”. Se você for um iniciante não modifique o diretório de destino, para evitar possíveis erros com scripts e endereço padrão, veja figura abaixo:

Após a instalação abra o terminal do MSDOS/CMD e digite:
ruby –v
Se tudo deu certo . . . deverá mostrar a versão do Ruby, veja figura abaixo:

Agora vamos atualizar os pacotes do Ruby, digite:
gem update
Você deverá escolher a versão para atualização, selecione a maior versão disponível com o sufixo (mswin32), veja figura abaixo:

Nota: Se ocorrer algum erro durante a atualização, digite novamente o comando:
gem update

Após a atualização do RubyGems, vamos instalar o rails e seus “sub” frameworks chamados de dependências.
Digite o comando:
gem install rails --include-dependencies

Instalação finalizada. Veja figura Abaixo:

Após a instalação do rails ainda com o terminal aberto. Digite o seguinte comando:
rails –v
. . . deverá mostrar a última versão estável do rails instalada

A instalação foi concluída. Agora vamos criar um projeto e testar.
Digite:
rails meuProjeto

Será criado toda a estrutura de diretórios onde você começará a desenvolver seu sistema.
Entre no diretório criado com o nome meuProjeto, digite:
cd meuProjeto

Agora que você está dentro do diretório meuProjeto digite o comando abaixo para iniciar o servidor WebRick:
ruby script/server

Agora confira no seu navegador a sua aplicação rodando:
digite:
http://localhost:3000

Deverá aparecer a imagem abaixo:

Atualização da Chave do Produto Windows

2007-11-19T00:00:00.001-08:00

Se você tem um Windows pirata, mas comprou o software e agora quer regularizar o Windows e não quer instalar novamente o Sistema Operacional . . .

Acesse o link www.microsoft.com

35 soluções para problemas de rede

2007-11-19T00:00:00.000-08:00

"Saiba como resolver entraves reais do dia-a-dia: dead spots, ameaças à segurança e interrupções de streaming de media.

Redes são boas e funcionais quando servem de plano de fundo para o trabalho principal sem causar ruídos. Mas, mais freqüentemente do que o tolerável, elas costumam falhar (ou, no jargão da tecnologia, ‘cair’).

Quando uma impressão é interrompida ou uma conversa no Skype apresenta falhas sempre que algum usuário na rede começa a assistir vídeos no YouTube, é hora então de entender o que faz a sua rede ‘soluçar’ e aplicar algumas estratégias e truques para ajudar o tráfego da rede fluir."

fonte pcworld.uol.com.br :: Artigo: 35 soluções para problemas de rede

Handheld Basic 2.50 Beta

2007-11-16T00:00:00.001-08:00

Disponivel para download a versão 2.50 beta do Handheld Basic (HB++), ferramenta de desenvolvimento que permite criar programas para Palm OS totalmente orientado à objetos, utilizando a linguagem Basic e em um ambiente (IDE) muito semelhante ao Visual Basic 6.0.

download versão 2.50 beta Handheld Basic (HB++)

Ambiente de Desenvolvimento

Compatibilidade com o Windows Vista;

Arquivos do projeto em formato XML em UTF-8 (Unicode) e conversor de projetos antigos;

Melhor integração com ferramentas de controle de versão;

Grandes melhorias na tradução de aplicações (Localization);

Recurso de folding no editor, permitindo expandir ou contrair trechos de código;

Alteração de propriedades semelhates de múltiplos controles selecinados;

Importação de arquivos PNG e GIF, além de BMP, sem prejudicar a performance ou tamanho da aplicação.

Compilador

O compilador HB++ agora pode ser executado via linha de comando;

Quebra de linhas de código utilizando caracter "_" (underscore), semelhante ao Visual Basic;

Chamada de métodos com parênteses, mesmo sem utilizar a instrução Call;

Métodos públicos Read and Write agora fazem parte da classe Stream;

Melhor verificação de conversões implicitas em objetos;

Definição do tipo de dados serão armazenados em objetos Collection em tempo de compilação;

Variáveis de ponto flutuante agora são consideradas como Double;

Possibilidade de compressão de resources binários;

Instrução Set passou a ser opcional para associação de objetos.

Biblioteca de Classes

Nova classe XmlParser utilizada para leitura de arquivos XML;

Novo controle HtmlViewer utilizada para exibir documentos XHTML;

Utilização de Expressões Regulares no método StringMatcher.InStr;

Novas funções BuildURL e SplitURL para manipular URLs;

Nova classe StreamComposite para leitura de vários streams como se fossem um único stream;

Funções Format e CDate agora suportam ISO 8601, permitindo conversões independentes das definições das preferências do PDA;

As propriedades DatabaseInfo.CardNumber e DatabaseInfo.LocalID agora estão disponíveis em modo de gravação;

A antiga classe Telephony foi totalmente reconstruída, permitindo enviar e receber mensagens SMS, e obter informações do telefone. Foram adicionadas as classes PhoneBook e SMS que complementam a classe Telephony;

Nova função FilterAddress verifica se uma determinada sentença é uma combinação das iniciais de um nome, sobrenome ou empresa, na agenda de endereços.

Fonte PDAExpert

Gerar arquivo XML para ANVISA (SNGPC)

2007-11-16T00:00:00.000-08:00

O SNGPC é constituído por um ambiente de recebimento de dados (XML) da ANVISA.
Estes dados deverão ser enviados com estrutura e extensão XML.
Estes conterão as movimentações diárias de medicamentos e substâncias sujeitas a controle especial que deverão ser enviadas eletronicamente pela internet para a ANVISA via SNGPC.

SNGPC :: Sistema Nacional de Gerenciamento de Produtos Controlados

Segue abaixo um exemplo de exportação de dados para XML, em Delphi7
Ainda não foi testado, serve apenas como ponto de partida para quem estiver com dificuldades.

implementation

{$R *.dfm}

uses XMLIntf, XMLDoc;

procedure TForm1.Button1Click(Sender: TObject);
var
i,x: Word;
NCorpo,NMedicamento,NData: IXMLNode;
XMLDoc: TXMLDocument;
begin
x:=1;
//x:=10;
// Cria o documento
XMLDoc:=TXMLDocument.Create(Application);
with XMLDoc do
begin
Active:=True;
Version:='1.0';
Encoding:='ISO-8859-1';
AddChild('mensagemSNGPC','urn:sngpc-schema');
with DocumentElement do
begin
AddChild('cabecalho');
ChildNodes.Last.AddChild('cnpjEmissor').NodeValue:='99999999000199';
ChildNodes.Last.AddChild ('cpfTransmissor').NodeValue:='00000000000';
ChildNodes.Last.AddChild('dataInicio').NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes.Last.AddChild('dataFim').NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
end;
NCorpo:=DocumentElement.AddChild('corpo');
// *************************** MEDICAMENTO *********************************
NMedicamento:=NCorpo.AddChild('medicamentos');
// Loop das [Entradas] :: MEDICAMENTO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('entradaMedicamentos');
with NData do
begin
ChildNodes['notaFiscalEntradaMedicamento'].ChildNodes['numeroNotaFiscal'].NodeValue:=IntToStr(i);
// [tipoOperacaoNotaFiscal]
// 1 Compra
// 2 Transferência
// 3 Venda
ChildNodes['notaFiscalEntradaMedicamento'].ChildNodes['tipoOperacaoNotaFiscal'].NodeValue:='1';
ChildNodes['notaFiscalEntradaMedicamento'].ChildNodes['dataNotaFiscal'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes['notaFiscalEntradaMedicamento'].ChildNodes['cnpjOrigem'].NodeValue:='99999999000199';
ChildNodes['notaFiscalEntradaMedicamento'].ChildNodes['cnpjDestino'].NodeValue:='99999999000199';
ChildNodes['medicamentoEntrada'].ChildNodes['registroMSMedicamento'].NodeValue:='1010000750061';
ChildNodes['medicamentoEntrada'].ChildNodes['numeroLoteMedicamento'].NodeValue:='RV365';
ChildNodes['medicamentoEntrada'].ChildNodes['quantidadeMedicamento'].NodeValue:='12';
ChildNodes['dataRecebimentoMedicamento'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
end;
end;
// Loop das [Saidas] :: MEDICAMENTO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('saidaMedicamentoVendaAoConsumidor');
with NData do
begin
// [tipoReceituarioMedicamento]
// 1 Receita de Controle Especial em 2 vias (Receita Branca)
// 2 Notificação de Receita B (Notificação Azul)
// 3 Notificação de Receita Especial (Notificação Branca)
// 4 Notificação de Receita A (Notificação Amarela)
ChildNodes['tipoReceituarioMedicamento'].NodeValue:='1';
ChildNodes['numeroNotificacaoMedicamento'].NodeValue:='213213';
ChildNodes['dataPrescricaoMedicamento'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes['prescritorMedicamento'].ChildNodes['nomePrescritor'].NodeValue:='XFULANO';
ChildNodes['prescritorMedicamento'].ChildNodes['numeroRegistroProfissional'].NodeValue:='99999';
// [conselhoProfissional]
// CRM Conselho Regional de Medicina
// CRMV Conselho Regional de Medicina Veterinária
// CRO Conselho Regional de Odontologia
ChildNodes['prescritorMedicamento'].ChildNodes['conselhoProfissional'].NodeValue:='CRM';
ChildNodes['prescritorMedicamento'].ChildNodes['UFConselho'].NodeValue:='PR';
// [usoMedicamento]
// 1 Humano
// 2 Veterinario
ChildNodes['usoMedicamento'].NodeValue:='1';
ChildNodes['compradorMedicamento'].ChildNodes['nomeComprador'].NodeValue:='XCICLANO';
// [tipoDocumento]
// 1 CARTEIRA DE REGISTRO PROFISSIONAL
// 2 CARTEIRA DE IDENTIDADE . . . existem mais
ChildNodes['compradorMedicamento'].ChildNodes['tipoDocumento'].NodeValue:='1';
ChildNodes['compradorMedicamento'].ChildNodes['numeroDocumento'].NodeValue:='123';
ChildNodes['compradorMedicamento'].ChildNodes['orgaoExpedidor'].NodeValue:='SSP';
ChildNodes['compradorMedicamento'].ChildNodes['UFEmissaoDocumento'].NodeValue:='PR';
ChildNodes['medicamentoVenda'].ChildNodes['registroMSMedicamento'].NodeValue:='1010000430215';
ChildNodes['medicamentoVenda'].ChildNodes['numeroLoteMedicamento'].NodeValue:='RGJ0400';
ChildNodes['medicamentoVenda'].ChildNodes['quantidadeMedicamento'].NodeValue:='3';
ChildNodes['dataVendaMedicamento'].NodeValue := FormatDateTime('yyyy-mm-dd',Date);
end;
end;
// Loop das [Transferencias] :: MEDICAMENTO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('saidaMedicamentoTransferencia');
with NData do
begin
ChildNodes['notaFiscalTransferenciaMedicamento'].ChildNodes['numeroNotaFiscal'].NodeValue:=IntToStr(i);
// [tipoOperacaoNotaFiscal]
// 1 Compra
// 2 Transferência
// 3 Venda
ChildNodes['notaFiscalTransferenciaMedicamento'].ChildNodes['tipoOperacaoNotaFiscal'].NodeValue:='2';
ChildNodes['notaFiscalTransferenciaMedicamento'].ChildNodes['dataNotaFiscal'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes['notaFiscalTransferenciaMedicamento'].ChildNodes['cnpjOrigem'].NodeValue:='99999999000199';
ChildNodes['notaFiscalTransferenciaMedicamento'].ChildNodes['cnpjDestino'].NodeValue:='99999999000199';
ChildNodes['medicamentoTransferencia'].ChildNodes['registroMSMedicamento'].NodeValue:='1058302590029';
ChildNodes['medicamentoTransferencia'].ChildNodes['numeroLoteMedicamento'].NodeValue:='153353';
ChildNodes['medicamentoTransferencia'].ChildNodes['quantidadeMedicamento'].NodeValue:='2';
ChildNodes['dataTransferenciaMedicamento'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
end;
end;
// Loop das [Perdas] :: MEDICAMENTO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('saidaMedicamentoPerda');
with NData do
begin
// [motivoPerdaMedicamento]
// 1 Furto / Roubo
// 2 Avaria
// 3 Vencimento
// 4 Apreensão / Recolhimento pela Visa
ChildNodes['motivoPerdaMedicamento'].NodeValue:='3';
ChildNodes['medicamentoPerda'].ChildNodes['registroMSMedicamento'].NodeValue:='1010000750061';
ChildNodes['medicamentoPerda'].ChildNodes['numeroLoteMedicamento'].NodeValue:='RV365';
ChildNodes['medicamentoPerda'].ChildNodes['quantidadeMedicamento'].NodeValue:='2';
ChildNodes['dataPerdaMedicamento'].NodeValue := FormatDateTime('yyyy-mm-dd',Date);
end;
end;
// *************************************************************************
// ********************************* INSUMO ********************************
NMedicamento:=NCorpo.AddChild('insumos');
// Loop das [Entradas] :: INSUMO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('entradaInsumos');
with NData do
begin
ChildNodes['notaFiscalEntradaInsumo'].ChildNodes['numeroNotaFiscal'].NodeValue:=IntToStr(i);
// [tipoOperacaoNotaFiscal]
// 1 Compra
// 2 Transferência
// 3 Venda
ChildNodes['notaFiscalEntradaInsumo'].ChildNodes['tipoOperacaoNotaFiscal'].NodeValue:='1';
ChildNodes['notaFiscalEntradaInsumo'].ChildNodes['dataNotaFiscal'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes['notaFiscalEntradaInsumo'].ChildNodes['cnpjOrigem'].NodeValue:='99999999000199';
ChildNodes['notaFiscalEntradaInsumo'].ChildNodes['cnpjDestino'].NodeValue:='99999999000199';
ChildNodes['substanciaInsumoEntrada'].ChildNodes['insumoEntrada'].ChildNodes['codigoInsumo'].NodeValue:='0075';
ChildNodes['substanciaInsumoEntrada'].ChildNodes['insumoEntrada'].ChildNodes['numeroLoteInsumo'].NodeValue:='788cpf';
ChildNodes['substanciaInsumoEntrada'].ChildNodes['insumoEntrada'].ChildNodes['insumoCNPJFornecedor'].NodeValue:='99999999000199';
ChildNodes['substanciaInsumoEntrada'].ChildNodes['quantidadeInsumoEntrada'].NodeValue:='40000.0';
ChildNodes['substanciaInsumoEntrada'].ChildNodes['tipoUnidadeEntrada'].NodeValue:='1';
ChildNodes['dataRecebimentoInsumo'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
end;
end;
// Loop das [Saidas] :: INSUMO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('saidaInsumoVendaAoConsumidor');
with NData do
begin
// [tipoReceituarioInsumo]
// 1 Receita de Controle Especial em 2 vias (Receita Branca)
// 2 Notificação de Receita B (Notificação Azul)
// 3 Notificação de Receita Especial (Notificação Branca)
// 4 Notificação de Receita A (Notificação Amarela)
ChildNodes['tipoReceituarioInsumo'].NodeValue:='2';
ChildNodes['numeroNotificacaoInsumo'].NodeValue:='9897651';
ChildNodes['dataPrescricaoInsumo'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes['prescritorInsumo'].ChildNodes['nomePrescritor'].NodeValue:='Dr. Antenor';
ChildNodes['prescritorInsumo'].ChildNodes['numeroRegistroProfissional'].NodeValue:='8888';
// [conselhoProfissional]
// CRM Conselho Regional de Medicina
// CRMV Conselho Regional de Medicina Veterinária
// CRO Conselho Regional de Odontologia
ChildNodes['prescritorInsumo'].ChildNodes['conselhoProfissional'].NodeValue:='CRM';
ChildNodes['prescritorInsumo'].ChildNodes['UFConselho'].NodeValue:='PR';
ChildNodes['usoInsumo'].NodeValue:='1';
ChildNodes['compradorInsumo'].ChildNodes['nomeComprador'].NodeValue:='Manuela Danta';
// [tipoDocumento]
// 1 CARTEIRA DE REGISTRO PROFISSIONAL
// 2 CARTEIRA DE IDENTIDADE . . . existem mais
ChildNodes['compradorInsumo'].ChildNodes['tipoDocumento'].NodeValue:='2';
ChildNodes['compradorInsumo'].ChildNodes['numeroDocumento'].NodeValue:='89786453';
ChildNodes['compradorInsumo'].ChildNodes['orgaoExpedidor'].NodeValue:='SSP';
ChildNodes['compradorInsumo'].ChildNodes['UFEmissaoDocumento'].NodeValue:='PR';
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['insumoVendaAoConsumidor'].NodeValue:='';
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['insumoVendaAoConsumidor'].ChildNodes['codigoInsumo'].NodeValue:='02904';
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['insumoVendaAoConsumidor'].ChildNodes['numeroLoteInsumo'].NodeValue:='123dzp';
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['insumoVendaAoConsumidor'].ChildNodes['insumoCNPJFornecedor'].NodeValue:='99999999000199';
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['quantidadeDeInsumoPorUnidadeFarmacotecnica'].NodeValue:='5.0';
// [unidadeDeMedidaDoInsumo]
// 1 Miligrama
// 2 Mililitro
// 3 Unidade (U)
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['unidadeDeMedidaDoInsumo'].NodeValue:='1';
// [unidadeFarmacotecnica]
// 1 Miligrama
// 2 Cápsula
// 3 Comprimido
// 4 Mililitro
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['unidadeFarmacotecnica'].NodeValue:='2';
ChildNodes['substanciaInsumoVendaAoConsumidor'].ChildNodes['quantidadeDeUnidadesFarmacotecnicas'].NodeValue:='60.0';
ChildNodes['dataVendaInsumo'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
end;
end;
// Loop das [Transferencias] :: INSUMO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('saidaInsumoTransferencia');
with NData do
begin
ChildNodes['notaFiscalTransferenciaInsumo'].ChildNodes['numeroNotaFiscal'].NodeValue:=IntToStr(i);
// [tipoOperacaoNotaFiscal]
// 1 Compra
// 2 Transferência
// 3 Venda
ChildNodes['notaFiscalTransferenciaInsumo'].ChildNodes['tipoOperacaoNotaFiscal'].NodeValue:='2';
ChildNodes['notaFiscalTransferenciaInsumo'].ChildNodes['dataNotaFiscal'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes['notaFiscalTransferenciaInsumo'].ChildNodes['cnpjOrigem'].NodeValue:='99999999000199';
ChildNodes['notaFiscalTransferenciaInsumo'].ChildNodes['cnpjDestino'].NodeValue:='99999999000199';
ChildNodes['substanciaInsumoTransferencia'].ChildNodes['insumoTransferencia'].ChildNodes['codigoInsumo'].NodeValue:='02904';
ChildNodes['substanciaInsumoTransferencia'].ChildNodes['insumoTransferencia'].ChildNodes['numeroLoteInsumo'].NodeValue:='15353';
ChildNodes['substanciaInsumoTransferencia'].ChildNodes['insumoTransferencia'].ChildNodes['insumoCNPJFornecedor'].NodeValue:='99999999000199';
ChildNodes['substanciaInsumoTransferencia'].ChildNodes['quantidadeInsumoTransferencia'].NodeValue:='20000.0';
ChildNodes['substanciaInsumoTransferencia'].ChildNodes['tipoUnidadeTransferencia'].NodeValue:='1';
ChildNodes['dataTransferenciaInsumo'].NodeValue :=FormatDateTime('yyyy-mm-dd',Date);
end;
end;
// Loop das [Perdas] :: INSUMO
for i:=1 to x do
begin
NData:=NMedicamento.AddChild('saidaInsumoPerda');
with NData do
begin
// [motivoPerdaInsumo]
// 1 Furto / Roubo
// 2 Avaria
// 3 Vencimento
// 4 Apreensão / Recolhimento pela Visa
ChildNodes['motivoPerdaInsumo'].NodeValue:='2';
ChildNodes['substanciaInsumoPerda'].ChildNodes['insumoPerda'].ChildNodes['codigoInsumo'].NodeValue:='02904';
ChildNodes['substanciaInsumoPerda'].ChildNodes['insumoPerda'].ChildNodes['numeroLoteInsumo'].NodeValue:='786dpz';
ChildNodes['substanciaInsumoPerda'].ChildNodes['insumoPerda'].ChildNodes['insumoCNPJFornecedor'].NodeValue:='99999999000199';
ChildNodes['substanciaInsumoPerda'].ChildNodes['quantidadeInsumoPerda'].NodeValue:='12345.0';
ChildNodes['substanciaInsumoPerda'].ChildNodes['tipoUnidadePerda'].NodeValue:='1';
ChildNodes['dataPerdaInsumo'].NodeValue:=FormatDateTime('yyyy-mm-dd',Date);
ChildNodes['cnpjFornecedorInsumo'].NodeValue:='99999999000199';
end;
end;
// *************************************************************************
SaveToFile(ExtractFileDir(Application.ExeName)+'\Sngpc_'+FormatDateTime('dd_mm_yyyy',Date)+'.xml');
end;
XMLDoc.Active:=False;
XMLDoc.Free;
end;

Java Script validando Formulário

2007-11-11T00:00:00.000-08:00

Fonte: www.scriptbrasil.com

<html>
<head>
<title>ScriptBrasil - Js
Validação</title>
<script Language="JavaScript">
/*
##############################
#
#
#
ScriptBrasil
#
#http://www.scriptbrasil.com/#
#
#
##############################
*/
function checa_formulario(icqlist){
if (icqlist.nick.value == ""){
alert("Por Favor Coloque Seu Nick !!!");
icqlist.nick.focus();
return (false);
}
if (icqlist.email.value == ""){
alert("O Campo E-mail está Vazio !!!");
icqlist.email.focus();
return (false);
}
if (icqlist.email.value.indexOf('@', 0) == -1){
alert("O E-mail é Ivalido !!!");
icqlist.email.focus();
return (false);
}
if (icqlist.icq.value == ""){
alert("O campo ICQ Está Vazio !!!");
icqlist.icq.focus();
return (false);
}
var ver_numero = "1234567890";
var sk15 = icqlist.icq.value;
var invalido = true;
for (i = 0; i < sk15.length; i++){
ch = sk15.charAt(i);
for (j = 0; j < ver_numero.length; j++)
if (ch == ver_numero.charAt(j))
break;
if (j == ver_numero.length){
invalido = false;
break;
}}
if (!invalido){
alert("O Campo ICQ Deve Conter Apenas Números !!!");
icqlist.icq.focus();
return (false);
}
if (icqlist.icq.value.length < 7){
alert("O campo ICQ Deve Ter No Minimo 7 Números !!!")
icqlist.icq.focus();
return (false);
}
if (icqlist.icq.value.length > 10){
alert("O campo ICQ Deve Ter No Maximo 10 Numeros !!!")
icqlist.icq.focus();
return (false);
}
if (icqlist.senha.value == ""){
alert("O campo senha Está Vazio !!!");
icqlist.senha.focus();
return (false);
}
if (icqlist.senha.value.length < 4){
alert("O campo senha Deve Ter No Minimo 4 Números !!!")
icqlist.senha.focus();
return (false);
}
if (icqlist.senha.value.length > 8){
alert("O campo senha Deve Ter No Maximo 8 Números !!!")
icqlist.senha.focus();
return (false);
}
if (icqlist.senha2.value == ""){
alert("O campo Comfirma senha Está Vazio !!!");
icqlist.senha2.focus();
return (false);
}
if (icqlist.senha.value != icqlist.senha2.value){
alert("A Senha do Comfirma Senha é diferenete do 1º
Campo !!!");
icqlist.senha2.focus();
return (false);
}
if (icqlist.idade.value == ""){
alert("O campo Idade Está Vazio !!!");
icqlist.idade.focus();
return (false);
}
if (icqlist.idade.value.length > 2){
alert("O campo Idade Deve Ter No Maximo 2 Números !!!")
icqlist.idade.focus();
return (false);
}
var ver_numero = "1234567890";
var sk15 = icqlist.idade.value;
var invalido = true;
for (i = 0; i < sk15.length; i++){
ch = sk15.charAt(i);
for (j = 0; j < ver_numero.length; j++)
if (ch == ver_numero.charAt(j))
break;
if (j == ver_numero.length){
invalido = false;
break;
}}
if (!invalido){
alert("O Campo Idade Deve Conter Apenas Números !!!");
icqlist.idade.focus();
return (false);
}
if (icqlist.sexo.value == "selecione"){
alert("Por Favor Selecione Um Sexo !!!");
icqlist.sexo.focus();
return (false);
}
if (icqlist.cidade.value == ""){
alert("O campo Cidade Está Vazio !!!");
icqlist.cidade.focus();
return (false);
}
if (icqlist.homepage.value == "http://"){
alert("O campo Home-Page Está Vazio !!!");
icqlist.homepage.focus();
return (false);
}
return (true);
}
//-->
</script>
</head>

<body bgcolor="#FFFFFF">

<p align="center"><br>
</p>

<form onsubmit="return checa_formulario(this)" name="icqlist"
action="cad.html" method="post">
    <div
align="center"><center>
<table border="0" cellspacing="1" cellpading="0">

<tr>

<td><font size="2" face="Verdana">Nick:
</font></td>

<td><input type="text" size="20"
name="nick"></td>

</tr>

<tr>

<td><font size="2"
face="Verdana">E-mail:</font></td>

<td><input type="text" size="20"
name="email"></td>

</tr>

<tr>

<td><font size="2"
face="Verdana">ICQ:</font></td>

<td><input type="text" size="20"
name="icq"></td>

</tr>

<tr>

<td><font size="2"
face="Verdana">Senha:</font></td>

<td><input type="password" size="20"
name="senha"></td>

</tr>

<tr>

<td><font size="2" face="Verdana">Confirmar
senha:</font></td>

<td><input type="password" size="20"
name="senha2"></td>

</tr>

<tr>

<td><font size="2"
face="Verdana">Idade:</font></td>

<td><input type="text" size="20"
name="idade"></td>

</tr>

<tr>

<td><font size="2"
face="Verdana">Sexo:</font></td>

<td><select name="sexo" size="1">

<option selected
value="selecione">Selecione</option>

<option value="M">Masculino</option>

<option value="F">Feminino</option>

</select></td>

</tr>

<tr>

<td><font size="2"
face="Verdana">Cidade:</font></td>

<td><input type="text" size="20"
name="cidade"></td>

</tr>

<tr>

<td><font size="2"
face="Verdana">Home-Page:</font></td>

<td><input type="text" size="20" name="homepage"
value="http://"></td>

</tr>

<tr>

<td> </td>

<td> </td>

</tr>

<tr>

<td colspan="2"><input type="reset" name="limpa"

value="Limpar">      <input

type="submit" name="cadastro"
value="Cadastrar"></td>

</tr>
    </table>

</center></div>
</form>
<p align="center"><br>
</p>
</body>
</html>

Java Script que mostra o seu HD

2007-11-10T00:00:00.000-08:00

C# - Somente uma instância do aplicativo

2007-11-09T00:00:00.018-08:00

Criando aplicações windows singleInstance

Aplicações singleInstance são aplicações que podem ser rodadas uma única vez, o usuário não pode abrir diversas instancias da aplicação, rodando várias vezes o executável.

O VB.NET, através dos recursos do MY, implementa facilmente aplicações singleInstance. Basta nas propriedades do projeto marcarmos a checkbox solicitando isso e ele gera o código para nós.

No C#, porém, não temos o recurso do My, consequentemente precisamos nós mesmos programar isso.

Para fazer isso devemos utilizar um Mutex. Um Mutex é um objeto do sistema operacional que permite criarmos uma sinalização entre nossas aplicações. Assim sendo, a primeira instância de nossa aplicação abre um Mutex e as instâncias seguintes, vendo que o Mutex já existe, não se iniciam.

Devemos fazer isso na Main. Veja:

static void Main()
{
Mutex mu = null;
try
{
mu = Mutex.OpenExisting("RUNMEONCE");
}
catch (WaitHandleCannotBeOpenedException)
{
}
if (mu == null)
{
mu = new Mutex(true, "RUNMEONCE");
}
else
{
mu.Close();
return;
}
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Form1());
}

C# - Disparando evento OnClick

2007-11-09T00:00:00.017-08:00

Disparar evento OnClick de outro componente

private void btnSalvar_Click(object sender, System.EventArgs e)
{
this.btnSalvar.Click += new System.EventHandler(this.btnCancelar_Click);
}

C# - Manipulando DataSet

2007-11-09T00:00:00.016-08:00

Em C# DataSet é um objeto que contém um conjunto de tabelas:

Para acessar a primeira tabela
ds.Tables[0];
Para acessar a segunda tabela
ds.Tables[1];
Para acessar o primeiro registro da primeira tabela
ds.Tables[0].Rows[0];
Para acessar o segundo registro da primeira tabela
ds.Tables[0].Rows[1];
Para acessar o primeiro registro da segunda tabela
ds.Tables[1].Rows[0];
Para acessar o segundo registro da segunda tabela
ds.Tables[1].Rows[0];
Para acessar o primeiro registro da primeira tabela do campo "NOME"
ds.Tables[0].Rows[0]["NOME"];
Para acessar o primeiro registro da primeira tabela do quarto campo
ds.Tables[0].Rows[0][3];
Para saber a quantidade de tabelas em um DataSet
ds.Tables.Count;
Para saber a quantidade de registros em uma tabela do DataSet
ds.Tables[0].Rows.Count;

Percorrendo uma tabela do DataSet

string s;
for(i=0; i <=ds.Tables["CLIENTE"].Rows.Count - 1; i++){
s = ds.Tables["CLIENTE"].Rows[i]["NOME"].ToString();
}

C# - Manipulando linhas em um DataGrid

2007-11-09T00:00:00.015-08:00

Se você trabalha com DataGrids no Visual Studio 2002 ou 2003, pode ser que precise adicionar, remover ou alterar valores em um DataGrid. Se já tentou fazer isso, viu que não é possível realizar essa tarefa no DataGrid. Para resolver esse problema, manipule os dados da DataGrid através da DataTable “interna” que guarda esses dados. Veja alguns exemplos:

// Adiciona uma linha nova igual à primeira linha
((DataTable)(dgMeuGrid)).Rows.Add(((DataTable)(dgMeuGrid)).Rows(0));

// Remove a segunda linha
((DataTable)(dgMeuGrid)).Rows.RemoveAt(1);

// Alterar a terceira coluna da primeira linha
((DataTable)(dgMeuGrid)).Rows[0][2] = "Igor";

Autor: Igor Alcantara

C# - Lendo um arquigo XML

2007-11-09T00:00:00.014-08:00

Utilizaremos a classe XmlTextReader que irá ler o arquivo e separar as TAGs de seus valores.

Exemplo de um arquivo XML:

Element1 Text
Element2 Text
Element3 Text
Element4 Text
Element5 Text

Exemplo do código em C#

string filename = "test.xml";
XmlTextReader tr = new XmlTextReader(filename);
while(tr.Read())
{
if(tr.NodeType == XmlNodeType.Text)
System.Console.WriteLine(tr.Value);
}

Sáida no prompt
Element1 Text
Element2 Text
Element3 Text
Element4 Text
Element5 Text

Autor: Emmanuel

C# - Como criar um Hastable

2007-11-09T00:00:00.013-08:00

Inicialmente, deveremos fazer a chamada ao namespace que contém a declaração da classe Hashtable: using System.Collections;

Após a chamada, poderemos utilizar um objeto do tipo Hashtable.

Agora, vamos criar o objeto e adicionar valores a minha nova Hashtable:

Criação do objeto:

// instanciando o objeto meuHash como do tipo Hashtable
Hashtable meuHash = new Hashtable();

Vamos agora adicionar valores ao "meuHash":

meuHash.Add("Codigos", "Seção que você encontrará diversos códigos para download");
meuHash.Add("Dicas", "Nesta seção você encontrará diversas dicas de nível básico ao avançado");
meuHash.Add("Serviços", "Diversos serviços gratuitos e de qualidade");

Pronto. Já criamos nosso objeto Hashtable e adicionamos valores a ele. Agora vamos Lê-los.

Você já deve ter utilizado arrays em C# ou em outra linguagem de programação, e para acessar um valor contido neles você deveria informar um 'index' que referencia ao desejado.

No Hashtable funciona de forma parecida, mas sua diferença é que você pode acessar um valor passando também a sua chave. Veremos a seguir:

Para pegar a 2ª linha utilizamos:

// pegando o valor e convertendo para string
meuHash["Dicas"].ToString();

Saída no prompt
Nesta seção você encontrará diversas dicas de nível básico ao avançado

Vamos utilizar agora uns comandos interessantes para manipulação de Hashtables:

meuHash.ContainsKey("Codigos") - esta propriedade verifica se eu adicionei um valor ao meu Hashtable cuja chave é "Codigos". Retornando True se achar e False, caso contrário.

Utilizando o comando anterior, podemos excluir um valor adicionado ao meu Hash, utilizando a propriedade Remove("Chave");

Exemplo:

Console.WriteLine("Meu hash tem Códigos? - {0}", meuHash.ContainsKey("Codigos"));
if(meuHash.ContainsKey("Codigos"))
{
meuHash.Remove("Codigos");
}
Console.WriteLine("Meu hash tem Códigos? - {0}", meuHash.ContainsKey("Codigos"));

Saída no prompt

Meu hash tem Códigos? - True
Meu hash tem Códigos? - False

É importante lembrar que você pode utilizar a propriedade Contains* para verificar se existe algo definido a partir de uma chave no Hashtable ou através de um valor. Para isto, utilize a propriedade ContainsValue["Valor"];

Autor: Emmanuel

C# - Crie um arquivo TXT e acrescente valores usando C#

2007-11-09T00:00:00.012-08:00

Os arquivos TXT's podem ser uma excelente forma de trafegar dados entre aplicações.

Sabemos que agora estamos no mundo do XML, mas na condição de alocação do arquivo para uma futura importação, ou até na leitura / extração de informações de portas seriais, o TXT atende bem a demanda para uma futura importação a um banco de dados.

1)Streams

Um stream é uma representação abstrata de um dispositivo serial. Um dispositivo como uma impressora, um local da memória ou qualquer objeto que suporte a leitura e a escrita nele de modo linear.

2) Classes File e Directory

2.1 Métodos úteis da classe "File":

Método - Descrição
Create ( ) - Criar um arquivo em um determinado caminho
Open ( ) - FileStrem no caminho especificado
Copy( ) - Copiar arquivo em um local especifico

2.2 Métodos úteis da classe "Diretory"

Método - Descrição
Delete ( ) - Exclui o diretório e todos os arquivos nele contido
Move ( ) - Mover um diretório para um novo local.
GetFiles( ) - Retorna uma array de objetos File

3) Classe FileInfo

A classe FileInfo não possui métodos estáticos e pode ser usada apenas em objetos instanciado. O objeto FileInfo é como se fosse um arquivo em um disco. OBS: Para escrevermos ou lermos um arquivo, é necessário criarmos um objeto Stream. Vamos criar um objeto FileInfo, indicando o nome do arquivo e seu diretório.

FileInfo aFile = new FileInfo ("c:/raptors.txt");

Diferente da classe FileInfo, que não é uma classe estática, a classe File requer um parâmetro de string especificando a localização do arquivo para cada chamada de método.
OBS: As duas chamadas abaixo efetuam o mesmo resultado.

FileInfo aFile = new FileInfo("raptors.txt");
If (aFile.Exists)
Console.WriteLine("Esse arquivo existe");
If (File.Exists("raptors.txt"))
Console.WriteLine("Esse arquivo existe");

É sensato que você utilize a classe estática File se você estiver realizando uma única chamada de método do objeto. Caso a chamada o seu aplicativo estiver realizando várias operações em um arquivo, seria mais sensato instanciar o objeto FileInfo e usar os seus métodos, economizando mais tempo porque o objeto já estará referenciando o arquivo correto no sistema de arquivos, enquanto uma classe estática terá de encontrá-lo a cada vez.

ATENÇÃO: A grande parte dos métodos FileInfo parecem com os métodos File.

4) Vamos escrever dados em um arquivo TXT

OBS: Todos esses passos foram realizados no Visual Studio.NET 2003, com o objetivo de apresentar como se cria um arquivo TXT e implementa valores dentro do mesmo. O exemplo é bem simples, mas pode ser explorado de acordo com a sua necessidade.

4.1) Crie um projeto: C# Console Aplication

4.2) Acrescente no topo do arquivo Class1.cs
using System.IO;
using System.Text;

4.3) O código abaixo abre o arquivo e caso ele não exista o mesmo é criado.
//Abrir o arquivo
StreamWriter valor = new StreamWriter("D:\Inetpub\wwwroot\raptors.txt", true, Encoding.ASCII);

4.4) Efetuamos um Loop para preencher o arquivo com valores numérios, de 1 a 9.
//Loop para implementação dos numeros no TXT.
for(i=0; i < 10; i++)
{
valor.Write(i);
}

4.5) Após o Loop fechamos o arquivo.
//Fecha o arquivo
valor.Close();

4.6) Após compilado o projeto, informamos que tudo encontra-se em perfeito estado,
catch(Exception e)
{
Console.WriteLine("Exception: " + e.Message);
}
finally
{
Console.WriteLine("Parabéns, agora mais um arquivo dos Raptors.");
}

Autor: Thiago Cruz

C# - Path de diretórios

2007-11-09T00:00:00.011-08:00

using System;

namespace ConsoleApplication1
{
class Class1
{
[STAThread]
static void Main(string[] args)
{
Console.WriteLine();
// Path do diretório da aplicação
Console.WriteLine("Diretório da aplicação: {0}",
Environment.CurrentDirectory);
// Path do diretório do Sistema Operacional
Console.WriteLine("Diretório do S.O.: {0}",
Environment.GetFolderPath(Environment.SpecialFolder.System));
// Path da àrea de trabalho
Console.WriteLine("Path àrea de trabalho: {0}",
Environment.GetFolderPath(Environment.SpecialFolder.Desktop));
// Path Meus documentos
Console.WriteLine("Path Meus documentos: {0}",
Environment.GetFolderPath(Environment.SpecialFolder.Personal));
// Path Cookies
Console.WriteLine("Path Cookies: {0}",
Environment.GetFolderPath(Environment.SpecialFolder.Cookies));
// Path documentos abertos recentemente
Console.WriteLine("Path doctos recentes: {0}",
Environment.GetFolderPath(Environment.SpecialFolder.Recent));
Console.ReadLine();
}
}
}

Versão do framework

2007-11-09T00:00:00.010-08:00

Para verificar as versões do framework .NET que uma determinada máquina de desenvolvimento possui, siga este roteiro:

· Clique no menu Iniciar e localize em Programas, o menu referente ao Visual Studio.

· Clique no prompt de comando do Visual Studio.

· Digite o seguinte comando: aspnet_regiis -lv

A saída desse comando apresenta as versões e se cada uma delas é válida ou não e o path da instalação.

Autor: Cláudio Ralha

C# - Obter todos os Data Providers instalados na máquina cliente

2007-11-09T00:00:00.009-08:00

//Para obter todos os Data Providers instalados na máquina
//e que tenham compatibilidadade com .NET 2 e ADO.NET 2 ou superior
//use a função DbProviderFactories.GetFactoryClasses();
//Exemplo:

using System;
using System.Collections.Generic ;
using System.Text;
using System.Data.Common;
using System.Data;

namespace ListarDataProviders
{
class Program
{
static void Main(string[] args)
{
DataTable providers = DbProviderFactories.GetFactoryClasses();

foreach (DataRow linha in providers.Rows)
{
foreach (DataColumn coluna in providers.Columns)
{
Console.WriteLine("{0}:", coluna.ColumnName);
Console.WriteLine(linha[coluna].ToString());
}
Console.WriteLine();
}
Console.ReadKey ();

}
}
}

Autor: Adriano Santos

C# - Capturando endereços IP

2007-11-09T00:00:00.007-08:00

using System.Net;

string s ="";
IPAddress[] addressList = Dns.GetHostByName(Dns.GetHostName()).AddressList;
for (int i = 0; i < addressList.Length; i ++) s += addressList[i].ToString() + "\n";
txtBox1.Text = s;

Autor: Alexandre Ruter Facione

C# - usando o using

2007-11-09T00:00:00.006-08:00

Try/finaly ou using ?

Sabemos que no final das contas, ambos fazem a mesma coisa.
No entanto...

Ao usar o try/finnaly o objeto instanciado por você, deverá ser liberado dentro de finnaly (você deverá fazer isso manualmente), mas quando usamos using, está liberação é feita automaticamente.

O using atende a liberação de recursos. O objeto que será instânciado no comando “using”, é liberado automaticamente, ou seja, é chamado o “Dispose” deste objeto de forma totalmente automática.

O using é um tipo de atalho da liguagem. O compilador traduz o using para um comando muito semelhante a instrução nativa try/finaly.

Na prática como funciona? Vejamos um exemplo simples:

1- Aqui um código puro sem bloco de segurança.

TextWriter writer = new StreamWriter(”texto.txt”);
writer.WriteLine(”Aqui vem o texto.”);
writer.Dispose();

2- Agora o mesmo código, só que em uma construção dentro de um bloco seguro e com a liberação do recurso do objeto.

TextWriter writer = null;
try
{
writer = new StreamWriter(”texto.txt”);
writer.WriteLine(”Aqui vem o texto.”);
}
finally
{
if (writer != null)
writer1.Dispose();
}

3- Aqui o equivalente ao código anterior com o comando “using”.

using ( TextWriter writer = new StreamWriter(”texto.txt”) )
{
writer2.WriteLine(”Aqui vem o texto.”);
}

Bom, agora segue a dica:

Nunca se esqueça de SEMPRE usar o “using” quando estiver trabalhando com recursos não gerenciados.

Autor: Francke Peixoto

C# - Adicionando controle em tempo de execução

2007-11-09T00:00:00.004-08:00

TextBox tb = new TextBox();

tb.Location = new Point(10, 10);
tb.Size = new Size(100, 20);
tb.Text = "Olá Mundo!";

this.Controls.Add(tb);

Autor: Alexandre Ruter Facione

Função C# - Removendo caracteres especiais de um TextBox

2007-11-09T00:00:00.003-08:00

Vamos supor que existe um TextBox em um Windows Form e você tem que entrar com uma senha, nome, endereço, etc.

Se você deseja que alguns caracteres, como vírgula (,), ponto e vírgula (;), sinal de adição (+), etc sejam removidos do TextBox, por exemplo, após o clique de um botão, aqui vai um pequeno truque:

Digamos que você digite no TextBox, a string "+Bo=n;d" e clique no botão.

O método:

private void button1_Click(object sender, System.EventArgs e) {
//Aqui você pode incluir os caracteres qeu deseja que sejam retirados
char[] trim = {'=', '\\', ';','.', ':',',','+','*'};
int pos;
while ((pos = this.textBox1.Text.IndexOfAny (trim)) >= 0)
{
this.textBox1.Text = this.textBox1.Text.Remove (pos, 1);
}
}
}

Será invocado e o resultado da nova string sem os caracteres especiais na variável "trim" será mostrada no TextBox.

Autor: Huseyin Altindag

Função C# - Retirar acentos

2007-11-09T00:00:00.002-08:00

Exemplo 01
private string retiraAcentos(string texto)
{
string comAcentos = "ÄÅÁÂÀÃäáâàãÉÊËÈéêëèÍÎÏÌíîïìÖÓÔÒÕöóôòõÜÚÛüúûùÇç";
string semAcentos = "AAAAAAaaaaaEEEEeeeeIIIIiiiiOOOOOoooooUUUuuuuCc";
for (int i = 0; i < comAcentos.Length; i++)
{
texto = texto.Replace(comAcentos[i].ToString(),semAcentos[i].ToString());
}
return texto;
}

Exemplo 02
private string retiraAcentos(string strcomAcentos)
{
string strsemAcentos = strcomAcentos;
strsemAcentos = Regex.Replace(strsemAcentos, "[áàâãª]", "a");
strsemAcentos = Regex.Replace(strsemAcentos, "[ÁÀÂÃ]", "A");
strsemAcentos = Regex.Replace(strsemAcentos, "[éèê]", "e");
strsemAcentos = Regex.Replace(strsemAcentos, "[ÉÈÊ]", "e");
strsemAcentos = Regex.Replace(strsemAcentos, "[íìî]", "i");
strsemAcentos = Regex.Replace(strsemAcentos, "[ÍÌÎ]", "I");
strsemAcentos = Regex.Replace(strsemAcentos, "[óòôõº]", "o");
strsemAcentos = Regex.Replace(strsemAcentos, "[ÓÒÔÕ]", "O");
strsemAcentos = Regex.Replace(strsemAcentos, "[úùû]", "u");
strsemAcentos = Regex.Replace(strsemAcentos, "[ÚÙÛ]", "U");
strsemAcentos = Regex.Replace(strsemAcentos, "[ç]", "c");
strsemAcentos = Regex.Replace(strsemAcentos, "[Ç]", "C");
return strsemAcentos;
}

Função C# - Calcular idade de uma pessoa

2007-11-09T00:00:00.001-08:00

using System;

namespace ConsoleApplication1
{
class Class1
{

private static int calcIdade(DateTime dNasc)
{
int idade = DateTime.Now.Year - dNasc.Year;
if (DateTime.Now.Month < dNasc.Month ||
(DateTime.Now.Month == dNasc.Month &&
DateTime.Now.Day < dNasc.Day))
idade--;
return idade;
}

[STAThread]
static void Main(string[] args)
{
DateTime data = new DateTime(1964,12,15);
Console.WriteLine("Idade: " + calcIdade(data) + " anos");
Console.ReadLine();
}
}
}

Função C# - Validação de CNPJ

2007-11-09T00:00:00.000-08:00

using System;

namespace ClassLibrary1
{

public class valida
{
public valida()
{

}

public bool ValidaCnpj(string cnpj)
{
int[] multiplicador1 = new int[12] {5,4,3,2,9,8,7,6,5,4,3,2};
int[] multiplicador2 = new int[13] {6,5,4,3,2,9,8,7,6,5,4,3,2};
int soma;
int resto;
string digito;
string tempCnpj;

cnpj = cnpj.Trim();
cnpj = cnpj.Replace(".", "").Replace("-", "").Replace("/", "");

if (cnpj.Length != 14)
return false;

tempCnpj = cnpj.Substring(0, 12);

soma = 0;
for(int i=0; i<12; i++)
soma += int.Parse(tempCnpj[i].ToString()) * multiplicador1[i];

resto = (soma % 11);
if ( resto < 2)
resto = 0;
else
resto = 11 - resto;

digito = resto.ToString();

tempCnpj = tempCnpj + digito;
soma = 0;
for (int i = 0; i < 13; i++)
soma += int.Parse(tempCnpj[i].ToString()) * multiplicador2[i];

resto = (soma % 11);
if (resto < 2)
resto = 0;
else
resto = 11 - resto;

digito = digito + resto.ToString();

return cnpj.EndsWith(digito);
}
}
}

Sistema Operacional gOS

2007-11-07T00:00:00.000-08:00

Green Operating System é aconselhável para computadores com baixo desempenho, ou seja, não precisa de nenhum super-computador para rodá-lo.

Feito em cima da distro do Ubuntu e adaptado para utilizar os vários recursos do Google:

YouTube
Procura Automatizado no Google
Calendário Google
Google Maps

Outros . . .
Wikipedia
Facebook
Xine
Movie Player
Skype
OpenOffice (planinha,editor de texto . . .)

Para baixar acesse www.thinkgos.com

Cartão de crédito com teclado

2007-11-06T00:00:00.000-08:00

A próxima geração de cartões de crédito poderá incorporar teclado com 12 teclas, um microprocessador e uma tela alfanumérica embutida, como o protótipo chamado Dispositivo com Autenticação Embutida (Credit Card Embedded Authentication Device, originalmente em inglês), desenvolvido pelas companhias Innovative Card Technologies e eMue Technologies.

Em formato padrão de cartão de crédito, o aparelho traz vários modos de autenticação para o uso em transações online, por telefone ou em caixas eletrônicos. Com ele, o usuário poderia entrar com seu PIN secreto a partir do teclado numérico do dispositivo para então receber um código numérico para usar uma vez, explicou o site The Red Ferret. Já para autorizar uma transação bancária, a senha é digitada na interface e validada instantaneamente por um servidor de autenticação.

Os desenvolvedores acreditam que o cartão de crédito com teclado alfanumérico embutido evita que o usuário coloque seu PIN em risco ao digitá-lo pelo navegador de internet. O novo cartão oferece uma forma amigável de defender os clientes de fraudes eletrônicas no setor bancário - um problema que tem um custo anual para as instituições financeiras estimado em US$ 4 bilhões, acrescentou o site gizmag Art.

O Dispositivo com Autenticação Embutida será apresentado ao consumidor durante o evento de segurança digital Cartes & IDentification, entre os dias 13 e 15 de novembro, em Paris.

Fontes
www.neotem.com.br
www.digitaldrops.com.br
www.geek.com.br

QR Codes

2007-11-05T00:00:00.000-08:00

O QR Code (ou Código de Barras em 2D), é uma matriz ou código de barras bidimensional, criado pela empresa Japonesa Denso-Wave, em 1994. O QR vem de Quick Response, pois o código pode ser interpretado rapidamente, mesmo com imagens de baixa resolução, feitas por cameras digitais em formato VGA, como as de celulares. O QR Code é muito usado no Japão.

Inicialmente usados para catalogar diferentes partes na construção de veículos, hoje o QR Code é usado no gerenciamento de inventário em uma grande variedade de indústrias. Desde 2003, estão sendo desenvolvidas aplicações direcionadas para ajudar os usuários na intediante tarefa de adicionar dados em telefones celulares.

Os QR Codes são muito comuns também em revistas e propagandas, onde usam-se os códigos para guardar endereços e URLs, além de informações pessoais detalhadas, no caso de cartões de visitas, facilitando muito a inserção destes dados em agendas de telefones celulares. Consumidores com programas de captura ou PCs com interface RS-232C, podem usar um scanner para capturar as imagens.

Por exemplo, meu blog em QR code ficaria assim:

http://blogdoaudrey.blogspot.com

Para criar uma url para seu site acesse http://qrcode.kaywa.com/

Editar / Modificar o ficheiro Boot.ini no Windows XP

2007-11-04T03:21:00.000-08:00

Cópia de segurança do arquivo Boot.ini

1-Click em Iniciar, Executar, escreva sysdm.cpl e clique em OK.
2-Na aba Avançado, clique em Configurações (Inicialização e Recuperação).
3-Clique em Editar. Este procedimento abre o ficheiro no Bloco de notas.
4-No Bloco de notas, click em Arquivo na barra de menus e click em Salvar como.
5-Crie uma pasta com o nome de temp_boot_ini e salve o arquivo nesta pasta.

Adicionar,remover e configurar o arquivo Boot.ini

1-Click em Iniciar, Executar.
2-Na caixa de texto escreva cmd
3-Na linha de comandos, escreva bootcfg /?
4-A ajuda e os parâmetros para BOOTCFG.exe serão apresentados.

Adicionar um sistema operacional
Na linha de comandos, digite:
bootcfg /copy /d Descrição do sistema operacional /ID#
Em que Descrição do sistema operacional é uma descrição de texto (por exemplo Windows XP Home Edition) e em que # especifica o ID da entrada de arranque na secção dos sistemas operacionais do arquivo BOOT.INI a partir do qual tem de ser feita a cópia.

Remover um sistema operacional
Na linha de comandos, escreva:
bootcfg /delete /ID#
Em que # especifica o ID da entrada de arranque que pretende ver eliminado da secção dos sistemas operacionais do arquivo BOOT.INI (por exemplo, 2 para o segundo sistema operacional apresentado).

Configurar o sistema operacional predefinido
Na linha de comandos, escreva:
bootcfg /default /ID#
Em que # especifica o ID da entrada de arranque da secção dos sistemas operacionais do arquivo BOOT.INI que deve se tornar o sistema operacional predefinido.

Configurar o limite de tempo
Na linha de comandos, escreva:
bootcfg /timeout#
Em que # especifica o tempo em segundos depois do qual o sistema operacional predefinido será carregado.

blogdoAudrey no Google

2007-11-03T04:19:00.001-07:00

Ahhhh . . . finalmente estou no indice de pesquisas do site do Google . . .

Livros online - Guida do Hardware - Carlos E.Morimoto

2007-11-02T03:39:00.000-07:00

O site Guia do hardware através de seu autor Carlos E.Morimoto disponibiliza livros online:

:. Linux, Entendendo o Sistema (guia prático)

* Publicado em 2006
Autor: Carlos E. Morimoto

Este livro explica a estrutura do sistema, as diferenças entre as distribuições, os programas e utilitários disponíveis e fornece até mesmo noções de hardware, redes e programação, que são úteis no dia-a-dia. Ele é, enfim, um guia para entender como o Linux funciona e fazê-lo trabalhar a seu favor :).
Ao longo do livro são abordados o Kurumin, Ubuntu e Slax. Uma das grandes preocupações é fornecer explicações aprofundadas, que sejam úteis ao lidar com várias distribuições diferentes.
:. Linux Entendendo o Sistema (leia online)

:. Kurumin, desvendando seus segredos

* Publicado em 2004
Autor: Carlos E. Morimoto

Embora tenha começado como um projeto despretencioso, o Kurumin tornou-se rapidamente uma das distribuições Linux mais usadas no páis. Este livro é o guia oficial, que mostra em detalhes os recursos disponíveis no sistema, as opções de configuração e os recursos disponíveis.

Dividido em 9 capítulos, o livro tem mais de 400 páginas, com dicas que são úteis também para quem usa outras distribuições Linux. No link abaixo você pode lê-lo online ou comprar a versão impressa.
:. Kurumin, desvendando seus segredos (leia online)

:. Dicionário de termos técnicos de Informática

* Este livro está em atualização constante
Autor: Carlos E. Morimoto

Um dos meus sonhos sempre foi escrever um dicionário de informática, com milhares de termos, ilustrações e tudo mais o que tivesse direito. Mas, quando se têm um trabalho tão grande em mente, muitas vezes o mais difícil é começar. Afinal, os dicionários costumam ser trabalhos para a vida toda, veja o caso do Aurélio, que tomou praticamente toda a vida do autor e hoje continua em desenvolvimento, atualizado por uma equipe de lingüistas.

Os meus objetivos aqui são um pouco mais modestos, chegar a um dicionário com 4 ou 5 mil termos de informática, abordando Hardware, Redes, Sistemas Operacionais e vários tipos de jargões utilizados neste mundo que poucos conhecem bem.
:. Dicionário de Termos Técnicos de Informática (leia online)

:. Entendendo e Dominando o Linux

* Atualizado em 2003
Autor: Carlos E. Morimoto

Com a rápida expansão que estamos vendo e rápida evolução do sistema, nunca é demais falar sobre o Linux. Este livro não tem como objetivo ser um guia altamente técnico, cheio de referências a scripts de configuração em Perl ou qualquer outra linguagem desconhecida muito menos um monte de RTFMs :-)

Este é um Guia para quem está dando seus primeiros passos no Linux e deseja conhecer os recursos do sistema. Além dos processos de instalação e configuração, você conhecerá os principais aplicativos disponíveis, como configurar vídeo, som, impressora, rede e até mesmo os temíveis softmodems no Linux.

Veremos ainda como interligar máquinas Linux e Windows em rede usando o Samba, como criar um poderoso servidor web com o Apache ou um servidor Proxy altamente configurável com o Squid. Você conhecerá ainda os vários serviços disponíveis no Linux, como configurar os principais arquivos de configuração, como acessar máquinas Linux remotamente via Telnet, SSH e VNC e ainda como configurar terminais leves e instalar o Linux em PCs antigos.

O Linux é um mundo novo a ser explorado e espero que este livro possa ser um dos seus guias nesta jornada
:. Entendendo e Dominando o Linux: (leia online)

:. Hardware, Manual Completo

* Atualizado em 2002
Autor: Carlos E. Morimoto

Seja você um técnico especializado, ou simplesmente um usuário com curiosidade acima da média, encontrará neste livro uma fonte rica e atualizada de informações que lhe permitirão, não somente montar e configurar micros, mas entender todos os seus segredos, muitas vezes ocultados pela linguagem técnica dos manuais, ou pelas complicadas opções do CMOS Setup, tornando-se apto para facilmente deixar qualquer micro PC "em ponto de bala" solucionando qualquer problema de funcionamento e melhorando seu desempenho com configurações otimizadas.

Estudaremos com detalhes neste livro desde cabos e conectores até as opções mais enigmáticas do CMOS Setup, passando pelo funcionamento e especificações técnicas de vários tipos de processadores, discos rígidos, memórias, chipsets, placas mães, placas de vídeo, monitores, e muitos outros periféricos.
:. Hardware, Manual Completo (leia online)

:. Guia de Redes: cabeamento e configuração

* Atualizado em 2002
Autor: Carlos E. Morimoto

As redes vem sendo cada vez mais utilizadas, não apenas em grandes empresas, mas em pequenos escritórios, ou mesmo em casa. A demanda por profissionais qualificados neste mercado vem tornando-se cada vez maior, e as remunerações não são nada ruins. Mesmo que você não pretenda tornar-se um especialista em redes, possuir pelo menos os conhecimentos básicos irá ajudar bastante sua carreira profissional. Se você já trabalha como técnico poderá agora oferecer mais um serviço a seus clientes.

Montar e configurar redes pequenas e médias é uma tarefa surpreendentemente simples.O objetivo deste livro é lhe dar todo o conhecimento necessário para montar redes de pequeno porte, como as usadas em casas e escritórios, incluindo compartilhamento da mesma conexão à Internet, configuração de endereços IP, etc. Porém, também são abordados tópicos mais avançados, como a configuração de máscaras de sub-rede complexas, criação de redes virtuais, etc. que lhe darão uma boa idéia de como montar redes mais complexas. Apesar do assunto parecer bastante técnico, procurei usar uma linguagem os mais didática possível, abordando todos os detalhes, porém sem cair no tecnismo, a mesma linguagem que uso em meus outros livros.
:. Guia de Redes: cabeamento e configuração (leia online)

S.O. do Google para celulares

2007-10-31T14:12:00.000-07:00

O Google esta planejando anunciar seu primeiro Sistema Operacional para celulares em duas semanas, sendo disponibilizado no mercado em 2008.
Os celulares equipados com software do Google devem trazer várias aplicações da companhia, incluindo o Google Maps, YouTube e Gmail.
O Google tem o objetivo de deixar o software dos dispositivos abertos, incluindo o Sistema Operacional dos aparelhos. Isso permitirá aos desenvolvedores criarem recursos adicionais para os celulares. Acredita-se que essa abertura seja uma estratégia para lançamento do celular da Google.

É esperar para ver . . .

Instalando o Ubuntu em um pendrive ou HD externo

2007-10-30T00:00:00.000-07:00

A dica serve também para cartões, HD externos e outros dispositivos de armazenamento ligados à porta USB.

Veja detalhes no Guia do Hardware

Furto ou roubo de carro: O que fazer ?

2007-10-28T13:02:00.000-07:00

Se o seu veículo for roubado, entre em contato imediatamente com a Policia Militar (190). Em seguida, dirija-se à delegacia mais próxima para registrar um Boletim de Ocorrência (BO). Com o BO, além de tomar as providências referentes ao seguro, você pode solicitar a restituição do IPVA proporcional ao período em que você nâo fez uso do veículo. A requisição deve ser feita na Secretaria da Fazenda, no guichê do IPVA. Com o BO em mão também é possivel emitir um alerta para a Polícia Rodoviária Federal, que comunica para as viaturas com acesso via satélite. O sistema aceitará ocorrências nas últimas 72 horas. O alerta só pode ser feito via internet, através do endereço www.dprf.gov.br

Coisas que quase ninguém sabe sobre a MICROSOFT

2007-10-27T04:49:00.000-07:00

Dennes do Blog MeioBit publicou um artigo interessante sobre coisas que quase ninguém sabe sobre a Microsoft, inclusive com links para comprovação.
Veja abaixo algumas questões no estilo "você sabia . . ."

Que governos tem direito de acesso ao código fonte do Windows para garantir sua soberania nacional?
Veja em
http://www.microsoft.com/resources/sharedsource/default.mspx
http://www.microsoft.com/resources/sharedsource/Licensing/GSP.mspx

Que o Windows CE não é apenas um Windows para dispositivos móveis, mas possui uma ferramenta (Platform Builder) que permite que se monte um novo sistema operacional a partir da escolha de milhares de peças que formam o Windows CE, desta forma criando sistemas operacionais específicos para determinados hardwares (sistemas embarcados) sem o excesso de funcionalidades? Além disso o custo de licença da unidade do sistema operacional é
adaptado a partir das partes escolhidas pelo desenvolvedor, podendo ficar um valor a partir de aproximadamente US$ 10,00 a unidade?
Veja em
http://msdn2.microsoft.com/en-us/embedded/aa731407.aspx
http://msdn2.microsoft.com/en-us/library/aa448756.aspx

Que as urnas eletrônicas brasileiras foram criadas com base no Windows CE embarcado conforme a tecnologia citada no item 4?
http://www.unisys.com.br/news/imprensa/release99.htm
"A Unisys e a Diebold Procomp, fabricantes de urnas eletrônicas de São Paulo, tinham planos de exportar a tecnologia para os países vizinhos. Em vez de emprestar algumas poucas urnas para fazer propaganda, o governo Lula decidiu bancar as eleições alheias. Só para o Paraguai foram emprestadas 15.000 urnas para as eleições de 2005 e 2006. A empresa Vesta, de São Paulo, deixou de vender softwares de compras públicas on-line para a Bolívia porque Lula, em seu primeiro ano no poder, resolveu oferecer ao país, de graça, um programa com a mesma função. "O governo federal não só reinventou a roda com o software livre à custa do contribuinte, como prejudicou a competição no mercado de tecnologia", diz Paula Santos, sócia da Vesta. É a política do software livre contra o livre
mercado. "
http://veja.abril.uol.com.br/170506/p_068.html

"O governo brasileiro e os partidos políticos brasileiros, por exemplo, realizaram auditoria do código de 50 mil urnas eletrônicas baseadas no sistema operacional Windows CE"
Emilio Umeoka, Presidente da Microsoft Brasil
http://www.camara-e.net/newsletter/2004/newsletter02marco04.html

Página no Google

2007-10-26T06:35:00.001-07:00

Para colocar a sua página em mecanismos de busca do Google:

Pode ser através de Links em outros sites já indexados pelo Google;

Através do Google Webmaster (você precisa criar a conta no Google)http://www.google.com/webmasters/sitemaps/;

Submetendo o link para http://www.google.com/addurl/?continue=/addurl.

Web Templates - free

2007-10-26T06:05:00.000-07:00

Web templates free. São mais de 200 modelos de páginas para Web utilizando CSS.
Vale a pena conferir no site:

http://www.freecsstemplates.org/css-templates/

Ubuntu Linux 7.10 em Português

2007-10-24T06:28:00.000-07:00

O blog Zumo publicou uma análise da nova versão do Ubuntu, 7.10. Comenta vários aspectos desta versão, novos recursos, instalação, suporte a hardware . . .

Escrita por Rafael Rigues

Considerações finais:

O Ubuntu 7.10 não só é a melhor versão do Ubuntu que já testei, como uma das melhores distribuições Linux entre as muitas que já passaram pelas minhas mãos em vários anos lidando com o pinguim. O suporte a hardware é excelente (até mesmo Winmodems funcionam) e o recurso de instalação automática de codecs e a integração dos plugins do Firefox ao Synaptic praticamente dispensam o uso de software para “aparar as arestas”, como o popular (e recentemente controverso) Automatix.

Leia o texto completo

Firebird PHP Generator (free)

2007-10-23T09:23:00.000-07:00

Permite gerar scripts PHP para trabalhar com tabelas e consultas no banco de dados Firebird para Web. O script final tem todos os recursos poderosos que você esperaria de um aplicativo profissional de banco de dados:
>Navegação de dados
>Classificação
>Filtragem
>Modificação
>Adição
>Exclusão
Personalização completa da aparência em resultado HTML e recursos de segurança são implementados para tornar o aplicativo Web realmente útil e flexível.
Baixe aqui:
Firebird PHP Generator

Deixando o "Pesquisar" do Windows XP/2003 no modo clássico

2007-10-22T09:12:00.000-07:00

Deixando o "Pesquisar" do Windows XP/2003 no modo clássico: mais leve e melhor!
O "Pesquisar" do Windows XP ou 2003 é bonitinho (exibe um cachorrinho), mas é ruim e mais lento, consome recursos da máquina à toa.

É possível no entanto ativar a pesquisa clássica.
Faça o seguinte:
Edite o registro do Windows conforme abaixo:

Vá em "Iniciar > Executar" e digite "regedit" (digite regedit sem aspas). Dê ok.

Vá na chave (se não existir, crie-a):

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState

Localize no lado direito do editor do registro o item "Use Search Asst".
Se não tiver, crie um novo valor da seqüência.
Edite-o, e deixe com o valor "no".
Feche todas as janelas do Explorer e abra o pesquisar. Pronto . . .

Livro Asp.net por Alfredo Lotar

2007-10-22T06:21:00.000-07:00

Como programar com ASP.NET e C#
Editora: Novatec
ISBN: 9788575221211
Ano: 2007
Edição: 1
Número de páginas: 608
Acabamento: Brochura
Formato: Médio

Este livro apresenta muitos exemplos, códigos, tutoriais, dicas, truques e conceitos relacionados a aspectos básicos e avançados do C# e aos principais recursos do ASP.NET. Aos leitores mais experientes, é possível aprender novos recursos do ASP.NET 2.0, como: a pré-compilação, temas, skins, master pages, web parts, além de dezenas de novos controles do ASP.NET. ASP.NET é a plataforma da Microsoft que mais tem sido utilizada no desenvolvimento de web sites. C#, por sua vez, é uma linguagem de programação simples, mas eficaz, e de fácil aprendizado orientada a objetos. Juntas, além de facilitarem o trabalho do programador, proporcionam um ganho significativo de desempenho.Além dos aspectos já mencionados, Como programar com ASP.Net e C# ensina a:

>Criar e usar web user controls.
>Configurar e usar os controles de segurança do ASP.NET.
>Defender-se dos principais ataques sofridos por uma aplicação ASP.NET.
>Trabalhar com Ajax e ASP.NET AJAX.
>Criar gráficos numa página ASP.NET.
>Trabalhar com cache.
>Manipular documentos XML com ASP.NET e C#.
>Trabalhar com expressões regulares.
>Trabalhar com array e coleções.
>Manipular os arquivos e o registro.
>Enviar e-mails com ASP.NET.
>Manipular banco de dados com ADO.NET.
>Configurar uma aplicação com o arquivo web.config.
>Utilizar os recursos de globalização e localização.
>Validar um formulário com os controles de validação.
>Utilizar Javascript com ASP.NET.

Capítulo de exemplo do livro aqui:
http://www.novateceditora.com.br/livros/aspnet2/capitulo9788575221211.pdf

Livro PHP por Pablo Dall'Oglio

2007-10-22T06:07:00.000-07:00

PHP: Programando com Orientação a Objetos
(Inclui Design Patterns)
ISBN: 978-85-7522-137-2
Páginas: 576
Autor: Pablo Dall'Oglio
Ano: 2007

O livro aborda desde os conceitos básicos de orientação a objetos como herança, encapsulamento, abstração, polimorfismo, associação, agregação, composição, interfaces, tratamento de exceções, manipulação de XML e Web Services, sempre através de exemplos 100% funcionais e comentados.

O livro explica a utilização da biblioteca PDO para acesso a dados e aborda com profundidade técnicas de mapeamento objeto-relacional, explicando com detalhes a teoria e dando exemplos práticos que explicam cada uma das abordagens, que possibilitarão você a escolher a melhor forma de mapear os objetos para bases de dados relacionais.

O livro explica passo-a-passo como criar uma aplicação de negócio 100% orientada a objetos em PHP, desde a camada de persistência dos dados até a construção de formulários e listagens, sendo que estas tarefas serão totalmente automatizadas, como nos exemplos a seguir:
Criação de um formulário:
http://www.adianti.com.br/book/form.php
Criação de uma listagem:
http://www.adianti.com.br/book/list.php
Persistência de objetos:
http://www.adianti.com.br/book/model.php

Conheça a resenha do livro e um capítulo de exemplo aqui:
http://www.adianti.com.br/phpoo

Urna eletrônica 2008

2007-10-20T06:32:00.000-07:00

O TSE vai lançar no ano que vem a urna biométrica, na qual o eleitor poderá ser reconhecido pela digital e pela foto. O TSE já dispõe de 25 mil aparelhos que serão usados nas eleições em três cidades, nos Estados de Santa Catarina, Rondônia e Mato Grosso do Sul. Os municípios estão em processo de seleção.

Bom também . . .

Access 97, problemas com máquinas acima de 1GB

2007-10-20T04:00:00.000-07:00

Na empresa onde trabalho ainda temos sistemas usando Access97. Há alguns dias instalei o Access97 em uma máquina com memória de 1GB e para minha surpresa quando iniciei o dito cujo veio a seguinte mensagem "Memória insuficiente" é mole . . .

Se alguém tiver o mesmo problema . . . procure o arquivo sr1off97.exe no site da Microsoft que contém uma atualização de vários arquivos .dll inclusos no Microsoft Access 97 . . . qualquer dúvida é só postar.

Microsoft liberou o Internet Explorer 7 para Windows pirata ??

2007-10-19T06:27:00.000-07:00

A instalação pode ser feita por qualquer um manualmente a partir de www.microsoft.com/ie . Os requisitos de sistema são os mesmos: Windows XP a partir do Service Pack 2, ou Windows Server 2003 SP1 ou superior.

Por enquanto a versão que não requer validação é em inglês. Acredito que logo vão liberar para todas as versões.

Bem Vindos

2007-10-19T03:31:00.001-07:00

Hoje estou iniciando meu blog . . .
Matérias sobre informática e tecnologia .net

aguardem . . . será ???