Propriedade NextReport - Curso Fortes Reports com Delphi – Parte 7

Autor: Rodrigo F. Mattos

Tempo: 08:54 min

Mini Resumo: Nesta videoaula vamos ver como utilizar a propriedade NextReport do Fortes Reports no Delphi 2010, usada para criar uma próxima página como sugere o próprio nome em inglês. Esta é a última parte do Curso Fortes Reports com Delphi.

Tecnologias utilizadas: Delphi 2010, Fortes Reports, Firebird

Palavras chaves: Delphi 2010, Fortes Reports, MasterDetail, Firebird

  Acessem o Site da DEVMEDIA para Download

Relatório MasterDetail - Curso Fortes Reports com Delphi - Parte 6

Nesta videoaula vamos ver como fazer um relatório MasterDetail no Fortes Reports. Este tipo de relatório é utilizado geralmente em nota fiscal, onde você tem 1 nota com vários itens.

Autor: Rodrigo F. Mattos

Tempo: 16:16 min

Mini Resumo: Nesta videoaula, vamos ver como fazer um relatório MasterDetail no Fortes Reports. Este tipo de relatório é utilizado geralmente em nota fiscal, onde você tem 1 nota com vários itens.
Tecnologias utilizadas: Delphi 2010, Fortes Reports, Firebird

Palavras chaves: Delphi 2010, Fortes Reports, MasterDetail, Firebird

Acessem o Site da DEVMEDIA para Download

Finalizar Processo do Windows [Delphi]

Fechando um Processo do windows

declare a função KillTask ->

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

Exemplo:

begin

   KillTask('calc.exe');

end;

Nesse exemplo ele iria fechar a calculadora, calc.exe é o nome do processo da calculadora.

Utilizando o Componente RLSystemInfo - Curso Fortes Reports com Delphi – Parte 4

Autor: Rodrigo F. Mattos

Tempo: 10:35 min.

Mini Resumo: Nesta vídeo aula, vamos ver uma pequena demonstração da utilização do componente RLSystemInfo, o componente RLSystemInfo, pode deixar seu relatório com um ar mais profissional, e nessa vídeo aula vamos aprender as principais funcionalidades desse ótimo componente.

Metodologia de desenvolvimento do exemplo: A metodologia do curso é a criação de exemplos utilizando o Delphi 2010 e o Fortes Reports, vai ser utilizado banco de dados de exemplo que vem junto com o Delphi. Utilizaremos o Delphi 2010 com os componentes de acesso a dados como ClientDataSet e muitos outros.

Tecnologias utilizadas: Delphi2010, Fortes Reports

Palavras chaves: Delphi2010, Fortes Reports, RLSystemInfo.

Acessem o Site da DEVMEDIA para download

Utilizando parametros para filtrar o Relatório – Curso Fortes Reports com Delphi – Parte 3

Autor: Rodrigo F. Mattos

Tempo: 14:14 min.

Mini Resumo: Nesta vídeo aula, vamos aprender a fazer um tela de parametros para nosso Relatório feito na aula anterior, o parametro que nós vamos filtrar na video aula será CUST_NO, localizado na tabela CUSTOMER padrão do Delphi, vamos aprender passo a passo com se faz para filtrar.

Metodologia de desenvolvimento do exemplo: A metodologia do curso é a criação de exemplos utilizando o Delphi 2010 e o Fortes Reports, vai ser utilizado banco de dados de exemplo que vem junto com o Delphi. Utilizaremos o Delphi 2010 com os componentes de acesso a dados como ClientDataSet e muitos outros.

Tecnologias utilizadas: Delphi 2010, Fortes Reports

Palavras chaves: Delphi 2010, Fortes Reports

Acessem o Site da DEVMEDIA para download

Video: RLGroup e RLDBResult - Curso Fortes Reports com Delphi - Parte 2

Autor: Rodrigo F. Mattos

Tempo: 20:49min.

Mini Resumo: Nesta vídeo aula, vamos aprender a utilizar o componente RLGroup, que é um dos melhores componentes do Fortes Reports, e também vamos aprender a utilizar o componente RLDBResult que com o RLGroup, se torna um dos melhores componentes do Fortes Reports, o componente RLDBResult, soma os valores, e joga como um Total Geral ou um SubTotal.

Metodologia de desenvolvimento do exemplo: A metodologia do curso é a criação de exemplos utilizando o Delphi 2010 e o Fortes Reports, vai ser utilizado banco de dados de exemplo que vem junto com o Delphi. Utilizaremos o Delphi 2010 com os componentes de acesso a dados como o ClientDataSet e muitos outros.

Tecnologias utilizadas: Delphi 2010, Fortes Reports

Palavras chaves: Delphi 2010, Fortes Reports, ClientDataSet

Acessem o Site DEVMEDIA para Download

Função Delphi Registra uma extensão para um determinado aplicativo

