ELIEL DE PAULA

FULL STACK WEBDEVELOPER

Lazarus/Free-Pascal

Fazendo cópia de arquivos com Delphi/Lazarus no Windows 7 ou superior

Postado dia 08/10/2015
ProgramaçãoLazarus/Free-PascalDelphiDicas

Esta é uma dica de como fazer cópias de arquivos usando Delphi ou Lazarus no Windows 7 ou superior. Veja o código de exemplo: procedure TForm1.Button1Click(Sender: TObject); var Dados: TSHFileOpStruct; begin FillChar(Dados,SizeOf(Dados), 0); with Dados do begin wFunc := FO_COPY; pFrom := PChar(Edit1.Text); pTo := PChar(Edit2.Text); fFlags:= FOF_ALLOWUNDO; end; SHFileOperation(Dados); end; Podemos também se precisar, utilizar “*.*”, exemplo: Origem: C:\RMAR\blocos\*.*…

Continuar lendo...

Converter imagens BMP para JPEG e vice versa com Lazarus / Free-Pascal

Postado dia 12/09/2014
ProgramaçãoLazarus/Free-PascalDelphiDicas

Converter imagens BMP para JPEG e vice versa com Lazarus / Free-Pascal

Dica rápida pra ficar na memória, como converter imagens BMP para JPEG e JPEG para BMP Nota: Adicionar a unit Jpeg na seção Uses. BMP para JPEG procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string); var Bmp: TBitmap; Jpg: TJPEGImage; begin Bmp := TBitmap.Create; Jpg := TJPEGImage.Create; try Bmp.LoadFromFile(BmpFileName); Jpg.Assign(Bmp); Jpg.SaveToFile(JpgFileName); finally Jpg.Free; Bmp.Free; end; end; JPEG para BMP procedure Jpeg2Bmp(const BmpFileName, JpgFileName:…

Continuar lendo...