GDI+ viele Encoder parameter setzen ARRAY[0.0.]

[Gernot Huber]

Probier es mal so aus:

Delphi-Quellcode:

  parameterValue1: TEncoderValue;
  parameterValue2: TEncoderValue;
  parameterValue3: ULONG;
  parameterValue4: ULONG;

  encoderParameters.Count := 3;
  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;
 
  encoderParameters.Parameter[2].Guid := EncoderColorDepth;
  encoderParameters.Parameter[2].Type_ := EncoderParameterValueTypeLong;
  encoderParameters.Parameter[2].NumberOfValues := 1;
  encoderParameters.Parameter[2].Value := @parameterValue3;
 
  encoderParameters.Parameter[3].Guid := EncoderQuality;
  encoderParameters.Parameter[3].Type_ := EncoderParameterValueTypeLong;
  encoderParameters.Parameter[3].NumberOfValues := 1;
  encoderParameters.Parameter[3].Value := @parameterValue4;
 
  parameterValue1 := EncoderValueMultiFrame;
  parameterValue2 := EncoderValueCompressionNone;
  parameterValue3 := PixelFormat16bppRGB565;
  parameterValue4 := 100;

Gruß
Gernot