Hello,
I want to load thumbnails images that are stored in a SQLite Database in ImageEnMView. But nothing gets loaded
For this I am using this code:
if ZQuery1.RecordCount > 0 then
begin
ZQuery1.First;
while not ZQuery1.Eof do
begin
iLayoutId := ZQuery1.FieldValues['lay_id'];
iThumbnailString := ZQuery1.FieldValues['lay_preview'];
if Length(Trim(iThumbnailString)) > 0 then
begin
ims := TMemoryStream.Create();
TIdDecoderMIME.DecodeStream(iThumbnailString, ims);
ims.Seek(0, soFromBeginning);
iIEBitmap := TIEBitmap.Create;
iIEBitmap.IELoadFromStream(ims);
ims.Free;
idx := iemPageLayoutOptions.AppendImage;
iemPageLayoutOptions.SetImageFromStream(idx, ims);
iIEBitmap.Assign(iemPageLayoutOptions.IEBitmap);
iIEBitmap.Free;
end; //if Length(Trim(iThumbnailString)) > 0 then
ZQuery1.Next;
end; // while not ZQuery1.Eof do
end; //if ZQuery1.RecordCount > 0 then
I have verified that the image in DB is proper as I am using this same image to load in a StringGrid in another application.
It seems I am making some obvious mistake which I am not able to put my finger on.
Please help me.
TIA
Yogi Yang
Search
