Desenvolvimento de Software

Reproduzindo Arquivos .wav no Delphi No Delphi, você pode tocar um arquivo de som no formato .wav utilizando a função SndPlaySound. O código abaixo mostra como fazer isso: Entendendo os Parâmetros Se quiser esperar o som terminar antes de continuar a execução, use SND_SYNC: Outras Formas de Manipular Áudio no Delphi Além de SndPlaySound, o…

Aqui está uma versão otimizada da sua publicação, com mais clareza, organização e SEO aprimorado: Como Enviar E-mail no Delphi com o Componente NMSMTP Enviando E-mails no Delphi com NMSMTP O Delphi permite o envio de e-mails por meio do componente TNMSMTP, disponível na aba FastNet da VCL. Neste tutorial, você aprenderá a configurar e…

Número de cópias para a impressão   Procedure AjustaPapel(Copias:Integer); var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; PDMode : PDEVMODE; begin Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(Device, Driver, Port, hDMode); if hDMode 0 then begin pDMode := GlobalLock(hDMode); if pDMode nil then begin pDMode^.dmFields := pDMode^.dmFields…

Função para impressão de linhas em um relatório procedure TPrintx_Form1.Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant); var X: Integer; begin Write(Arquivo,#13); If NlinLinhaAtual then begin for X :=LinhaAtual to (Nlin-1) do begin WriteLn(Arquivo,”); LinhaAtual:=LinhaAtual+1; end; end; If Ncol>0 then begin For X:=0 to Ncol do begin Write(Arquivo,’ ‘); end; end; If LinhaAtual >=63 then…

//coloque as imagens em um arquivo Res e compile a biblioteca com a diretiva {$R icones.res} //para chamar as imagens var Hicone: Thandle; begin Hicone:= LoadLibrary(‘icones.dll’); Componente.Glyph.Handle := LoadBitmap(Hicone,’B_CANCELAR’);

Como se movimentar e manipular tabelas no Delphi Nesta Dica do Web Mundi.com, veremos como se movimentar e manipular tabelas no Delphi. Para manipular banco de dados via código (movimentar o ponteiro e fazer inserção, edição e exclusão de dados), use um dos seguintes comandos abaixo: Dataset.First; // Move para o primeiro registro da tabela ou query…

Reparar e compactar um banco de dados Access com Delphi Quem já trabalhou com o Ms Access, alguma vez já teve que compactar ou reparar um banco de dados (Extensão MDB). O recurso de compactar é essencial , uma vez que o banco de dados começa a ficar grande demais. O código abaixo realiza estas…

Verifica a existência de uma placa de som Como verificar a existência de uma placa de som via programação Delphi Procedure TestaPlaca(Value:integer); begin som := ”; if WaveOutGetNumDevs > 0 then begin result := True end else begin Result := False; end; end;

Filtra todos os números de uma string em Delphi Function SoNumero(Texto : String) : String; var Ind : Integer; TmpRet : String; begin TmpRet := ”; for Ind := 1 to Length(Texto) do begin if IsDigit(Copy(Texto,Ind,1)) then begin TmpRet := TmpRet + Copy(Texto, Ind, 1); end; end; Result := TmpRet; end;

Rotina que imprime um texto em outro angulo diferente de 90º em Delphi procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle,size:integer); // Requer a Printers declarada na clausula uses da unit // // Ex: // Printer.BeginDoc; // AngleTextOut(Printer.Canvas,’Teste’,180,100,0,11); // Printer.EndDoc; var LogFont: TLogFont; SaveFont: TFont; begin SaveFont := TFont.Create; SaveFont.Assign(CV.Font); GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont); with…