Usando API Rest com Delphi 7 de forma simples

Vamos criar uma API REST simples em Delphi. Para isso, usaremos o Delphi 7 com Indy components (se for o que você tem disponível) ou, se estiver usando uma versão mais recente do Delphi (como Delphi XE6+), o ideal é usar o RAD Server (EMS) ou criar via WebBroker.

Como você mencionou anteriormente que trabalha com Delphi 7, vou te mostrar um exemplo simples usando Indy (IdHTTPServer) para criar uma API REST rudimentar. Se estiver usando uma versão mais nova, posso adaptar para WebBroker ou RAD Server, é só avisar.

✅ Exemplo: API REST simples com Delphi 7 e Indy (IdHTTPServer)

Essa API vai responder um JSON simples em uma rota /hello.

1. Coloque os componentes no formulário

TIdHTTPServer (ex: IdHTTPServer1)

TMemo (opcional, para log)

Ative IdHTTPServer1.Active := True;

2. Código de exemplo

uses

IdHTTPServer, IdCustomHTTPServer, SysUtils, Classes, IdContext;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

begin

  if ARequestInfo.Document = '/hello' then

  begin

    AResponseInfo.ContentType := 'application/json';

    AResponseInfo.ResponseNo := 200;

    AResponseInfo.ContentText := '{"message": "Olá, mundo!"}';

  end

  else

  begin

    AResponseInfo.ResponseNo := 404;

    AResponseInfo.ContentText := '{"error": "Rota não encontrada"}';

  end;

end;

📌 Resultado esperado

Requisição para http://localhost:port/hello retorna:

{"message": "Olá, mundo!"}

✅ Dicas extras

Porta: configure a propriedade DefaultPort do IdHTTPServer1 (ex: 8080).

Métodos GET/POST: você pode usar ARequestInfo.Command para distinguir entre métodos HTTP.

JSON mais complexo: use TStringList ou TMemoryStream para respostas maiores ou arquivos.

Integração Simples Entre Delphi e a Impressora Fiscal

Fazer uma integração simples entre Delphi e uma impressora fiscal depende do modelo e do protocolo da impressora fiscal (Ex: Elgin, Daruma, Epson, Bematech, etc.), mas de forma geral, as impressoras fiscais antigas utilizam comunicação via porta serial (COM) e comandos baseados no Protocolo Fiscal (ECF).

Abaixo está um guia passo a passo para uma integração simples, com exemplo usando comandos diretos via porta serial:

✅ 1. Verifique o modelo e instale o driver da impressora

Antes de tudo, instale o driver oficial da impressora fiscal e anote a porta COM que ela está utilizando (pode ver isso no Gerenciador de Dispositivos).

✅ 2. Comunique-se via porta serial (COM) com Delphi

Delphi pode usar a unit SerialPort ou componentes de terceiros como AsyncPro, mas vamos mostrar um exemplo simples com componente THandle para acesso direto à porta COM.

🧩 Exemplo simples usando CreateFile:

uses

Windows;

function EnviarComandoECF(const Porta, Comando: string): Boolean;

var

  hSerial: THandle;

  BytesWritten: DWORD;

begin

  Result := False;

  hSerial := CreateFile(PChar(Porta),

                        GENERIC_WRITE,

                        0,

                        nil,

                        OPEN_EXISTING,

                        0,

                        0);

  if hSerial = INVALID_HANDLE_VALUE then

  begin

    ShowMessage('Erro ao abrir a porta ' + Porta);

    Exit;

  end;

  if WriteFile(hSerial, PChar(Comando)^, Length(Comando), BytesWritten, nil) then

    Result := True;

  CloseHandle(hSerial);

end;

➕ Como usar:

procedure TForm1.btnImprimirClick(Sender: TObject);

