TObject zu System.Byte[] casten und Bitmap zuweisen ???

[semo]

Zitat:

Wenn nur die Pixeldaten enthalten sind, könntest P/Invoke nutzen oder eben zu Fuß die Sache erledigen Wink .
C-Quellcode: ...

wie würde das denn in delphi aussehen?

[winx]

ich habs folgendermaßen gelöst:

Delphi-Quellcode:

function TRemoteController.ConvertObjecttoBitmap(data : TObject):Bitmap;
var
  ms : MemoryStream;
  preview : Bitmap;
  byteArray : TBytes;
  i: Integer;
begin

  try
    byteArray := TBytes(Data);
    ms:= MemoryStream.Create(byteArray);
    ms.set_Position(0);
    preview:=Bitmap.Create(ms);
    ms.Free;
    result := preview;
  except
    raise EBitmapConvertionException.Create();
  end;

end;

[semo]

und wenn nun nur die reinen bilddaten vorhanden sind und nicht die headerdaten für das bild?
bei mir kommt es zu einer zugriffsverletzung, da wie gesagt die header infos fehlen.

[xaromz]

Hallo,

Zitat:

Zitat von computer-glossar.de

und wenn nun nur die reinen bilddaten vorhanden sind und nicht die headerdaten für das bild?
bei mir kommt es zu einer zugriffsverletzung, da wie gesagt die header infos fehlen.

entweder Du nutzt die Funktion, die Khabarakh vorgeschlagen hat, oder Du erstellst Dir einen Bitmap-Header und schreibst ihn mit in den Stream. Der Bitmap-Header ist gut dokumentiert und einfach zu erstellen (im Grunde nur Kennung, Bildgröße, Farbtiefe und evtl. Palette).

Gruß
xaromz