GDI+ viele Encoder parameter setzen ARRAY[0.0.]

**bernhard_LA**

wie setze ich denn mehrere Werte im encoderParameters gleichzeitig ??
Mein Versuch wie folgt : (geht leider nicht zum comilieren)

zusammenfalten · markieren

Delphi-Quellcode:

			
   encoderParameters.Count := 3;

   encoderParameters.Parameter[2].Guid := EncoderCompression;

   encoderParameters.Parameter[2].Type_ := EncoderParameterValueTypeLong;

   encoderParameters.Parameter[2].NumberOfValues := 1;

   encoderParameters.Parameter[2].Value := @CompressionValue;

  CompressionValue := CompressionNone;

    encoderParameters.Count := 3;

    encoderParameters.Parameter[1].Guid := EncoderColorDepth;

    encoderParameters.Parameter[1].Type_ := EncoderParameterValueTypeLong;

    encoderParameters.Parameter[1].NumberOfValues := 1;

   encoderParameters.Parameter[1].Value := @ColorDepthValue;

   // ColorDepthValue := PixelFormat16bppGrayScale;

   ColorDepthValue := PixelFormat16bppRGB565;

  /// 

  //  Save the image as ... a with quality level 0...100

   //  

  encoderParameters.Count := 1;

  encoderParameters.Parameter[0].Guid := EncoderQuality;

  encoderParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;

  encoderParameters.Parameter[0].NumberOfValues := 1;

  encoderParameters.Parameter[0].Value := @quality;

  quality := 1;

die Struktur ist ein Array [0 .. 0] ...

zusammenfalten · markieren

Delphi-Quellcode:

			//---------------------------------------------------------------------------

// Encoder Parameter structure

//---------------------------------------------------------------------------

  {$EXTERNALSYM EncoderParameter}

  EncoderParameter = record

    Guid           : TGUID;   // GUID of the parameter

    NumberOfValues : ULONG;   // Number of the parameter values

    Type_          : ULONG;   // Value type, like ValueTypeLONG  etc.

    Value          : Pointer; // A pointer to the parameter values

  end;

  TEncoderParameter = EncoderParameter;

  {$EXTERNALSYM TEncoderParameter}

  PEncoderParameter = ^TEncoderParameter;

  {$EXTERNALSYM PEncoderParameter}

//---------------------------------------------------------------------------

// Encoder Parameters structure

//---------------------------------------------------------------------------

{$ALIGN 1}

  {$EXTERNALSYM EncoderParameters}

  EncoderParameters = record

    Count     : UINT;               // Number of parameters in this structure

    Parameter : array[0..0] of TEncoderParameter;  // Parameter values

  end;

  TEncoderParameters = EncoderParameters;

  {$EXTERNALSYM TEncoderParameters}

  PEncoderParameters = ^TEncoderParameters;

  {$EXTERNALSYM PEncoderParameters}

{$ALIGN ON}

**bernhard_LA**

hat niemenad eine Idee wie mit obigem Array [0..0] aus dem ersten Post viele Parameter übergebe ??

Das Problem ist wohlähnlich zu :

http://www.delphipraxis.net/98740-array-%5B0-0%5D.htmlaber alle meine Versuche scheitern

**Bummi**

Schau mal ob das hilft

http://trac.assembla.com/delphiexter...nit1.pas?rev=1

**Gernot Huber**

Hallo bernhard_LA,

ich habe das ganze so gelöst:

zusammenfalten · markieren

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

)

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

GDI+ viele Encoder parameter setzen ARRAY[0.0.]

GDI+ viele Encoder parameter setzen ARRAY[0.0.]

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

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

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

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

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

Forumregeln

bernhard_LA Registriert seit: 8. Jun 2009 Ort: Bayern 1.138 Beiträge Delphi 11 Alexandria	#2 AW: GDI+ viele Encoder parameter setzen ARRAY[0.0.] 12. Jul 2012, 14:41 hat niemenad eine Idee wie mit obigem Array [0..0] aus dem ersten Post viele Parameter übergebe ?? Das Problem ist wohlähnlich zu : http://www.delphipraxis.net/98740-array-%5B0-0%5D.htmlaber alle meine Versuche scheitern Geändert von bernhard_LA (12. Jul 2012 um 14:51 Uhr)
	Zitat

Bummi Registriert seit: 15. Jun 2010 Ort: Augsburg Bayern Süddeutschland 3.470 Beiträge Delphi XE3 Enterprise	#3 AW: GDI+ viele Encoder parameter setzen ARRAY[0.0.] 12. Jul 2012, 15:04 Schau mal ob das hilft http://trac.assembla.com/delphiexter...nit1.pas?rev=1 Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren DRY DRY KISS H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
	Zitat