begin

  // Exemplo de comando fiscal (ver manual da impressora para os corretos)

  if EnviarComandoECF('COM1', #27 + 'C') then

    ShowMessage('Comando enviado com sucesso.')

  else

    ShowMessage('Erro ao enviar comando.');

end;

✅ 3. Usando DLL oficial do fabricante (recomendado)

Fabricantes como Daruma, Bematech, Elgin fornecem DLLs com funções prontas como Bematech_FI_AbreCupom, Daruma_FI_AbreCupom, etc.

Exemplo com DLL da Bematech:

function Bematech_FI_AbreCupom(CPF_CNPJ: PChar): Integer; stdcall; external 'BemaFI32.dll';

procedure TForm1.btnCupomClick(Sender: TObject);

begin

  if Bematech_FI_AbreCupom('12345678901') = 1 then

    ShowMessage('Cupom aberto com sucesso.')

  else

    ShowMessage('Erro ao abrir cupom.');

end;

✅ 4. Leia o manual da impressora fiscal

Cada fabricante possui comandos diferentes e exigências fiscais específicas. É essencial obter o manual do desenvolvedor (ECF/ACBr/DLL) da impressora que será utilizada.

✅ 5. Alternativa:
Usar o ACBr (componente gratuito e robusto)

O ACBr é um projeto open source que facilita a integração com equipamentos fiscais.

// Usando ACBrECF

procedure TForm1.btnCupomClick(Sender: TObject);

begin

  ACBrECF1.Modelo := ecfBematech; // ou ecfDaruma, etc.

  ACBrECF1.Porta := 'COM1';

  ACBrECF1.Ativar;

  ACBrECF1.AbreCupom;

  ACBrECF1.VendeItem('123', 'Produto Teste', 'UN', 1, 10, 0, 'T');

  ACBrECF1.SubtotalizaCupom;

  ACBrECF1.EfetuaPagamento('Dinheiro', 10);

  ACBrECF1.FechaCupom('Obrigado!');

end;

✅ Conclusão

Você pode escolher três caminhos:

Comunicação direta via porta COM (mais complexa e arriscada).

Usar a DLL do fabricante (mais seguro e comum).

Usar o ACBr (mais flexível, fácil e atualizado para exigências fiscais do Brasil).

Retorna o IP da Máquina

function GetIP:string;//--> Declare a Winsock na clausula uses da unit

var

  WSAData: TWSAData;

  HostEnt: PHostEnt;

  Name:string;

begin

  WSAStartup(2, WSAData);

  SetLength(Name, 255);

  Gethostname(PChar(Name), 255);

  SetLength(Name, StrLen(PChar(Name)));

  HostEnt := gethostbyname(PChar(Name));

  with HostEnt^ do

    Result:=Format('%d.%d.%d.%d',[Byte(h_addr^[0]),

              Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);

  WSACleanup;

end;

Desconectar uma unidade de rede mapeada

 function DesconectaRede(Unidade:Pchar;ForcaCancel:boolean):String;

begin

  WNetCancelConnection2(Unidade,0,ForcaCancel);

  Case GetLastError() of

    1205: Result := 'Não foi possível abrir o perfil';

    1206: Result := 'Perfil do usuário não encontrado ou inválido';

    1208: Result := 'Ocorreu um Erro específico na rede';

    2138: Result := 'Rede não encontrada ou fora do ar';

    2250: Result := 'Mapeamento inválido ou não encontrado';

    2401: Result := 'Existem muitos arquivos abertos';

    else Result := 'Unidade disconectada com sucesso';

  end;

end;

Travar as teclas: Alt+Tab, Ctrl+Esc, Ctrl+Alt+Del

var OldValue : LongBool;

begin

  SystemParametersInfo(97, Word(True), @OldValue, 0);

end;

Destravar as teclas: Alt+Tab, Ctrl+Esc, Ctrl+Alt+Del

var OldValue : LongBool;

begin

  SystemParametersInfo(97, Word(False), @OldValue, 0);

end;

Esconder a aplicação da barra de tarefas

var H : HWnd;

begin

  H := FindWindow(Nil,'Project1');

  if H <> 0 then

    ShowWindow(H,SW_HIDE);

end; 

Executar Pack em Tabelas Paradox

procedure ParadoxPack(Table : TTable);

var

  TBDesc : CRTblDesc;

  hDb: hDbiDb;

  TablePath: array[0..dbiMaxPathLen] of char;

begin

  FillChar(TBDesc,Sizeof(TBDesc),0);

  with TBDesc do

  begin

    StrPCopy(szTblName,Table.TableName);

    StrPCopy(szTblType,szParadox);

    bPack := True;

  end;

  hDb := nil;

  Check(DbiGetDirectory(Table.DBHandle, True, TablePath));

  Table.Close;

  Check(DbiOpenDatabase(nil,'STANDARD',dbiReadWrite,dbiOpenExcl,nil,0,nil,nil,hDb));

  Check(DbiSetDirectory(hDb, TablePath));

  Check(DBIDoRestructure(hDb,1,@TBDesc,nil,nil,nil,False));

  Table.Open;

end;

Trocar a resolução de vídeo

function TrocaResolucao(X, Y: word): Boolean;

var lpDevMode: TDeviceMode;

begin

  if EnumDisplaySettings(nil, 0, lpDevMode) then

  begin

    lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;

    lpDevMode.dmPelsWidth := X;

    lpDevMode.dmPelsHeight:= Y;

    Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;

  end;

end;

Nome do computador (topo)

function NomeComputador : String;

var

  lpBuffer : PChar;

  nSize : DWord;

const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;

begin

  nSize := Buff_Size;

  lpBuffer := StrAlloc(Buff_Size);

  GetComputerName(lpBuffer,nSize);

  Result := String(lpBuffer);

  StrDispose(lpBuffer);

end;

Inicializar vários EDITs em um formulário (topo)

procedure TForm1.Button1Click(Sender: TObject);

var contador : integer;

begin

  for contador := 0 to (Form1.ControlCount - 1) do

    if Form1.Controls[contador].ClassName = 'TEdit' then

      (Form1.Controls[contador] as TEdit).Text := '';

end;

Mudar a cor da linha de um DBGrid (topo)

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; .....);

begin

  if odd(field.DataSet.RecNo) then

    DBGrid1.Canvas.Font.Color := clBlue

  else DBGrid1.Canvas.Font.Color := clWhite;

  DBGrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, state);

