I like to show list of video stored in local directory like in attachment. I try to do it like this:
qGaleria.Open;
qGaleria.First;
while not qGaleria.Eof do
begin
imObrazLista.MIO.LoadFromFile(qGaleria.FieldByName('nazwa').AsString);
imObrazLista.ImageInfoText[i].Caption := ExtractFileName(qGaleria.FieldByName('nazwa').AsString);
imObrazLista.ImageID[i] := qGaleria.FieldByName('idx_galerii').AsInteger;
inc(i);
qGaleria.Next;
end;
imObrazLista.Update;
and this code for image works fine but for video not. Can someone help?
Search