procedure RegistrarExtensao(const Extensao, TipoArquivo, NomeAplicacao, Executavel: string);
var
  ChaveArquivo: string;
  Registro: TRegistry;

  procedure EditarChave(const Chave, Valor: string);
  begin
    Registro.OpenKey(Chave, True);
    Registro.WriteString('', Valor);
    Registro.CloseKey;
  end;

begin
  Registro := TRegistry.Create;
  try
    Registro.RootKey := HKEY_CLASSES_ROOT;
    Registro.LazyWrite := False;
    ChaveArquivo := 'Arquivo' + Extensao;

    //Registra a extensão
    EditarChave('.' + Extensao, ChaveArquivo);

    //Define a descrição para o tipo de arquivo
    EditarChave(Format('%s', [ChaveArquivo]), TipoArquivo);

    //Adiciona uma entrada no menu de contexto
    EditarChave(Format('%s\\shell\\open', [ChaveArquivo]), Format('&Abrir com %s', [NomeAplicacao]));

    //Associa a extensão à aplicação
    EditarChave(Format('%s\\shell\\open\\command', [ChaveArquivo]), Format('"%s" "%s"', [Executavel, '%1']));

    //Define o ícone associado ao tipo de arquivo
    EditarChave(Format('%s\\DefaultIcon', [ChaveArquivo]), Format('%s, 0', [Executavel]));
  finally
    Registro.Free;
  end;
  //Notifica o SO da alteração na associação do tipo de arquivo
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end; 

Verificar se o Processo Existe [Delphi]

Essa função retorna TRUE se ela encontrar o processo


function ProcessoExiste(ExeFileName: string): boolean;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
result := false;

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);

while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(
    FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))
    or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then
   begin
Result := true;
exit;
end;
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

Exemplo

   if ProcessoExiste('calc.exe') then

      ShowMessage('Calculadora aberta')

   else

      ShowMessage('Calculadora fechada');

Componente EditNum [Delphi]

Componente Delphi que aceita somente números(ela fica no formado de valores reais ###,#0.00)  e fica alinhado para direita

Instalando Fortes Reports - Curso Fortes Reports com Delphi – Parte 1

Nesta videoaula vamos começar a aprender a usar o Fortes Reports, primeiramente vamos instalar o Fortes Reports no Delphi 2010

Tempo: 18:07 min.

Mini Resumo: Nesta vídeo aula, vamos começar a aprender a usar o Fortes Reports,primeiramente vamos instalar o Fortes Reports no Delphi 2010, e vamos fazer um exemplo bem simples utilizando o Delphi 2010, Fortes Reports e uma base dedados de exemplo que vem junto com o Delphi 2010.

Metodologia de desenvolvimento do exemplo: A metodologia do curso é a criação de exemplos utilizando o Delphi 2010 e o Fortes Reports, vai ser utilizado banco de dados de exemplo que vem junto com o Delphi. Utilizaremos o Delphi 2010 com os componentes de acesso a dados como ClientDataSet e muitos outros.

Tecnologias utilizadas: Delphi 2010, Fortes Reports

Palavras chaves: Delphi 2010, Fortes Reports

Acessem o Site DEVMEDIA para Download

Usando CnPack no Delphi7

Olá pessoal tudo bem? Neste artigo vamos falar um pouco sobre o CnPack no Delphi7.

Primeiramente você tem que fazer o download do CnPack, que pode ser feito através desse site: http://www.cnpack.org/showlist.php?id=39<=en, e depois de baixar você instala.

1°: Depois de instalado, na hora que você for abrir o Delphi7 já vai ter o icone do CnPack lá no canto superior direito do Splash.

2°: Na hora que abrir o Delphi7, no projeto que abre junto com o delphi, vai ter algumas coisas nos cantos do form.

3°: Agora vamos falar

Função Que Retorna Somente Números [Delphi]

Remove Todos os  caracteres de uma String deixando somente números 

function SoNumero(fField : String): String; 
var   
  I : Byte; 
begin   
   Result := '';   
   for I := 1 To Length(fField) do      
       if fField [I] In ['0'..'9'] Then        
            Result := Result + fField [I]; 
end; 

Video: Create Component Template

Autor: Rodrigo Francisco de Mattos

Título:

Tempo: 05:08 min
Mini Resumo: Nesta video aula vamos aprender um pouco sobre uma função bastante interessante do delphi, o Create Component Template.
Tecnologias utilizadas: Delphi7.
Palavras chaves: Delphi7.

Acessem o Site para download

Visualizador NFE

Programa para Vizualizar Notas Fiscal Eletrônica, sem necessidade de instalar é só associar a extensão xml a ele, depois com duplo clique em cima do xml, já abrirá a nota fiscal na tela.

Pegar Pasta Temporária do Windows [Delphi]

Função para Pegar Pasta temporária do Windows


Function GetTemporaryDir: String;
var
  pNetpath: ARRAY[ 0..MAX_path - 1 ] of Char;
  nlength: Cardinal;
begin
  nlength := MAX_path;
  FillChar( pNetpath, SizeOF( pNetpath ), #0 );
  GetTemppath( nlength, pNetpath );
  Result := StrPas( pNetpath );
end;