end; 

Desabilita o botão Fechar do Formulário (topo)

procedure TForm1.FormCreate(Sender: TObject);

var

  hwndHandle : THANDLE;

  hMenuHandle : HMenu;

begin

  hwndHandle := Self.Handle;

  if (hwndHandle <> 0) then

  begin

    hMenuHandle := GetSystemMenu(hwndHandle, FALSE);

    if (hMenuHandle <> 0) then

      DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

  end;

end;

Como converter decimal para romanos em Delphi

function DecToRoman( Decimal: LongInt ): String;

{Converte um numero decimal em algarismos romanos}

const

    Romans: Array[1..13] of String = ( 'I', 'IV', 'V', 'IX', 'X','XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );

    Arabics: Array[1..13] of Integer =( 1, 4, 5, 9, 10, 40, 50, 90,100, 400, 500, 900, 1000);

var

    i: Integer;

    scratch: String;

begin

  scratch := '';

  for i := 13 downto 1 do

  while ( Decimal >= Arabics[i] ) do

  begin

  Decimal := Decimal - Arabics[i];

  scratch := scratch + Romans[i];

  end;

  Result := scratch;

end;

Colocar uma ProgressBar numa StatusBar

Coloque uma StatusBar no form e adicione dois painéis a ela (propriedade Panels). Ajuste as propriedades do primeiro painel comoStyle = psOwnerDraw e Width = 150. Coloque uma ProgressBar no form e mude sua propriedade Visible para false. No evento OnDrawPanel da StatusBar digite o código abaixo:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

  { Se for o primeiro painel... }

  if Panel.Index = 0 then begin

      { Ajusta a tamanho da ProgressBar de acordo com o tamanho do painel }

      ProgressBar1.Width := Rect.Right - Rect.Left +1;

      ProgressBar1.Height := Rect.Bottom - Rect.Top +1;

      { Pinta a ProgressBar no DC (device-context) da StatusBar }

      ProgressBar1.PaintTo(StatusBar.Canvas.Handle, Rect.Left, Rect.Top);

  end;

end;

ColoqueumButtonnoform

DigitenoeventoOnClickdoButtonocódigoabaixo:

procedure TForm1.Button1Click(Sender: TObject);

var

  I: integer;

begin

  for I := ProgressBar1.Min to ProgressBar1.Max do begin

  { Atualiza a posição da ProgressBar }

  ProgressBar1.Position := I;

  { Repinta a StatusBar para forçar a atualização visual }

  StatusBar1.Repaint;

  { Aguarda 50 milisegundos }

  Sleep(50);

  end;

  { Aguarde 500 milisegundos }

  Sleep(500);

  { Reseta (zera) a ProgressBar }

  ProgressBar1.Position := ProgressBar1.Min;

  { Repinta a StatusBar para forçar a atualização visual }

  StatusBar1.Repaint;

end;

Execute e clique no botão para ver o resultado.

Colocar os bitmaps na DLL

 Por vezes, quando iniciamos um projeto, temos uma preocupação: fazer uma aplicação pequena em delphi. Bem, a solução pode passar por colocar todos os bitmaps que vamos utilizar numa DLL. Então vamos lá começar:

Deve usar o Image Editor, criar uma nova Resource File (.res), neste ficheiro vamos colocar os bitmaps e icons (ambos funcionam da mesma forma) que queremos na nossa aplicação, clique com a tecla direita do mouse na nova resource file e crie um novo bitmap, depois desenhe ou cole do clipboard um bitmap, finalmente guarde o ficheiro com o nome images.res. Depois disto estar feito vá ao IDE do Delphi e no File menu clique New... e escolha DLL depois cole o código abaixo, não se esqueça de adicionar uma unit vazia ao projeto. Guarde o projeto da dll no mesmo diretório do ficheiro image.res, finalmente faça o build da DLL (não se esqueça, que não se pode correr (executar) uma DLL!)

Código da DLL:

library ImageRes; {nome da dll}

uses DummyUnit; {DummyUnit é uma unit vazia, que é necessária}

{$R images.res} {nome da resource file, que deve estar no mesmo caminho da dll}

begin

end.

Código da DummyUnit:

unit DummyUnit;

interface

implementation

end.

Colocando bitmaps num ComboBox

Ajuste a propriedade Style do ComboBox para csOwnerDrawVariable

var

  Form1: TForm1;

  Bmp1, Bmp2, Bmp3: TBitmap;

implementation

 {$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

    Bmp1:=TBitmap.Create;

    Bmp.Loadfromfile('c:\chip16.bmp');

    Bmp1:=TBitmap.Create;

    Bmp.Loadfromfile('c:\zoom.bmp');

    Bmp1:=TBitmap.Create;

    Bmp.Loadfromfile('c:\disk.bmp');

    ComboBox1.Items.AddObject('Chip',Bmp1);

    ComboBox1.Items.AddObject('Zoom',Bmp2);

    ComboBox1.Items.AddObject('Disk',Bmp3);

end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOWnerDrawState);

var

  Bitmap: TBitmap;

  Offset: Integer;

begin

  with (Control as TComboBox).Canvas do

  begin

      FillRect(Rect); Bitmap:= TBitmap(ComboBox1.Items.Objects[index]);

      if Bitmap nil then begin

        BrushCopy(Bounds(Rect.Left + 2, Rect.Top + 2, Bitmap.Width,

        Bitmap.Height), Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clRed);

        Offset: Bitmap.width + 8;

      end;

      TextOut(Rect.Left + Offset, Rect.Top, ComboBox1.Items[index]);

  end;

end;

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);

