GDI+ viele Encoder parameter setzen ARRAY[0.0.]

[Gernot Huber]

Hallo bernhard_LA,

ich habe das ganze so gelöst:

Delphi-Quellcode:

procedure ProzessImage(aSource, aDest : string);
type
  TMyEncoderParameters = packed record
    Count     : UINT;               // Number of parameters in this structure
    Parameter : array[0..1] of TEncoderParameter;  // Parameter values
  end;

var
  encoderParameters: TMyEncoderParameters;
  parameterValue1: TEncoderValue;
  parameterValue2: TEncoderValue;
.
.
.
begin
  encoderParameters.Count := 2;
  encoderParameters.Parameter[0].Guid := EncoderSaveFlag;
  encoderParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
  encoderParameters.Parameter[0].NumberOfValues := 1;
  encoderParameters.Parameter[0].Value := @parameterValue1;

  encoderParameters.Parameter[1].Guid := EncoderCompression;
  encoderParameters.Parameter[1].Type_ := EncoderParameterValueTypeLong;
  encoderParameters.Parameter[1].NumberOfValues := 1;
  encoderParameters.Parameter[1].Value := @parameterValue2;
.
.
.

Gruß
Gernot