Bild halbieren mit Cmyk-farbe

[Newbie44]

Hi,

ich habe neulich ne Dll programmiert, jedoch funtioniert sie komischerweise nicht richtig. sie soll ein vorhandenes Bild immer um die hälfte kleiner machen, da das bild in raw vorliegt und meistens cmyk ist wollte ich jedes vierte byte weglassen, jedoch wird das bild nur abgeschnitten und nicht um die hälfte reduziert

hier mal den code:

Delphi-Quellcode:

function ReduceResolutionProportional(Stream: TMemoryStream; Width,
    Height: Word; ColorDepth: Byte; HeadSize: Int64 = 0): TMemoryStream; stdcall;
resourcestring
  OnEWrongStreamSize = 'Wrong Stream Size (%d, %d)';
  OnEWrongPictureFormat = 'Wrong Picture Format (%d, %d)';
var
  Bytes: Int64;
  i, k: Integer;
  HalfWidth: Word;
begin
  if (Width mod 2 = 1) or (Height mod 2 = 1) then begin
    raise EWrongPictureFormat.Create(Format(OnEWrongPictureFormat, [Width, Height]));
    Exit;
  end;
  Bytes:= Width * Height * ColorDepth + HeadSize;
  if Stream.Size <> Bytes then begin
    raise EWrongStreamSize.Create(Format(OnEWrongStreamSize, [Stream.Size, Bytes]));
    Exit;
  end;
  Stream.Position:= 0;
  Result:= TMemoryStream.Create;
  Result.Position:= 0;
  HalfWidth:= Width div 2;
  for i:= 1 to Height do begin
    if i mod 2 = 0 then
      Stream.Seek(soFromCurrent, ColorDepth * Width);
    for k:= 1 to HalfWidth do begin
      Result.CopyFrom(Stream, ColorDepth);
      Stream.Seek(soFromCurrent, ColorDepth * 2);
    end;
  end;
  Stream.Free;
end;

Wiso geht das nicht?

Ich hoffe Ihr könnt mir helfen

Gruß

Sebby