begin

  Height:=20;

end;

Como usar a propriedade Eof para verificar se estamos no último registro do TClientDataSet

*Fonte Arquivo de Códigos

Em algumas situações gostaríamos de verificar se já estamos no último registro do TClientDataSet, ou seja, estamos percorrendo todos os registros do dataset e queremos saber se já estamos no último. Para isso podemos usar a propriedade Eof da classe TClientDataSet. Esta propriedade retorna true se estivermos no último registro e false em caso contrário.

Veja um trecho de código no qual usamos um laço while para percorrer todos os registros de um TClientDataSet. Note o uso da propriedade Eof para finalizar as iterações do laço:

procedure TForm3.Button4Click(Sender: TObject);

begin

  // vamos percorrer todos os registros do TClientDataSet

  ClientDataSet1.First; // vamos para o primeiro registro

  // e agora disparamos um laço While

  while not ClientDataSet1.Eof do

    begin

      // vamos mostrar em um TMemo os valores do

      // campo id de cada registro

      Memo1.Lines.Add(ClientDataSet1.FieldByName('id').AsString);

      // vamos mover para o próximo registro

      ClientDataSet1.Next;

    end;

end;

A propriedade Eof é verdadeira quando:

a) Abrimos um dataset vazio. 

b) Efetuamos uma chamada ao método Last do dataset.

c) Chamamos o método Next do dataset e a chamada falha porque o registro atual já é o último registro no dataset.

d) Efetuamos uma chamada ao método SetRange em uma faixa de dados ou dataset vazio.

Como obter o número do registro atual em um TClientDataSet

*Fonte Arquivo de Código

Em algumas situações gostaríamos de obter o número do registro atual enquanto navegamos pelos registros de um TClientDataSet. Isso pode ser feito por meio da propriedade RecNo (implementada na classe TDataSet e reimplementada na classe TClientDataSet). O retorno da propriedade é sempre um valor inteiro representando o registro atual. Na implementação da classe TClientDataSet, esta propriedade retorna o valor -1 se o componente estiver no estado (State) dsInsert (um novo registro estiver sendo inserido).

Veja um trecho de código no qual usamos o evento OnClick de um botão para exibir o número do registro atual em um TClientDataSet: 

procedure TForm3.Button3Click(Sender: TObject);

var

  nRegistro: Integer;

begin

  // obtém o número do registro atual no TClientDataSet

  nRegistro := ClientDataSet1.RecNo;

  // mostra o resultado

  ShowMessage('O número do registro atual é: ' + IntToStr(nRegistro));

end;

Ao executar o código e clicar no botão você verá uma mensagem parecida com:

"O número do registro atual é: 5".

Esta dica foi escrita e testada no Delphi 2009.

Aprenda a usar a propriedade Active da classe TClientDataSet

*Fonte Arquivo de Códigos

A propriedade Active de um controle TClientDataSet pode ser definida em tempo de design (pelo Object Inspector) ou em tempo de execução. Se o valor for True os dados armazenados no TClientDataSet podem ser lidos e manipulados. Se o valor for False, o client dataset está fechado (closed) e não podemos acessar nem manipular os dados contidos nele.

Veja no trecho de código abaixo como definir o valor da propriedade Active em tempo de execução:

procedure TForm3.Button3Click(Sender: TObject);

begin

  // vamos ativar o client dataset

  ClientDataSet1.Active := True;

  // vamos testar se o client dataset foi mesmo ativado

  if ClientDataSet1.Active then

    ShowMessage('O ClientDataSet está ativo')

  else

    ShowMessage('O ClientDataSet  NÃO está ativo')

