' Gdiplus.ab Declare Function GdipAlloc Lib "Gdiplus.dll" (size As SIZE_T) As VoidPtr Declare Sub GdipFree Lib "Gdiplus.dll" (ptr As VoidPtr) #require #require #require #require #require '#require '#require '#require ' GdiPlusImaging.ab Namespace Gdiplus Dim ImageFormatUndefined = [&hb96b3ca9, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatMemoryBMP = [&hb96b3caa, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatBMP = [&hb96b3cab, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatEMF = [&hb96b3cac, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatWMF = [&hb96b3cad, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatJPEG = [&hb96b3cae, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatPNG = [&hb96b3caf, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatGIF = [&hb96b3cb0, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatTIFF = [&hb96b3cb1, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatEXIF = [&hb96b3cb2, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim ImageFormatIcon = [&hb96b3cb5, &h0728, &h11d3, [&h9d, &h7b, &h00, &h00, &hf8, &h1e, &hf3, &h2e]] As GUID Dim FrameDimensionTime = [&h6aedbd6d, &h3fb5, &h418a, [&h83, &ha6, &h7f, &h45, &h22, &h9d, &hc8, &h72]] As GUID Dim FrameDimensionResolution = [&h84236f7b, &h3bd3, &h428f, [&h8d, &hab, &h4e, &ha1, &h43, &h9c, &ha3, &h15]] As GUID Dim FrameDimensionPage = [&h7462dc86, &h6180, &h4c7e, [&h8e, &h3f, &hee, &h73, &h33, &ha7, &ha4, &h83]] As GUID Dim FormatIDImageInformation = [&he5836cbe, &h5eef, &h4f1d, [&hac, &hde, &hae, &h4c, &h43, &hb6, &h08, &hce]] As GUID Dim FormatIDJpegAppHeaders = [&h1c4afdcd, &h6177, &h43cf, [&hab, &hc7, &h5f, &h51, &haf, &h39, &hee, &h85]] As GUID Dim EncoderCompression = [&he09d739d, &hccd4, &h44ee, [&h8e, &hba, &h3f, &hbf, &h8b, &he4, &hfc, &h58]] As GUID Dim EncoderColorDepth = [&h66087055, &had66, &h4c7c, [&h9a, &h18, &h38, &ha2, &h31, &h0b, &h83, &h37]] As GUID Dim EncoderScanMethod = [&h3a4e2661, &h3109, &h4e56, [&h85, &h36, &h42, &hc1, &h56, &he7, &hdc, &hfa]] As GUID Dim EncoderVersion = [&h24d18c76, &h814a, &h41a4, [&hbf, &h53, &h1c, &h21, &h9c, &hcc, &hf7, &h97]] As GUID Dim EncoderRenderMethod = [&h6d42c53a, &h229a, &h4825, [&h8b, &hb7, &h5c, &h99, &he2, &hb9, &ha8, &hb8]] As GUID Dim EncoderQuality = [&h1d5be4b5, &hfa4a, &h452d, [&h9c, &hdd, &h5d, &hb3, &h51, &h05, &he7, &heb]] As GUID Dim EncoderTransformation = [&h8d0eb2d1, &ha58e, &h4ea8, [&haa, &h14, &h10, &h80, &h74, &hb7, &hb6, &hf9]] As GUID Dim EncoderLuminanceTable = [&hedb33bce, &h0266, &h4a77, [&hb9, &h04, &h27, &h21, &h60, &h99, &he7, &h17]] As GUID Dim EncoderChrominanceTable = [&hf2e455dc, &h09b3, &h4316, [&h82, &h60, &h67, &h6a, &hda, &h32, &h48, &h1c]] As GUID Dim EncoderSaveFlag = [&h292266fc, &hac40, &h47bf, [&h8c, &hfc, &ha8, &h5b, &h89, &ha6, &h55, &hde]] As GUID '#if GDIPVER >= &h0110 Dim EncoderColorSpace = [&hae7a62a0, &hee2c, &h49d8, [&h9d, &h7, &h1b, &ha8, &ha9, &h27, &h59, &h6e]] As GUID Dim EncoderImageItems = [&h63875e13, &h1f1d, &h45ab, [&h91, &h95, &ha2, &h9b, &h60, &h66, &ha6, &h50]] As GUID Dim EncoderSaveAsCMYK = [&ha219bbc9, &ha9d, &h4005, [ &ha3, &hee, &h3a, &h42, &h1b, &h8b, &hb0, &h6c]] As GUID '#endif Dim CodecIImageBytes = [&h025d1823, &h6c7d, &h447b, [&hbb, &hdb, &ha3, &hcb, &hc3, &hdf, &ha2, &hfc]] As GUID End Namespace