- res := CreateBlobStream(FieldByName('source'), bmRead);
- Response.ContentStream := res;
- end
- else if s = 'sprites.png' then
- begin
- Response.ContentType := 'image/png';
- res := TResourceStream.Create(HInstance, 'PngImage_1', RT_RCDATA);
+ s := FieldByName('source').AsString;
+ p := TNetEncoding.Base64.DecodeStringToBytes(s);
+ res := TMemoryStream.Create;
+ res.WriteBuffer(p, Length(p));