Как загрузить из базы SQLite изображение в Timage при выборе в ListView?

Question

[Александр Вишнев]

База данных формата: text, img(blob)
В ListView загружены данные из колонки text.
Как при нажатии на item в ListView получить в Timage изображение соответствующее выбранному значению item?
Буду очень благодарен за пример подобного кода.

Answer 1

[Hemul GM]

Вот здесь у меня есть обёртка для SQLite. В ней есть метод FieladAsBlob. Забираешь stream и грузишь из него картинку

Comments

[Александр Вишнев]

Я не понимаю как мне получить то, что я хочу загрузить картинку именно того итема, который выбран.

[Hemul GM]

Александр Вишнев, когда загружаешь данные из БД в список, каждому итему нужно сохранять его id в базе. При клике получай id. Делай запрос указывая этот ид

[Александр Вишнев]

Hemul GM, всё равно не понял.
Допустим, если сделать id в БД для каждой строки, и получать его совместно с текстом итема. Как мне при нажатие узнать, что при нажатие на именно этот выбранный итем, надо загрузить изображение именно из этого id...

[Hemul GM]

Александр Вишнев, ХРАНИТЬ В ИТЕМЕ ID

[Александр Вишнев]

При ...select id, text... получаю текст в listview и id строки текста в поле Tag.
но при нажатии на item в listview в выборке, например из 10 итемов все 10 item.tag = одному и тому же значению.

procedure Form1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
i:integer;
begin
i:=FDQuery2.FieldByName('id').AsInteger;
Label2.Text:=IntToStr(i);
end;

procedure Form1.sEdit2ChangeTracking(Sender: TObject);
var
 i, id : Integer;
 m,SQL,rs : string;
begin
  ListView1.Items.Clear;
    FDQuery2.Close;
    FDQuery2.Active:=True;
    FDQuery2.SQL.Clear;
    SQL := 'SELECT id, text,  FROM vdb WHERE text MATCH :search ORDER BY rank';
    FDQuery2.SQL.Text := SQL;
   FDQuery2.ParamByName('search').AsString := '^'+sEdit1.Text+'*';
   FDQuery2.Open;
    ListView1.BeginUpdate;
  for i:=0 to FDQuery2.RecordCount -1 do
     begin
     mr:=(FDQuery2.FieldByName('text').AsString);
     id:=(FDQuery2.FieldByName('id').AsInteger);

        ListView1.Items.Add.Data['txtMain'] := mr;
        ListView1.Items.Item[i].Tag:=id;
        ListView1.Selected := ListView1.Items[0];
        FDQuery2.Next;
        end;
           ListView1.EndUpdate;
            end;

[Hemul GM]

Александр Вишнев,

procedure Form1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
i:integer;
begin
i:=FDQuery2.FieldByName('id').AsInteger;
Label2.Text:=IntToStr(i);
end;

где ты тут Tag забираешь?

Я вижу, что ты тут берёшь id выбранной в базе записи, а не тег элемента в списке

[Александр Вишнев]

Hemul GM, точно забыл упомянуть, что нижеуказанный код возвращает 0 при любых выборках.

procedure Form1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
i:integer;
begin
i:=Listview1.Tag;
Label2.Text:=IntToStr(i);
end;

[Hemul GM]

Александр Вишнев, ты издеваешься?

[Hemul GM]

Александр Вишнев,
это ListView1.Items.Item[i].Tag:=id;
по твоему равно этому i:=Listview1.Tag; ?

[Hemul GM]

Александр Вишнев, это тег контрола списка, а не элемента. Элемент тебе любезно дают в параметрах события.
i := AItem.Tag;

[Александр Вишнев]

Hemul GM, i := AItem.Tag; дает 0 при любом выборе item.

[Hemul GM]

Александр Вишнев, значит у тебя косяк где-то в коде

[Александр Вишнев]

Hemul GM, про AItem вообще не знал.
Hemul GM, но после того как переоткрыл проект, AItem.Tag заработал. Спасибо за помощь.

[Александр Вишнев]

Александр Вишнев,

procedure Form1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
i: Integer;
imcc: string;
 BlobStream: TStream;
begin
i:=AItem.Tag;
Label2.Text:=IntToStr(i);

 FDQuery2.Close;
 FDQuery2.SQL.Clear;
 FDQuery2.SQL.Add('select imc from vdb WHERE id='+IntToStr(i));
 FDQuery2.OpenOrExecute;
  if
    imcc='i'
    then
 FDQuery2.Close;
 FDQuery2.SQL.Clear;
 FDQuery2.SQL.Add('select imd from vdb WHERE id='+IntToStr(i));
 FDQuery2.OpenOrExecute;
 BlobStream := FDQuery2.CreateBlobStream(FDQuery2.FieldByName('imd'), TBlobStreamMode.bmRead);
 if (FDQuery2.FieldByName('imd').AsString = FDQuery2.FieldByName('imd').AsString)
  then Image1.Bitmap.LoadFromStream(BlobStream);
 Panel1.Visible:=True;

Не могу прописать логику, что если imcc='' то Panel1.Visible:=False;

[Hemul GM]

Александр Вишнев, Panel1.Visible := imcc <> '';

[Александр Вишнев]

Hemul GM, всё равно даже если imc не = i то Panel1.Visible:=true

[Hemul GM]

Александр Вишнев,
Т.е. ты считаешь, что здесь
imcc='i'
ты сравниваешь переменную imcc и переменную i?

Так вот нет. Ты тут сравниваешь переменную imcc и латинскую букву 'i'

[Александр Вишнев]

Hemul GM, из бд получаю содержание поля imc, если в нем содержится буква i то Panel1.Visible:=true в ином случае Panel1.Visible:=false.
Но Panel1.Visible:=false не работает.

Разобрался. Забыл строку imcc :=(FDQuery2.FieldByName('imc').AsString);