Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.134 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: GDI+ viele Encoder parameter setzen ARRAY[0.0.]

  Alt 12. Jul 2012, 15:42
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;
  Mit Zitat antworten Zitat