Zeoslib, read blob from MySQL
lazarus / 16-Databases

----------------------------------------------------------------------
chrnobel · 2010-06-30 11:20

Hi.

I have a question, where I probably have overlooked the most obvious,
so I would be glad if anyone could give me at hint:
Code: [Select]
uses

var
  MS : TMemoryStream;
begin

  sqlsentence.Clear;
  sqlsentence.Add('select * from pic ');
  sqlsentence.Add('where idpic=1');
  executesql;
  SetwebHeader('Content-Type', 'image/jpg');

  MS := TMemoryStream.Create;

//  TBlobField(DataSource1.DataSet.FieldByName('img')).SaveToStream(St
ream);
  MS := DataSource1.DataSet.CreateBlobStream(DataSource1.DataSet.Field
ByName('img'),read);
//  MS. LoadFromFile(DataSource1.DataSet.FieldByName('img').AsString);
  webBufferOut( MS.Memory^,MS.Size );
  MS.Free;