Mercurial > hg > orthanc
diff OrthancServer/Resources/Samples/Lua/AutomatedJpeg2kCompression.lua @ 4044:d25f4c0fa160 framework
splitting code into OrthancFramework and OrthancServer
author | Sebastien Jodogne <s.jodogne@gmail.com> |
---|---|
date | Wed, 10 Jun 2020 20:30:34 +0200 |
parents | Resources/Samples/Lua/AutomatedJpeg2kCompression.lua@e371519d4ac9 |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/OrthancServer/Resources/Samples/Lua/AutomatedJpeg2kCompression.lua Wed Jun 10 20:30:34 2020 +0200 @@ -0,0 +1,38 @@ +-- This sample shows how to use Orthanc to compress on-the-fly any +-- incoming DICOM file, as a JPEG2k file. + +function OnStoredInstance(instanceId, tags, metadata, origin) + -- Do not compress twice the same file + if origin['RequestOrigin'] ~= 'Lua' then + + -- Retrieve the incoming DICOM instance from Orthanc + local dicom = RestApiGet('/instances/' .. instanceId .. '/file') + + -- Write the DICOM content to some temporary file + local uncompressed = instanceId .. '-uncompressed.dcm' + local target = assert(io.open(uncompressed, 'wb')) + target:write(dicom) + target:close() + + -- Compress to JPEG2000 using gdcm + local compressed = instanceId .. '-compressed.dcm' + os.execute('gdcmconv -U --j2k ' .. uncompressed .. ' ' .. compressed) + + -- Generate a new SOPInstanceUID for the JPEG2000 file, as + -- gdcmconv does not do this by itself + os.execute('dcmodify --no-backup -gin ' .. compressed) + + -- Read the JPEG2000 file + local source = assert(io.open(compressed, 'rb')) + local jpeg2k = source:read("*all") + source:close() + + -- Upload the JPEG2000 file and remove the uncompressed file + RestApiPost('/instances', jpeg2k) + RestApiDelete('/instances/' .. instanceId) + + -- Remove the temporary DICOM files + os.remove(uncompressed) + os.remove(compressed) + end +end