[Mehman123]

Сообщение от AllMaNi

Для примера - манипуляции с бмп и жпг. (из проги по созданию скриншота экрана и сохранению его в жпг)

Код:

procedure ScreenToJPG(filename:String);
var
  bm:TBitMap;
  jpg:TJPEGImage;
 begin
  bm:=TBitMap.Create;
  bm.Width:=Screen.Width;
  bm.Height:=Screen.Height;
  BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0,SRCCOPY);
  jpg:=TJPEGImage.Create;
  jpg.CompressionQuality := 75;
  jpg.Assign(bm);
  jpg.SaveToFile(filename + '.jpg');
  jpg.Free;
  bm.Free;
 end;

В Uses подключи модуль jpeg.

у меня не полуцилас вот ето код:

Код:

procedure TForm3.TntSpeedButton3Click(Sender: TObject);
begin
od1.Execute;
if od1.FileName<>'' then  dm2.ADOTable15foto1.LoadFromFile(od1.FileName);
end;

procedure ScreenToJPG(filename:String);
var
  bm:TBitMap;
  jpg:TJPEGImage;
 begin
  bm:=TBitMap.Create;
  bm.Width:=Screen.Width;
  bm.Height:=Screen.Height;
  BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0,SRCCOPY);
  jpg:=TJPEGImage.Create;
  jpg.CompressionQuality := 75;
  jpg.Assign(bm);
  jpg.SaveToFile(filename + '.jpg');
  jpg.Free;
  bm.Free;
 end;

а исходник ест?