Todas as Classes, Interfaces, Objetos e Registros

Exception clas used by Synapse

A classe TApplicationAbstract é descente de TCustoApplication usada para implementar os recursos necessários de uma aplicação do pacote maricarai

A class TApplication_type* é usada para capsular todas as variáveis globais do projeto e gerenciar o ciclo de vida do aplicativo

Main class implementing all communication routines

• A class TBufferMemory cria um array of record em memória usando os métodos os seek, PutREc, GetRec

  • NOTA

    • Uso a classe TBufferMemory para criar arquivos em memória no banco de dados Tb_Access.pas

  • EXEMPLO

    • Exemplo de como gravar um registro sem header em memória.

      
      Procedure TMi_Rtl_Tests.Test_TBufferMemory_sem_header;
        type
         TAluno = record
                    Id : integer;
                    nome : string[35];
                  end;
      
        var
         FileMemory_Alunos : TObjectss.TBufferMemory;
         Aluno          : TAluno;
      
         nr : longint;
         n  : longint;
      
      begin
        with TObjectss do
        try
          FileMemory_Alunos := TObjectss.TBufferMemory.Create(sizeof(aluno));
          with aluno,FileMemory_Alunos do
          begin
            if status = StOk then
            begin
              n := 1;
              Id:= n;
              nome:= 'Paulo Sérgio';
              PutRec(id,aluno);
            end;
      
            if status = StOk then
            begin
              inc(n);
              Id:= n;
              nome:= 'George Bruno';
              PutRec(id,aluno);
            end;
      
            if status = StOk then
            begin
              for nr := 1 to n do
              begin
                GetRec(nr,aluno);
                if status = StOk
                then SysMessageBox('Nr ='+intToStr(nr)+
                                   '; id ='+intToStr(Aluno.id)+
                                   '; Aluno ='+Aluno.nome
                                   ,'Test_FileStream_sem_header',false)
                else break;
              end;
            end;
      
          end;
      
        finally
          FileMemory_Alunos.Destroy;
        end;
      
      end;

    • Exemplo de como gravar um registro com header em memória.

      
      Procedure Test_TBufferMemory_com_header;
        type
          TAluno = record
                     Id : integer;
                     nome : string[35];
                   end;
        type
          THeadAlunos = record
                          TotalDeAlunos:longint;
                        end;
      
        var
          TBufferMemory_Alunos : TObjectss.TBufferMemory;
          HeadAlunos : THeadAlunos;
          Aluno             : TAluno;
          nr : longint;
          n  : longint;
      
      begin
        with TObjectss do
        try
          TBufferMemory_Alunos := TBufferMemory.Create(sizeof(HeadAlunos),sizeof(aluno));
      
          with aluno,TBufferMemory_Alunos do
          if status = StOk then
          begin
            HeadAlunos.TotalDeAlunos:= 0;
            PutRecBase(HeadAlunos); // Grava o header
      
            if status = StOk then
            begin
              inc(HeadAlunos.TotalDeAlunos);
              Id:= HeadAlunos.TotalDeAlunos;
              nome:= 'Paulo Sérgio da Silva Pacheco';
              PutRec(id,aluno);
              if status = StOk
              then PutRecBase(HeadAlunos); // Grava o header
            end;
      
      
            if status = StOk then
            begin
              inc(HeadAlunos.TotalDeAlunos);
              Id:= HeadAlunos.TotalDeAlunos;
              nome:= 'George Bruno Melo Pacheco';
      
              PutRec(id,aluno);
              if status = StOk
              then PutRecBase(HeadAlunos); // Grava o header
            end;
      
            if status = StOk then
            begin
              GetRecBase(n);
              if status = StOk
              then
              begin
                //Imprime o número de elemntos adicionado ao stream
                SysMessageBox('Número de registros: '+intToStr(n)
                               ,
                               'Test_FileStream_sem_header',false);
      
                // Ler e imprime os registros.
                for nr := 1 to n do
                begin
                    GetRec(nr,aluno);
                    if status = StOk
                    then SysMessageBox('Nr ='+intToStr(nr)+
                                       '; id ='+intToStr(Aluno.id)+
                                       '; Aluno ='+Aluno.nome
                                       ,
                                       'Test_FileStream_sem_header',false)
                    else Break;
                end;
      
                if status <> StOk
                then SysMessageBox(errorMessage(errorInfo)
                                   ,
                                   'Test_FileStream_sem_header',false)
      
              end;
            end;
      
            if status <> StOk
            then SysMessageBox(errorMessage(errorInfo)
                               ,
                               'Test_FileStream_sem_header',false)
      
          end;
      
        finally
          TBufferMemory_Alunos.Destroy;
        end;
      
      end;

• A class TCollection implementa coleções no pacote mi.rtl.

Parent class for all SSL plugins.

A classe TDataFile é usada para acessar arquivos em disco TTb_Access

A Class TDatesFreePascal usado para acessar a data e hora usando formato TDateTime.

• Programa usado para teste da unit

Pascal

         unit Unit1;


         interface

         uses
           Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls
           ,Mi.rtl.All
           ,mi.rtl.ui.Dmxscroller.dates;


         type


           TForm1 = class(TForm)
             Button5: TButton;
             procedure Button5Click(Sender: TObject);

           private

           public

           end;

         var
           Form1: TForm1;

         implementation

         $R *.lfm



         procedure TForm1.Button5Click(Sender: TObject);
           Procedure today (Fmt : string);

             Var S : AnsiString;

           begin
             DateTimeToString (S,Fmt,Date);
             Writeln (S);
           end;

           Procedure Print (Fmt : string);

             Var S : AnsiString;

           begin
             TMi_rtl.Logs.info('fmt='+'...');
             TMi_rtl.Logs.info('fmt='+Fmt);

             DateTimeToString (S,Fmt,now);
             Writeln (S);
             TMi_rtl.Logs.info('Print-fmt='+Fmt+' Valor: '+s);
           end;

           Procedure Print_DateTimeToStr (Mask:  TDatesFreePascal.TMask );
             Var S : AnsiString;

           begin
             with TDatesFreePascal do
             begin
               s := DateTimeToStr(now,Mask);
               TMi_rtl.Logs.info('Print_DateTimeToStr: '+s);

             end;
           end;


           Procedure Print_StrToDateTime(Str:AnsiString;Mask:  TDatesFreePascal.TMask );
             Var
               d:TDateTime;
           begin
             with TDatesFreePascal do
             begin
               d := StrToDateTime(str,Mask);
               str := DateTimeToStr(d,Mask);
               TMi_rtl.Logs.info('Print_StrToDateTime: '+str);
             end;
           end;


           procedure test1;
           begin
             Today ('"Today is "dddd dd mmmm y');
             Today ('"Today is "d mmm yy');
             Today ('"Today is "d/mm/yy');
             Today ('"Today is "yy/mm/dd');
             Today ('"Today is "yyyy/mm/dd');
             //Now ('''The time is ''am/pmh:n:s');
             //Now ('''The time is ''hh:nn:ssam/pm');
             //Now ('''The time is ''tt');
           end;

         Begin

          with TDatesFreePascal do
          begin
            TMi_rtl.Logs.info('Mask: '+Mask_to_MaskDateTime(Mask_yy_mm_dd));
            Print(Mask_to_MaskDateTime(Mask_yy_mm_dd));
            Print_DateTimeToStr(Mask_yy_mm_dd);
            Print_StrToDateTime('24/03/28',Mask_yy_mm_dd);



            Print(Mask_to_MaskDateTime(Mask_dd_mm_yy));
            Print_DateTimeToStr(Mask_dd_mm_yy);
            Print_StrToDateTime('28/03/24',Mask_dd_mm_yy);

            Print(Mask_to_MaskDateTime(Mask_dd_mm_yyyy));
            Print_DateTimeToStr(Mask_dd_mm_yyyy);
            Print_StrToDateTime('28/03/2024',Mask_dd_mm_yyyy);

            Print(Mask_to_MaskDateTime(Mask_yyyy_mm_dd));
            Print_DateTimeToStr(Mask_yyyy_mm_dd);
            Print_StrToDateTime('2024/03/28',Mask_yyyy_mm_dd);

            Print(Mask_to_MaskDateTime(Mask_mm_yy));
            Print_DateTimeToStr(Mask_mm_yy);
         //    Print_StrToDateTime('03/24',Mask_mm_yy);Não é data válida

            Print(Mask_to_MaskDateTime(Mask_mm_yyyy));
            Print_DateTimeToStr(Mask_mm_yyyy);
            //Print_StrToDateTime('03/2024',Mask_mm_yyyy);  Não é data válida


            Print(Mask_to_MaskDateTime(Mask_dd_mm_yy_hh_nn_ss));
            Print_DateTimeToStr(Mask_dd_mm_yy_hh_nn_ss);
            Print_StrToDateTime('28/03/24 17:11:59',Mask_dd_mm_yy_hh_nn_ss);


            Print(Mask_to_MaskDateTime(Mask_dd_mm_yy_hh_nn));
            Print_DateTimeToStr(Mask_dd_mm_yy_hh_nn);
            Print_StrToDateTime('28/03/24 17:11',Mask_dd_mm_yy_hh_nn);

            Print(Mask_to_MaskDateTime(Mask_dd_mm_yyyy_hh_nn_ss));
            Print_DateTimeToStr(Mask_dd_mm_yyyy_hh_nn_ss);
            Print_StrToDateTime('28/03/24 17:11:59',Mask_dd_mm_yyyy_hh_nn_ss);



            Print(Mask_to_MaskDateTime(Mask_hh_nn));
            Print_DateTimeToStr(Mask_hh_nn_DateTime );
            Print_StrToDateTime('17:11',Mask_hh_nn_DateTime );

            Print(Mask_to_MaskDateTime(Mask_hh_nn_ss_DateTime));
            Print_DateTimeToStr(Mask_hh_nn_ss_DateTime);
            Print_StrToDateTime('17:11:59',Mask_hh_nn_ss_DateTime);

            Print(Mask_to_MaskDateTime(Mask_hh_nn_ss_s1000_DateTime ));
            Print_DateTimeToStr(Mask_hh_nn_ss_s1000_DateTime );
         //    Print_StrToDateTime('17:48:25:742',Mask_hh_nn_ss_s1000_DateTime ); Não é válido.
          end;

         End;

         end.

A classe TDmxScroller_Form implementa a construção de formulários usando uma lista de Templates do tipo TDmxScroller

A class TDmxScroller_sql_Atributos contém os atributos da class TDmxScroller_sql

A classe TDM_Mapa_site tem como objetivo criar o arquivo ./pssp_app_br.html com os links apontador pelo arquivo tipuesearch_content.js criado pela classe TIndex_Tipuesearch .

• Template usado:

  • Nome do arquivo de templates:

    • './templates/template_pssp_app_br.html'

    • Tags atualizadas no template:

      • ˜title

        • Mapa do site

      • ˜createDate

        • Data da criação da página

      • ˜createDateUpdate

        • Data da última atualização da página

      • ˜description

        • Mapa do site pssp.app.br

      • ˜keywords

        • Memórias do Paulo Sérgio da silva pacheco

      • ˜conteudo

        • Links da pasta corrente e subpastas cujo a extenção seja .html

• A classe TException é usada com a palavra reservada raise para mostrar o erro, sua localização e em seguida salva no dispositivo definido em TObjectss.Logs.LogType.

  • NOTA

    • LogType = TLogType = (ltSystem,ltFile,ltStdOut,ltStdErr);

      • ltSystem = Arquivo definido pelo sistema operacional;

      • ltFile = Arquivo definido pela aplicação;

      • ltStdOut,ltStdErr = Terminal do sistema operacional.

  • EXEMPLO DE USO:

    
    procedure TMi_Rtl_Tests.Action_test_TExceptionExecute(Sender: TObject);
    begin
      with TMI_ui_types do begin
        logs.EnableWriteIdentificao := true;
        try
          raise TException.Create(5);
        except
        end;
    
        try
          raise TException.Create('Acesso ao arquivo negado');
        except
        end;
    
        try
          raise TException.Create(Self, 'Action_test_TExceptionExecute','aFileName','AFieldName',5);
        except
        end;
    
        try
          raise TException.Create(Self, 'Action_test_TExceptionExecute','aFileName','AFieldName','Acesso ao arquivo negado');
        except
        end;
    
    
        try
          raise TException.Create(Self, 'Action_test_TExceptionExecute',5);
        except
        end;
    
        try
          raise TException.Create(Self, 'Action_test_TExceptionExecute','Acesso ao arquivo negado');
        except
        end;
    
    
    // Os exemplos abaixo são mantidos para manter a compatibilidade com o passado.
    
    
         try
           raise TException.Create4('aModule', 'aUnit', 'Procedure_or_Function',   'ParamResult');
         except
         end;
    
         try
           raise TException.Create4('aModule', 'aUnit', 'Procedure_or_Function',   5);
         except
         end;
    
         try
           raise TException.Create5('aModule', 'aUnit','ObjectName', 'aMethodName',   'aMsgError');
         except
         end;
    
         try
           raise TException.Create5('aModule', 'aUnit','ObjectName', 'aMethodName',   5);
         except
         end;
    
         try
           raise TException.Create6('aModule', 'ObjectName', 'aMethodName','aFileName','AFieldName', 5);
         except
         end;
    
         try
           raise TException.Create7('aModule', 'aUnit','ObjectName', 'aMethodName','aFileName','AFieldName',  5);
         except
         end;
    
         try
           raise TException.Create7('aModule', 'aUnit','ObjectName', 'aMethodName','aFileName','AFieldName',  'ParamResult');
         except
         end;
    
         try
           raise TException.Create8('aModule', 'aUnit','ObjectName', 'aMethodName','aFileName','AFieldName',  'aMessage','aProcedure_or_Function');
         except
         end;
       end;
    end;

