ActiveDelphi

[abobre]

Boa tarde,

estou utilizando um código para ativar a minha Web Cam, porem quero que implementar duas funções nesse sistema que estou tentando desenvolver, são elas:

Colocar um time para salvar as imagens em um local definido por mim:
E converter a imagem de bmp para jpg

O código que estou usando para ativar a minha web cam é a seguinte:

[fitlbanger]

Converter BMP em 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;

Converger JPEG em 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;

Não esqueça de acrescentar a unit Jpeg na seção uses da sua unit.

Boa sorte!
_________________
Acredite em você, pois podemos conquistar tudo desde que tenha interesse e dedicação.

[abobre]

Boa noite,

Obrigado pelo code cara, já me ajudou bastante !


Abraço e tópico resolvido !

[snash]

pode compartilhar o codigo para webcam??
_________________
Eduardo Nunes dos Santos

[abobre]

Então cara, você precisa do componente Tcamera ( http://mrbool.devmedia.com.br/Novo/Revista/cd79-adriano-cam.zip )
Coloque ele no form cara e use esse code aqui: