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

[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;

[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