end;

Ao clicar no botão nós "ativamos" o client dataset e em seguida testamos o valor da propriedade Active para informar se o controle foi realmente ativado. É preciso ter muito cuidado. Tentar manipular os dados de um client dataset fechado pode resultar em uma exceção do tipo EDatabaseError com mensagens parecidas com:

Project Projeto.exe raised exception class EDatabaseError with message 'ClientDataSet1: Cannot perform this operation on a closed dataset'.

Ao definirmos o valor True para a propriedade Active as seguintes ações ocorrem:

1) O client dataset é preenchido com dados. Dependendo das propriedades do controle, estes dados podem vir de três formas diferentes: a) Do arquivo especificado na propriedade FileName; b) Do provider especificado na propriedade ProviderName ou por meio do método SetProvider. (algumas classes derivadas de TCustomClientDataSet possuem um componente interno que faz o papel do provider); c) Os dados que estavam ativos quando o client dataset foi desativado (somente se a aplicação foi executada durante um certo período depois que o dataset foi desativado).

2) O evento BeforeOpen é disparado. 

3) O valor dsBrowse é atribuído à propriedade State do dataset. 

4) Abre e posiciona um cursor no primeiro registro do conjunto de dados.

5) Dispara o evento AfterOpen. 

Se o client dataset nunca foi ativado, atribuir o valor True para a propriedade Active faz com que a estrutura (metadata) do client dataset seja definida. Esta estrutura é obtida juntamente com o pacote de dados a partir do provider ou armazenado em disco. Se não houver pacote de dados, tal estrutura é construída usando o valor atual da propriedade FieldDefs ou a partir dos componentes de campos persistentes listados na propriedade Fields.

Se um erro ocorrer durante a abertura do dataset, seu estado (State) é definido como dsInactive e o cursor de navegação é fechado.

Ao definirmos o valor False para a propriedade Active as seguintes ações ocorrem:

1) O evento BeforeClose é disparado. 

2) O valor para a propriedade State é definido como dsInactive. 

3) O cursor de navegação é fechado, salvando os dados atuais em disco se a propriedade FileName estiver definida e salvando o pacote de dados atual em cache de forma que o mesmo possa ser restaurado mais tarde quando o dataset for reaberto.

4) O evento AfterClose é disparado. 

Importante: Uma chamada ao método Open do TClientDataSet define a propriedade Active como True, enquanto uma chamada ao método Close a define como False.

Esta dica foi escrita e testada no Delphi 2009.

Efetuando cálculos de porcentagem em Delphi

*Fonte Arquivo de Fontes

Cálculos de porcentagens estão presentes em boa parte das aplicações que desenvolvemos. Porém, há momentos em que a mente trava e não conseguimos lembrar com clareza como estes cálculos são feitos, principalmente em Delphi.

Esta anotação tem o objetivo de ser uma fonte de pesquisa para os momentos em que suas habilidades matemáticas insistirem em continuar ocultas.

Ex: 1 - Suponhamos que um produto que custe R$ 178,00 sofra um acréscimo de 15%. Qual o valor final do produto? Veja o código em Delphi: 

procedure TForm1.Button1Click(Sender: TObject);

var

  valor, percentual, valor_final: double;

begin

  valor := 178.00; // valor original

  percentual := 15.0 / 100.0; // 15%

  valor_final := valor + (percentual * valor);

  ShowMessage('O valor final do produto é: ' +

    FloatToStr(valor_final));

  // O resultado será 204,70

end;

Ex: 2 - Um produto, cujo valor original era de R$ 250,00, teve um desconto de 8%. Qual foi seu valor final? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor, percentual, valor_final: double;

begin

  valor := 250.00; // valor original

  percentual := 8.0 / 100.0; // 8%

  valor_final := valor - (percentual * valor);

  ShowMessage('O valor final do produto é: ' +

    FloatToStr(valor_final));

  // O resultado será 230,00

end;

Ex: 3 - Em um concurso de perguntas e respostas, um jovem acertou 72 das 90 perguntas apresentadas. Qual foi a porcentagem de acertos? E a porcentagem de erros? Veja o código em Delphi: 

procedure TForm1.Button1Click(Sender: TObject);

var

  perguntas, acertos: double;

begin

  perguntas := 90.0;

  acertos := 72.0;

  ShowMessage('Porcentagem de acertos: ' +

    FloatToStr(((acertos / perguntas) * 100)) + '%');

  ShowMessage('Porcentagem de erros: ' +

    FloatToStr((((perguntas - acertos) / perguntas) * 100)) + '%');

  // Os resultados serão 80% e 20%

end;

Ex: 4 - Um aparelho de CD foi adquirido por R$ 300,00 e revendido por R$ 240,00. Qual foi a porcentagem de lucro na transação? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);

var

  v_ant, v_nov, p_lucro: double;

