Сжатие картинок перед внесением в бд

[xxbesoxx]

Из инета например картинку загоняю в буфер и оттуда в БД)

Если получить компоненту в Image и потом из Image на БД так не будеть быстрее

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
 // подклуючен модул
 IdHTTP, Jpeg, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Ms : TMemoryStream;
  IdHTTP : TIdHTTP;
  JIm : TJPEGImage;
  oldcur : TCursor; // Переменое типа курсор
begin
  IdHTTP := TIdHTTP.Create(nil);
  Ms :=TMemoryStream.Create;
  JIm := TJPEGImage.Create;
  //-------------------------------------
  oldcur := screen.Cursor;
  screen.Cursor:=crHourGlass;
  try
    IdHTTP.Get('http://image.zn.ua/media/images/original/May2015/117420.jpg', Ms);
    Ms.Position := 0;
    JIm.LoadFromStream(Ms);
    Image1.Picture.Bitmap.Assign(Jim);
  finally
    FreeAndNil(IdHTTP);
    FreeAndNil(Ms);
    FreeAndNil(JIm);
    screen.Cursor := oldcur;// Освобождаем курсор
  end;


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Stretch := True; // Что бы  размер картинка поместить на  Image1.
end;

end.

[Stilet]

Ernest027

Код покажешь?

[Ernest027]

Какой код?) я же говорю что даже при просмотре картинок из базы через dbimage все тормозит)

[xxbesoxx]

Какой код?)

На который вы думайте что для него тормазить программу ..... интересно

[evg_m]

что даже при просмотре картинок из базы через dbimage все тормозит)

В этом "выводе" участвуют:
1) собственно отрисовка картинки (графическая оболочка Windows)
2) предоставление данных для отрисовки твоя программа (код получения образа картинки перед КАЖДОЙ отрисовкой)
3) канал передачи при загрузке данных(картинок) из БД
4) собственно СУБД

1) медленный компьютер ?!
2) недостаточно грамотно продуман АЛГОРИТМ получения картинок ?!
наиболее популярная ошибка - тянуть с БД картинку каждый раз на каждую попытку нарисовать.
3) "плохо" расположенный сервер БД ?!
4) плохо настроенная БД ?!

1) графика работает исключительно с РАСПАКОВАНЫМИ форматами (т.е. упаковка не повлияет)
2) распаковка каждый раз только увеличит время обработки.
3, 4) упаковка даст 5-10% трафика (и времени) которые ТУТ ЖЕ съест распаковка на приеме (см. п.2)

Даже простой показ картинок через DBImage требует НАПИСАНИЯ кода.
ВОЗМОЖНО через настройку компонентов (DataSource, DataSet), но это(настройка) тоже код
как минимум
1) установление соединения c БД
2) получение образа из БД

[f.hump]

думается мне, что просто комп медленный для такой задачи.

ну, или какие-то порно-картинки с коррекцией температуры и нестандартным HSV-профилем, такие у меня не на самом слабом компе пару секунд декодируются.


кстати, а какой формат и размер картинок?

[Stilet]

Какой код?)

Тот, о котором:

например картинку загоняю в буфер и оттуда в БД)

даже при просмотре картинок из базы через dbimage все тормозит)

Все равно бы проект с базой не помешало глянуть. Так и не скажешь сразу почему тормозит.

[Ernest027]

Компьютер тормоз))) открыл на другом компе,все нормально)))
Спасибо вам большое)))