• A classe TFiles contém as classes métodos para acessar o sistema operacional usada no acesso a arquivos.

  • REFERẼNCIAS

    • [Como criar aplicativo multi-plataforma](https://wiki.freepascal.org/Multiplatform_Programming_Guide)

• FilesOpens é uma coleção que mantém todos os arquivos abertos até o momento com objetivo de fecha-los nos casos exceção.

This is TList of TFTPListRec objects.

Implementation of FTP protocol.

Implementation of RAW ICMP socket.

A classe TIndex_stork tem como objetivo criar o arquivo de configuração index_stork.toml que programa rust stork usa para crie o meta-dados index_stork.st para o programa javascript stork.js.

• Template usado:

  • Nome do arquivo de templates:

    • './templates/stork/index_stork.toml'

  
  [input]
  base_directory = ""
  url_prefix = ""
  files = [
  
    <!--# file_path #-->
  
  ]

List of TLDAPAttribute

List of LDAP result objects

A classe TMapa_site tem como objetivo criar o arquivo ./pssp_app_br.html com os links apontador pelo arquivo tipuesearch_content.js criado pela classe TIndex_Tipuesearch .

• Template usado:

  • Nome do arquivo de templates:

    • './templates/template_pssp_app_br.html'

    • Tags atualizadas no template:

      • ˜title

        • Mapa do site

      • ˜createDate

        • Data da criação da página

      • ˜createDateUpdate

        • Data da última atualização da página

      • ˜description

        • Mapa do site pssp.app.br

      • ˜keywords

        • Memórias do Paulo Sérgio da silva pacheco

      • ˜conteudo

        • Links da pasta corrente e subpastas cujo a extenção seja .html

Object for basic e-mail header fields.

O Data Module TMiConnectionsDb é usado para conectar-se ao banco de dados através de parâmetros salvos no arquivo config.ini

• PARÂMETROS

  PASCAL
  
           object dm_connections: Tdm_connections
             O[]nCreate = DataModuleCreate
             OnDestroy = DataModuleDestroy
             OldCreateOrder = False
             Height = 160
             HorizontalOffset = 616
             VerticalOffset = 328
             Width = 414
             object SQLTransaction1: TSQLTransaction
               Active = False
               Action = caCommit
               Database = SQLConnector1
               Left = 336
               Top = 32
             end
             object SQLConnector1: TSQLConnector
               Connected = True
               LoginPrompt = True
               DatabaseName = 'assistente_virtual'
               KeepConnection = True
               Password = 'masterkey'
               Transaction = SQLTransaction1
               UserName = 'postgres'
               HostName = '45.160.125.12'
               Options = [scoApplyUpdatesChecksRowsAffected]
               ConnectorType = 'PostgreSQL'
               Left = 208
               Top = 32
             end
           end

• EXEMPLO

  • O evento OnCreate do forme principal deve executar o seguinte código:

    
    if Assigned(dm_connections)
    then begin
           dm_connections.Connection  := true;
           if not dm_connections.Connection
           then halt // Termina a aplicação
           else dm_connections.Connection  := false; //Fecha a conexão com o banco de dados
         end;

A class TMiDataModule é usado com módulo de dados para acesso a uma tabela através dos componentes TMi_SQLQuery e DmxScroller_Form1

Object for working with parts of MIME e-mail.

A class TMi_rtl_treenode foi criada para criar menu html ou arvores de strings usando sintaxe simples de adição de nós e folhas.

• NOTAS

  • Esta classe representa um nó em uma árvore hierárquica.

    • Ela possui propriedades e métodos para gerenciar filhos, dados associados ao nó e navegação na árvore.

  • Este código fornece uma estrutura básica para trabalhar com árvores hierárquicas no FreePascal. Você pode estender a classe TTreeNode para adicionar funcionalidades específicas à sua aplicação.

• EXEMPLOS

  • Gera menu em HTML e um índice em arquivo .txt

    
    class procedure TTreeNode.Test(okListHTML:boolean);
    var
      Root: TTreeNode;
      List : TStringList;
      S : string;
    
    begin
      writeLn('TTreeNode.Test');
      writeLn('Inicio: ===============');
    
      Root := TTreeNode.Create(TPath.create('root',false));
    
      with Root do
      begin
        List := TStringList.Create;
    
        // Adicione os caminhos de diretórios e folhas da árvore manualmente
        // ...
    
        // Adicione o arquivo '/home/documentos/test1.pas' com pastas no nome
        AddChildFileName(Root,'/home/documentos/test1.pas');
        AddChildFileName(Root,'/home/documentos/test2.pas');
        AddChildFileName(Root,'/home/documentos/mamae/test3.pas');
        AddChildFileName(Root,'/home/documentos/mamae/celia/test4.pas');
    //    s := (root..Owner.Owner as TTreeNode).fFilePath;
        AddChildFileName(Root,'test5.pas');
        AddChildFileName(Root,'/home/test6.pas');
    
        // Exiba a árvore de diretórios
        WriteLn('Árvore de diretórios:');
        if okListHTML
        then Root.TreeToStringListHtml(Root,List)
        else Root.TreeToStringList(Root,List);
        for s in List do
          writeLn(s);
    
        List.Free;
    
      end;
      Root.Free;
      writeLn('Fim: ===============');
    
    end;

  • Gera uma formulário dinamicamente com menu de opções baseado no componente treenode:

    
    procedure PopulateMenuFromTreeNode(Node: TTreeNode; ParentMenuItem: TMenuItem);
    var
      Child: TTreeNode;
      NewMenuItem: TMenuItem;
      PathAction: TPathAction;
    begin
      if Node <> nil then
      begin
        PathAction := TPathAction(Node.Data); // Obtém o objeto TPath associado ao nó
    
        NewMenuItem := TMenuItem.Create(ParentMenuItem);
        NewMenuItem.Caption := PathAction.Data;
        NewMenuItem.Action  := PathAction.Action;
    
        ParentMenuItem.Add(NewMenuItem);
    
        // Se o nó atual não for uma folha, adiciona seus filhos ao menu
        if not PathAction.IsSheet then
        begin
          Child := Node.GetFirstChild;
          while Child <> nil do
          begin
            PopulateMenuFromTreeNode(Child, NewMenuItem);
            Child := Child.GetNextSibling;
          end;
        end;
      end;
    end;
    
    
    type
    
      //TForm
    
      TForm = class(Forms.TForm)
      private
        procedure ShowMessageAction(Sender: TObject);
      public
        constructor Create(AOwner: TComponent); override;
        function CreateAction(const ACaption: string): TAction;
      end;
    
    constructor TForm.Create(AOwner: TComponent);
    begin
      //inherited Create(AOwner);
      inherited CreateNew(AOwner, 1); // O segundo parâmetro é uma janela vazia
      Self.Caption := 'My Form';
      Self.SetBounds(100, 100, 400, 300); // Define o tamanho e a posição do formulário
    
      // Aqui você pode criar e adicionar componentes manualmente
    end;
    
    procedure TForm.ShowMessageAction(Sender: TObject);
    begin
      ShowMessage('Alô mundo');
    end;
    
    function TForm.CreateAction(const ACaption: string): TAction;
    begin
      Result := TAction.Create(Self);
      Result.Caption := ACaption;
      Result.OnExecute := @ShowMessageAction; // Associa o método ao evento OnExecute
    end;
    
    procedure TTreeNode_Test_AddChildAction();
    var
      Root: TTreeNode;
      MainMenu: TMainMenu;
      Form: TForm;
      action : TAction;
    begin
      // Criação e configuração do formulário e do menu
      Form := TForm.Create(nil);
    
      // Criação do nó raiz e inicialização da árvore
      Root := TTreeNode.Create(TPathAction.Create('root', False));
      With Root,Form do
      try
        // Adiciona os caminhos de diretórios e folhas da árvore
        AddChildAction('/home/documentos/ShowMessageAction',CreateAction('ShowMessageAction'));
        AddChildAction('/home/documentos/test2.pas',nil);
        AddChildAction('/home/documentos/mamae/test3.pas',nil);
        AddChildAction('/home/documentos/test1.pas',nil);
        AddChildAction('/home/documentos/test2.pas',nil);
        AddChildAction('/home/documentos/mamae/test3.pas',nil);
        AddChildAction('/home/documentos/mamae/celia/test4.pas',nil);
        AddChildAction('test5.pas',nil);
        AddChildAction('/home/test6.pas',nil);
        AddChildAction('test5.pas',nil);
        AddChildAction('/home/test6.pas',nil);
    
        try
          MainMenu := TMainMenu.Create(Form);
          Form.Menu := MainMenu;
    
          // Popula o menu a partir da árvore
          PopulateMenuFromTreeNode(Root, MainMenu.Items);
    
          Form.ShowModal;
        finally
          Form.Free;
        end;
      finally
        Root.Free;
      end;
    end;

• Outros pontos importantes do código incluem:

  • A estrutura de TTreeNode permite criar e manipular árvores hierárquicas, com a capacidade de associar dados específicos a cada nó.

  • A classe TPath foi projetada para representar o caminho dos nós, distinguindo entre arquivos e diretórios.

  • A classe TPathAction estende TPath para incluir uma ação associada, permitindo criar árvores interativas com funcionalidade adicional.

A classe TMi_rtl_ui_Form_abstract é uma classe abstrata cujo objetivo é editar o buffer da classe TDmxScroller_Form. Esta classe deve ser a base para implementação de componentes visuais tais como Formulários LCL, web Browser, Controles android.

A Propriedade TMi_SQLQuery tem como finalidade criar um dataSource ao criar o componente TMi_SqlQuery

A classe TMI_ui_Custom_Application concentra as propriedades e formulários gerais necessários em qualquer aplicação.

• Recursos globais:

  • Propriedade Get_Parameters cria um formulário de entrada de dados de configuração de acesso ao banco de dados e outros parâmetros;

  • Propriedade SQLConnector e SQLTransaction e as propriedades relacionadas;

  • O evento OnValidUser é usado para validar o nome do usuário e senha.

TMi_ui_mi_msgBox

• EXEMPLO

  
  Var
    S : String[10] = '';
  begin
     if MI_MsgBox.InputBox('InputBox Test','Gual a sua indade? ',s,'ssssssssss') = Mrok
     then ShowMessage('Sua idade é: 's);

• A class TObjectsConsts usada para separar as contantes da unit TObjects do pacote mi.rtl.

A classe TObjectss é a base de todas as classes do pacote mi.rtl.

• EXEMPLO DE USO

• HISTÓRICO

  • Criado por: Paulo Sérgio da Silva Pacheco e-mail: paulosspacheco@yahoo.com.br

    • 19/11/2021 21:25 a 23:15 Criar a classe TStream

    • 20/11/2021 09:10 a ??: Criar a classe TObjects

    • 23/11/2021 21:50 a 22:00 Declarar as classes TFileSream e TFileMemory em TObjectss

A classe TPageProducer usada para produzir documento html, usando modelos html ou outro formato de texto qualquer.

O objeto TPathAction é usado par associar uma ação a folha da arvore.

Implementation of PGM-stream socket.

• A classe TProgressDlg_If é uma classe abstrata para comunicação com o usuário cujo a implementação deve ser feita nas plataformas: LCL, HTML e JavaScript.

  • NOTA

    • Só cria o dialogo se a posição chegar no delta.

  • Exemplo do uso de TProgressDlg_If

    
    Var
      ProgressDlg_If : TProgressDlg_If;
    Begin
      ProgressDlg_If := TProgressDlg_If.Create('Pesquisando registro',Alias,20);
    
      Repeat
        ProgressDlg_If.IncPosition;
      Until Not next;
    
      ProgressDlg_If.Free;
    end.

Implementation of RAW socket.

Implementation of SMTP and ESMTP procotol

Data object abstracts SNMP data packet

Implementation of NTP and SNTP client protocol

• A class TSortedCollection implementa coleções ordenadas de objetos.

  • EXEMPLO DE USO

    
    ???

class implementing LibSSH2 SSH plugin.

class implementing OpenSSL SSL plugin.

class implementing OpenSSL SSL plugin.

class implementing SecureBlackbox SSL plugin.

A classe TStrCollection implementa uma coleção de AnsiString

• A class TStreamBase é uma classe abstrata para implementação de streams.

A classe TStringCollection implementa uma coleção de AnsiString

A a TStringListBase* é usada para indexar uma lista de objetos ondes os mesmos são excluídos ao destruir a lista

• POR QUE?

  • Para converter caracteres com acento para caracteres sem acento e seu equivalente em html.

    • class Function String_Asc_GUI_to_Asc_Ingles(Const S: String): String;

    • class Function String_Asc_GUI_to_Asc_HTML(Const S: String): String;

  • Para converter a lista de strings em lista PSItem;

    • function TStringListBase.PListSItem: TConsts.PSItem;

    • function TStringListBase.CloneSItems(const Items: TConsts.PSItem): TConsts.PSItem;

Implementation of AES encryption

Parent class of application protocol implementations.

this object is used for remember delayed socket option set.

This object implement BSD SysLog client

A classe TTb_Access_consts é usada para declarar todas as constantes da classe TTb_Access

Obs: Se transformar este registro em objeto deve alterar tudo que se refere a dataFile

Tipo registro do arquivo de transação

Tamanho maximo do registro.

Usado p/ guarda o header logo que abrir o arquivo para evitar que em ambiente de rede o header fique maluco

Usado para arquivos Relationships

Usado no início de cada registro por isso o registro deve herdar

Implementation of TCP socket.

A classe TTypes declara todos os tipos globais do pacote Mi.RTL

O tipo registro TEnumField é usado para saber o tamanho dos parâmetros da função CreateEnumField

• O tipo TEvent é usado enviar mensagem para uma classe inserida em um grupo de classes.

• A classe TPointer é usada para alocar memória no heap.

  • NOTA

    • A função SysTVGetSrcBuf usa para ler a memória de vídeo do console.

    • O Método TTypes.TPointer.Get_Mem ignora alocação de memória real porque não sei como fazer nas plataformas diferentes do Windows.

O tipo TReg_Of_Char é usado para calcular os caracteres equivalentes sem acentos quando os mesmos tiverem acentos

• O tipo TStr255 é usado para chamadas das API do windows

*

Implementation of UDP socket.

A classe TUiDmxScroller_Buttons tem como objetivo registrar os dados necessários para criar os botões de navegação e edição de uma tabela quando TDataSource for <> nil.

• EXEMPLO USO

A classe TUnSortedStrCollection implementa uma coleção de AnsiString na ordem original de inserção das AnsiStrings

It holding all information for SNMPv3 agent synchronization

A class _TDmxScroller_Form_Atributos contém os atributos da class TDmxScroller_Form