begin

  v_ant := 300.0; // valor anterior

  v_nov := 340.0; // valor novo

  p_lucro := 0.0; // porcentagem de lucro

  while(v_ant + ((p_lucro / 100.0) * v_ant) < v_nov) do

    begin

      p_lucro := p_lucro + 0.1;

    end;

  ShowMessage('A porcentagem de lucro foi de: ' +

    FloatToStr(p_lucro) + '%');

  // O resultado será 13,39

end;

Ex: 5 - Uma loja repassa 5% do lucro a seus vendedores. Se um produto custa R$ 70,00, qual o valor em reais repassado a um determinado vendedor? Veja o código em Delphi: 

procedure TForm1.Button1Click(Sender: TObject);

var

  valor, porcent, comissao: double;

begin

  valor := 70.0; // valor do produto

  porcent := 5.0 / 100.0; // 5%

  comissao := porcent * valor;

  ShowMessage('O valor repassado ao vendedor é: ' +

    FloatToStr(comissao));

  // O resultado será 3,5

end;

Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009.

Como efetuar uma conexão Delphi 7 + dbExpress + Firebird

*Fonte Arquivo de Códigos

Então você pretende desenvolver aplicações de bancos de dados usando o Delphi 7 + Firebird? O primeiro passo é aprender a fazer a conexão entre o Delphi e o banco de dados. Para esta dica estou usando o Delphi 7 e o Firebird 2.5. Usarei também os componentes da aba dbExpress. Para começar, certifique-se de que sua instalação do Delphi está funcionando corretamente. Verifique também se o Firebird está ativo e pronto para receber requisições.

Para efetuar a conexão, siga atentamente os passos a seguir:

a) Vá até a aba dbExpress e arraste um componente TSQLConnection para seu formulário. Em seguida ajuste o valor da propriedade ConnectionName para "IBConnection". Ajuste LoginPrompt para "False". Isso evitará que o programa exiba a tela de login para a inserção da senha a cada execução do programa.

b) Clique no botão ao lado da propriedade Params para exibir o Value List editor. Nesta janela vamos fornecer o nome e local da base de dados. Assim, ajuste o valor da propriedade Database para "C:\Firebird_2_5\dados\ESTUDOS.FDB" ou algo parecido no seu sistema. Ajuste o nome de usuário e senha se você não estiver usando os valores padrões. Clique Ok e feche o Value List editor.

c) Hora de testar a conexão. Para isso, ajuste a propriedade Connected do TSQLConnection para "True". Se tudo correu bem, a mudança do valor da propriedade ocorrerá sem qualquer problema. Se houver alguma mensagem de erro, refaça os passos anteriores.

Obtida a conexão com o banco de dados, é hora de disparar um comando SQL. Para isso arraste um componente TSQLDataSet e ajuste sua propriedade SQLConnection para o componente TSQLConnection. Arraste um componente TMemo para o formulário e, em seguida, coloque o código abaixo no evento Click de um botão:

procedure TForm1.Button1Click(Sender: TObject);

begin

  // vamos fechar o SQLDataSet

  SQLDataSet1.Close;

  // vamos definir o tipo de comando

  SQLDataSet1.CommandType := ctQuery;

  // vamos definir a query a ser executada

  SQLDataSet1.CommandText := 'SELECT * FROM USUARIOS';

  // vamos disparar o comando

  SQLDataSet1.Active := True;

  // e agora vamos percorrer os resultados obtidos

  Memo1.Clear;

  while not SQLDataSet1.Eof do

    begin

      // vamos mostrar os IDs e nomes dos usuários

      Memo1.Lines.Add(SQLDataSet1.Fields.Fields[0].AsString + ' - ' +

        SQLDataSet1.Fields.Fields[1].AsString);

      // vamos mover para o próximo registro

      SQLDataSet1.Next;

    end;

end;

Aqui eu disparei um comando SELECT contra um tabela chamada USUARIOS. O resultado da consulta foi algo parecido com:

1 - OSMAR J SILVA

2 - CARLOS DE SOUZA ROCHA

Como converter uma string em um valor numérico inteiro

*Fonte Arquivo de Códigos

Em algumas situações precisamos converter strings em valores numéricos do tipo inteiro. Isso acontece quando recebemos valores de caixas de texto e precisamos usuá-los em cálculos.

Vamos começar com a função StrToInt() da unit SysUtils. Esta função recebe uma string representando um valor inteiro válido e retorna um valor inteiro. Veja o exemplo:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor1, valor2, soma: Integer;

begin

  // vamos receber as strings dos TEdits e converter

  // seus valores para inteiros

  valor1 := StrToInt(Edit1.Text);

  valor2 := StrToInt(Edit2.Text);

  // vamos obter a soma dos dois valores

  soma := valor1 + valor2;

  // vamos exibir o resultado. Note o uso de IntToStr() para

  // converter o valor inteiro em string

  ShowMessage('A soma é: ' + IntToStr(soma));

end;

Note que, se a string sendo convertida possuir um valor inteiro inválido, uma exceção do tipo EConvertError será lançada. Podemos evitar isso usando a função TryStrToInt(). Esta função recebe dois argumentos: a string a ser convertida e a variável do tipo Integer que receberá o valor. O resultado será true se a conversão for feita com sucesso e false em caso contrário. Veja:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor: Integer;

begin

  // vamos tentar converter o valor da caixa de texto

  // em um inteiro

  if TryStrToInt(Edit1.Text, valor) then

    ShowMessage('Conversão efetuada com sucesso.')

  else

    ShowMessage('Erro na conversão');

end;

Há ainda uma terceira possibilidade: usar a função StrToIntDef(). Esta função funciona exatamente da mesma forma que StrToInt(), exceto que agora, se houver um erro de conversão, um valor inteiro padrão será retornado. Veja:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor: Integer;

begin

  // vamos converter o valor da caixa de texto

  // em um inteiro. Se a conversão não puder ser feita

  // o valor 10 será atribuído à varial valor

  valor := StrToIntDef(Edit1.Text, 10);

  // vamos exibir o resultado

  ShowMessage(IntToStr(valor));

end;

Caso você precise trabalhar com inteiros de 64 bits, poderá usar as funções StrToInt64(), StrToInt64Def() e TryStrToInt64().

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Aprenda a usar a variável global ShortDateFormat para controlar a formatação de datas

A variável global ShortDateFormat fornece a formatação curta usada, por padrão, na conversão de datas em strings. Esta variável é usada pelas funções DateToStr(), DateTimeToStr() e DateTimeToString(). Os caracteres de formatação usados são:

   y  = Ano com 2 dígitos 

  yy  = Ano com 2 dígitos 

yyyy  = Ano com 4 dígitos 

   m  = Número do mês do ano sem o 0 no início 

  mm  = Número do mês com 2 dígitos 

 mmm  = Mês usando nomes curtos (Jan) 

mmmm  = Mês usando nomes longos  (Janeiro) 

   d  = Número do dia sem o 0 no início 

  dd  = Número do dia com dois dígitos 

 ddd  = Dia usando nomes curtos (Dom) 

dddd  = Dia usando nomes longos  (Domingo) 

Veja o trecho de código abaixo:

procedure TForm1.Button1Click(Sender: TObject);

var

  data: TDateTime;

begin

  // vamos construir a data

  data := StrToDate('13/03/2009');

  // vamos exibir usando a formatação padrão de ShortDateFormat

  showMessage(DateToStr(data));

  // vamos alterar o padrão de formatação de ShortDateFormat

  ShortDateFormat := 'dd ''de'' mmmm ''de'' yyyy';

  // experimente também

  // ShortDateFormat := 'dd/mm/yyyy';

  // vamos exibir usando a nova formatação

  ShowMessage(DateToStr(data));

end;

Como a variável ShortDateFormat é indicada para uso global, é interessante você definir o formato customizado em apenas um lugar de seus códigos, de forma a reaproveitar a formatação nas demais partes de seus programas.

No Windows, a formatação inicial de ShowDateFormat vem de LOCALE_SSHORTDATE, uma constante da API do Windows.

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Aprenda a usar o tipo de dados WORD da API do Windows em seus programas Delphi

*Fonte Arquivo de Códigos

Em várias ocasiões nós encontramos o tipo de dados WORD em códigos que interagem com a API do Windows. Desta forma, verificando a documentação do Windows descobrimos que este tipo está definido no header WinDef.h da seguinte forma:

typedef unsigned short WORD;

Em C/C++ um short possui 16 bits e o modificador unsigned informa que somente valores positivos são permitidos. Assim, sabemos que o tipo WORD pode guardar 16 bits (ou 2 bytes) de informação. Veja agora como podemos obter os valores máximo e mínimo de um WORD a partir de código Delphi:

procedure TForm3.Button2Click(Sender: TObject);

var

  maximo, minimo: WORD;

begin

  // vamos obter o valor máximo (65.535)

  maximo := High(WORD);

  // vamos obter o valor mínimo (0)

  minimo := Low(WORD);

  // vamos mostrar o resultado

  Memo1.Lines.Add('O valor máximo de um WORD é: ' +

    (IntToStr(maximo)));

  Memo1.Lines.Add('O valor mínimo de um WORD é: ' +

    (IntToStr(minimo)));

end;

Ao executar este código teremos o seguinte resultado:

O valor máximo de um WORD é: 65535

O valor mínimo de um WORD é: 0

