GDI+ viele Encoder parameter setzen ARRAY[0.0.]

[bernhard_LA]

aktuell scheitere ich jetzt daran gültige Werte zu übergeben, Farbtiele und Qualität wollen als Parameter einen Integer und keinen TEncoderValue;
Wenn ich die Parameter wie im Code angegeben übergebe kann ich das erzeugte Bild nicht mehr mir IRFANVIEW öffen (Falsche Bildkodierung )

Delphi-Quellcode:

  parameterValue1: TEncoderValue;
  parameterValue2: TEncoderValue;
  parameterValue3: integer;
  parameterValue4: integer;


  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[0].Guid := EncoderQuality;
  encoderParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
  encoderParameters.Parameter[0].NumberOfValues := 1;
  encoderParameters.Parameter[0].Value := @parameterValue4;

  parameterValue1 := EncoderValueMultiFrame;
  parameterValue2 := EncoderValueCompressionNone;
  parameterValue3 := PixelFormat16bppRGB565;
  parameterValue4 := 100;