Converter imagens BMP para JPEG e vice versa

Dica rápida pra ficar na memória, como converter imagens BMP para JPEG e JPEG para BMP com Lazarus/Free-Pascal e Delphi.

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: string);
var
Bmp: TBitmap;
Jpg: TJPEGImage;
begin
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromFile(JpgFileName);
Bmp.Assign(Jpg);
Bmp.SaveToFile(BmpFileName);
finally
Jpg.Free;
Bmp.Free;
end;
end;

Google Drive no Ubuntu com SyncDrive

Dica para quem precisa do Google Drive no Ubuntu.

SyncDrive é um cliente alternativo para usar o Google Drive no Ubuntu criado por David Tavares, desenvolvedor do Pear OS. Ele é derivado do Grive, um outro cliente alternativo ao Google Drive.

Para instalar siga os passos:

sudo add-apt-repository ppa:nemh/gambas3
sudo apt-get update

Agora faça o download do SyncDrive AQUI de acordo com a versão do seu sistema.

Vá para o diretório onde você fez o download e instale com os seguintes comandos:

sudo dpkg -i syncdrive_0.9-1-amd64.deb 
sudo apt-get install -f

Facim!!!