Mas, o Delphi também possui um tipo Word. Qual a diferença entre o WORD (da API do Windows) e o Word do Delphi? Não há diferença. O tipo Word também é um inteiro de 16 bits não sinalizado cuja faixa de valores vai de 0 até 65.535. O fato de usarmos WORD em vez de Word em código que interage com a API do Windows é simplesmente para facilitar a tradução do código para outras linguagens que também possuem acesso direto à Win32 API.

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Algumas funções da API do Windows mostram o tipo de dados LPTSTR. Qual o tipo compatível em Delphi?

*Fonte Arquivo de Códigos

Muitas vezes encontramos funções na API do Windows que possuem parâmetros do tipo LPTSTR. Veja um exemplo:

BOOL GetUserName(

  LPTSTR lpBuffer,

  LPDWORD lpnSize

);

Esta função é usada para obter o nome do usuário atualmente logado no sistema. Note que ela possui dois parâmetros:

lpBuffer - Um ponteiro para um buffer de caracteres que receberá o nome do usuário;

lpnSize - Este parâmetro informa, na entrada, o tamanho do buffer de caracteres e, na saída, informa a quantidade de caracteres copiados para o buffer.

Mas, como podemos usar esta função a partir do Delphi se não temos este tipo de dados (LPTSTR) em Delphi?

Para o tipo LPTSTR nós podemos fornecer uma string terminada em null (#0). E a melhor de forma de se fazer isso é declarando uma matriz de Char. Veja:

procedure TForm1.Button1Click(Sender: TObject);

var

  buffer: array[0..255] of Char; // um buffer de 256 caracteres

  tamanho: DWORD;

begin

  // vamos informar ao Windows o tamanho do buffer

  tamanho := 256;

  // vamos chamar a função da API do Windows

  if GetUserName(buffer, tamanho) then

    begin

      ShowMessage('O nome de usuário é: ' + buffer);

      // informa a quantidade de caracteres usados. Note que

      // o caractere de término da string também é informado

      ShowMessage('A função usou: ' + IntToStr(tamanho) +

        ' caracteres');

    end

  else

    ShowMessage('Não foi possível obter o nome do usuário');

end;

Um cuidado que devemos ter é nunca fornecer um buffer muito pequeno para as funções da API do Windows que esperam um ponteiro para strings do tipo LPTSTR. Experimente, por exemplo, fornecer uma matriz de apenas dois caracteres para a função GetUserName(). A menos que o nome de usuário no seu computador tenha apenas uma letra, a chamada à função falhará.

Em Delphi o tipo PChar é um ponteiro para uma string terminada em null. Podemos usá-la também, mas, neste caso, somos responsáveis por alocar memória para a string usando a procedure GetMem() e liberá-la explicitamente usando FreeMem(). Veja; 

procedure TForm1.Button1Click(Sender: TObject);

var

  buffer: PChar; // um buffer do tipo PChar

  tamanho: DWORD;

begin

  // vamos informar ao Windows o tamanho do buffer

  tamanho := 256;

  // vamos alocar a memória suficiente para receber o nome

  // do usuário

  GetMem(buffer, tamanho);

  // vamos chamar a função da API do Windows

  if GetUserName(buffer, tamanho) then

    begin

      ShowMessage('O nome de usuário é: ' + buffer);

      // informa a quantidade de caracteres usados. Note que

      // o caractere de término da string também é informado

      ShowMessage('A função usou: ' + IntToStr(tamanho) +

        ' caracteres');

    end

  else

    ShowMessage('Não foi possível obter o nome do usuário');

  // vamos liberar o buffer alocado dinamicamente

  FreeMem(buffer);

end;

Finalmente podemos declarar o buffer como String, usar a procedure SetLength() para ajustar seu tamanho e convertê-la para PChar antes de enviá-la à função GetUserName(). Veja como isso pode ser feito:

procedure TForm1.Button1Click(Sender: TObject);

var

  buffer: String; // um buffer que será convertido para PChar

  tamanho: DWORD;

begin

  // vamos informar ao Windows o tamanho do buffer

  tamanho := 256;

  // aqui há um truque interessante. como não vamos precisar

  // de 256 caracteres para guardar o nome de usuário e não podemos

  // correr o risco de enviar uma string muito pequena, a saída

  // é usar o retorno de GetUserName() para ajustar o tamanho

  // da string depois de enviá-la à função.

  // vamos ajustar o tamanho da string

  SetLength(buffer, tamanho);

  GetUserName(PChar(buffer), tamanho);

  // agora tamanho guarda a quantidade de caracteres usados na função

  SetLength(buffer, tamanho);  // comente esta linha para ver o resultado

  // se o valor de tamanho for 0, então a função falhou

  if tamanho > 0 then

    begin

    ShowMessage('O nome de usuário é: ' + buffer);

      // informa a quantidade de caracteres usados. Note que

      // o caractere de término da string também é informado

      ShowMessage('A função usou: ' + IntToStr(tamanho) +

        ' caracteres');

    end

  else

    ShowMessage('Não foi possível obter o nome do usuário');

end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.